diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 68a2c51..9ebca3d 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 1cd4602..8d3dfc6 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -2514,22 +2514,36 @@ ON (RECIBOS_CLIENTE.ID_FACTURA = FACTURAS_CLIENTE.ID) GROUP BY FACTURAS_CLIENTE.ID; ; -/* Create view: V_REC_CLI_SITUACION */ -CREATE VIEW V_REC_CLI_SITUACION( -ID_RECIBO, -SITUACION) - AS +CREATE VIEW V_REC_CLI_PAGOS( + ID_REC, + ID_PAG) +AS SELECT RECIBOS_CLIENTE.ID, -CASE WHEN (COUNT(PAGOS_CLIENTE.ID_RECIBO)=0) THEN 'PENDIENTE' - WHEN (MOD(COUNT(PAGOS_CLIENTE.ID_RECIBO), 2)=0) THEN 'DEVUELTO' - ELSE 'COBRADO' +CASE WHEN RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO IS NULL THEN PAGOS_CLIENTE.ID_RECIBO + ELSE PAGOS_COMPENSADOS.ID_RECIBO END FROM RECIBOS_CLIENTE -LEFT JOIN PAGOS_CLIENTE -ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID) -GROUP BY RECIBOS_CLIENTE.ID; +LEFT JOIN PAGOS_CLIENTE ON (PAGOS_CLIENTE.ID_RECIBO = RECIBOS_CLIENTE.ID) +LEFT JOIN PAGOS_CLIENTE PAGOS_COMPENSADOS ON (PAGOS_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO) ; +/* Create view: V_REC_CLI_SITUACION */ +CREATE VIEW V_REC_CLI_SITUACION( + ID_RECIBO, + SITUACION) +AS +SELECT RECIBOS_CLIENTE.ID, + + CASE WHEN (COUNT(V_REC_CLI_PAGOS.ID_PAG)=0) THEN 'PENDIENTE' + WHEN (MOD(COUNT(V_REC_CLI_PAGOS.ID_PAG), 2)=0) THEN 'DEVUELTO' + ELSE 'COBRADO' + END + +FROM RECIBOS_CLIENTE +LEFT JOIN V_REC_CLI_PAGOS +ON (V_REC_CLI_PAGOS.ID_REC = RECIBOS_CLIENTE.ID) +GROUP BY RECIBOS_CLIENTE.ID; + /* Create view: V_REC_FAC_CLI_COBRADOS */ CREATE VIEW V_REC_FAC_CLI_COBRADOS( ID_FACTURA, @@ -3848,6 +3862,8 @@ OBSERVACIONES, IMPORTE, OTROS_GASTOS, IMPORTE_TOTAL, +IMPORTE_COMPENSADO, +IMPORTE_SIN_COMPENSAR, ID_EMPRESA, ID_CLIENTE, NOMBRE_CLIENTE, @@ -3883,7 +3899,12 @@ SELECT RECIBOS_CLIENTE.ID, RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA, RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION, RECIBOS_CLIENTE.OBSERVACIONES, RECIBOS_CLIENTE.IMPORTE, RECIBOS_CLIENTE.OTROS_GASTOS, - COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0), + COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) as IMPORTE_TOTAL, + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0) as IMPORTE_COMPENSADO, + CASE + WHEN V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO > 0 THEN COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) - COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0) + ELSE 0 + END AS IMPORTE_SIN_COMPENSAR, RECIBOS_CLIENTE.ID_EMPRESA, RECIBOS_CLIENTE.ID_CLIENTE, CONTACTOS.NOMBRE, @@ -3923,11 +3944,10 @@ ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO) LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2 ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO) LEFT JOIN EMPRESAS_TIENDAS -ON (EMPRESAS_TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA); +ON (EMPRESAS_TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA) ; - /* Create view: V_RECIBOS_PROVEEDOR (ViwData.CreateDependDef) */ CREATE VIEW V_RECIBOS_PROVEEDOR( ID, @@ -4743,10 +4763,11 @@ begin SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.ID_EMPRESA, RECIBOS_CLIENTE.ID_CLIENTE, RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE, PAGOS_CLIENTE.FECHA_PAGO, PAGOS_CLIENTE.TIPO, - PAGOS_CLIENTE.TIPO || ': ' || COALESCE(RECIBOS_CLIENTE.DESCRIPCION, 'No hay descripción'), + PAGOS_CLIENTE.TIPO || ' ' || RECIBOS_CLIENTE.NOMBRE || '(' || CONTACTOS.REFERENCIA || ') ' || COALESCE(RECIBOS_CLIENTE.DESCRIPCION, 'No hay descripción'), RECIBOS_CLIENTE.IMPORTE FROM PAGOS_CLIENTE LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO) + LEFT JOIN CONTACTOS ON (CONTACTOS.ID = RECIBOS_CLIENTE.ID_CLIENTE) WHERE PAGOS_CLIENTE.ID = :IDPAGO INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :CONCEPTO, :IMPORTE; diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339..8b251f3 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 741563e..b446902 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -51,7 +51,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2470FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.7.0FactuGESFactuGES2.4.7.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2490FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.9.0FactuGESFactuGES2.4.9.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 17e3721..7299418 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 8b251f3..1641339 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/Informes/3/InfAlbaranCliente.fr3 b/Source/Informes/3/InfAlbaranCliente.fr3 index 66fe6ad..1662f88 100644 --- a/Source/Informes/3/InfAlbaranCliente.fr3 +++ b/Source/Informes/3/InfAlbaranCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -16,14 +16,14 @@ - + - - - - - + + + + + diff --git a/Source/Informes/3/InfFacturaCliente.fr3 b/Source/Informes/3/InfFacturaCliente.fr3 index 37d1352..e6092d5 100644 --- a/Source/Informes/3/InfFacturaCliente.fr3 +++ b/Source/Informes/3/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -44,13 +44,13 @@ - - - - - - - + + + + + + + @@ -58,7 +58,7 @@ - + diff --git a/Source/Informes/3/InfReciboCliente.fr3 b/Source/Informes/3/InfReciboCliente.fr3 index 2182f73..c0cbfcd 100644 --- a/Source/Informes/3/InfReciboCliente.fr3 +++ b/Source/Informes/3/InfReciboCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -57,10 +57,10 @@ - - - - + + + + @@ -68,7 +68,7 @@ - + diff --git a/Source/Informes/4/InfAlbaranCliente.fr3 b/Source/Informes/4/InfAlbaranCliente.fr3 new file mode 100644 index 0000000..1662f88 --- /dev/null +++ b/Source/Informes/4/InfAlbaranCliente.fr3 @@ -0,0 +1,53 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/4/InfFacturaCliente.fr3 b/Source/Informes/4/InfFacturaCliente.fr3 new file mode 100644 index 0000000..e6092d5 --- /dev/null +++ b/Source/Informes/4/InfFacturaCliente.fr3 @@ -0,0 +1,66 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Informes/4/InfReciboCliente.fr3 b/Source/Informes/4/InfReciboCliente.fr3 new file mode 100644 index 0000000..c0cbfcd --- /dev/null +++ b/Source/Informes/4/InfReciboCliente.fr3 @@ -0,0 +1,75 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm index 095942a..d8288dd 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm @@ -268,6 +268,14 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL' end + item + Name = 'IMPORTE_COMPENSADO' + DataType = datCurrency + end + item + Name = 'IMPORTE_SIN_COMPENSAR' + DataType = datCurrency + end item Name = 'ID_EMPRESA' DataType = datInteger @@ -371,7 +379,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente Name = 'ID_TIENDA' DataType = datInteger DisplayLabel = 'RecibosCliente_ID_TIENDA' - ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_ID_TIENDA' end item @@ -379,7 +386,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente DataType = datString Size = 255 DisplayLabel = 'RecibosCliente_TIENDA' - ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_TIENDA' end item @@ -387,7 +393,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente DataType = datString Size = 255 DisplayLabel = 'Cuenta contable' - ServerAutoRefresh = True end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] @@ -489,6 +494,14 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL' end + item + Name = 'IMPORTE_COMPENSADO' + DataType = datCurrency + end + item + Name = 'IMPORTE_SIN_COMPENSAR' + DataType = datCurrency + end item Name = 'ID_EMPRESA' DataType = datInteger diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index d676281..71ec3d5 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -3,16 +3,16 @@ unit schRecibosClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, 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_ListaAnosRecibos = '{83EE4B73-468E-4522-9045-EB32E8876743}'; - RID_RecibosCliente = '{5A7D52CC-AC14-459B-8FFC-2EBB710C20FA}'; - RID_PagosCliente = '{BA9CFF7F-552C-47D4-BB2C-75A68BB06A1C}'; - RID_RecibosCompensadosCli = '{A1FB671D-EA16-4357-92F7-2C9F7D2C4433}'; + RID_ListaAnosRecibos = '{F97192B5-288D-4BAD-92D0-882E4CCD91E9}'; + RID_RecibosCliente = '{6E6629F5-CE00-41EB-B3A0-6D61FCA5A3EE}'; + RID_PagosCliente = '{2B8F4076-A36D-4E86-B56B-1F8050DDF161}'; + RID_RecibosCompensadosCli = '{7940AA47-2B1B-476C-9D5F-BC8207E6E6B6}'; { Data table names } nme_ListaAnosRecibos = 'ListaAnosRecibos'; @@ -45,6 +45,8 @@ const fld_RecibosClienteIMPORTE = 'IMPORTE'; fld_RecibosClienteOTROS_GASTOS = 'OTROS_GASTOS'; fld_RecibosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_RecibosClienteIMPORTE_COMPENSADO = 'IMPORTE_COMPENSADO'; + fld_RecibosClienteIMPORTE_SIN_COMPENSAR = 'IMPORTE_SIN_COMPENSAR'; fld_RecibosClienteID_EMPRESA = 'ID_EMPRESA'; fld_RecibosClienteID_CLIENTE = 'ID_CLIENTE'; fld_RecibosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; @@ -84,25 +86,27 @@ const idx_RecibosClienteIMPORTE = 15; idx_RecibosClienteOTROS_GASTOS = 16; idx_RecibosClienteIMPORTE_TOTAL = 17; - idx_RecibosClienteID_EMPRESA = 18; - idx_RecibosClienteID_CLIENTE = 19; - idx_RecibosClienteNOMBRE_CLIENTE = 20; - idx_RecibosClienteENTIDAD_CLIENTE = 21; - idx_RecibosClienteSUCURSAL_CLIENTE = 22; - idx_RecibosClienteDC_CLIENTE = 23; - idx_RecibosClienteCUENTA_CLIENTE = 24; - idx_RecibosClienteNIF_CIF = 25; - idx_RecibosClienteNOMBRE = 26; - idx_RecibosClienteCALLE = 27; - idx_RecibosClientePOBLACION = 28; - idx_RecibosClienteCODIGO_POSTAL = 29; - idx_RecibosClientePROVINCIA = 30; - idx_RecibosClienteFECHA_ALTA = 31; - idx_RecibosClienteFECHA_MODIFICACION = 32; - idx_RecibosClienteUSUARIO = 33; - idx_RecibosClienteID_TIENDA = 34; - idx_RecibosClienteTIENDA = 35; - idx_RecibosClienteCUENTA_CONTABLE = 36; + idx_RecibosClienteIMPORTE_COMPENSADO = 18; + idx_RecibosClienteIMPORTE_SIN_COMPENSAR = 19; + idx_RecibosClienteID_EMPRESA = 20; + idx_RecibosClienteID_CLIENTE = 21; + idx_RecibosClienteNOMBRE_CLIENTE = 22; + idx_RecibosClienteENTIDAD_CLIENTE = 23; + idx_RecibosClienteSUCURSAL_CLIENTE = 24; + idx_RecibosClienteDC_CLIENTE = 25; + idx_RecibosClienteCUENTA_CLIENTE = 26; + idx_RecibosClienteNIF_CIF = 27; + idx_RecibosClienteNOMBRE = 28; + idx_RecibosClienteCALLE = 29; + idx_RecibosClientePOBLACION = 30; + idx_RecibosClienteCODIGO_POSTAL = 31; + idx_RecibosClientePROVINCIA = 32; + idx_RecibosClienteFECHA_ALTA = 33; + idx_RecibosClienteFECHA_MODIFICACION = 34; + idx_RecibosClienteUSUARIO = 35; + idx_RecibosClienteID_TIENDA = 36; + idx_RecibosClienteTIENDA = 37; + idx_RecibosClienteCUENTA_CONTABLE = 38; { PagosCliente fields } fld_PagosClienteID = 'ID'; @@ -163,6 +167,8 @@ const fld_RecibosCompensadosCliIMPORTE = 'IMPORTE'; fld_RecibosCompensadosCliOTROS_GASTOS = 'OTROS_GASTOS'; fld_RecibosCompensadosCliIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_RecibosCompensadosCliIMPORTE_COMPENSADO = 'IMPORTE_COMPENSADO'; + fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR = 'IMPORTE_SIN_COMPENSAR'; fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA'; fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE'; fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; @@ -201,29 +207,31 @@ const idx_RecibosCompensadosCliIMPORTE = 15; idx_RecibosCompensadosCliOTROS_GASTOS = 16; idx_RecibosCompensadosCliIMPORTE_TOTAL = 17; - idx_RecibosCompensadosCliID_EMPRESA = 18; - idx_RecibosCompensadosCliID_CLIENTE = 19; - idx_RecibosCompensadosCliNOMBRE_CLIENTE = 20; - idx_RecibosCompensadosCliENTIDAD_CLIENTE = 21; - idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 22; - idx_RecibosCompensadosCliDC_CLIENTE = 23; - idx_RecibosCompensadosCliCUENTA_CLIENTE = 24; - idx_RecibosCompensadosCliNIF_CIF = 25; - idx_RecibosCompensadosCliNOMBRE = 26; - idx_RecibosCompensadosCliCALLE = 27; - idx_RecibosCompensadosCliPOBLACION = 28; - idx_RecibosCompensadosCliCODIGO_POSTAL = 29; - idx_RecibosCompensadosCliPROVINCIA = 30; - idx_RecibosCompensadosCliFECHA_ALTA = 31; - idx_RecibosCompensadosCliFECHA_MODIFICACION = 32; - idx_RecibosCompensadosCliUSUARIO = 33; - idx_RecibosCompensadosCliID_TIENDA = 34; - idx_RecibosCompensadosCliTIENDA = 35; + idx_RecibosCompensadosCliIMPORTE_COMPENSADO = 18; + idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR = 19; + idx_RecibosCompensadosCliID_EMPRESA = 20; + idx_RecibosCompensadosCliID_CLIENTE = 21; + idx_RecibosCompensadosCliNOMBRE_CLIENTE = 22; + idx_RecibosCompensadosCliENTIDAD_CLIENTE = 23; + idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 24; + idx_RecibosCompensadosCliDC_CLIENTE = 25; + idx_RecibosCompensadosCliCUENTA_CLIENTE = 26; + idx_RecibosCompensadosCliNIF_CIF = 27; + idx_RecibosCompensadosCliNOMBRE = 28; + idx_RecibosCompensadosCliCALLE = 29; + idx_RecibosCompensadosCliPOBLACION = 30; + idx_RecibosCompensadosCliCODIGO_POSTAL = 31; + idx_RecibosCompensadosCliPROVINCIA = 32; + idx_RecibosCompensadosCliFECHA_ALTA = 33; + idx_RecibosCompensadosCliFECHA_MODIFICACION = 34; + idx_RecibosCompensadosCliUSUARIO = 35; + idx_RecibosCompensadosCliID_TIENDA = 36; + idx_RecibosCompensadosCliTIENDA = 37; type { IListaAnosRecibos } IListaAnosRecibos = interface(IDAStronglyTypedDataTable) - ['{79193CD1-BBC0-4BEE-9525-6395209D7766}'] + ['{E9816692-FFD0-4F6F-8608-A2720C2071F0}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -237,7 +245,7 @@ type end; { TListaAnosRecibosDataTableRules } - TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos) + TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos) private protected { Property getters and setters } @@ -258,7 +266,7 @@ type { IRecibosCliente } IRecibosCliente = interface(IDAStronglyTypedDataTable) - ['{E8C9C142-DC49-4341-8819-3FC9FFB74C3C}'] + ['{8CE3943C-E100-4DFA-8185-3751474DA592}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -332,6 +340,14 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); function GetIMPORTE_TOTALIsNull: Boolean; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetIMPORTE_COMPENSADOValue: Currency; + procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency); + function GetIMPORTE_COMPENSADOIsNull: Boolean; + procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); + function GetIMPORTE_SIN_COMPENSARValue: Currency; + procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); + function GetIMPORTE_SIN_COMPENSARIsNull: Boolean; + procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; @@ -447,6 +463,10 @@ type property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property IMPORTE_COMPENSADO: Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue; + property IMPORTE_COMPENSADOIsNull: Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull; + property IMPORTE_SIN_COMPENSAR: Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue; + property IMPORTE_SIN_COMPENSARIsNull: Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; @@ -488,7 +508,7 @@ type end; { TRecibosClienteDataTableRules } - TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente) + TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente) private protected { Property getters and setters } @@ -564,6 +584,14 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_COMPENSADOValue: Currency; virtual; + procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency); virtual; + function GetIMPORTE_COMPENSADOIsNull: Boolean; virtual; + procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_SIN_COMPENSARValue: Currency; virtual; + procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); virtual; + function GetIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual; + procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; @@ -678,6 +706,10 @@ type property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property IMPORTE_COMPENSADO: Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue; + property IMPORTE_COMPENSADOIsNull: Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull; + property IMPORTE_SIN_COMPENSAR: Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue; + property IMPORTE_SIN_COMPENSARIsNull: Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; @@ -725,7 +757,7 @@ type { IPagosCliente } IPagosCliente = interface(IDAStronglyTypedDataTable) - ['{B0DE3F8D-7057-49AC-91D0-719C2C24E338}'] + ['{3568AB0B-1F68-4567-A683-0C401D8D7173}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -841,7 +873,7 @@ type end; { TPagosClienteDataTableRules } - TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente) + TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente) private protected { Property getters and setters } @@ -964,7 +996,7 @@ type { IRecibosCompensadosCli } IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) - ['{AC077764-D35C-477D-8FD8-2F68644F812C}'] + ['{32A4B6A0-1926-478A-B23E-06F3D0054723}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1038,6 +1070,14 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); function GetIMPORTE_TOTALIsNull: Boolean; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetIMPORTE_COMPENSADOValue: Currency; + procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency); + function GetIMPORTE_COMPENSADOIsNull: Boolean; + procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); + function GetIMPORTE_SIN_COMPENSARValue: Currency; + procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); + function GetIMPORTE_SIN_COMPENSARIsNull: Boolean; + procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_EMPRESAIsNull: Boolean; @@ -1149,6 +1189,10 @@ type property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property IMPORTE_COMPENSADO: Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue; + property IMPORTE_COMPENSADOIsNull: Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull; + property IMPORTE_SIN_COMPENSAR: Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue; + property IMPORTE_SIN_COMPENSARIsNull: Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; @@ -1188,7 +1232,7 @@ type end; { TRecibosCompensadosCliDataTableRules } - TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli) + TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli) private protected { Property getters and setters } @@ -1264,6 +1308,14 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_COMPENSADOValue: Currency; virtual; + procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency); virtual; + function GetIMPORTE_COMPENSADOIsNull: Boolean; virtual; + procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_SIN_COMPENSARValue: Currency; virtual; + procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); virtual; + function GetIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual; + procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_EMPRESAIsNull: Boolean; virtual; @@ -1374,6 +1426,10 @@ type property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property IMPORTE_COMPENSADO: Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue; + property IMPORTE_COMPENSADOIsNull: Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull; + property IMPORTE_SIN_COMPENSAR: Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue; + property IMPORTE_SIN_COMPENSARIsNull: Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; @@ -1843,6 +1899,48 @@ begin DataTable.Fields[idx_RecibosClienteIMPORTE_TOTAL].AsVariant := Null; end; +function TRecibosClienteDataTableRules.GetIMPORTE_COMPENSADOValue: Currency; +begin + result := DataTable.Fields[idx_RecibosClienteIMPORTE_COMPENSADO].AsCurrency; +end; + +procedure TRecibosClienteDataTableRules.SetIMPORTE_COMPENSADOValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosClienteIMPORTE_COMPENSADO].AsCurrency := aValue; +end; + +function TRecibosClienteDataTableRules.GetIMPORTE_COMPENSADOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosClienteIMPORTE_COMPENSADO].IsNull; +end; + +procedure TRecibosClienteDataTableRules.SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosClienteIMPORTE_COMPENSADO].AsVariant := Null; +end; + +function TRecibosClienteDataTableRules.GetIMPORTE_SIN_COMPENSARValue: Currency; +begin + result := DataTable.Fields[idx_RecibosClienteIMPORTE_SIN_COMPENSAR].AsCurrency; +end; + +procedure TRecibosClienteDataTableRules.SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosClienteIMPORTE_SIN_COMPENSAR].AsCurrency := aValue; +end; + +function TRecibosClienteDataTableRules.GetIMPORTE_SIN_COMPENSARIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosClienteIMPORTE_SIN_COMPENSAR].IsNull; +end; + +procedure TRecibosClienteDataTableRules.SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosClienteIMPORTE_SIN_COMPENSAR].AsVariant := Null; +end; + function TRecibosClienteDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_RecibosClienteID_EMPRESA].AsInteger; @@ -3022,6 +3120,48 @@ begin DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_TOTAL].AsVariant := Null; end; +function TRecibosCompensadosCliDataTableRules.GetIMPORTE_COMPENSADOValue: Currency; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_COMPENSADO].AsCurrency; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_COMPENSADOValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_COMPENSADO].AsCurrency := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetIMPORTE_COMPENSADOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_COMPENSADO].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_COMPENSADO].AsVariant := Null; +end; + +function TRecibosCompensadosCliDataTableRules.GetIMPORTE_SIN_COMPENSARValue: Currency; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR].AsCurrency; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR].AsCurrency := aValue; +end; + +function TRecibosCompensadosCliDataTableRules.GetIMPORTE_SIN_COMPENSARIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR].IsNull; +end; + +procedure TRecibosCompensadosCliDataTableRules.SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR].AsVariant := Null; +end; + function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger; diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas index 96d4e49..e7f6697 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas @@ -9,15 +9,15 @@ 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_ListaAnosRecibosDelta = '{0101D983-84D7-4B01-B359-32BE7D3A9CBE}'; - RID_RecibosClienteDelta = '{3A483FF6-4CAD-45BC-9638-78C3A876344F}'; - RID_PagosClienteDelta = '{0BE77245-6A46-42CA-A074-48D3C835D089}'; - RID_RecibosCompensadosCliDelta = '{EC39A7E1-7D7C-4F17-8C59-29D1E8BBB1C4}'; + RID_ListaAnosRecibosDelta = '{62F79392-9571-4D2E-B294-B386CF58E304}'; + RID_RecibosClienteDelta = '{54B16B97-FAA9-49A4-BE11-0C9268888052}'; + RID_PagosClienteDelta = '{8E95B332-93DA-4BBD-8629-84E7691AC0A4}'; + RID_RecibosCompensadosCliDelta = '{54163948-6ADC-433C-983E-65C944FA2E1E}'; type { IListaAnosRecibosDelta } IListaAnosRecibosDelta = interface(IListaAnosRecibos) - ['{0101D983-84D7-4B01-B359-32BE7D3A9CBE}'] + ['{62F79392-9571-4D2E-B294-B386CF58E304}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,7 +51,7 @@ type { IRecibosClienteDelta } IRecibosClienteDelta = interface(IRecibosCliente) - ['{3A483FF6-4CAD-45BC-9638-78C3A876344F}'] + ['{54B16B97-FAA9-49A4-BE11-0C9268888052}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -71,6 +71,8 @@ type function GetOldIMPORTEValue : Currency; function GetOldOTROS_GASTOSValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; + function GetOldIMPORTE_COMPENSADOValue : Currency; + function GetOldIMPORTE_SIN_COMPENSARValue : Currency; function GetOldID_EMPRESAValue : Integer; function GetOldID_CLIENTEValue : Integer; function GetOldNOMBRE_CLIENTEValue : String; @@ -110,6 +112,8 @@ type property OldIMPORTE : Currency read GetOldIMPORTEValue; property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_COMPENSADO : Currency read GetOldIMPORTE_COMPENSADOValue; + property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; @@ -244,6 +248,18 @@ type function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_COMPENSADOValue: Currency; virtual; + function GetIMPORTE_COMPENSADOIsNull: Boolean; virtual; + function GetOldIMPORTE_COMPENSADOValue: Currency; virtual; + function GetOldIMPORTE_COMPENSADOIsNull: Boolean; virtual; + procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_SIN_COMPENSARValue: Currency; virtual; + function GetIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual; + function GetOldIMPORTE_SIN_COMPENSARValue: Currency; virtual; + function GetOldIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual; + procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); virtual; + procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; @@ -432,6 +448,14 @@ type property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; + property IMPORTE_COMPENSADO : Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue; + property IMPORTE_COMPENSADOIsNull : Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull; + property OldIMPORTE_COMPENSADO : Currency read GetOldIMPORTE_COMPENSADOValue; + property OldIMPORTE_COMPENSADOIsNull : Boolean read GetOldIMPORTE_COMPENSADOIsNull; + property IMPORTE_SIN_COMPENSAR : Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue; + property IMPORTE_SIN_COMPENSARIsNull : Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull; + property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue; + property OldIMPORTE_SIN_COMPENSARIsNull : Boolean read GetOldIMPORTE_SIN_COMPENSARIsNull; 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; @@ -517,7 +541,7 @@ type { IPagosClienteDelta } IPagosClienteDelta = interface(IPagosCliente) - ['{0BE77245-6A46-42CA-A074-48D3C835D089}'] + ['{8E95B332-93DA-4BBD-8629-84E7691AC0A4}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -755,7 +779,7 @@ type { IRecibosCompensadosCliDelta } IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) - ['{EC39A7E1-7D7C-4F17-8C59-29D1E8BBB1C4}'] + ['{54163948-6ADC-433C-983E-65C944FA2E1E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -775,6 +799,8 @@ type function GetOldIMPORTEValue : Currency; function GetOldOTROS_GASTOSValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; + function GetOldIMPORTE_COMPENSADOValue : Currency; + function GetOldIMPORTE_SIN_COMPENSARValue : Currency; function GetOldID_EMPRESAValue : Integer; function GetOldID_CLIENTEValue : Integer; function GetOldNOMBRE_CLIENTEValue : String; @@ -813,6 +839,8 @@ type property OldIMPORTE : Currency read GetOldIMPORTEValue; property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_COMPENSADO : Currency read GetOldIMPORTE_COMPENSADOValue; + property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; @@ -946,6 +974,18 @@ type function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_COMPENSADOValue: Currency; virtual; + function GetIMPORTE_COMPENSADOIsNull: Boolean; virtual; + function GetOldIMPORTE_COMPENSADOValue: Currency; virtual; + function GetOldIMPORTE_COMPENSADOIsNull: Boolean; virtual; + procedure SetIMPORTE_COMPENSADOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_SIN_COMPENSARValue: Currency; virtual; + function GetIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual; + function GetOldIMPORTE_SIN_COMPENSARValue: Currency; virtual; + function GetOldIMPORTE_SIN_COMPENSARIsNull: Boolean; virtual; + procedure SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); virtual; + procedure SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; @@ -1128,6 +1168,14 @@ type property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; + property IMPORTE_COMPENSADO : Currency read GetIMPORTE_COMPENSADOValue write SetIMPORTE_COMPENSADOValue; + property IMPORTE_COMPENSADOIsNull : Boolean read GetIMPORTE_COMPENSADOIsNull write SetIMPORTE_COMPENSADOIsNull; + property OldIMPORTE_COMPENSADO : Currency read GetOldIMPORTE_COMPENSADOValue; + property OldIMPORTE_COMPENSADOIsNull : Boolean read GetOldIMPORTE_COMPENSADOIsNull; + property IMPORTE_SIN_COMPENSAR : Currency read GetIMPORTE_SIN_COMPENSARValue write SetIMPORTE_SIN_COMPENSARValue; + property IMPORTE_SIN_COMPENSARIsNull : Boolean read GetIMPORTE_SIN_COMPENSARIsNull write SetIMPORTE_SIN_COMPENSARIsNull; + property OldIMPORTE_SIN_COMPENSAR : Currency read GetOldIMPORTE_SIN_COMPENSARValue; + property OldIMPORTE_SIN_COMPENSARIsNull : Boolean read GetOldIMPORTE_SIN_COMPENSARIsNull; 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; @@ -1824,6 +1872,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_TOTAL] := Null; end; +function TRecibosClienteBusinessProcessorRules.GetIMPORTE_COMPENSADOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_COMPENSADO]; +end; + +function TRecibosClienteBusinessProcessorRules.GetIMPORTE_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_COMPENSADO]); +end; + +function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_COMPENSADOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_COMPENSADO]; +end; + +function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_COMPENSADO]); +end; + +procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_COMPENSADOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_COMPENSADO] := aValue; +end; + +procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_COMPENSADO] := Null; +end; + +function TRecibosClienteBusinessProcessorRules.GetIMPORTE_SIN_COMPENSARValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR]; +end; + +function TRecibosClienteBusinessProcessorRules.GetIMPORTE_SIN_COMPENSARIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR]); +end; + +function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_SIN_COMPENSARValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR]; +end; + +function TRecibosClienteBusinessProcessorRules.GetOldIMPORTE_SIN_COMPENSARIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR]); +end; + +procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR] := aValue; +end; + +procedure TRecibosClienteBusinessProcessorRules.SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteIMPORTE_SIN_COMPENSAR] := Null; +end; + function TRecibosClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteID_EMPRESA]; @@ -3553,6 +3663,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_TOTAL] := Null; end; +function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_COMPENSADOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_COMPENSADOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_COMPENSADOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_COMPENSADO] := Null; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_SIN_COMPENSARValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_SIN_COMPENSARIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR]); +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_SIN_COMPENSARValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR]; +end; + +function TRecibosCompensadosCliBusinessProcessorRules.GetOldIMPORTE_SIN_COMPENSARIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR]); +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_SIN_COMPENSARValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR] := aValue; +end; + +procedure TRecibosCompensadosCliBusinessProcessorRules.SetIMPORTE_SIN_COMPENSARIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_SIN_COMPENSAR] := Null; +end; + function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]; diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm index 228043c..e7e2294 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm @@ -205,6 +205,14 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetField = 'CUENTA_CONTABLE' TableField = '' SQLOrigin = 'CUENTA_CONTABLE' + end + item + DatasetField = 'IMPORTE_COMPENSADO' + TableField = 'IMPORTE_COMPENSADO' + end + item + DatasetField = 'IMPORTE_SIN_COMPENSAR' + TableField = 'IMPORTE_SIN_COMPENSAR' end> end> Name = 'RecibosCliente' @@ -311,6 +319,14 @@ object srvRecibosCliente: TsrvRecibosCliente ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL' end + item + Name = 'IMPORTE_COMPENSADO' + DataType = datCurrency + end + item + Name = 'IMPORTE_SIN_COMPENSAR' + DataType = datCurrency + end item Name = 'ID_EMPRESA' DataType = datInteger @@ -754,6 +770,14 @@ object srvRecibosCliente: TsrvRecibosCliente item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' + end + item + DatasetField = 'IMPORTE_COMPENSADO' + TableField = 'IMPORTE_COMPENSADO' + end + item + DatasetField = 'IMPORTE_SIN_COMPENSAR' + TableField = 'IMPORTE_SIN_COMPENSAR' end> end> Name = 'RecibosCompensadosCli' @@ -840,6 +864,14 @@ object srvRecibosCliente: TsrvRecibosCliente ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL' end + item + Name = 'IMPORTE_COMPENSADO' + DataType = datCurrency + end + item + Name = 'IMPORTE_SIN_COMPENSAR' + DataType = datCurrency + end item Name = 'ID_EMPRESA' DataType = datInteger diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm index 8bca77c..74a3d74 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm @@ -165,6 +165,20 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente HeaderAlignmentHorz = taRightJustify Width = 117 end + object cxGridViewIMPORTE_COMPENSADO: TcxGridDBColumn + Caption = 'Imp. Compensado' + DataBinding.FieldName = 'IMPORTE_COMPENSADO' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + object cxGridViewIMPORTE_SIN_COMPENSAR: TcxGridDBColumn + Caption = 'Imp. sin compensar' + DataBinding.FieldName = 'IMPORTE_SIN_COMPENSAR' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end object cxGridViewREFERENCIA_REMESA: TcxGridDBColumn Caption = 'Ref. remesa' DataBinding.FieldName = 'REFERENCIA_REMESA' diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas index 0bcca75..13ba265 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas @@ -58,6 +58,8 @@ type cxGridViewPROVINCIA: TcxGridDBColumn; cxGridViewCODIGO_POSTAL: TcxGridDBColumn; cxGridViewCUENTA_CONTABLE: TcxGridDBColumn; + cxGridViewIMPORTE_COMPENSADO: TcxGridDBColumn; + cxGridViewIMPORTE_SIN_COMPENSAR: TcxGridDBColumn; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index e045e95..8f65a8d 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -131,12 +131,12 @@ uses 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', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', - schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; + schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', + schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', + schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 7dab8ed..1d2eb8b 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -28,11 +28,7 @@ Delphi.Personality -FalseTrueFalseTrueFalse2480FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.8.0FactuGES (Servidor)2.4.8.0lunes, 16 de enero de 2012 10:45 - - - - +FalseTrueFalseTrueFalse2490FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.9.0FactuGES (Servidor)2.4.9.0miércoles, 18 de enero de 2012 15:13 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 36bebf3..5b3d7d1 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ