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

Todo listo para version 2.4.9

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@31 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2012-01-18 18:40:25 +00:00
parent 27038fd9b1
commit 113630ed59
21 changed files with 691 additions and 107 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.

51
Database/scripts/factuges.sql
View File

@ -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;

BIN
Source/Base/Base.res
View File

Binary file not shown.

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">4</VersionInfo><VersionInfo Name="Release">7</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.4.7.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.4.7.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">4</VersionInfo><VersionInfo Name="Release">9</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.4.9.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.4.9.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.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

14
Source/Informes/3/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

18
Source/Informes/3/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

12
Source/Informes/3/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

53
Source/Informes/4/InfAlbaranCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

66
Source/Informes/4/InfFacturaCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

75
Source/Informes/4/InfReciboCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

19
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
View File

@ -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

240
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -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;

188
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

@ -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];

32
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -205,6 +205,14 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'CUENTA_CONTABLE'
TableField = '<unknown>'
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

14
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -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'

2
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -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);

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -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}

6
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,11 +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">4</VersionInfo><VersionInfo Name="Release">8</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.4.8.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.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 16 de enero de 2012 10:45</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">4</VersionInfo><VersionInfo Name="Release">9</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.4.9.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.4.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 18 de enero de 2012 15:13</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>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.