Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Versión 2.5.4

Browse Source 
Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas
Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado
Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos
Tareas #914: En los informes internos sale acana home en lugar de Abeto Design
Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2012-07-11 15:39:13 +00:00
parent d1a9a9cd27
commit 38e48889ef
70 changed files with 3665 additions and 1496 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

4
Build/Build.fbpInf
View File

@ -14,8 +14,8 @@
<Notes>
<![CDATA[]]>
</Notes>
<LastBuildRun>00:00:00</LastBuildRun>
<LastBuildStart>30/12/1899</LastBuildStart>
<LastBuildRun>00:02:48</LastBuildRun>
<LastBuildStart>09/07/2012 10:34:04</LastBuildStart>
<LastBuildState>True</LastBuildState>
</properties>
</project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

28
Database/scripts/factuges.sql
View File

@ -79,6 +79,10 @@ VARCHAR(30);
CREATE DOMAIN TIPO_CANTIDAD AS
NUMERIC(11,2);
CREATE DOMAIN TIPO_FAMILIA AS
VARCHAR(255) CHARACTER SET ISO8859_1
COLLATE ISO8859_1;
/******************************************************************************/
/**** Generators ****/
@ -273,6 +277,9 @@ SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 1;
CREATE GENERATOR GEN_USUARIOS_ID;
SET GENERATOR GEN_USUARIOS_ID TO 1;
CREATE GENERATOR GEN_PRESUPUESTOS_CLIENTE_CAPITU;
SET GENERATOR GEN_PRESUPUESTOS_CLIENTE_CAPITU TO 100;
SET TERM ^ ;
@ -567,6 +574,7 @@ CREATE TABLE ARTICULOS (
ID_PROVEEDOR TIPO_ID,
REFERENCIA_PROV VARCHAR(255),
PRECIO_COSTE TIPO_IMPORTE,
PRECIO_PVP TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
PRECIO_NETO TIPO_IMPORTE,
PRECIO_PORTE TIPO_IMPORTE,
@ -993,7 +1001,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_CONTRATOS (
CREATE TABLE FAMILIAS (
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
DESCRIPCION TIPO_FAMILIA
);
CREATE TABLE FORMAS_PAGO (
@ -1199,8 +1207,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_CAPITULOS (
POSICION INTEGER,
TIPO_DETALLE VARCHAR(10),
TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES,
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO
CONCEPTO TIPO_FAMILIA
);
CREATE TABLE PRESUPUESTOS_VALORES (
@ -1260,8 +1267,9 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
POSICION INTEGER,
TIPO_DETALLE VARCHAR(10),
ID_ARTICULO TIPO_ID,
TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES,
CONCEPTO TIPO_CONCEPTO,
TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES,
PROPIEDAD TIPO_FAMILIA,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
@ -1321,8 +1329,9 @@ CREATE TABLE CONTRATOS_CLIENTE_DETALLES (
POSICION INTEGER,
TIPO_DETALLE VARCHAR(10),
ID_ARTICULO TIPO_ID,
TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES,
CONCEPTO TIPO_CONCEPTO,
TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES,
PROPIEDAD TIPO_FAMILIA,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
@ -5599,7 +5608,7 @@ ID_CAPITULO = -1;
if (TIPO = 'Presupuesto') then
begin
for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle,
coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, presupuestos_propiedades.descripcion,
coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, pre.propiedad,
/* F_RTFTOTEXT(F_RTFTOTEXT(pre.CONCEPTO)) as CONCEPTO,*/
pre.CONCEPTO,
pre.cantidad,
@ -5638,7 +5647,7 @@ end
else if (TIPO = 'Contrato') then
begin
for select pre.id, pre.id_contrato, pre.posicion, pre.tipo_detalle,
coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, presupuestos_propiedades.descripcion,
coalesce(pre.tipo_articulo,'NA'), pre.id_articulo, pre.propiedad,
/* F_RTFTOTEXT(F_RTFTOTEXT(pre.CONCEPTO)) as CONCEPTO,*/
pre.CONCEPTO,
pre.cantidad,
@ -5649,7 +5658,6 @@ begin
pre.descuento, pre.importe_porte,
pre.importe_total, coalesce(pre.visible, 1)
from contratos_cliente_detalles pre
left join presupuestos_propiedades on (pre.id_articulo = presupuestos_propiedades.id)
where pre.id_contrato = :AID
order by pre.id_contrato, pre.posicion
into :ID, :ID_PRE_CON, :POSICION, :TIPO_DETALLE,

96
Source/Base/Base.dproj
View File

@ -59,54 +59,54 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\IndyCore.dcp" />
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
<DCCReference Include="..\Servidor\IndySystem.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\pckMD5.dcp" />
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Servidor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\TB2k_D10.dcp" />
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\VclSmp.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

2
Source/Base/uDMBase.dfm
View File

@ -215,7 +215,7 @@ object dmBase: TdmBase
PrinterPage.PageFooter.Font.Name = 'Tahoma'
PrinterPage.PageFooter.Font.Style = []
PrinterPage.PageFooter.LeftTitle.Strings = (
'ACANA HOME S.L.')
'ABETO DESIGN S.L.')
PrinterPage.PageFooter.RightTitle.Strings = (
'[Page #] de [Total Pages]')
PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/FactuGES.inc
View File

@ -1,4 +1,4 @@
{$DEFINE MULTIEMPRESA}
{DEFINE ALMACEN}
{$DEFINE ALMACEN}
{DEFINE PEDIDOSPROVEEDOR}
{$DEFINE CONTABILIDAD}

16
Source/Modulos/Articulos/Articulos_Group.groupproj
View File

@ -9,6 +9,7 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="Controller\Articulos_controller.dproj" />
<Projects Include="Data\Articulos_data.dproj" />
<Projects Include="Model\Articulos_model.dproj" />
@ -39,6 +40,15 @@
<Target Name="GUIBase:Make">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="ApplicationBase">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
</Target>
@ -112,13 +122,13 @@
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server" />
<CallTarget Targets="Base;GUIBase;Contactos_view;ApplicationBase;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;ApplicationBase:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;ApplicationBase:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

10
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -14,12 +14,12 @@ inherited DataModuleArticulos: TDataModuleArticulos
Top = 84
end
object rda_Articulos: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 151
end
@ -119,6 +119,10 @@ inherited DataModuleArticulos: TDataModuleArticulos
DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_NETO'
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
@ -143,8 +147,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Articulos'
IndexDefs = <>
Left = 232
@ -251,8 +253,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
end>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ArticulosParaCliente'
IndexDefs = <>
Left = 400

53
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schArticulosClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Articulos = '{9F6189A0-1B2F-4ED3-8DCC-540C38366485}';
RID_ArticulosParaCliente = '{84BC0DB1-97F7-438D-B161-7564778ED6D8}';
RID_Articulos = '{0AA3EA1D-D59E-442E-8D95-82EDDE05EBF7}';
RID_ArticulosParaCliente = '{38FEB639-5DDC-4320-905C-17ABB03058E2}';
{ Data table names }
nme_Articulos = 'Articulos';
@ -32,6 +32,7 @@ const
fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE';
fld_ArticulosDESCUENTO = 'DESCUENTO';
fld_ArticulosPRECIO_NETO = 'PRECIO_NETO';
fld_ArticulosPRECIO_PVP = 'PRECIO_PVP';
fld_ArticulosINVENTARIABLE = 'INVENTARIABLE';
fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
@ -53,10 +54,11 @@ const
idx_ArticulosPRECIO_PORTE = 12;
idx_ArticulosDESCUENTO = 13;
idx_ArticulosPRECIO_NETO = 14;
idx_ArticulosINVENTARIABLE = 15;
idx_ArticulosID_PROVEEDOR = 16;
idx_ArticulosNOMBRE_PROVEEDOR = 17;
idx_ArticulosELIMINADO = 18;
idx_ArticulosPRECIO_PVP = 15;
idx_ArticulosINVENTARIABLE = 16;
idx_ArticulosID_PROVEEDOR = 17;
idx_ArticulosNOMBRE_PROVEEDOR = 18;
idx_ArticulosELIMINADO = 19;
{ ArticulosParaCliente fields }
fld_ArticulosParaClienteID = 'ID';
@ -103,7 +105,7 @@ const
type
{ IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable)
['{55AA5752-BC15-4FD7-A39A-97867A837A69}']
['{66416E90-B0A0-4E1D-973E-BBA359030F83}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -164,6 +166,10 @@ type
procedure SetPRECIO_NETOValue(const aValue: Currency);
function GetPRECIO_NETOIsNull: Boolean;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
function GetPRECIO_PVPValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean);
function GetINVENTARIABLEValue: SmallInt;
procedure SetINVENTARIABLEValue(const aValue: SmallInt);
function GetINVENTARIABLEIsNull: Boolean;
@ -213,6 +219,8 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@ -289,6 +297,10 @@ type
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
@ -337,6 +349,8 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@ -354,7 +368,7 @@ type
{ IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{F46994FF-67BE-4892-BE35-890D5A779CB9}']
['{7D8A2E3A-AAD7-49B5-825E-E0D3581DEF75}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -944,6 +958,27 @@ begin
DataTable.Fields[idx_ArticulosPRECIO_NETO].AsVariant := Null;
end;
function TArticulosDataTableRules.GetPRECIO_PVPValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP].AsCurrency;
end;
procedure TArticulosDataTableRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosPRECIO_PVP].AsCurrency := aValue;
end;
function TArticulosDataTableRules.GetPRECIO_PVPIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP].IsNull;
end;
procedure TArticulosDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPRECIO_PVP].AsVariant := Null;
end;
function TArticulosDataTableRules.GetINVENTARIABLEValue: SmallInt;
begin
result := DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt;

63
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ArticulosDelta = '{82298E75-82C9-4852-A33B-491F6C1C22B6}';
RID_ArticulosParaClienteDelta = '{CD4567F1-5B6C-4215-BED9-48EC27CE653D}';
RID_ArticulosDelta = '{64BC3AAC-E5A1-49C9-A8B9-55D5C2D0A921}';
RID_ArticulosParaClienteDelta = '{3F0D35B7-21B1-4130-B5EC-C43075204160}';
type
{ IArticulosDelta }
IArticulosDelta = interface(IArticulos)
['{82298E75-82C9-4852-A33B-491F6C1C22B6}']
['{64BC3AAC-E5A1-49C9-A8B9-55D5C2D0A921}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -32,6 +32,7 @@ type
function GetOldPRECIO_PORTEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldPRECIO_NETOValue : Currency;
function GetOldPRECIO_PVPValue : Currency;
function GetOldINVENTARIABLEValue : SmallInt;
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
@ -53,6 +54,7 @@ type
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
@ -155,6 +157,12 @@ type
function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
function GetOldPRECIO_PVPValue: Currency; virtual;
function GetOldPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
function GetOldINVENTARIABLEValue: SmallInt; virtual;
@ -241,6 +249,10 @@ type
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull;
property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
@ -266,7 +278,7 @@ type
{ IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{CD4567F1-5B6C-4215-BED9-48EC27CE653D}']
['{3F0D35B7-21B1-4130-B5EC-C43075204160}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -539,7 +551,7 @@ end;
procedure TArticulosBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream);
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
end;
function TArticulosBusinessProcessorRules.GetIDValue: Integer;
@ -702,7 +714,7 @@ begin
result := f_IMAGEN;
result.Position := 0;
if not Result.InUpdateMode then begin
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream);
BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream);
result.Position := 0;
end;
end;
@ -715,7 +727,7 @@ end;
function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin
result := NewROStream();
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
end;
function TArticulosBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
@ -1008,6 +1020,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := Null;
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP];
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP]);
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP];
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP]);
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := Null;
end;
function TArticulosBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE];
@ -1152,7 +1195,7 @@ end;
procedure TArticulosParaClienteBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream);
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
end;
function TArticulosParaClienteBusinessProcessorRules.GetIDValue: Integer;
@ -1315,7 +1358,7 @@ begin
result := f_IMAGEN;
result.Position := 0;
if not Result.InUpdateMode then begin
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
result.Position := 0;
end;
end;
@ -1328,7 +1371,7 @@ end;
function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin
result := NewROStream();
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;

4
Source/Modulos/Articulos/Plugin/uPluginArticulos.dfm
View File

@ -53,9 +53,9 @@ object PluginArticulos: TPluginArticulos
Left = 40
Top = 16
object N1: TMenuItem
Caption = 'Log'#237'stica'
Caption = 'Datos'
object Articulos1: TMenuItem
Tag = 101
Tag = 1000
Action = actArticulos
end
end

84
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -203,6 +203,10 @@ object srvArticulos: TsrvArticulos
item
DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO'
end
item
DatasetField = 'PRECIO_PVP'
TableField = 'PRECIO_PVP'
end>
end>
Name = 'Articulos'
@ -290,6 +294,10 @@ object srvArticulos: TsrvArticulos
DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_NETO'
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
@ -515,70 +523,97 @@ object srvArticulos: TsrvArticulos
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'IMAGEN'
DataType = datBlob
Value = ''
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
Value = ''
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
Value = ''
end>
Statements = <
@ -587,14 +622,14 @@ object srvArticulos: TsrvArticulos
TargetTable = 'ARTICULOS'
SQL =
'INSERT'#10' INTO ARTICULOS'#10' (ID, ID_EMPRESA, REFERENCIA, DESCRIP' +
'CION, FAMILIA, IMAGEN, '#10' COMISIONABLE, FECHA_ALTA, FECHA_MOD' +
'IFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO,' +
' ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV, INVENTARIABLE' +
', ELIMINADO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCR' +
'IPCION, :FAMILIA, '#10' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FE' +
'CHA_MODIFICACION, '#10' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, ' +
':DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,' +
#10' :INVENTARIABLE, :ELIMINADO)'
'CION, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_ALTA, FECHA_MODI' +
'FICACION, USUARIO,'#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO, I' +
'D_PROVEEDOR,'#10' PRECIO_NETO, PRECIO_PVP, REFERENCIA_PROV, INVE' +
'NTARIABLE, ELIMINADO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCI' +
'A, :DESCRIPCION, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, :FECHA_A' +
'LTA, :FECHA_MODIFICACION,'#10' :USUARIO, :PRECIO_COSTE, :PRECIO_' +
'PORTE, :DESCUENTO,'#10' :ID_PROVEEDOR, :PRECIO_NETO, :PRECIO_PVP' +
', :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -622,70 +657,97 @@ object srvArticulos: TsrvArticulos
Params = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'IMAGEN'
DataType = datBlob
Value = ''
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
Value = ''
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
Value = ''
end
item
@ -704,9 +766,9 @@ object srvArticulos: TsrvArticulos
' :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' PRECIO_COSTE' +
' = :PRECIO_COSTE, '#10' PRECIO_PORTE = :PRECIO_PORTE, '#10' DESCUE' +
'NTO = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' PRECIO' +
'_NETO = :PRECIO_NETO,'#10' INVENTARIABLE = :INVENTARIABLE,'#10' RE' +
'FERENCIA_PROV = :REFERENCIA_PROV,'#10' ELIMINADO = :ELIMINADO'#10' W' +
'HERE'#10' (ID = :OLD_ID)'#10
'_NETO = :PRECIO_NETO,'#10' PRECIO_PVP = :PRECIO_PVP,'#10' INVENTAR' +
'IABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_PROV,'#10 +
' ELIMINADO = :ELIMINADO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

68
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo
Width = 451
Height = 304
Width = 881
Height = 527
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -10,18 +10,19 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl
Left = 0
Top = 0
Width = 451
Width = 881
Height = 393
Align = alTop
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth]
ExplicitWidth = 451
DesignSize = (
451
881
393)
object PngSpeedButton2: TPngSpeedButton
Left = 546
Left = 836
Top = 28
Width = 23
Height = 22
@ -48,7 +49,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object PngSpeedButton1: TPngSpeedButton
Left = 546
Left = 836
Top = 56
Width = 23
Height = 22
@ -102,6 +103,7 @@ inherited frViewArticulo: TfrViewArticulo
Caption = 'Art'#237'culo no comisionable'
DataBinding.DataField = 'COMISIONABLE'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 0
@ -121,7 +123,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 144
end
object eImagen: TcxImage
Left = 409
Left = 604
Top = 28
Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True
@ -167,19 +169,20 @@ inherited frViewArticulo: TfrViewArticulo
Width = 70
end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 219
Left = 509
Top = 166
Width = 350
Height = 202
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 11
TabOrder = 12
ReadOnly = False
ExplicitLeft = 219
ExplicitLeft = 509
ExplicitTop = 166
inherited dxLayoutControl1: TdxLayoutControl
inherited edtNIFCIF: TcxDBTextEdit
@ -206,6 +209,7 @@ inherited frViewArticulo: TfrViewArticulo
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROV'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = 14745599
@ -242,6 +246,7 @@ inherited frViewArticulo: TfrViewArticulo
Top = 220
DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
@ -290,6 +295,7 @@ inherited frViewArticulo: TfrViewArticulo
Top = 274
DataBinding.DataField = 'PRECIO_PORTE'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -306,11 +312,12 @@ inherited frViewArticulo: TfrViewArticulo
Width = 86
end
object cbNoInventariable: TcxDBCheckBox
Left = 242
Left = 361
Top = 109
Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 0
@ -329,6 +336,26 @@ inherited frViewArticulo: TfrViewArticulo
TabOrder = 4
Width = 144
end
object ePrecioPVP: TcxDBCurrencyEdit
Left = 103
Top = 301
DataBinding.DataField = 'PRECIO_PVP'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Width = 288
end
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -373,7 +400,9 @@ inherited frViewArticulo: TfrViewArticulo
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloGroup8: TdxLayoutGroup
Enabled = False
ShowCaption = False
Visible = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
@ -440,34 +469,49 @@ inherited frViewArticulo: TfrViewArticulo
Caption = 'Datos del proveedor para el art'#237'culo'
object dxLayoutControlArticuloItem15: TdxLayoutItem
Caption = 'Ref. del prov:'
Enabled = False
Visible = False
Control = eReferenciaProv
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem16: TdxLayoutItem
Caption = 'Precio:'
Caption = 'Precio coste:'
Control = ePrecioCoste
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem17: TdxLayoutItem
Caption = 'Dto (%):'
Enabled = False
Visible = False
Control = eDescuento
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem18: TdxLayoutItem
Caption = 'Precio neto:'
Enabled = False
Visible = False
Control = ePrecioNeto
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem19: TdxLayoutItem
Caption = 'Coste de envio:'
Enabled = False
Visible = False
Control = ePrecioPorte
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem9: TdxLayoutItem
Caption = 'Precio PVP:'
Control = ePrecioPVP
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloGroup12: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Proveedor para el art'#237'culo'
Enabled = False
Visible = False
object dxLayoutControlArticuloItem14: TdxLayoutItem
Control = frViewDatosYSeleccionProveedor1
ControlOptions.AutoColor = True

2
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -71,6 +71,8 @@ type
dxLayoutControlArticuloItem7: TdxLayoutItem;
cbNoInventariable: TcxDBCheckBox;
dxLayoutControlArticuloGroup8: TdxLayoutGroup;
dxLayoutControlArticuloItem9: TdxLayoutItem;
ePrecioPVP: TcxDBCurrencyEdit;
procedure actEliminarExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject);
procedure cbFamiliaPropertiesInitPopup(Sender: TObject);

35
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -31,9 +31,11 @@ inherited frViewArticulos: TfrViewArticulos
Tag = 1
Value = 1
end>
Visible = False
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
VisibleForCustomization = False
Width = 22
end
object cxGridViewCOMISIONABLE: TcxGridDBColumn
@ -63,9 +65,11 @@ inherited frViewArticulos: TfrViewArticulos
end>
Properties.PostPopupValueOnTab = True
Properties.ShowDescriptions = False
Visible = False
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
VisibleForCustomization = False
Width = 22
end
object cxGridViewREFERENCIA: TcxGridDBColumn
@ -74,28 +78,32 @@ inherited frViewArticulos: TfrViewArticulos
BestFitMaxWidth = 60
Width = 60
end
object cxGridViewFAMILIA: TcxGridDBColumn
Caption = 'Familia'
DataBinding.FieldName = 'FAMILIA'
BestFitMaxWidth = 60
Width = 60
end
object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION'
BestFitMaxWidth = 120
Width = 120
end
object cxGridViewFAMILIA: TcxGridDBColumn
Caption = 'Familia'
DataBinding.FieldName = 'FAMILIA'
BestFitMaxWidth = 60
Width = 60
end
object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
Visible = False
BestFitMaxWidth = 120
VisibleForCustomization = False
Width = 120
end
object cxGridViewREFERENCIA_PROV: TcxGridDBColumn
Caption = 'Ref. proveedor'
DataBinding.FieldName = 'REFERENCIA_PROV'
Visible = False
BestFitMaxWidth = 60
VisibleForCustomization = False
Width = 60
end
object cxGridViewPRECIO_COSTE: TcxGridDBColumn
@ -112,24 +120,37 @@ inherited frViewArticulos: TfrViewArticulos
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Visible = False
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end
object cxGridViewPRECIO_NETO: TcxGridDBColumn
Caption = 'Precio neto'
DataBinding.FieldName = 'PRECIO_NETO'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Visible = False
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end
object cxGridViewPRECIO_PORTE: TcxGridDBColumn
Caption = 'Precio porte'
DataBinding.FieldName = 'PRECIO_PORTE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Visible = False
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end
object cxGridViewPRECIO_PVP: TcxGridDBColumn
Caption = 'Precio PVP'
DataBinding.FieldName = 'PRECIO_PVP'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
end
@ -159,7 +180,7 @@ inherited frViewArticulos: TfrViewArticulos
end
inherited pnlAgrupaciones: TTBXDockablePanel
Visible = True
ExplicitWidth = 128
ExplicitWidth = 554
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXToolbar1: TTBXToolbar
object TBXSeparatorItem1: TTBXSeparatorItem

1
Source/Modulos/Articulos/Views/uViewArticulos.pas
View File

@ -37,6 +37,7 @@ type
TBXSeparatorItem1: TTBXSeparatorItem;
TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewINVENTARIABLE: TcxGridDBColumn;
cxGridViewPRECIO_PVP: TcxGridDBColumn;
procedure cxGridViewIDCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

3
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -751,6 +751,9 @@ begin
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'ENCIMERA ', True, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'ELECTRODOMÉSTICOS ', True, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'COMPLEMENTOS ', True, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, AContrato.Detalles);
end;

1
Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
View File

@ -152,6 +152,7 @@ end;
procedure TDetallesContratoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
ADetalles.DataTable.FieldByName('PROPIEDAD').AsString := AArticulos.FAMILIA;
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
// if Assigned(AArticulos) then
// ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO

24
Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj
View File

@ -49,18 +49,18 @@
<DelphiCompile Include="ContratosCliente_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ContratosCliente_model.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uDataModuleContratosCliente.pas" />
</ItemGroup>
</Project>

75
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -357,6 +357,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datString
Size = 10
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
@ -398,7 +403,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item
Name = 'REFERENCIA'
DataType = datString
Size = 50
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
@ -451,74 +456,6 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Left = 248
Top = 144
end
object tbl_Propiedades: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 50
end
item
Name = 'ID_PROPIEDAD_VALORES'
DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_ContratosCliente
LogicalName = 'Propiedades'
IndexDefs = <>
Left = 464
Top = 200
end
object ds_Propiedades: TDADataSource
DataSet = tbl_Propiedades.Dataset
DataTable = tbl_Propiedades
Left = 464
Top = 152
end
object tbl_Valores: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_PROPIEDAD'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_ContratosCliente
MasterSource = ds_Propiedades
MasterFields = 'ID_PROPIEDAD_VALORES'
DetailFields = 'ID_PROPIEDAD'
LogicalName = 'Valores'
IndexDefs = <>
Left = 544
Top = 200
end
object ds_Valores: TDADataSource
DataSet = tbl_Valores.Dataset
DataTable = tbl_Valores
Left = 544
Top = 152
end
object tbl_TiposCapitulos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <

4
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
View File

@ -25,10 +25,6 @@ type
RORemoteService1: TRORemoteService;
tbl_ListaAnosContratos: TDAMemDataTable;
ds_ListaAnosContratos: TDADataSource;
tbl_Propiedades: TDAMemDataTable;
ds_Propiedades: TDADataSource;
tbl_Valores: TDAMemDataTable;
ds_Valores: TDADataSource;
tbl_TiposCapitulos: TDAMemDataTable;
ds_TiposCapitulos: TDADataSource;
tbl_ContratosClienteBeneficios: TDAMemDataTable;

85
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{FA28DA02-8C68-4321-8EBF-B87F6681AAFB}';
RID_Propiedades = '{70A934F6-65E3-46CB-925B-42CF5B2149DA}';
RID_ListaAnosContratos = '{B946A2C7-5BA5-4907-BBC1-5BF68ADE7D7A}';
RID_ContratosClienteBeneficios = '{8D457DDB-766A-4BE9-8528-C6CD14B363FF}';
RID_ContratosCliente = '{9D72F545-BC54-46D8-B947-7942681F5F72}';
RID_TiposCapitulos = '{A6ED3952-D8BE-4945-B0E6-0445ECB32C46}';
RID_ContratosCliente_Detalles = '{3ACB6A32-FAD2-45C9-86FF-D681CB3E4D7B}';
RID_Valores = '{1DBD72A0-582B-4F32-8455-A45B6191054E}';
RID_Propiedades = '{8AAD78E4-F1A6-4878-B140-73DDC81C2BE0}';
RID_ListaAnosContratos = '{FB083C00-73FE-4B12-A941-B572555FF37E}';
RID_ContratosClienteBeneficios = '{E24213CE-E549-4596-96B0-7E30EA157262}';
RID_ContratosCliente = '{ECF02D70-7B0A-412D-93F8-E3E58A79B5D3}';
RID_TiposCapitulos = '{71A4C5A8-136B-419C-8766-73E324C003E6}';
RID_ContratosCliente_Detalles = '{60F97EEA-78E8-47C1-BB87-6962689FBE44}';
{ Data table names }
nme_Valores = 'Valores';
@ -199,6 +199,7 @@ const
fld_ContratosCliente_DetallesID_CONTRATO = 'ID_CONTRATO';
fld_ContratosCliente_DetallesPOSICION = 'POSICION';
fld_ContratosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_ContratosCliente_DetallesPROPIEDAD = 'PROPIEDAD';
fld_ContratosCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_ContratosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
@ -216,22 +217,23 @@ const
idx_ContratosCliente_DetallesID_CONTRATO = 1;
idx_ContratosCliente_DetallesPOSICION = 2;
idx_ContratosCliente_DetallesTIPO_DETALLE = 3;
idx_ContratosCliente_DetallesCONCEPTO = 4;
idx_ContratosCliente_DetallesCANTIDAD = 5;
idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 6;
idx_ContratosCliente_DetallesIMPORTE_TOTAL = 7;
idx_ContratosCliente_DetallesVISIBLE = 8;
idx_ContratosCliente_DetallesID_ARTICULO = 9;
idx_ContratosCliente_DetallesTIPO_ARTICULO = 10;
idx_ContratosCliente_DetallesDESCUENTO = 11;
idx_ContratosCliente_DetallesIMPORTE_PORTE = 12;
idx_ContratosCliente_DetallesREFERENCIA = 13;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 14;
idx_ContratosCliente_DetallesPROPIEDAD = 4;
idx_ContratosCliente_DetallesCONCEPTO = 5;
idx_ContratosCliente_DetallesCANTIDAD = 6;
idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8;
idx_ContratosCliente_DetallesVISIBLE = 9;
idx_ContratosCliente_DetallesID_ARTICULO = 10;
idx_ContratosCliente_DetallesTIPO_ARTICULO = 11;
idx_ContratosCliente_DetallesDESCUENTO = 12;
idx_ContratosCliente_DetallesIMPORTE_PORTE = 13;
idx_ContratosCliente_DetallesREFERENCIA = 14;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 15;
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{22EB6286-F205-40D3-9987-8300E2A9853F}']
['{D86FAABE-B20B-48BE-B160-8767CEA84C3C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -290,7 +292,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{569F1642-7C0C-4370-ABF1-DAB4665459DB}']
['{5AAF3E21-FEBD-4211-AD79-08B1438EF95D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -349,7 +351,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{04A9E518-9929-4B89-80A8-7E7E5D7095E0}']
['{397A8CFD-9592-49B7-997B-A206E9159B76}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -384,7 +386,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{324E56F5-35FA-4DCF-9CBD-E7B15B866EEE}']
['{B7C19066-8DBC-473F-A005-CA6CECB8244A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -575,7 +577,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{036A6578-3BE5-4535-B2D6-666D13D40ECD}']
['{F9EC2443-6943-4368-85E3-CA5C57103A1A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1141,7 +1143,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{C93A3AC0-EE98-4F02-BFB3-06817133648A}']
['{81A688E8-AA17-41EE-A1D6-81479918BBF1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1236,7 +1238,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{636577F2-0315-43C8-9372-BA688C2E6B72}']
['{898E740D-B47B-4359-A144-870FF2217808}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1254,6 +1256,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String);
function GetTIPO_DETALLEIsNull: Boolean;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
function GetPROPIEDADValue: String;
procedure SetPROPIEDADValue(const aValue: String);
function GetPROPIEDADIsNull: Boolean;
procedure SetPROPIEDADIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
@ -1309,6 +1315,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -1354,6 +1362,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual;
function GetPROPIEDADIsNull: Boolean; virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
@ -1408,6 +1420,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -3142,6 +3156,27 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesTIPO_DETALLE].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetPROPIEDADValue: String;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsString;
end;
procedure TContratosCliente_DetallesDataTableRules.SetPROPIEDADValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsString := aValue;
end;
function TContratosCliente_DetallesDataTableRules.GetPROPIEDADIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].IsNull;
end;
procedure TContratosCliente_DetallesDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosCliente_DetallesPROPIEDAD].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].AsString;

71
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{D32E0D68-A35E-40C0-B392-2D39D3D21953}';
RID_PropiedadesDelta = '{DCD3B700-14A4-4CD6-AA62-79DA5F6F5856}';
RID_ListaAnosContratosDelta = '{383E48EC-36B7-42B2-B5CF-D03D68BE3274}';
RID_ContratosClienteBeneficiosDelta = '{AF389F8F-27E2-41B9-9FDB-38E77D712993}';
RID_ContratosClienteDelta = '{2153CB43-1F8B-40FD-A227-71C190E7D3B2}';
RID_TiposCapitulosDelta = '{6FFB3E97-9DBC-4D0B-86BD-3E1B2825C119}';
RID_ContratosCliente_DetallesDelta = '{31FC6830-EBF5-413C-921E-F2FD6FA71429}';
RID_ValoresDelta = '{9CE22F1E-3F2B-4AD5-843D-F5128DD7C5F1}';
RID_PropiedadesDelta = '{0F51AF81-3A0A-4867-8ABB-D63B99BBF522}';
RID_ListaAnosContratosDelta = '{F03E531D-9A34-49BC-910B-EBFA48C93D8B}';
RID_ContratosClienteBeneficiosDelta = '{2926FE0C-6BF7-4326-87A6-70303D69EB58}';
RID_ContratosClienteDelta = '{1C1605F5-61F9-41A2-BDB3-B29C6B035DB0}';
RID_TiposCapitulosDelta = '{97A487E0-3FD8-4B85-818B-55EA15B54CA3}';
RID_ContratosCliente_DetallesDelta = '{8C9149BF-C3E8-47F8-A26F-A45942CA736B}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{D32E0D68-A35E-40C0-B392-2D39D3D21953}']
['{9CE22F1E-3F2B-4AD5-843D-F5128DD7C5F1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{DCD3B700-14A4-4CD6-AA62-79DA5F6F5856}']
['{0F51AF81-3A0A-4867-8ABB-D63B99BBF522}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{383E48EC-36B7-42B2-B5CF-D03D68BE3274}']
['{F03E531D-9A34-49BC-910B-EBFA48C93D8B}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{AF389F8F-27E2-41B9-9FDB-38E77D712993}']
['{2926FE0C-6BF7-4326-87A6-70303D69EB58}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -360,7 +360,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{2153CB43-1F8B-40FD-A227-71C190E7D3B2}']
['{1C1605F5-61F9-41A2-BDB3-B29C6B035DB0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -926,7 +926,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{6FFB3E97-9DBC-4D0B-86BD-3E1B2825C119}']
['{97A487E0-3FD8-4B85-818B-55EA15B54CA3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1020,12 +1020,13 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{31FC6830-EBF5-413C-921E-F2FD6FA71429}']
['{8C9149BF-C3E8-47F8-A26F-A45942CA736B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldPROPIEDADValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
@ -1043,6 +1044,7 @@ type
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -1085,6 +1087,12 @@ type
function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual;
function GetPROPIEDADIsNull: Boolean; virtual;
function GetOldPROPIEDADValue: String; virtual;
function GetOldPROPIEDADIsNull: Boolean; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
@ -1169,6 +1177,10 @@ type
property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
property PROPIEDAD : String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull : Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldPROPIEDADIsNull : Boolean read GetOldPROPIEDADIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
@ -3690,6 +3702,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesTIPO_DETALLE] := Null;
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD];
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD]);
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesPROPIEDAD];
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesPROPIEDAD]);
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD] := aValue;
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesPROPIEDAD] := Null;
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCONCEPTO];

73
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -785,18 +785,18 @@ object srvContratosCliente: TsrvContratosCliente
'SELECT'#10' CONTRATOS_CLIENTE_DETALLES.ID, CONTRATOS_CLIENTE_DETA' +
'LLES.ID_CONTRATO,'#10' CONTRATOS_CLIENTE_DETALLES.POSICION, CONTR' +
'ATOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' CONTRATOS_CLIENTE_DETALL' +
'ES.CONCEPTO, CONTRATOS_CLIENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_' +
'CLIENTE_DETALLES.IMPORTE_UNIDAD, CONTRATOS_CLIENTE_DETALLES.IMPO' +
'RTE_TOTAL,'#10' CONTRATOS_CLIENTE_DETALLES.VISIBLE,'#10#10' CONTRATO' +
'S_CLIENTE_DETALLES.ID_ARTICULO, CONTRATOS_CLIENTE_DETALLES.TIPO_' +
'ARTICULO,'#10' CONTRATOS_CLIENTE_DETALLES.DESCUENTO,'#10' CONTRATO' +
'S_CLIENTE_DETALLES.IMPORTE_PORTE,'#10' PRESUPUESTOS_PROPIEDADES.D' +
'ESCRIPCION as REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es ne' +
'cesario para que no fallen los detalles porque los detalles son ' +
'comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTRATOS' +
'_CLIENTE_DETALLES'#10'LEFT JOIN PRESUPUESTOS_PROPIEDADES ON (PRESUPU' +
'ESTOS_PROPIEDADES.ID = CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO)'#10'w' +
'here {where}'#10'ORDER BY POSICION;'#10#10
'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' +
'ENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' +
'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' CONTRATOS_C' +
'LIENTE_DETALLES.VISIBLE,'#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTI' +
'CULO, CONTRATOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CL' +
'IENTE_DETALLES.DESCUENTO,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE' +
'_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*E' +
's necesario para que no fallen los detalles porque los detalles ' +
'son comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTR' +
'ATOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_D' +
'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICI' +
'ON;'#10
StatementType = stSQL
ColumnMappings = <
item
@ -860,6 +860,10 @@ object srvContratosCliente: TsrvContratosCliente
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD'
end>
end>
Name = 'ContratosCliente_Detalles'
@ -883,6 +887,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 10
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
@ -924,7 +933,7 @@ object srvContratosCliente: TsrvContratosCliente
item
Name = 'REFERENCIA'
DataType = datString
Size = 50
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
@ -1440,6 +1449,12 @@ object srvContratosCliente: TsrvContratosCliente
Size = 10
Value = ''
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1494,12 +1509,13 @@ object srvContratosCliente: TsrvContratosCliente
TargetTable = 'CONTRATOS_CLIENTE_DETALLES'
SQL =
'INSERT'#10' INTO CONTRATOS_CLIENTE_DETALLES'#10' (ID, ID_CONTRATO, P' +
'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' +
'IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' DESCUEN' +
'TO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_CONTRATO, ' +
':POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTIDAD, :IMPORTE_UN' +
'IDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTICULO, :TIPO_ARTICUL' +
'O, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10
'OSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' IMPOR' +
'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' ' +
' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID' +
'_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCEPTO,'#10' ' +
' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_' +
'ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TI' +
'MESTAMP)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1548,6 +1564,12 @@ object srvContratosCliente: TsrvContratosCliente
Size = 10
Value = ''
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1607,12 +1629,13 @@ object srvContratosCliente: TsrvContratosCliente
SQL =
'UPDATE CONTRATOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_CO' +
'NTRATO = :ID_CONTRATO,'#10' POSICION = :POSICION, '#10' TIPO_DETAL' +
'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' +
'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOT' +
'AL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO =' +
' :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENT' +
'O = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_M' +
'ODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
'LE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' CONCEPTO = ' +
':CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMP' +
'ORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = ' +
':VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = ' +
':TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE =' +
' :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WH' +
'ERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

148
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -174,6 +174,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl
Width = 839
Height = 270
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 839
@ -207,98 +208,96 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitHeight = 242
inherited ToolBar1: TToolBar
Width = 831
Height = 24
ExplicitWidth = 831
inherited ToolButton4: TToolButton
Wrap = True
end
ExplicitHeight = 24
inherited ToolButton14: TToolButton
Left = 0
Top = 22
Wrap = False
ExplicitLeft = 0
ExplicitTop = 22
end
inherited FontName: TJvFontComboBox
Left = 34
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
inherited UpDown1: TUpDown [6]
Left = 513
Top = 0
Width = 74
ExplicitLeft = 513
ExplicitTop = 0
end
inherited ToolButton13: TToolButton [7]
Left = 530
Top = 0
ExplicitLeft = 530
ExplicitTop = 0
end
inherited ToolButton6: TToolButton [8]
Left = 538
Top = 0
ExplicitLeft = 538
ExplicitTop = 0
end
inherited ToolButton7: TToolButton [9]
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton8: TToolButton [10]
Left = 606
Top = 0
ExplicitLeft = 606
ExplicitTop = 0
end
inherited ToolButton12: TToolButton [11]
Left = 640
Top = 0
ExplicitLeft = 640
ExplicitTop = 0
end
inherited ToolButton9: TToolButton [12]
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton10: TToolButton [13]
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton11: TToolButton [14]
Left = 716
Top = 0
ExplicitLeft = 716
ExplicitTop = 0
end
inherited FontSize: TEdit [15]
Left = 750
Top = 0
Width = 74
ExplicitLeft = 750
ExplicitTop = 0
ExplicitWidth = 74
end
inherited UpDown1: TUpDown
Left = 587
Top = 0
ExplicitLeft = 587
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 604
Top = 0
ExplicitLeft = 604
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 612
Top = 0
ExplicitLeft = 612
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 646
Top = 0
ExplicitLeft = 646
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 680
Top = 0
ExplicitLeft = 680
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 714
Top = 0
ExplicitLeft = 714
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 722
Top = 0
ExplicitLeft = 722
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 756
Top = 0
ExplicitLeft = 756
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 790
Top = 0
ExplicitLeft = 790
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 831
Height = 192
ExplicitTop = 50
ExplicitWidth = 834
ExplicitHeight = 273
ExplicitWidth = 831
ExplicitHeight = 192
inherited cxGridView: TcxGridDBTableView
end
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 831
ExplicitTop = 24
ExplicitWidth = 834
ExplicitWidth = 831
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 564
end
@ -309,6 +308,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited cxRichEdit1: TcxRichEdit
Style.IsFontAssigned = True
end
inherited cxLookupComboBox2: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagInicidencias: TTabSheet
@ -466,6 +468,11 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Style.IsFontAssigned = True
ExplicitLeft = 528
end
inherited edtIRPF: TcxDBSpinEdit
Left = 528
Style.IsFontAssigned = True
ExplicitLeft = 528
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 599
Style.IsFontAssigned = True
@ -473,6 +480,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 56
Width = 56
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 599
Style.IsFontAssigned = True
ExplicitLeft = 599
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 147

44
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
View File

@ -68,19 +68,13 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Visible = True
end
object cxGridViewID_PROPIEDAD: TcxGridDBColumn [6]
Caption = 'Propiedad'
DataBinding.FieldName = 'ID_ARTICULO'
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = DAPropiedades
object cxGridViewPROPIEDAD: TcxGridDBColumn [6]
DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties'
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
BestFitMaxWidth = 150
Width = 150
IsCaptionAssigned = True
end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
end
@ -100,7 +94,6 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Width = 34
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
VisibleForCustomization = False
Width = 20
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13]
@ -205,6 +198,29 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Height = 25
Width = 145
end
object cxLookupComboBox2: TcxLookupComboBox [5]
Left = 78
Top = 280
ParentFont = False
Properties.DropDownListStyle = lsEditList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'DESCRIPCION'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = DAPropiedades
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -13
Style.Font.Name = 'Lucida Console'
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 5
Visible = False
Width = 145
end
inherited ActionListContenido: TActionList
object actAsignarDescuento: TAction
Category = 'Operaciones'

35
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
View File

@ -30,7 +30,7 @@ type
TBXItem18: TTBXItem;
TBXSeparatorItem9: TTBXSeparatorItem;
DAPropiedades: TDADataSource;
cxGridViewID_PROPIEDAD: TcxGridDBColumn;
cxGridViewPROPIEDAD: TcxGridDBColumn;
cxLookupComboBox1: TcxLookupComboBox;
DAValores: TDADataSource;
cxRichEdit1: TcxRichEdit;
@ -55,6 +55,7 @@ type
actCapituloImportes: TAction;
TBXSeparatorItem11: TTBXSeparatorItem;
TBXItem21: TTBXItem;
cxLookupComboBox2: TcxLookupComboBox;
procedure actAsignarDescuentoExecute(Sender: TObject);
procedure actAsignarDescuentoUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
@ -70,6 +71,9 @@ type
procedure actCapituloImportesExecute(Sender: TObject);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
private
procedure AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false);
@ -259,18 +263,28 @@ begin
inherited;
//OJO sin esto no se refresca el filtro en tabla detalle "VALORES".
(cxGridViewID_PROPIEDAD.Properties as TcxLookupComboBoxProperties).ListSource.DataSet.Locate(fld_PropiedadesID, cxGridViewID_PROPIEDAD.DataBinding.Field.AsVariant,[]);
DAPropiedades.DataTable.Locate(fld_PropiedadesDESCRIPCION, cxGridViewPROPIEDAD.DataBinding.Field.AsVariant,[]);
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
and ((ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AF)
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AI)
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_B)
or (ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_C)) then
and (ARecord.DisplayTexts[cxGridViewPROPIEDAD.Index] <> '') then
AProperties := cxLookupComboBox1.Properties
else
AProperties := cxRichEdit1.Properties;
end;
procedure TfrViewDetallesContratoCliente.cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
begin
inherited;
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
then
AProperties := cxLookupComboBox2.Properties
else
AProperties := cxRichEdit1.Properties;
end;
function TfrViewDetallesContratoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean;
var
IndiceCol : Integer;
@ -283,7 +297,7 @@ begin
if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then
Result := False
end
else if (AItem.Index in [cxGridViewID_PROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
begin
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or
@ -296,8 +310,11 @@ begin
IndiceCol := cxGridView.GetColumnByFieldName(fld_ContratosCliente_DetallesTIPO_ARTICULO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AF) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AI) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C)) then
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_O) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_V) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_E) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B)) then
Result := False
end;
end

2
Source/Modulos/Familias/Plugin/uPluginFamilias.dfm
View File

@ -35,7 +35,7 @@ object PluginFamilias: TPluginFamilias
object Ventas1: TMenuItem
Caption = 'Datos'
object Familias1: TMenuItem
Tag = 19000
Tag = 900
Action = actFamilias
end
end

59
Source/Modulos/Inventario/Controller/Inventario_controller.dproj
View File

@ -39,61 +39,21 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">Inventario_controller.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Inventario_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Inventario_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
<DCCReference Include="..\..\Lib\Inventario_data.dcp" />
<DCCReference Include="..\..\Lib\Inventario_model.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\Inventario_data.dcp" />
<DCCReference Include="..\Inventario_model.dcp" />
<DCCReference Include="..\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" />
<DCCReference Include="..\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\Utiles\uInventarioUtils.pas">
<Form>dmInventarioUtils</Form>
<DesignClass>TDataModule</DesignClass>
@ -107,7 +67,6 @@
<DCCReference Include="View\uIEditorInventario.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

2
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -676,6 +676,7 @@ procedure TInventarioController.Reservar(AInventario : IBizInventario);
var
APresupuesto: IBizPresupuestoCliente;
begin
{
if not Assigned(AInventario) then
exit;
@ -689,6 +690,7 @@ begin
finally
APresupuesto := Nil;
end;
}
end;
function TInventarioController.Reservar(AInventario : IBizInventario; Todos: Boolean; const APedido: IBizPresupuestoCliente): Boolean;

9
Source/Modulos/Inventario/Plugin/Inventario_plugin.dproj
View File

@ -41,20 +41,19 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Inventario_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Inventario_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Inventario_plugin.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Inventario_controller.dcp" />
<DCCReference Include="..\..\Lib\Inventario_model.dcp" />
<DCCReference Include="..\..\Lib\Inventario_view.dcp" />
<DCCReference Include="..\Inventario_controller.dcp" />
<DCCReference Include="..\Inventario_model.dcp" />
<DCCReference Include="..\Inventario_view.dcp" />
<DCCReference Include="uPluginInventario.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

10
Source/Modulos/Inventario/Views/Inventario_view.dproj
View File

@ -39,17 +39,17 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Inventario_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Inventario_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Inventario_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\GUIBase\Articulos_view.dcp" />
<DCCReference Include="..\..\..\GUIBase\GUIBase.dcp" />
<DCCReference Include="..\..\..\GUIBase\Inventario_controller.dcp" />
<DCCReference Include="..\..\..\GUIBase\Inventario_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\Inventario_controller.dcp" />
<DCCReference Include="..\Inventario_model.dcp" />
<DCCReference Include="uEditorDetalleReservas.pas">
<Form>fEditorDetalleReservas</Form>
<DesignClass>TfEditorDetalleReservas</DesignClass>

10
Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
View File

@ -17,6 +17,7 @@ type
function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
function BuscarCapitulo (const Tipo: String): IBizCapitulo;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end;
@ -47,6 +48,7 @@ type
function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
function BuscarCapitulo (const Tipo: String): IBizCapitulo;
//Se sobre escribe para hacer otro recorrido y rellenar el tipo_articulo a todos los conceptos de los capitulos
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
@ -130,7 +132,7 @@ begin
ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).AsString := Tipo;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesID_ARTICULO).AsInteger := ACapitulo.ID_ARTICULO;
ADetalles.DataTable.FieldByName(fld_PresupuestosCliente_DetallesPROPIEDAD).AsString := ACapitulo.CONCEPTO;
Next;
until EOF;
end;
@ -159,6 +161,12 @@ begin
FArticulosController := TArticulosPresupuestoClienteController.Create;
end;
function TDetallesPresupuestoClienteController.BuscarCapitulo(
const Tipo: String): IBizCapitulo;
begin
Result := FDataModule.GetCapitulo(Tipo);
end;
function TDetallesPresupuestoClienteController.PedirDescuento: Variant;
var
AEditor: IEditorAsignarDescuento;

11
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -43,6 +43,12 @@ const
CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS';
CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS';
CTE_FORMA_PAGO_OBRA = 'FORMA_PAGO_OBRA';
CTE_PLAZOS_ENTREGA_OBRA = 'PLAZOS_ENTREGA_OBRA';
CTE_OBSERVACIONES_OBRA = 'OBSERVACIONES_OBRA';
CTE_CONDICIONES_OBRA = 'CONDICIONES_OBRA';
type
TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teVarios);
@ -897,7 +903,10 @@ begin
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'ENCIMERA ', True, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'ELECTRODOMÉSTICOS ', True, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'COMPLEMENTOS ', True, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles);
end;

2
Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj
View File

@ -49,7 +49,7 @@
<DelphiCompile Include="PresupuestosCliente_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Views\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
<DCCReference Include="uDataModulePresupuestosCliente.pas">
<Form>DataModulePresupuestosCliente</Form>
</DCCReference>

179
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -292,6 +292,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datString
Size = 10
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
@ -386,6 +391,94 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Left = 248
Top = 144
end
object tbl_CapitulosPresupuesto: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
Required = True
DictionaryEntry = 'CapitulosPresupuesto_ID'
InPrimaryKey = True
end
item
Name = 'POSICION'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_POSICION'
DictionaryEntry = 'CapitulosPresupuesto_POSICION'
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
DisplayLabel = 'CapitulosPresupuesto_TIPO_DETALLE'
DictionaryEntry = 'CapitulosPresupuesto_TIPO_DETALLE'
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
DisplayLabel = 'CapitulosPresupuesto_TIPO_ARTICULO'
DictionaryEntry = 'CapitulosPresupuesto_TIPO_ARTICULO'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
DisplayLabel = 'CapitulosPresupuesto_CONCEPTO'
DictionaryEntry = 'CapitulosPresupuesto_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_CANTIDAD'
DictionaryEntry = 'CapitulosPresupuesto_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_IMPORTE_TOTAL'
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_TOTAL'
end
item
Name = 'DESCUENTO'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_DESCUENTO'
DictionaryEntry = 'CapitulosPresupuesto_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_IMPORTE_PORTE'
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE'
end
item
Name = 'VISIBLE'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_VISIBLE'
DictionaryEntry = 'CapitulosPresupuesto_VISIBLE'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
LogicalName = 'CapitulosPresupuesto'
IndexDefs = <>
Left = 344
Top = 304
end
object ds_CapitulosPresupuesto: TDADataSource
DataSet = tbl_CapitulosPresupuesto.Dataset
DataTable = tbl_CapitulosPresupuesto
Left = 344
Top = 256
end
object tbl_Propiedades: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
@ -398,25 +491,21 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
item
Name = 'DESCRIPCION'
DataType = datString
Size = 50
end
item
Name = 'ID_PROPIEDAD_VALORES'
DataType = datInteger
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
LogicalName = 'Propiedades'
IndexDefs = <>
Left = 464
Top = 200
Left = 456
Top = 208
end
object ds_Propiedades: TDADataSource
DataSet = tbl_Propiedades.Dataset
DataTable = tbl_Propiedades
Left = 464
Top = 152
Left = 456
Top = 160
end
object tbl_Valores: TDAMemDataTable
RemoteUpdatesOptions = []
@ -428,76 +517,40 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
InPrimaryKey = True
end
item
Name = 'ID_PROPIEDAD'
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
MasterSource = ds_Propiedades
MasterFields = 'ID_PROPIEDAD_VALORES'
DetailFields = 'ID_PROPIEDAD'
MasterFields = 'DESCRIPCION'
DetailFields = 'FAMILIA'
LogicalName = 'Valores'
IndexDefs = <>
Left = 544
Top = 200
Left = 536
Top = 208
end
object ds_Valores: TDADataSource
DataSet = tbl_Valores.Dataset
DataTable = tbl_Valores
Left = 544
Top = 152
end
object tbl_CapitulosPresupuesto: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'POSICION'
DataType = datInteger
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
LogicalName = 'CapitulosPresupuesto'
IndexDefs = <>
Left = 352
Top = 312
end
object ds_CapitulosPresupuesto: TDADataSource
DataSet = tbl_CapitulosPresupuesto.Dataset
DataTable = tbl_CapitulosPresupuesto
Left = 352
Top = 256
Left = 536
Top = 160
end
end

5
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -25,12 +25,12 @@ type
RORemoteService1: TRORemoteService;
tbl_ListaAnosPresupuestos: TDAMemDataTable;
ds_ListaAnosPresupuestos: TDADataSource;
tbl_CapitulosPresupuesto: TDAMemDataTable;
ds_CapitulosPresupuesto: TDADataSource;
tbl_Propiedades: TDAMemDataTable;
ds_Propiedades: TDADataSource;
tbl_Valores: TDAMemDataTable;
ds_Valores: TDADataSource;
tbl_CapitulosPresupuesto: TDAMemDataTable;
ds_CapitulosPresupuesto: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
@ -191,6 +191,7 @@ begin
ACapitulo.BusinessRulesID := BIZ_CLIENT_CAPITULOS;
Result := (ACapitulo as IBizCapitulo);
Result.Tipo := TIPO_ARTICULO;
with Result.DataTable.DynamicWhere do
begin

479
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{AC6EF137-1256-43A3-AB3F-76A5C484DFF0}';
RID_Propiedades = '{A6F5198D-19FD-49CA-8AA3-BC35F11D3BEF}';
RID_ListaAnosPresupuestos = '{D4D48BBF-987E-4085-893B-DCC70A9B63E7}';
RID_PresupuestosCliente = '{FF71F28A-9955-44A1-AE5B-5A1229D17A8F}';
RID_CapitulosPresupuesto = '{3ACF0486-2EFD-4EF7-90DF-CE29E1006EC3}';
RID_PresupuestosCliente_Detalles = '{12678EE2-C67A-44AC-A8FA-52125FCCBF5D}';
RID_Valores = '{002F4C5F-E93F-43D7-BC30-F126BBF4A7BF}';
RID_Propiedades = '{AAEA9900-5F02-4F71-BF4A-3B4823902DD1}';
RID_ListaAnosPresupuestos = '{C57BB8C3-D37D-4E42-859D-216DC34BB994}';
RID_PresupuestosCliente = '{B96CBF85-1AFD-483F-9625-AFF5D2EB63BA}';
RID_CapitulosPresupuesto = '{0552CFCD-CC95-4194-9A78-02F7C224F817}';
RID_PresupuestosCliente_Detalles = '{3BBBFC09-5C1B-4350-A007-99AFAF0EDF1A}';
{ Data table names }
nme_Valores = 'Valores';
@ -26,23 +26,25 @@ const
{ Valores fields }
fld_ValoresID = 'ID';
fld_ValoresID_PROPIEDAD = 'ID_PROPIEDAD';
fld_ValoresID_EMPRESA = 'ID_EMPRESA';
fld_ValoresREFERENCIA = 'REFERENCIA';
fld_ValoresDESCRIPCION = 'DESCRIPCION';
fld_ValoresFAMILIA = 'FAMILIA';
{ Valores field indexes }
idx_ValoresID = 0;
idx_ValoresID_PROPIEDAD = 1;
idx_ValoresDESCRIPCION = 2;
idx_ValoresID_EMPRESA = 1;
idx_ValoresREFERENCIA = 2;
idx_ValoresDESCRIPCION = 3;
idx_ValoresFAMILIA = 4;
{ Propiedades fields }
fld_PropiedadesID = 'ID';
fld_PropiedadesDESCRIPCION = 'DESCRIPCION';
fld_PropiedadesID_PROPIEDAD_VALORES = 'ID_PROPIEDAD_VALORES';
{ Propiedades field indexes }
idx_PropiedadesID = 0;
idx_PropiedadesDESCRIPCION = 1;
idx_PropiedadesID_PROPIEDAD_VALORES = 2;
{ ListaAnosPresupuestos fields }
fld_ListaAnosPresupuestosANO = 'ANO';
@ -141,22 +143,33 @@ const
fld_CapitulosPresupuestoPOSICION = 'POSICION';
fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE';
fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO';
fld_CapitulosPresupuestoID_ARTICULO = 'ID_ARTICULO';
fld_CapitulosPresupuestoCONCEPTO = 'CONCEPTO';
fld_CapitulosPresupuestoCANTIDAD = 'CANTIDAD';
fld_CapitulosPresupuestoIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_CapitulosPresupuestoIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_CapitulosPresupuestoDESCUENTO = 'DESCUENTO';
fld_CapitulosPresupuestoIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_CapitulosPresupuestoVISIBLE = 'VISIBLE';
{ CapitulosPresupuesto field indexes }
idx_CapitulosPresupuestoID = 0;
idx_CapitulosPresupuestoPOSICION = 1;
idx_CapitulosPresupuestoTIPO_DETALLE = 2;
idx_CapitulosPresupuestoTIPO_ARTICULO = 3;
idx_CapitulosPresupuestoID_ARTICULO = 4;
idx_CapitulosPresupuestoCONCEPTO = 5;
idx_CapitulosPresupuestoCONCEPTO = 4;
idx_CapitulosPresupuestoCANTIDAD = 5;
idx_CapitulosPresupuestoIMPORTE_UNIDAD = 6;
idx_CapitulosPresupuestoIMPORTE_TOTAL = 7;
idx_CapitulosPresupuestoDESCUENTO = 8;
idx_CapitulosPresupuestoIMPORTE_PORTE = 9;
idx_CapitulosPresupuestoVISIBLE = 10;
{ PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID';
fld_PresupuestosCliente_DetallesID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_PresupuestosCliente_DetallesPOSICION = 'POSICION';
fld_PresupuestosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_PresupuestosCliente_DetallesPROPIEDAD = 'PROPIEDAD';
fld_PresupuestosCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
@ -174,44 +187,57 @@ const
idx_PresupuestosCliente_DetallesID_PRESUPUESTO = 1;
idx_PresupuestosCliente_DetallesPOSICION = 2;
idx_PresupuestosCliente_DetallesTIPO_DETALLE = 3;
idx_PresupuestosCliente_DetallesCONCEPTO = 4;
idx_PresupuestosCliente_DetallesCANTIDAD = 5;
idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 6;
idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 7;
idx_PresupuestosCliente_DetallesVISIBLE = 8;
idx_PresupuestosCliente_DetallesID_ARTICULO = 9;
idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 10;
idx_PresupuestosCliente_DetallesDESCUENTO = 11;
idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 12;
idx_PresupuestosCliente_DetallesREFERENCIA = 13;
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 14;
idx_PresupuestosCliente_DetallesPROPIEDAD = 4;
idx_PresupuestosCliente_DetallesCONCEPTO = 5;
idx_PresupuestosCliente_DetallesCANTIDAD = 6;
idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8;
idx_PresupuestosCliente_DetallesVISIBLE = 9;
idx_PresupuestosCliente_DetallesID_ARTICULO = 10;
idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 11;
idx_PresupuestosCliente_DetallesDESCUENTO = 12;
idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 13;
idx_PresupuestosCliente_DetallesREFERENCIA = 14;
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 15;
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{1E453B5F-0C22-4019-AD7A-79E409310CF5}']
['{845982F0-0F70-4777-BA05-68541F3384BD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_PROPIEDADValue: Integer;
procedure SetID_PROPIEDADValue(const aValue: Integer);
function GetID_PROPIEDADIsNull: Boolean;
procedure SetID_PROPIEDADIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetFAMILIAValue: String;
procedure SetFAMILIAValue(const aValue: String);
function GetFAMILIAIsNull: Boolean;
procedure SetFAMILIAIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_PROPIEDAD: Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
property ID_PROPIEDADIsNull: Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
end;
{ TValoresDataTableRules }
@ -223,22 +249,34 @@ type
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDADValue: Integer; virtual;
procedure SetID_PROPIEDADValue(const aValue: Integer); virtual;
function GetID_PROPIEDADIsNull: Boolean; virtual;
procedure SetID_PROPIEDADIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_PROPIEDAD: Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
property ID_PROPIEDADIsNull: Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -248,7 +286,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{ED342BFE-21DA-4BE7-A720-199166F086D8}']
['{FFE02136-AC49-416C-A207-58AB523A3ADF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -258,10 +296,6 @@ type
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetID_PROPIEDAD_VALORESValue: Integer;
procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
function GetID_PROPIEDAD_VALORESIsNull: Boolean;
procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
{ Properties }
@ -269,8 +303,6 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_PROPIEDAD_VALORES: Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
property ID_PROPIEDAD_VALORESIsNull: Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
end;
{ TPropiedadesDataTableRules }
@ -286,18 +318,12 @@ type
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDAD_VALORESValue: Integer; virtual;
procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer); virtual;
function GetID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_PROPIEDAD_VALORES: Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
property ID_PROPIEDAD_VALORESIsNull: Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -307,7 +333,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{D632F9B0-5384-430B-B64C-E93F01D72966}']
['{0FAE1985-358B-4700-8997-18C8D95D25B2}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -342,7 +368,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{42A8FF1A-071F-44AE-9B50-2B5A4A7625C6}']
['{32B323C8-467F-4F4B-843A-3B2EAECBD550}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -857,7 +883,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{EC8BE7EC-E277-42FB-A7F2-C23DC9E74BB6}']
['{ECFFE9A0-8BCE-4B25-A564-A12FB37DE3FE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -875,14 +901,34 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String);
function GetTIPO_ARTICULOIsNull: Boolean;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Integer;
procedure SetIMPORTE_UNIDADValue(const aValue: Integer);
function GetIMPORTE_UNIDADIsNull: Boolean;
procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
function GetIMPORTE_TOTALValue: Integer;
procedure SetIMPORTE_TOTALValue(const aValue: Integer);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Integer;
procedure SetDESCUENTOValue(const aValue: Integer);
function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetIMPORTE_PORTEValue: Integer;
procedure SetIMPORTE_PORTEValue(const aValue: Integer);
function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetVISIBLEValue: Integer;
procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
{ Properties }
@ -894,10 +940,20 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Integer read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Integer read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property DESCUENTO: Integer read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
end;
{ TCapitulosPresupuestoDataTableRules }
@ -921,14 +977,34 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
function GetTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Integer; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Integer); virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_TOTALValue: Integer; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Integer); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Integer; virtual;
procedure SetDESCUENTOValue(const aValue: Integer); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_PORTEValue: Integer; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -939,10 +1015,20 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Integer read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Integer read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property DESCUENTO: Integer read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -952,7 +1038,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{23EFE68F-D5E4-4B76-A8F6-50E45D5C755A}']
['{DDD9E6A0-55E8-41B7-84B2-E85B6A2ED4CC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -970,6 +1056,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String);
function GetTIPO_DETALLEIsNull: Boolean;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
function GetPROPIEDADValue: String;
procedure SetPROPIEDADValue(const aValue: String);
function GetPROPIEDADIsNull: Boolean;
procedure SetPROPIEDADIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
@ -1025,6 +1115,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -1070,6 +1162,10 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual;
function GetPROPIEDADIsNull: Boolean; virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
@ -1124,6 +1220,8 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property PROPIEDAD: String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull: Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
@ -1189,25 +1287,46 @@ begin
DataTable.Fields[idx_ValoresID].AsVariant := Null;
end;
function TValoresDataTableRules.GetID_PROPIEDADValue: Integer;
function TValoresDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_ValoresID_PROPIEDAD].AsInteger;
result := DataTable.Fields[idx_ValoresID_EMPRESA].AsInteger;
end;
procedure TValoresDataTableRules.SetID_PROPIEDADValue(const aValue: Integer);
procedure TValoresDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ValoresID_PROPIEDAD].AsInteger := aValue;
DataTable.Fields[idx_ValoresID_EMPRESA].AsInteger := aValue;
end;
function TValoresDataTableRules.GetID_PROPIEDADIsNull: boolean;
function TValoresDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_ValoresID_PROPIEDAD].IsNull;
result := DataTable.Fields[idx_ValoresID_EMPRESA].IsNull;
end;
procedure TValoresDataTableRules.SetID_PROPIEDADIsNull(const aValue: Boolean);
procedure TValoresDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ValoresID_PROPIEDAD].AsVariant := Null;
DataTable.Fields[idx_ValoresID_EMPRESA].AsVariant := Null;
end;
function TValoresDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ValoresREFERENCIA].AsString;
end;
procedure TValoresDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ValoresREFERENCIA].AsString := aValue;
end;
function TValoresDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ValoresREFERENCIA].IsNull;
end;
procedure TValoresDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ValoresREFERENCIA].AsVariant := Null;
end;
function TValoresDataTableRules.GetDESCRIPCIONValue: String;
@ -1231,6 +1350,27 @@ begin
DataTable.Fields[idx_ValoresDESCRIPCION].AsVariant := Null;
end;
function TValoresDataTableRules.GetFAMILIAValue: String;
begin
result := DataTable.Fields[idx_ValoresFAMILIA].AsString;
end;
procedure TValoresDataTableRules.SetFAMILIAValue(const aValue: String);
begin
DataTable.Fields[idx_ValoresFAMILIA].AsString := aValue;
end;
function TValoresDataTableRules.GetFAMILIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ValoresFAMILIA].IsNull;
end;
procedure TValoresDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ValoresFAMILIA].AsVariant := Null;
end;
{ TPropiedadesDataTableRules }
constructor TPropiedadesDataTableRules.Create(aDataTable: TDADataTable);
@ -1285,27 +1425,6 @@ begin
DataTable.Fields[idx_PropiedadesDESCRIPCION].AsVariant := Null;
end;
function TPropiedadesDataTableRules.GetID_PROPIEDAD_VALORESValue: Integer;
begin
result := DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsInteger;
end;
procedure TPropiedadesDataTableRules.SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
begin
DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsInteger := aValue;
end;
function TPropiedadesDataTableRules.GetID_PROPIEDAD_VALORESIsNull: boolean;
begin
result := DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].IsNull;
end;
procedure TPropiedadesDataTableRules.SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsVariant := Null;
end;
{ TListaAnosPresupuestosDataTableRules }
constructor TListaAnosPresupuestosDataTableRules.Create(aDataTable: TDADataTable);
@ -2330,27 +2449,6 @@ begin
DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString;
@ -2372,6 +2470,132 @@ begin
DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetCANTIDADValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetCANTIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetCANTIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoCANTIDAD].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_UNIDADValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_UNIDADIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_UNIDAD].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_TOTALValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_TOTALValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_TOTAL].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetDESCUENTOValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetDESCUENTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetDESCUENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoDESCUENTO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_PORTEValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_PORTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetVISIBLEValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetVISIBLEValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetVISIBLEIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetVISIBLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsVariant := Null;
end;
{ TPresupuestosCliente_DetallesDataTableRules }
constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -2468,6 +2692,27 @@ begin
DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].AsVariant := Null;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetPROPIEDADValue: String;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsString;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetPROPIEDADValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsString := aValue;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetPROPIEDADIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].IsNull;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosCliente_DetallesPROPIEDAD].AsVariant := Null;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsString;

545
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,26 +9,30 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{89E797B9-962D-4358-A7F2-A2C87D74F290}';
RID_PropiedadesDelta = '{7F6C1A91-3ACF-4AE9-B31B-F5F676E19824}';
RID_ListaAnosPresupuestosDelta = '{57AFBB3B-DC9E-49C9-8FE1-84CFC4233879}';
RID_PresupuestosClienteDelta = '{DED2F200-34F4-4A2B-9C56-78640B5B9B52}';
RID_CapitulosPresupuestoDelta = '{CB74C4B2-B235-4C86-8030-F3BFE2F75F8D}';
RID_PresupuestosCliente_DetallesDelta = '{FD4CE9BE-0A53-4FB8-A820-356C4F7BACCA}';
RID_ValoresDelta = '{BC8E41E9-8504-4F3A-9D33-AB1EBF7413EA}';
RID_PropiedadesDelta = '{804468D0-2E8B-417B-824A-3182C04843D0}';
RID_ListaAnosPresupuestosDelta = '{F947E684-3A20-44D7-B6EB-AA62D53F23CF}';
RID_PresupuestosClienteDelta = '{8F358490-44B9-49E7-A571-E77C073A5368}';
RID_CapitulosPresupuestoDelta = '{1F8AFF61-FF8A-4E9B-B6D8-B8B09C31DF15}';
RID_PresupuestosCliente_DetallesDelta = '{2806C346-E3D2-4415-AAF5-22F6A02D8F29}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{89E797B9-962D-4358-A7F2-A2C87D74F290}']
['{BC8E41E9-8504-4F3A-9D33-AB1EBF7413EA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_PROPIEDAD : Integer read GetOldID_PROPIEDADValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
end;
{ TValoresBusinessProcessorRules }
@ -42,32 +46,52 @@ type
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDADValue: Integer; virtual;
function GetID_PROPIEDADIsNull: Boolean; virtual;
function GetOldID_PROPIEDADValue: Integer; virtual;
function GetOldID_PROPIEDADIsNull: Boolean; virtual;
procedure SetID_PROPIEDADValue(const aValue: Integer); virtual;
procedure SetID_PROPIEDADIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
function GetFAMILIAIsNull: Boolean; virtual;
function GetOldFAMILIAValue: String; virtual;
function GetOldFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_PROPIEDAD : Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
property ID_PROPIEDADIsNull : Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
property OldID_PROPIEDAD : Integer read GetOldID_PROPIEDADValue;
property OldID_PROPIEDADIsNull : Boolean read GetOldID_PROPIEDADIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -77,16 +101,14 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{7F6C1A91-3ACF-4AE9-B31B-F5F676E19824}']
['{804468D0-2E8B-417B-824A-3182C04843D0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
function GetOldID_PROPIEDAD_VALORESValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldID_PROPIEDAD_VALORES : Integer read GetOldID_PROPIEDAD_VALORESValue;
end;
{ TPropiedadesBusinessProcessorRules }
@ -106,12 +128,6 @@ type
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetID_PROPIEDAD_VALORESValue: Integer; virtual;
function GetID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
function GetOldID_PROPIEDAD_VALORESValue: Integer; virtual;
function GetOldID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer); virtual;
procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -122,10 +138,6 @@ type
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property ID_PROPIEDAD_VALORES : Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
property ID_PROPIEDAD_VALORESIsNull : Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
property OldID_PROPIEDAD_VALORES : Integer read GetOldID_PROPIEDAD_VALORESValue;
property OldID_PROPIEDAD_VALORESIsNull : Boolean read GetOldID_PROPIEDAD_VALORESIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -135,7 +147,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{57AFBB3B-DC9E-49C9-8FE1-84CFC4233879}']
['{F947E684-3A20-44D7-B6EB-AA62D53F23CF}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -169,7 +181,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{DED2F200-34F4-4A2B-9C56-78640B5B9B52}']
['{8F358490-44B9-49E7-A571-E77C073A5368}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -687,22 +699,32 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{CB74C4B2-B235-4C86-8030-F3BFE2F75F8D}']
['{1F8AFF61-FF8A-4E9B-B6D8-B8B09C31DF15}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldTIPO_ARTICULOValue : String;
function GetOldID_ARTICULOValue : Integer;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldIMPORTE_UNIDADValue : Integer;
function GetOldIMPORTE_TOTALValue : Integer;
function GetOldDESCUENTOValue : Integer;
function GetOldIMPORTE_PORTEValue : Integer;
function GetOldVISIBLEValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Integer read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Integer read GetOldIMPORTE_TOTALValue;
property OldDESCUENTO : Integer read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
end;
{ TCapitulosPresupuestoBusinessProcessorRules }
@ -734,18 +756,48 @@ type
function GetOldTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
function GetOldID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Integer; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
function GetOldIMPORTE_UNIDADValue: Integer; virtual;
function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Integer); virtual;
procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_TOTALValue: Integer; virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
function GetOldIMPORTE_TOTALValue: Integer; virtual;
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Integer); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Integer; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Integer; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Integer); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_PORTEValue: Integer; virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
function GetOldIMPORTE_PORTEValue: Integer; virtual;
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: Integer; virtual;
function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -764,14 +816,34 @@ type
property TIPO_ARTICULOIsNull : Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
property OldTIPO_ARTICULOIsNull : Boolean read GetOldTIPO_ARTICULOIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Integer read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property OldIMPORTE_UNIDAD : Integer read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL : Integer read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Integer read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
property DESCUENTO : Integer read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Integer read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property IMPORTE_PORTE : Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -781,12 +853,13 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{FD4CE9BE-0A53-4FB8-A820-356C4F7BACCA}']
['{2806C346-E3D2-4415-AAF5-22F6A02D8F29}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldPROPIEDADValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
@ -804,6 +877,7 @@ type
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -846,6 +920,12 @@ type
function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
function GetPROPIEDADValue: String; virtual;
function GetPROPIEDADIsNull: Boolean; virtual;
function GetOldPROPIEDADValue: String; virtual;
function GetOldPROPIEDADIsNull: Boolean; virtual;
procedure SetPROPIEDADValue(const aValue: String); virtual;
procedure SetPROPIEDADIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
@ -930,6 +1010,10 @@ type
property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
property PROPIEDAD : String read GetPROPIEDADValue write SetPROPIEDADValue;
property PROPIEDADIsNull : Boolean read GetPROPIEDADIsNull write SetPROPIEDADIsNull;
property OldPROPIEDAD : String read GetOldPROPIEDADValue;
property OldPROPIEDADIsNull : Boolean read GetOldPROPIEDADIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
@ -1028,35 +1112,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID] := Null;
end;
function TValoresBusinessProcessorRules.GetID_PROPIEDADValue: Integer;
function TValoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA];
end;
function TValoresBusinessProcessorRules.GetID_PROPIEDADIsNull: Boolean;
function TValoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD]);
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA]);
end;
function TValoresBusinessProcessorRules.GetOldID_PROPIEDADValue: Integer;
function TValoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_PROPIEDAD];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_EMPRESA];
end;
function TValoresBusinessProcessorRules.GetOldID_PROPIEDADIsNull: Boolean;
function TValoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_PROPIEDAD]);
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresID_EMPRESA]);
end;
procedure TValoresBusinessProcessorRules.SetID_PROPIEDADValue(const aValue: Integer);
procedure TValoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD] := aValue;
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA] := aValue;
end;
procedure TValoresBusinessProcessorRules.SetID_PROPIEDADIsNull(const aValue: Boolean);
procedure TValoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_PROPIEDAD] := Null;
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresID_EMPRESA] := Null;
end;
function TValoresBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA];
end;
function TValoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA]);
end;
function TValoresBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresREFERENCIA];
end;
function TValoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresREFERENCIA]);
end;
procedure TValoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA] := aValue;
end;
procedure TValoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresREFERENCIA] := Null;
end;
function TValoresBusinessProcessorRules.GetDESCRIPCIONValue: String;
@ -1090,6 +1205,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresDESCRIPCION] := Null;
end;
function TValoresBusinessProcessorRules.GetFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA];
end;
function TValoresBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA]);
end;
function TValoresBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresFAMILIA];
end;
function TValoresBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ValoresFAMILIA]);
end;
procedure TValoresBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA] := aValue;
end;
procedure TValoresBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ValoresFAMILIA] := Null;
end;
{ TPropiedadesBusinessProcessorRules }
constructor TPropiedadesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -1164,37 +1310,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesDESCRIPCION] := Null;
end;
function TPropiedadesBusinessProcessorRules.GetID_PROPIEDAD_VALORESValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES];
end;
function TPropiedadesBusinessProcessorRules.GetID_PROPIEDAD_VALORESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES]);
end;
function TPropiedadesBusinessProcessorRules.GetOldID_PROPIEDAD_VALORESValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PropiedadesID_PROPIEDAD_VALORES];
end;
function TPropiedadesBusinessProcessorRules.GetOldID_PROPIEDAD_VALORESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PropiedadesID_PROPIEDAD_VALORES]);
end;
procedure TPropiedadesBusinessProcessorRules.SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES] := aValue;
end;
procedure TPropiedadesBusinessProcessorRules.SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PropiedadesID_PROPIEDAD_VALORES] := Null;
end;
{ TListaAnosPresupuestosBusinessProcessorRules }
constructor TListaAnosPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2683,37 +2798,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO];
@ -2745,6 +2829,192 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCANTIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCANTIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCANTIDAD]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCANTIDAD] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_UNIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_UNIDAD] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_TOTALValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_TOTAL] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetDESCUENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldDESCUENTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoDESCUENTO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoDESCUENTO]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetDESCUENTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoDESCUENTO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_PORTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetVISIBLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoVISIBLE];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoVISIBLE]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE] := Null;
end;
{ TPresupuestosCliente_DetallesBusinessProcessorRules }
constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2881,6 +3151,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE] := Null;
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD];
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD]);
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD];
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldPROPIEDADIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD]);
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetPROPIEDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD] := aValue;
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetPROPIEDADIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesPROPIEDAD] := Null;
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO];

36
Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
View File

@ -18,6 +18,7 @@ const
TIPO_CAPITULO_E = 'E'; //ELECTRODOMÉSTICOS
TIPO_CAPITULO_V = 'V'; //VARIOS
TIPO_CAPITULO_C_VACIO = 'CV'; //COCINAVACIO
TIPO_CAPITULO_O = 'O'; //OBRA
type
IBizValores = interface(IValores)
@ -33,6 +34,9 @@ type
IBizCapitulo = interface(ICapitulosPresupuesto)
['{FE35D755-7781-441F-960C-98F847A5039E}']
function GetTipo: String;
procedure SetTipo(Value: String);
property Tipo: String read GetTipo write SetTipo;
end;
IBizDetallesPresupuestoCliente = interface(IPresupuestosCliente_Detalles)
@ -58,6 +62,14 @@ type
end;
TBizCapitulo = class(TCapitulosPresupuestoDataTableRules, IBizCapitulo)
protected
FTipo : String;
function GetTipo: String;
procedure SetTipo(Value: String);
procedure OnNewRecord(Sender: TDADataTable); override;
public
property Tipo: String read GetTipo write SetTipo;
constructor Create(aDataTable: TDADataTable); override;
end;
TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente)
@ -119,6 +131,30 @@ begin
EnlazarMaestroDetalle(FValoresLink, FValores);
end;
{ TBizCapitulo }
constructor TBizCapitulo.Create(aDataTable: TDADataTable);
begin
inherited;
FTipo := TIPO_CAPITULO_V;
end;
function TBizCapitulo.GetTipo: String;
begin
Result := FTipo;
end;
procedure TBizCapitulo.OnNewRecord(Sender: TDADataTable);
begin
inherited;
TIPO_ARTICULO := FTipo;
end;
procedure TBizCapitulo.SetTipo(Value: String);
begin
FTipo := Value;
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente);
RegisterDataTableRules(BIZ_CLIENT_PROPIEDADES, TBizPropiedades);

452
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -18,54 +18,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_VALORES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_PROPIEDAD'
TableField = 'ID_PROPIEDAD'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'Valores'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_PROPIEDAD'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_PROPIEDADES'
TargetTable = 'ARTICULOS'
Name = 'IBX'
SQL =
'select ID,'#10' DESCRIPCION,'#10' case WHEN ID_PADRE IS NULL' +
' THEN ID'#10' ELSE ID_PADRE'#10' end AS ID_PROPIEDAD_VA' +
'LORES'#10#10'from presupuestos_propiedades'#10#10'WHERE {Where}'#10
'SELECT'#10' ID, ID_EMPRESA, REFERENCIA, DESCRIPCION, FAMILIA'#10#10' F' +
'ROM'#10' ARTICULOS'#10' WHERE ELIMINADO = 0 and {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
@ -77,9 +34,65 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID_PROPIEDAD_VALORES'
TableField = '<unknown>'
SQLOrigin = 'ID_PROPIEDAD_VALORES'
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end>
end>
Name = 'Valores'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FAMILIAS'
Name = 'IBX'
SQL = 'select ID,'#10' DESCRIPCION'#10#10'from familias'#10#10'WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'Propiedades'
@ -93,11 +106,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
Name = 'DESCRIPCION'
DataType = datString
Size = 50
end
item
Name = 'ID_PROPIEDAD_VALORES'
DataType = datInteger
Size = 255
end>
end
item
@ -517,7 +526,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
Name = 'IBX'
StatementType = stAutoSQL
SQL =
'SELECT'#10' ID, POSICION, TIPO_DETALLE, TIPO_ARTICULO, CONCEPTO,'#10 +
' 1 as CANTIDAD, 0 as IMPORTE_UNIDAD, 0 as IMPORTE_TOTAL, 0 as' +
' DESCUENTO,'#10' 0 as IMPORTE_PORTE,'#10' 1 as VISIBLE'#10' FROM'#10' ' +
'PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE {Where}'#10' order by posici' +
'on'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
@ -535,45 +550,102 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DatasetField = 'TIPO_ARTICULO'
TableField = 'TIPO_ARTICULO'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
item
DatasetField = 'CANTIDAD'
TableField = '<unknown>'
SQLOrigin = 'CANTIDAD'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_UNIDAD'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_TOTAL'
end
item
DatasetField = 'DESCUENTO'
TableField = '<unknown>'
SQLOrigin = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_PORTE'
end
item
DatasetField = 'VISIBLE'
TableField = '<unknown>'
SQLOrigin = 'VISIBLE'
end>
end>
Name = 'CapitulosPresupuesto'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
DictionaryEntry = 'CapitulosPresupuesto_ID'
InPrimaryKey = True
end
item
Name = 'POSICION'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_POSICION'
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
DictionaryEntry = 'CapitulosPresupuesto_TIPO_DETALLE'
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_TIPO_ARTICULO'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Size = 255
DictionaryEntry = 'CapitulosPresupuesto_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_TOTAL'
end
item
Name = 'DESCUENTO'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE'
end
item
Name = 'VISIBLE'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_VISIBLE'
end>
end
item
@ -587,18 +659,18 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'SELECT'#10' PRESUPUESTOS_CLIENTE_DETALLES.ID, PRESUPUESTOS_CLIENT' +
'E_DETALLES.ID_PRESUPUESTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.POS' +
'ICION, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' PRESUPUES' +
'TOS_CLIENTE_DETALLES.CONCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CAN' +
'TIDAD,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPU' +
'ESTOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_D' +
'ETALLES.VISIBLE,'#10#10' PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO,' +
' PRESUPUESTOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_C' +
'LIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMP' +
'ORTE_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR' +
' /*Es necesario para que no fallen los detalles porque los detal' +
'les son comunes para la rama de cliente y de proveedor*/'#10#10'FROM P' +
'RESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS' +
'_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER' +
' BY POSICION;'#10#10#10
'TOS_CLIENTE_DETALLES.PROPIEDAD, PRESUPUESTOS_CLIENTE_DETALLES.CO' +
'NCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CANTIDAD,'#10' PRESUPUESTOS' +
'_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_DETALLES.' +
'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10#10' P' +
'RESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_D' +
'ETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUEN' +
'TO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.R' +
'EFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para qu' +
'e no fallen los detalles porque los detalles son comunes para la' +
' rama de cliente y de proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DET' +
'ALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_AR' +
'TICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -662,6 +734,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD'
end>
end>
Name = 'PresupuestosCliente_Detalles'
@ -685,6 +761,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString
Size = 10
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1189,6 +1270,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 10
Value = ''
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1243,12 +1330,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' +
'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UN' +
'IDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' D' +
'ESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_PRES' +
'UPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,'#10' :CANTIDAD, :I' +
'MPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTICULO, :TIP' +
'O_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10
'STO, POSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' ' +
' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTIC' +
'ULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:I' +
'D, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCE' +
'PTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10 +
' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, C' +
'URRENT_TIMESTAMP)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1297,6 +1385,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 10
Value = ''
end
item
Name = 'PROPIEDAD'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
@ -1356,25 +1450,136 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
SQL =
'UPDATE PRESUPUESTOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID' +
'_PRESUPUESTO = :ID_PRESUPUESTO, '#10' POSICION = :POSICION, '#10' ' +
'TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CA' +
'NTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD,'#10' I' +
'MPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_' +
'ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' ' +
' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ' +
' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD' +
'_ID)'#10
'TIPO_DETALLE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' C' +
'ONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNI' +
'DAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_A' +
'RTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPOR' +
'TE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIME' +
'STAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_PresupuestosCliente_Detalles'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_CAPITULOS'#10' (ID, POSICION, ' +
'TIPO_DETALLE, TIPO_ARTICULO, CONCEPTO)'#10' VALUES'#10' (:ID, :POSIC' +
'ION, :TIPO_DETALLE, :TIPO_ARTICULO, :CONCEPTO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_CapitulosPresupuesto'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
SQL =
'DELETE '#10' FROM'#10' PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE'#10' (I' +
'D = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_CapitulosPresupuesto'
end
item
Params = <
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TIPO_ARTICULO'
DataType = datString
Size = 2
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
SQL =
'UPDATE PRESUPUESTOS_CLIENTE_CAPITULOS'#10' SET'#10' POSICION = :POSI' +
'CION,'#10' TIPO_DETALLE = :TIPO_DETALLE,'#10' TIPO_ARTICULO = :TIP' +
'O_ARTICULO,'#10' CONCEPTO = :CONCEPTO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_CapitulosPresupuesto'
end>
RelationShips = <
item
Name = 'FK_Propiedades_Valores'
MasterDatasetName = 'Propiedades'
MasterFields = 'ID_PROPIEDAD_VALORES'
MasterFields = 'DESCRIPCION'
DetailDatasetName = 'Valores'
DetailFields = 'ID_PROPIEDAD'
DetailFields = 'FAMILIA'
RelationshipType = rtForeignKey
end
item
@ -1685,6 +1890,56 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datString
Size = 255
DisplayLabel = 'Tipo'
end
item
Name = 'CapitulosPresupuesto_ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'CapitulosPresupuesto_POSICION'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_TIPO_DETALLE'
DataType = datString
Size = 10
end
item
Name = 'CapitulosPresupuesto_TIPO_ARTICULO'
DataType = datString
Size = 2
end
item
Name = 'CapitulosPresupuesto_CONCEPTO'
DataType = datString
Size = 255
end
item
Name = 'CapitulosPresupuesto_CANTIDAD'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_IMPORTE_TOTAL'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_DESCUENTO'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_IMPORTE_PORTE'
DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_VISIBLE'
DataType = datInteger
end>
Left = 48
Top = 152
@ -1715,4 +1970,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Left = 232
Top = 96
end
object bpCapitulosPresupuesto: TDABusinessProcessor
Schema = schPresupuestosCliente
InsertCommandName = 'Insert_CapitulosPresupuesto'
DeleteCommandName = 'Delete_CapitulosPresupuesto'
UpdateCommandName = 'Update_CapitulosPresupuesto'
ReferencedDataset = 'CapitulosPresupuesto'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 232
Top = 168
end
end

1
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
View File

@ -24,6 +24,7 @@ type
Bin2DataStreamer: TDABin2DataStreamer;
bpPresupuestosCliente: TDABusinessProcessor;
bpPresupuestosClienteDetalles: TDABusinessProcessor;
bpCapitulosPresupuesto: TDABusinessProcessor;
schPresupuestosCliente: TDASchema;
DADataDictionary: TDADataDictionary;
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;

21
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

@ -52,7 +52,22 @@ requires
cxEditorsD11,
cxDataD11,
cxExtEditorsD11,
ApplicationBase;
ApplicationBase,
PngComponentsD10,
PNG_D10,
vclactnband,
tb2k_d10,
tbx_d10,
DataAbstract_Core_D11,
dsnap,
adortl,
RemObjects_Core_D11,
cxGridD11,
cxPageControlD11,
cxExportD11,
GUISDK_D11R,
designide,
xmlrtl;
contains
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
@ -75,6 +90,8 @@ contains
uViewConfiguracionDocBano in 'uViewConfiguracionDocBano.pas' {frViewConfiguracionDocBano: TFrame},
uViewConfiguracionDocCocina in 'uViewConfiguracionDocCocina.pas' {frViewConfiguracionDocCocina: TFrame},
uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame},
uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame};
uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame},
uViewConfiguracionCapitulo in 'uViewConfiguracionCapitulo.pas' {frViewConfiguracionCapitulo: TFrame},
uViewConfiguracionDocObra in 'uViewConfiguracionDocObra.pas' {frViewConfiguracionDocObra: TFrame};
end.

79
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -49,34 +49,43 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvMMD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\PreCli_ConCli_relation.dcp" />
<DCCReference Include="..\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvMMD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="PreCli_ConCli_relation.dcp" />
<DCCReference Include="PresupuestosCliente_controller.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uEditorAsignarDescuento.pas">
<Form>fEditorAsignarDescuento</Form>
</DCCReference>
@ -104,6 +113,10 @@
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
</DCCReference>
<DCCReference Include="uPresupuestosClienteViewRegister.pas" />
<DCCReference Include="uViewConfiguracionCapitulo.pas">
<Form>frViewConfiguracionCapitulo</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocArmario.pas">
<Form>frViewConfiguracionDocArmario</Form>
<DesignClass>TFrame</DesignClass>
@ -120,6 +133,10 @@
<Form>frViewConfiguracionDocElectrodomestico</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocObra.pas">
<Form>frViewConfiguracionCapitulo</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocVarios.pas">
<Form>frViewConfiguracionDocVarios</Form>
<DesignClass>TFrame</DesignClass>
@ -156,6 +173,12 @@
<Form>frViewTotalesPresupuesto</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

42
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -177,6 +177,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited pgPaginas: TPageControl
Width = 842
Height = 317
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 842
@ -292,6 +293,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 50
ExplicitWidth = 834
ExplicitHeight = 239
inherited cxGridView: TcxGridDBTableView
end
end
inherited TBXDock1: TTBXDock
Top = 24
@ -308,6 +311,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited cxRichEdit1: TcxRichEdit
Style.IsFontAssigned = True
end
inherited cxLookupComboBox2: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagInicidencias: TTabSheet
@ -449,10 +455,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 465
Top = 162
Top = 189
Style.IsFontAssigned = True
ExplicitLeft = 465
ExplicitTop = 162
ExplicitTop = 189
ExplicitWidth = 137
Width = 137
end
@ -478,6 +484,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 92
end
inherited edtRE: TcxDBSpinEdit
Left = 464
Top = 162
Style.IsFontAssigned = True
ExplicitLeft = 464
ExplicitTop = 162
end
inherited edtIRPF: TcxDBSpinEdit
Left = 464
Top = 135
Style.IsFontAssigned = True
@ -485,6 +498,15 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 135
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 535
Top = 162
Style.IsFontAssigned = True
ExplicitLeft = 535
ExplicitTop = 162
ExplicitWidth = 56
Width = 56
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 535
Top = 135
Style.IsFontAssigned = True
@ -513,6 +535,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 81
Width = 81
end
inherited cbValorado: TcxDBCheckBox
Left = 11
Top = 11
ExplicitLeft = 11
ExplicitTop = 11
ExplicitWidth = 455
Width = 455
end
inherited bTiposIVA: TButton
Left = 204
Top = 138
@ -526,14 +556,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 219
Width = 219
end
inherited cbValorado: TcxDBCheckBox
Left = 11
Top = 11
ExplicitLeft = 11
ExplicitTop = 11
ExplicitWidth = 455
Width = 455
end
end
inherited DADataSource: TDADataSource
Left = 40

83
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionCapitulo.dfm Normal file
View File

@ -0,0 +1,83 @@
inherited frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewPOSICION: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewTIPO: TcxGridDBColumn
VisibleForCustomization = False
end
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_ARTICULO'
VisibleForCustomization = False
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewVISIBLE: TcxGridDBColumn
VisibleForCustomization = False
end
end
end
inherited TBXDock1: TTBXDock
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 447
end
end
object cxLookupComboBox: TcxLookupComboBox [3]
Left = 78
Top = 280
ParentFont = False
Properties.DropDownListStyle = lsEditList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'DESCRIPCION'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = DAPropiedades
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -13
Style.Font.Name = 'Lucida Console'
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 3
Visible = False
Width = 145
end
inherited ActionListContenido: TActionList
inherited actAnadirArticulos: TAction
Enabled = False
Visible = False
end
end
object DAPropiedades: TDADataSource
Left = 32
Top = 272
end
end

64
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionCapitulo.pas Normal file
View File

@ -0,0 +1,64 @@
unit uViewConfiguracionCapitulo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDetallesArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxTextEdit,
cxRichEdit, cxCurrencyEdit, cxCheckBox, ImgList, PngImageList, uDAInterfaces,
uDADataTable, StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls,
JvExStdCtrls, JvCombobox, JvColorCombo, ToolWin, cxContainer, cxMaskEdit,
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uBizDetallesPresupuestoCliente;
type
TfrViewConfiguracionCapitulo = class(TfrViewDetallesArticulos)
cxLookupComboBox: TcxLookupComboBox;
DAPropiedades: TDADataSource;
procedure CustomViewShow(Sender: TObject);
procedure cxGridViewDESCRIPCIONGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
procedure CustomViewDestroy(Sender: TObject);
protected
FPropiedades: IBizPropiedades;
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionCapitulo.CustomViewDestroy(Sender: TObject);
begin
FPropiedades := Nil;
inherited;
end;
procedure TfrViewConfiguracionCapitulo.CustomViewShow(Sender: TObject);
begin
inherited;
if not Assigned(FPropiedades) then
begin
FPropiedades := (Controller as IDetallesPresupuestoClienteController).DarPropiedades;
FPropiedades.DataTable.Active := True;
DAPropiedades.DataTable := FPropiedades.DataTable;
end;
if Assigned(Detalles) then
Detalles.Active := True;
end;
procedure TfrViewConfiguracionCapitulo.cxGridViewDESCRIPCIONGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
begin
inherited;
AProperties := cxLookupComboBox.Properties;
end;
end.

362
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.dfm
View File

@ -1,97 +1,287 @@
inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
Width = 559
Height = 467
object Label2: TLabel [0]
Left = 11
Top = 140
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [1]
Left = 11
Top = 262
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object Label5: TLabel [2]
Left = 11
Top = 100
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
Width = 762
Height = 683
inherited Panel1: TPanel
Width = 549
TabOrder = 2
ExplicitWidth = 530
Width = 752
TabOrder = 1
inherited Label3: TLabel
Width = 537
Width = 740
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 559
Width = 762
LabelCaption = 'Configuraci'#243'n de los documentos de armario'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 384
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 161
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eObservaciones: TMemo
Left = 11
Top = 282
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object bFormasPago: TButton
Left = 277
Top = 97
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 5
end
object cbFormaPago: TcxLookupComboBox
Left = 93
Top = 97
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListSource = dsFormaPago
TabOrder = 6
Width = 178
end
object dsFormaPago: TDADataSource
Left = 424
Top = 88
object Paginas: TPageControl
Left = 0
Top = 68
Width = 762
Height = 615
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11
Top = 266
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 19
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 141
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 40
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 287
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 161
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
end
object pagCapituloFrente: TTabSheet
Caption = 'Cap'#237'tulo frente'
ImageIndex = 1
ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 754
Height = 587
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 754
ExplicitWidth = 754
inherited FontSize: TEdit
Width = 58
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 237
ExplicitLeft = 237
end
inherited ToolButton13: TToolButton
Left = 254
ExplicitLeft = 254
end
inherited ToolButton6: TToolButton
Left = 262
ExplicitLeft = 262
end
inherited ToolButton7: TToolButton
Left = 296
ExplicitLeft = 296
end
inherited ToolButton8: TToolButton
Left = 330
ExplicitLeft = 330
end
inherited ToolButton12: TToolButton
Left = 364
ExplicitLeft = 364
end
inherited ToolButton9: TToolButton
Left = 372
ExplicitLeft = 372
end
inherited ToolButton10: TToolButton
Left = 406
ExplicitLeft = 406
end
inherited ToolButton11: TToolButton
Left = 440
ExplicitLeft = 440
end
end
inherited cxGrid: TcxGrid
Width = 754
Height = 515
ExplicitWidth = 754
ExplicitHeight = 515
end
inherited TBXDock1: TTBXDock
Width = 754
ExplicitWidth = 754
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCapituloInterior: TTabSheet
Caption = 'Cap'#237'tulo interior'
ImageIndex = 2
ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 754
Height = 587
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 754
ExplicitWidth = 754
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 58
ExplicitLeft = 145
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 219
ExplicitLeft = 219
end
inherited ToolButton13: TToolButton
Left = 236
ExplicitLeft = 236
end
inherited ToolButton6: TToolButton
Left = 244
ExplicitLeft = 244
end
inherited ToolButton7: TToolButton
Left = 278
ExplicitLeft = 278
end
inherited ToolButton8: TToolButton
Left = 312
ExplicitLeft = 312
end
inherited ToolButton12: TToolButton
Left = 346
ExplicitLeft = 346
end
inherited ToolButton9: TToolButton
Left = 354
ExplicitLeft = 354
end
inherited ToolButton10: TToolButton
Left = 388
ExplicitLeft = 388
end
inherited ToolButton11: TToolButton
Left = 422
ExplicitLeft = 422
end
end
inherited cxGrid: TcxGrid
Width = 754
Height = 515
ExplicitWidth = 754
ExplicitHeight = 515
end
inherited TBXDock1: TTBXDock
Width = 754
ExplicitWidth = 754
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 3
TabVisible = False
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 587
Width = 754
end
end
end
end

62
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.pas
View File

@ -6,31 +6,30 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
cxGraphics, DB, uDAInterfaces, uDADataTable, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uBizFormasPago;
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo;
type
TfrViewConfiguracionDocArmario = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eObservaciones: TMemo;
Paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
bFormasPago: TButton;
cbFormaPago: TcxLookupComboBox;
Label5: TLabel;
dsFormaPago: TDADataSource;
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapituloFrente: TTabSheet;
frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo;
pagCapituloInterior: TTabSheet;
frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var
@ -40,28 +39,27 @@ implementation
{$R *.dfm}
{ TfrViewConfiguracionDocARMARIO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocArmario.CargarValores;
begin
inherited;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO);
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO);
end;
constructor TfrViewConfiguracionDocArmario.Create(AOwner: TComponent);
begin
inherited;
FFormasPagoController := TFormasPagoController.Create;
frViewConfiguracionCapituloFrente.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapituloFrente.Detalles := (frViewConfiguracionCapituloFrente.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_AF);
frViewConfiguracionCapituloInterior.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapituloInterior.Detalles := (frViewConfiguracionCapituloInterior.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_AI);
end;
class function TfrViewConfiguracionDocArmario.DarEtiqueta: String;
@ -69,13 +67,6 @@ begin
Result := 'Documentos armario';
end;
destructor TfrViewConfiguracionDocArmario.Destroy;
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
inherited;
end;
class function TfrViewConfiguracionDocArmario.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocARMARIO;
@ -84,10 +75,13 @@ end;
procedure TfrViewConfiguracionDocArmario.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO, cbFormaPago.EditValue);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text);
frViewConfiguracionCapituloFrente.Detalles.DataTable.ApplyUpdates;
frViewConfiguracionCapituloInterior.Detalles.DataTable.ApplyUpdates;
end;

274
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.dfm
View File

@ -1,93 +1,201 @@
inherited frViewConfiguracionDocBano: TfrViewConfiguracionDocBano
Width = 555
Height = 462
object Label2: TLabel [0]
Left = 11
Top = 140
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [1]
Left = 11
Top = 262
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object Label5: TLabel [2]
Left = 11
Top = 100
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
Width = 676
Height = 622
inherited Panel1: TPanel
Width = 545
TabOrder = 2
ExplicitWidth = 530
Width = 666
TabOrder = 1
inherited Label3: TLabel
Width = 533
Width = 654
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 555
Width = 676
LabelCaption = 'Configuraci'#243'n de los documentos de ba'#241'o'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 384
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 161
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eObservaciones: TMemo
Left = 11
Top = 282
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object bFormasPago: TButton
Left = 277
Top = 97
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 5
end
object cbFormaPago: TcxLookupComboBox
Left = 93
Top = 97
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListSource = dsFormaPago
TabOrder = 6
Width = 178
end
object dsFormaPago: TDADataSource
Left = 424
Top = 88
object paginas: TPageControl
Left = 0
Top = 68
Width = 676
Height = 554
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11
Top = 262
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 17
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 139
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 38
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 283
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
ImageIndex = 1
ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 668
Height = 526
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 668
ExplicitWidth = 668
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 58
ExplicitLeft = 145
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 203
ExplicitLeft = 203
end
inherited ToolButton13: TToolButton
Left = 220
ExplicitLeft = 220
end
inherited ToolButton6: TToolButton
Left = 228
ExplicitLeft = 228
end
inherited ToolButton7: TToolButton
Left = 262
ExplicitLeft = 262
end
inherited ToolButton8: TToolButton
Left = 296
ExplicitLeft = 296
end
inherited ToolButton12: TToolButton
Left = 330
ExplicitLeft = 330
end
inherited ToolButton9: TToolButton
Left = 338
ExplicitLeft = 338
end
inherited ToolButton10: TToolButton
Left = 372
ExplicitLeft = 372
end
inherited ToolButton11: TToolButton
Left = 406
ExplicitLeft = 406
end
end
inherited cxGrid: TcxGrid
Width = 668
Height = 454
ExplicitWidth = 668
ExplicitHeight = 454
end
inherited TBXDock1: TTBXDock
Width = 668
ExplicitWidth = 668
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 526
Width = 668
end
end
end
end

69
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.pas
View File

@ -6,88 +6,75 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
cxGraphics, DB, uDAInterfaces, uDADataTable, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uBizFormasPago;
ComCtrls, uCustomView, uViewDetallesBase, uViewConfiguracionCapitulo,
uViewDetallesDTO, uViewDetallesArticulos;
type
TfrViewConfiguracionDocBano = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eObservaciones: TMemo;
TfrViewConfiguracionDocBANO = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
bFormasPago: TButton;
cbFormaPago: TcxLookupComboBox;
Label5: TLabel;
dsFormaPago: TDADataSource;
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var
frViewConfiguracionDocBano: TfrViewConfiguracionDocBano;
frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocBANO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocBano.CargarValores;
procedure TfrViewConfiguracionDocBANO.CargarValores;
begin
inherited;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_BANO);
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_BANO);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_BANO);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_B);
end;
constructor TfrViewConfiguracionDocBano.Create(AOwner: TComponent);
begin
inherited;
FFormasPagoController := TFormasPagoController.Create;
end;
class function TfrViewConfiguracionDocBano.DarEtiqueta: String;
class function TfrViewConfiguracionDocBANO.DarEtiqueta: String;
begin
Result := 'Documentos baño';
end;
destructor TfrViewConfiguracionDocBano.Destroy;
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
inherited;
end;
class function TfrViewConfiguracionDocBano.GetViewClass: TClass;
class function TfrViewConfiguracionDocBANO.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocBANO;
end;
procedure TfrViewConfiguracionDocBano.GuardarValores;
procedure TfrViewConfiguracionDocBANO.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_BANO, cbFormaPago.EditValue);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_BANO, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_BANO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;

272
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.dfm
View File

@ -1,93 +1,201 @@
inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
Width = 568
Height = 463
object Label2: TLabel [0]
Left = 11
Top = 140
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [1]
Left = 11
Top = 262
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object Label5: TLabel [2]
Left = 11
Top = 100
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
Width = 666
Height = 607
inherited Panel1: TPanel
Width = 558
TabOrder = 2
ExplicitWidth = 530
Width = 656
TabOrder = 1
inherited Label3: TLabel
Width = 546
Width = 644
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 568
Width = 666
LabelCaption = 'Configuraci'#243'n de los documentos de cocina'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 384
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 161
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eObservaciones: TMemo
Left = 11
Top = 282
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object bFormasPago: TButton
Left = 277
Top = 97
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 5
end
object cbFormaPago: TcxLookupComboBox
Left = 93
Top = 97
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListSource = dsFormaPago
TabOrder = 6
Width = 178
end
object dsFormaPago: TDADataSource
Left = 424
Top = 88
object Paginas: TPageControl
Left = 0
Top = 68
Width = 666
Height = 539
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11
Top = 267
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 23
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 145
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 44
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 288
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 165
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
ImageIndex = 1
ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 658
Height = 511
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 658
ExplicitWidth = 658
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 58
ExplicitLeft = 145
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 203
ExplicitLeft = 203
end
inherited ToolButton13: TToolButton
Left = 220
ExplicitLeft = 220
end
inherited ToolButton6: TToolButton
Left = 228
ExplicitLeft = 228
end
inherited ToolButton7: TToolButton
Left = 262
ExplicitLeft = 262
end
inherited ToolButton8: TToolButton
Left = 296
ExplicitLeft = 296
end
inherited ToolButton12: TToolButton
Left = 330
ExplicitLeft = 330
end
inherited ToolButton9: TToolButton
Left = 338
ExplicitLeft = 338
end
inherited ToolButton10: TToolButton
Left = 372
ExplicitLeft = 372
end
inherited ToolButton11: TToolButton
Left = 406
ExplicitLeft = 406
end
end
inherited cxGrid: TcxGrid
Width = 658
Height = 439
ExplicitWidth = 658
ExplicitHeight = 439
end
inherited TBXDock1: TTBXDock
Width = 658
ExplicitWidth = 658
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones contrato'
Enabled = False
ImageIndex = 2
TabVisible = False
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 511
Width = 658
end
end
end
end

58
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.pas
View File

@ -6,62 +6,51 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
cxGraphics, DB, uDAInterfaces, uDADataTable, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uBizFormasPago;
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo;
type
TfrViewConfiguracionDocCocina = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eObservaciones: TMemo;
Paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
bFormasPago: TButton;
cbFormaPago: TcxLookupComboBox;
Label5: TLabel;
dsFormaPago: TDADataSource;
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var
frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocCocina }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocCocina.CargarValores;
begin
inherited;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_COCINA);
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_COCINA);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA);
end;
constructor TfrViewConfiguracionDocCocina.Create(AOwner: TComponent);
begin
inherited;
FFormasPagoController := TFormasPagoController.Create;
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_C);
end;
class function TfrViewConfiguracionDocCocina.DarEtiqueta: String;
@ -69,13 +58,6 @@ begin
Result := 'Documentos cocina';
end;
destructor TfrViewConfiguracionDocCocina.Destroy;
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
inherited;
end;
class function TfrViewConfiguracionDocCocina.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocCocina;
@ -84,10 +66,12 @@ end;
procedure TfrViewConfiguracionDocCocina.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA, cbFormaPago.EditValue);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;

272
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.dfm
View File

@ -1,93 +1,201 @@
inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico
Width = 558
Height = 493
object Label2: TLabel [0]
Left = 11
Top = 148
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [1]
Left = 11
Top = 270
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object Label5: TLabel [2]
Left = 11
Top = 100
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
Width = 714
Height = 598
inherited Panel1: TPanel
Width = 548
TabOrder = 2
ExplicitWidth = 530
Width = 704
TabOrder = 1
inherited Label3: TLabel
Width = 536
Width = 692
Visible = False
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 558
Width = 714
LabelCaption = 'Configuraci'#243'n de los documentos de electrodom'#233'sticos'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 392
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 169
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eObservaciones: TMemo
Left = 11
Top = 290
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object bFormasPago: TButton
Left = 277
Top = 97
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 5
end
object cbFormaPago: TcxLookupComboBox
Left = 93
Top = 97
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListSource = dsFormaPago
TabOrder = 6
Width = 178
end
object dsFormaPago: TDADataSource
Left = 424
Top = 88
object Paginas: TPageControl
Left = 0
Top = 68
Width = 714
Height = 530
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11
Top = 264
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 19
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 141
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 40
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 285
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 161
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
ImageIndex = 1
ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 706
Height = 502
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 706
ExplicitWidth = 706
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 58
ExplicitLeft = 145
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 219
ExplicitLeft = 219
end
inherited ToolButton13: TToolButton
Left = 236
ExplicitLeft = 236
end
inherited ToolButton6: TToolButton
Left = 244
ExplicitLeft = 244
end
inherited ToolButton7: TToolButton
Left = 278
ExplicitLeft = 278
end
inherited ToolButton8: TToolButton
Left = 312
ExplicitLeft = 312
end
inherited ToolButton12: TToolButton
Left = 346
ExplicitLeft = 346
end
inherited ToolButton9: TToolButton
Left = 354
ExplicitLeft = 354
end
inherited ToolButton10: TToolButton
Left = 388
ExplicitLeft = 388
end
inherited ToolButton11: TToolButton
Left = 422
ExplicitLeft = 422
end
end
inherited cxGrid: TcxGrid
Width = 706
Height = 430
ExplicitWidth = 706
ExplicitHeight = 430
end
inherited TBXDock1: TTBXDock
Width = 706
ExplicitWidth = 706
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 502
Width = 706
end
end
end
end

55
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.pas
View File

@ -6,31 +6,28 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
cxGraphics, DB, uDAInterfaces, uDADataTable, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uBizFormasPago;
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo;
type
TfrViewConfiguracionDocElectrodomestico = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eObservaciones: TMemo;
Paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
bFormasPago: TButton;
cbFormaPago: TcxLookupComboBox;
Label5: TLabel;
dsFormaPago: TDADataSource;
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var
@ -40,28 +37,23 @@ implementation
{$R *.dfm}
{ TfrViewConfiguracionDocELECTRODOMESTICO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocElectrodomestico.CargarValores;
begin
inherited;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ELECTRODOMESTICO);
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ELECTRODOMESTICO);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO);
end;
constructor TfrViewConfiguracionDocElectrodomestico.Create(AOwner: TComponent);
begin
inherited;
FFormasPagoController := TFormasPagoController.Create;
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_E);
end;
class function TfrViewConfiguracionDocElectrodomestico.DarEtiqueta: String;
@ -69,13 +61,6 @@ begin
Result := 'Documentos electrodoméstico';
end;
destructor TfrViewConfiguracionDocElectrodomestico.Destroy;
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
inherited;
end;
class function TfrViewConfiguracionDocElectrodomestico.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocELECTRODOMESTICO;
@ -84,10 +69,12 @@ end;
procedure TfrViewConfiguracionDocElectrodomestico.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO, cbFormaPago.EditValue);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;

200
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm Normal file
View File

@ -0,0 +1,200 @@
inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
Width = 719
Height = 538
inherited Panel1: TPanel
Width = 709
TabOrder = 1
inherited Label3: TLabel
Width = 697
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 719
LabelCaption = 'Configuraci'#243'n de los documentos de obra'
TabOrder = 0
end
object paginas: TPageControl
Left = 0
Top = 68
Width = 719
Height = 470
ActivePage = pagNotas
Align = alClient
TabOrder = 2
ExplicitWidth = 451
ExplicitHeight = 236
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11
Top = 264
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 15
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 139
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 38
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 285
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
end
object pagCapitulo: TTabSheet
Caption = 'Cap'#237'tulo'
ImageIndex = 1
ExplicitWidth = 443
ExplicitHeight = 208
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
Left = 0
Top = 0
Width = 711
Height = 442
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 443
ExplicitHeight = 208
inherited ToolBar1: TToolBar
Width = 711
ExplicitWidth = 711
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 58
ExplicitLeft = 145
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 219
ExplicitLeft = 219
end
inherited ToolButton13: TToolButton
Left = 236
ExplicitLeft = 236
end
inherited ToolButton6: TToolButton
Left = 244
ExplicitLeft = 244
end
inherited ToolButton7: TToolButton
Left = 278
ExplicitLeft = 278
end
inherited ToolButton8: TToolButton
Left = 312
ExplicitLeft = 312
end
inherited ToolButton12: TToolButton
Left = 346
ExplicitLeft = 346
end
inherited ToolButton9: TToolButton
Left = 354
ExplicitLeft = 354
end
inherited ToolButton10: TToolButton
Left = 388
ExplicitLeft = 388
end
inherited ToolButton11: TToolButton
Left = 422
ExplicitLeft = 422
end
end
inherited cxGrid: TcxGrid
Width = 711
Height = 370
ExplicitWidth = 711
ExplicitHeight = 370
end
inherited TBXDock1: TTBXDock
Width = 711
ExplicitWidth = 711
end
inherited cxLookupComboBox: TcxLookupComboBox
Style.IsFontAssigned = True
end
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 2
TabVisible = False
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 442
Width = 711
end
end
end
end

81
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas Normal file
View File

@ -0,0 +1,81 @@
unit uViewConfiguracionDocObra;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewConfiguracionCapitulo;
type
TfrViewConfiguracionDocObra = class(TfrViewConfiguracionBase)
paginas: TPageControl;
pagNotas: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
pagCapitulo: TTabSheet;
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
pagCondiciones: TTabSheet;
eCondiciones: TcxRichEdit;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocObra: TfrViewConfiguracionDocObra;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocOBRA }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController,
uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
procedure TfrViewConfiguracionDocObra.CargarValores;
begin
inherited;
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_OBRA);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_OBRA);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_OBRA);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_OBRA);
frViewConfiguracionCapitulo.Controller := TDetallesPresupuestoClienteController.Create;
frViewConfiguracionCapitulo.Detalles := (frViewConfiguracionCapitulo.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_O);
end;
class function TfrViewConfiguracionDocObra.DarEtiqueta: String;
begin
Result := 'Documentos obra';
end;
class function TfrViewConfiguracionDocObra.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocOBRA;
end;
procedure TfrViewConfiguracionDocObra.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_OBRA, eCondiciones.Text);
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
end;
end.

172
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm
View File

@ -1,94 +1,100 @@
inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios
Width = 633
Height = 474
object Label2: TLabel [0]
Left = 11
Top = 132
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [1]
Left = 11
Top = 254
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object Label5: TLabel [2]
Left = 11
Top = 100
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
Width = 836
Height = 606
inherited Panel1: TPanel
Width = 623
TabOrder = 2
ExplicitWidth = 530
Width = 826
TabOrder = 1
inherited Label3: TLabel
Width = 611
Width = 814
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 633
Width = 836
LabelCaption = 'Configuraci'#243'n de los documentos de varios'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 376
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 153
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eObservaciones: TMemo
Left = 11
Top = 274
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object bFormasPago: TButton
Left = 277
Top = 97
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 5
OnClick = bFormasPagoClick
end
object cbFormaPago: TcxLookupComboBox
Left = 93
Top = 97
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'REFERENCIA'
end>
Properties.ListSource = dsFormaPago
TabOrder = 6
Width = 178
end
object dsFormaPago: TDADataSource
Left = 424
Top = 88
object PageControl1: TPageControl
Left = 0
Top = 68
Width = 836
Height = 538
ActivePage = pagNotas
Align = alClient
TabOrder = 2
object pagNotas: TTabSheet
Caption = 'Notas'
ExplicitWidth = 443
ExplicitHeight = 208
object Label1: TLabel
Left = 11
Top = 262
Width = 76
Height = 13
Caption = 'Forma de pago:'
Visible = False
end
object Label2: TLabel
Left = 11
Top = 17
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel
Left = 11
Top = 139
Width = 75
Height = 13
Caption = 'Observaciones:'
end
object ePlazosEntrega: TMemo
Left = 11
Top = 38
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 0
end
object eFormaPago: TMemo
Left = 11
Top = 283
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 1
Visible = False
end
object eObservaciones: TMemo
Left = 11
Top = 159
Width = 529
Height = 90
Ctl3D = True
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 2
end
end
object pagCondiciones: TTabSheet
Caption = 'Condiciones'
Enabled = False
ImageIndex = 1
TabVisible = False
object eCondiciones: TcxRichEdit
Left = 0
Top = 0
Align = alClient
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Height = 510
Width = 828
end
end
end
end

54
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.pas
View File

@ -6,32 +6,25 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
uFormasPagoController, uBizFormasPago, cxGraphics, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, DB, uDAInterfaces,
uDADataTable;
ComCtrls;
type
TfrViewConfiguracionDocVarios = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eObservaciones: TMemo;
PageControl1: TPageControl;
pagNotas: TTabSheet;
pagCondiciones: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
bFormasPago: TButton;
dsFormaPago: TDADataSource;
cbFormaPago: TcxLookupComboBox;
procedure bFormasPagoClick(Sender: TObject);
protected
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
eCondiciones: TcxRichEdit;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var
@ -43,21 +36,11 @@ implementation
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
procedure TfrViewConfiguracionDocVarios.bFormasPagoClick(Sender: TObject);
begin
inherited;
if Assigned(FFormasPago) then
FFormasPagoController.VerTodos(FFormasPago);
end;
procedure TfrViewConfiguracionDocVarios.CargarValores;
begin
inherited;
FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True;
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_VARIOS);
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_VARIOS);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS);
eObservaciones.Lines.Clear;
@ -66,24 +49,11 @@ begin
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_VARIOS);
end;
constructor TfrViewConfiguracionDocVarios.Create(AOwner: TComponent);
begin
inherited;
FFormasPagoController := TFormasPagoController.Create;
end;
class function TfrViewConfiguracionDocVarios.DarEtiqueta: String;
begin
Result := 'Documentos varios';
end;
destructor TfrViewConfiguracionDocVarios.Destroy;
begin
FFormasPago := Nil;
FFormasPagoController := NIL;
inherited;
end;
class function TfrViewConfiguracionDocVarios.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocVARIOS;
@ -92,7 +62,7 @@ end;
procedure TfrViewConfiguracionDocVarios.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS, cbFormaPago.EditValue);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_VARIOS, eCondiciones.Text);

44
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -72,19 +72,13 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Caption = #191'Valorado?'
Visible = True
end
object cxGridViewID_PROPIEDAD: TcxGridDBColumn [6]
Caption = 'Propiedad'
DataBinding.FieldName = 'ID_ARTICULO'
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = DAPropiedades
object cxGridViewPROPIEDAD: TcxGridDBColumn [6]
DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties'
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
BestFitMaxWidth = 150
Width = 150
IsCaptionAssigned = True
end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
end
@ -104,7 +98,6 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Width = 34
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
VisibleForCustomization = False
Width = 20
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13]
@ -210,6 +203,29 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Height = 25
Width = 145
end
object cxLookupComboBox2: TcxLookupComboBox [5]
Left = 78
Top = 283
ParentFont = False
Properties.DropDownListStyle = lsEditList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'DESCRIPCION'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = DAPropiedades
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -13
Style.Font.Name = 'Lucida Console'
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 5
Visible = False
Width = 145
end
inherited ActionListContenido: TActionList
object actAsignarDescuento: TAction
Category = 'Operaciones'

39
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -30,7 +30,7 @@ type
TBXItem18: TTBXItem;
TBXSeparatorItem9: TTBXSeparatorItem;
DAPropiedades: TDADataSource;
cxGridViewID_PROPIEDAD: TcxGridDBColumn;
cxGridViewPROPIEDAD: TcxGridDBColumn;
cxLookupComboBox1: TcxLookupComboBox;
DAValores: TDADataSource;
cxRichEdit1: TcxRichEdit;
@ -55,6 +55,7 @@ type
actCapituloImportes: TAction;
TBXSeparatorItem11: TTBXSeparatorItem;
TBXItem21: TTBXItem;
cxLookupComboBox2: TcxLookupComboBox;
procedure actAsignarDescuentoExecute(Sender: TObject);
procedure actAsignarDescuentoUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
@ -70,6 +71,9 @@ type
procedure actCapituloImportesExecute(Sender: TObject);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
private
procedure AnadirCapitulo(const Tipo: String;const Descripcion: String; const Descuento:Boolean = false);
@ -258,7 +262,7 @@ begin
inherited;
//OJO sin esto no se refresca el filtro en tabla detalle "VALORES".
(cxGridViewID_PROPIEDAD.Properties as TcxLookupComboBoxProperties).ListSource.DataSet.Locate(fld_PropiedadesID, cxGridViewID_PROPIEDAD.DataBinding.Field.AsVariant,[]);
{ (cxGridViewID_PROPIEDAD.Properties as TcxLookupComboBoxProperties).ListSource.DataSet.Locate(fld_PropiedadesID, cxGridViewID_PROPIEDAD.DataBinding.Field.AsVariant,[]);
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
and ((ARecord.DisplayTexts[cxGridViewTIPO_ARTICULO.Index] = TIPO_CAPITULO_AF)
@ -267,6 +271,31 @@ begin
AProperties := cxLookupComboBox1.Properties
else
AProperties := cxRichEdit1.Properties;
}
//OJO sin esto no se refresca el filtro en tabla detalle "VALORES".
DAPropiedades.DataTable.Locate(fld_PropiedadesDESCRIPCION, cxGridViewPROPIEDAD.DataBinding.Field.AsVariant,[]);
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
and (ARecord.DisplayTexts[cxGridViewPROPIEDAD.Index] <> '') then
AProperties := cxLookupComboBox1.Properties
else
AProperties := cxRichEdit1.Properties;
end;
procedure TfrViewDetallesPresupuestoCliente.cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
begin
inherited;
if (ARecord.DisplayTexts[cxGridViewTIPO.Index] = TIPO_DETALLE_CONCEPTO)
then
AProperties := cxLookupComboBox2.Properties
else
AProperties := cxRichEdit1.Properties;
end;
procedure TfrViewDetallesPresupuestoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
@ -302,7 +331,7 @@ begin
if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then
Result := False
end
else if (AItem.Index in [cxGridViewID_PROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then
begin
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or
@ -316,6 +345,10 @@ begin
IndiceCol := cxGridView.GetColumnByFieldName(fld_PresupuestosCliente_DetallesTIPO_ARTICULO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AF) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_AI) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_C) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_O) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_V) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_E) and
(AItem.GridView.Items[IndiceCol].EditValue <> TIPO_CAPITULO_B)) then
Result := False
end;

10
Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas
View File

@ -117,14 +117,8 @@ begin
ADetalles.Edit;
ADetalles.REFERENCIA := AArticulos.REFERENCIA;
ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO;
if ((AArticulos.TIPO_ARTICULO = TIPO_CAPITULO_C)
or (AArticulos.TIPO_ARTICULO = TIPO_CAPITULO_AF)
or (AArticulos.TIPO_ARTICULO = TIPO_CAPITULO_AI)
or (AArticulos.TIPO_ARTICULO = TIPO_CAPITULO_B))
and (AArticulos.TIPO_DETALLE = TIPO_DETALLE_CONCEPTO) then
//Usamos el campo referencia para lamacenar la descripcion de la propiedad
//ya que hemos usado ID_ARTICULO para almacenar el id de la propiedad.
ADetalles.CONCEPTO := AArticulos.REFERENCIA + ': '+ AArticulos.CONCEPTO
if (AArticulos.PROPIEDAD <> '') then
ADetalles.CONCEPTO := AArticulos.PROPIEDAD + ': '+ AArticulos.CONCEPTO
else
ADetalles.CONCEPTO := AArticulos.CONCEPTO;

1
Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
View File

@ -174,6 +174,7 @@ begin
ADetalles.REFERENCIA := AArticulos.REFERENCIA;
ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO;
ADetalles.TIPO_ARTICULO := AArticulos.TIPO_ARTICULO;
ADetalles.PROPIEDAD := AArticulos.PROPIEDAD;
ADetalles.CONCEPTO := AArticulos.CONCEPTO;
if not AArticulos.CANTIDADIsNull then
ADetalles.CANTIDAD := AArticulos.CANTIDAD;

2
Source/Modulos/Unidades de medida/Plugin/uPluginUnidadesMedida.dfm
View File

@ -42,7 +42,9 @@ object PluginUnidadesMedida: TPluginUnidadesMedida
object actUnidadesMedida: TAction
Category = 'Datos'
Caption = 'Unidades de medida'
Enabled = False
ImageIndex = 0
Visible = False
OnExecute = actUnidadesMedidaExecute
end
end

8
Source/Servidor/FactuGES_Server.dpr
View File

@ -58,8 +58,6 @@ uses
uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService},
srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService},
srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService},
@ -127,14 +125,16 @@ uses
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 29 de febrero de 2012 16:51</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 11 de julio de 2012 10:34</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.