diff --git a/Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Blanco-y-Negro.jpg b/Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Blanco-y-Negro.jpg
new file mode 100644
index 0000000..d9c50fc
Binary files /dev/null and b/Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Blanco-y-Negro.jpg differ
diff --git a/Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Color.jpg b/Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Color.jpg
new file mode 100644
index 0000000..206b5f7
Binary files /dev/null and b/Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Color.jpg differ
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 9bf693a..9d87741 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,13 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -58,55 +65,55 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f3..1641339 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 b107494..53c75bd 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -51,8 +51,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2690FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.9.0FactuGESFactuGES2.6.9.0
-
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2700FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.0.0FactuGESFactuGES2.7.0.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 a7b99c5..c7f5045 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
index c1b7536..4711b42 100644
--- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
@@ -400,6 +400,16 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
item
Name = 'CUENTA_CONTABLE'
DataType = datString
+ end
+ item
+ Name = 'REFERENCIA_CONTRATO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'REF_CLIENTE_CONTRATO'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
index 8bfbdb0..41e4a51 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 = '{9AD56FB9-67A7-486D-97A3-F97769F49FBE}';
- RID_RecibosCliente = '{A6B99CCC-1F59-46D1-9E40-CDA699F5DBDE}';
- RID_PagosCliente = '{95D516A8-1FAC-4A03-8CE4-0D6CB5390369}';
- RID_RecibosCompensadosCli = '{2617D7C0-DF3B-4791-8CB7-3E57E1C4E48A}';
+ RID_ListaAnosRecibos = '{EA14EE7E-2EA2-4C78-BBE5-C6C8E68D4F08}';
+ RID_RecibosCliente = '{F107001F-CB55-4A48-88A1-635E9699E171}';
+ RID_PagosCliente = '{C71D3A04-7694-4A1A-8EC7-9C3809F64EC3}';
+ RID_RecibosCompensadosCli = '{5336ACAB-56BE-4F35-B412-38358373AEBF}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -68,6 +68,8 @@ const
fld_RecibosClienteID_TIENDA = 'ID_TIENDA';
fld_RecibosClienteTIENDA = 'TIENDA';
fld_RecibosClienteCUENTA_CONTABLE = 'CUENTA_CONTABLE';
+ fld_RecibosClienteREFERENCIA_CONTRATO = 'REFERENCIA_CONTRATO';
+ fld_RecibosClienteREF_CLIENTE_CONTRATO = 'REF_CLIENTE_CONTRATO';
{ RecibosCliente field indexes }
idx_RecibosClienteID = 0;
@@ -111,6 +113,8 @@ const
idx_RecibosClienteID_TIENDA = 38;
idx_RecibosClienteTIENDA = 39;
idx_RecibosClienteCUENTA_CONTABLE = 40;
+ idx_RecibosClienteREFERENCIA_CONTRATO = 41;
+ idx_RecibosClienteREF_CLIENTE_CONTRATO = 42;
{ PagosCliente fields }
fld_PagosClienteID = 'ID';
@@ -241,7 +245,7 @@ const
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
- ['{6EE69FF4-C573-4C84-ABB8-AADD20CB1C97}']
+ ['{1FF14354-4B42-4F99-88E2-6495C07BD80B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -255,7 +259,7 @@ type
end;
{ TListaAnosRecibosDataTableRules }
- TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
+ TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
private
protected
{ Property getters and setters }
@@ -276,7 +280,7 @@ type
{ IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable)
- ['{FA997C06-FA56-476C-A2C8-9C14645F12AD}']
+ ['{DD664CE7-9833-46AD-9336-DF935C1896E5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -442,6 +446,14 @@ type
procedure SetCUENTA_CONTABLEValue(const aValue: String);
function GetCUENTA_CONTABLEIsNull: Boolean;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
+ function GetREFERENCIA_CONTRATOValue: String;
+ procedure SetREFERENCIA_CONTRATOValue(const aValue: String);
+ function GetREFERENCIA_CONTRATOIsNull: Boolean;
+ procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
+ function GetREF_CLIENTE_CONTRATOValue: String;
+ procedure SetREF_CLIENTE_CONTRATOValue(const aValue: String);
+ function GetREF_CLIENTE_CONTRATOIsNull: Boolean;
+ procedure SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean);
{ Properties }
@@ -527,10 +539,14 @@ type
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
+ property REFERENCIA_CONTRATO: String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
+ property REFERENCIA_CONTRATOIsNull: Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
+ property REF_CLIENTE_CONTRATO: String read GetREF_CLIENTE_CONTRATOValue write SetREF_CLIENTE_CONTRATOValue;
+ property REF_CLIENTE_CONTRATOIsNull: Boolean read GetREF_CLIENTE_CONTRATOIsNull write SetREF_CLIENTE_CONTRATOIsNull;
end;
{ TRecibosClienteDataTableRules }
- TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
+ TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
private
protected
{ Property getters and setters }
@@ -698,6 +714,14 @@ type
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_CONTRATOValue: String; virtual;
+ procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual;
+ function GetREFERENCIA_CONTRATOIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); virtual;
+ function GetREF_CLIENTE_CONTRATOValue: String; virtual;
+ procedure SetREF_CLIENTE_CONTRATOValue(const aValue: String); virtual;
+ function GetREF_CLIENTE_CONTRATOIsNull: Boolean; virtual;
+ procedure SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -782,6 +806,10 @@ type
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
+ property REFERENCIA_CONTRATO: String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
+ property REFERENCIA_CONTRATOIsNull: Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
+ property REF_CLIENTE_CONTRATO: String read GetREF_CLIENTE_CONTRATOValue write SetREF_CLIENTE_CONTRATOValue;
+ property REF_CLIENTE_CONTRATOIsNull: Boolean read GetREF_CLIENTE_CONTRATOIsNull write SetREF_CLIENTE_CONTRATOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -791,7 +819,7 @@ type
{ IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable)
- ['{F52B261A-56AB-4702-9FA4-F06407A2A66E}']
+ ['{1D0D6388-4971-477A-AADB-DE1B515DE6C4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -907,7 +935,7 @@ type
end;
{ TPagosClienteDataTableRules }
- TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
+ TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
private
protected
{ Property getters and setters }
@@ -1030,7 +1058,7 @@ type
{ IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
- ['{4FA8D8AA-25E8-4B7A-972A-1E6491B96D5B}']
+ ['{A9671AAE-1362-475C-B2E7-84DF3940B4C4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1284,7 +1312,7 @@ type
end;
{ TRecibosCompensadosCliDataTableRules }
- TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
+ TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
private
protected
{ Property getters and setters }
@@ -2452,6 +2480,48 @@ begin
DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsVariant := Null;
end;
+function TRecibosClienteDataTableRules.GetREFERENCIA_CONTRATOValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_CONTRATOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetREFERENCIA_CONTRATOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetREF_CLIENTE_CONTRATOValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREF_CLIENTE_CONTRATOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetREF_CLIENTE_CONTRATOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].AsVariant := Null;
+end;
+
{ TPagosClienteDataTableRules }
constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
index ef50077..66a3b27 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 = '{9E586155-C30C-4C3D-969F-4C5A8A34C00E}';
- RID_RecibosClienteDelta = '{D8BC8C31-56C2-45FC-AB7B-063313B4B910}';
- RID_PagosClienteDelta = '{056195E0-7C3A-4CAD-A6F3-3E2FD306D365}';
- RID_RecibosCompensadosCliDelta = '{6642E0AE-04ED-48EA-B0C7-E82AEB48769A}';
+ RID_ListaAnosRecibosDelta = '{6D00330A-4C7E-46FA-BD10-76DC9B20BCD5}';
+ RID_RecibosClienteDelta = '{56014792-FD4F-4FBD-8CF9-808ADB5F5FD8}';
+ RID_PagosClienteDelta = '{97FBC855-65C7-4A19-916C-85BA6C501CCF}';
+ RID_RecibosCompensadosCliDelta = '{5C0B63D3-2863-40C4-B4CB-2A9A1BDC6EF1}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
- ['{9E586155-C30C-4C3D-969F-4C5A8A34C00E}']
+ ['{6D00330A-4C7E-46FA-BD10-76DC9B20BCD5}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -51,7 +51,7 @@ type
{ IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente)
- ['{D8BC8C31-56C2-45FC-AB7B-063313B4B910}']
+ ['{56014792-FD4F-4FBD-8CF9-808ADB5F5FD8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -94,6 +94,8 @@ type
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldCUENTA_CONTABLEValue : String;
+ function GetOldREFERENCIA_CONTRATOValue : String;
+ function GetOldREF_CLIENTE_CONTRATOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -137,6 +139,8 @@ type
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
+ property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue;
+ property OldREF_CLIENTE_CONTRATO : String read GetOldREF_CLIENTE_CONTRATOValue;
end;
{ TRecibosClienteBusinessProcessorRules }
@@ -390,6 +394,18 @@ type
function GetOldCUENTA_CONTABLEIsNull: Boolean; virtual;
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_CONTRATOValue: String; virtual;
+ function GetREFERENCIA_CONTRATOIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_CONTRATOValue: String; virtual;
+ function GetOldREFERENCIA_CONTRATOIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); virtual;
+ function GetREF_CLIENTE_CONTRATOValue: String; virtual;
+ function GetREF_CLIENTE_CONTRATOIsNull: Boolean; virtual;
+ function GetOldREF_CLIENTE_CONTRATOValue: String; virtual;
+ function GetOldREF_CLIENTE_CONTRATOIsNull: Boolean; virtual;
+ procedure SetREF_CLIENTE_CONTRATOValue(const aValue: String); virtual;
+ procedure SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -556,6 +572,14 @@ type
property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
property OldCUENTA_CONTABLEIsNull : Boolean read GetOldCUENTA_CONTABLEIsNull;
+ property REFERENCIA_CONTRATO : String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
+ property REFERENCIA_CONTRATOIsNull : Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
+ property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue;
+ property OldREFERENCIA_CONTRATOIsNull : Boolean read GetOldREFERENCIA_CONTRATOIsNull;
+ property REF_CLIENTE_CONTRATO : String read GetREF_CLIENTE_CONTRATOValue write SetREF_CLIENTE_CONTRATOValue;
+ property REF_CLIENTE_CONTRATOIsNull : Boolean read GetREF_CLIENTE_CONTRATOIsNull write SetREF_CLIENTE_CONTRATOIsNull;
+ property OldREF_CLIENTE_CONTRATO : String read GetOldREF_CLIENTE_CONTRATOValue;
+ property OldREF_CLIENTE_CONTRATOIsNull : Boolean read GetOldREF_CLIENTE_CONTRATOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -565,7 +589,7 @@ type
{ IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente)
- ['{056195E0-7C3A-4CAD-A6F3-3E2FD306D365}']
+ ['{97FBC855-65C7-4A19-916C-85BA6C501CCF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@@ -803,7 +827,7 @@ type
{ IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
- ['{6642E0AE-04ED-48EA-B0C7-E82AEB48769A}']
+ ['{5C0B63D3-2863-40C4-B4CB-2A9A1BDC6EF1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -2645,6 +2669,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE] := Null;
end;
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CONTRATOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CONTRATOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CONTRATOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CONTRATO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CONTRATOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CONTRATOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREF_CLIENTE_CONTRATOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetREF_CLIENTE_CONTRATOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREF_CLIENTE_CONTRATOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldREF_CLIENTE_CONTRATOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREF_CLIENTE_CONTRATOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO] := Null;
+end;
+
{ TPagosClienteBusinessProcessorRules }
constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
index a343de5..c015057 100644
--- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
@@ -212,6 +212,14 @@ object srvRecibosCliente: TsrvRecibosCliente
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
+ end
+ item
+ DatasetField = 'REFERENCIA_CONTRATO'
+ TableField = 'REFERENCIA_CONTRATO'
+ end
+ item
+ DatasetField = 'REF_CLIENTE_CONTRATO'
+ TableField = 'REF_CLIENTE_CONTRATO'
end>
end>
Name = 'RecibosCliente'
@@ -442,6 +450,16 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'CUENTA_CONTABLE'
DataType = datString
+ end
+ item
+ Name = 'REFERENCIA_CONTRATO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'REF_CLIENTE_CONTRATO'
+ DataType = datString
+ Size = 255
end>
end
item
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
index f4be71b..479ba71 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
@@ -3,7 +3,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ClientHeight = 561
ClientWidth = 645
ExplicitWidth = 653
- ExplicitHeight = 595
+ ExplicitHeight = 599
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -41,10 +41,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
Width = 645
ExplicitWidth = 645
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 561
+ ExplicitWidth = 632
end
inherited tbxFiltro: TTBXToolbar
- ExplicitWidth = 431
+ ExplicitWidth = 454
inherited lblAno: TTBXLabelItem
Visible = True
end
@@ -59,10 +59,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ExplicitWidth = 645
end
inherited TBXTMain2: TTBXToolbar
- Left = 431
+ Left = 454
Visible = True
- ExplicitLeft = 431
- ExplicitWidth = 66
+ ExplicitLeft = 454
+ ExplicitWidth = 74
object TBXItem38: TTBXItem
Action = actInformes
end
@@ -76,9 +76,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
end
inline frViewRecibosCliente1: TfrViewRecibosCliente [3]
Left = 0
- Top = 102
+ Top = 106
Width = 645
- Height = 440
+ Height = 436
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -88,14 +88,14 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitTop = 102
+ ExplicitTop = 106
ExplicitWidth = 645
- ExplicitHeight = 440
+ ExplicitHeight = 436
inherited cxGrid: TcxGrid
Width = 645
- Height = 312
+ Height = 308
ExplicitWidth = 645
- ExplicitHeight = 312
+ ExplicitHeight = 308
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@@ -181,8 +181,8 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
- Top = 414
- ExplicitTop = 414
+ Top = 410
+ ExplicitTop = 410
ExplicitWidth = 645
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 645
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
index 9c0cb39..7cfccc6 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
@@ -220,6 +220,14 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Visible = False
VisibleForCustomization = False
end
+ object cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn
+ Caption = 'Ref. Contrato'
+ DataBinding.FieldName = 'REFERENCIA_CONTRATO'
+ end
+ object cxGridViewREF_CLIENTE_CONTRATO: TcxGridDBColumn
+ Caption = 'Ref. Cliente en contrato'
+ DataBinding.FieldName = 'REF_CLIENTE_CONTRATO'
+ end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos'
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
index e9042cf..9e36b9a 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
@@ -61,6 +61,8 @@ type
cxGridViewIMPORTE_COMPENSADO: TcxGridDBColumn;
cxGridViewIMPORTE_SIN_COMPENSAR: TcxGridDBColumn;
cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
+ cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn;
+ cxGridViewREF_CLIENTE_CONTRATO: 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 017d9e0..4406694 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -126,8 +126,6 @@ uses
uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule},
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
- schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
- schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
@@ -142,7 +140,9 @@ uses
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_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 68ac818..a44cd05 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,309 +1,310 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
- FalseTrueFalseTrueFalse2690FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.9.0FactuGES (Servidor)2.6.9.0jueves, 10 de noviembre de 2016 12:17
- File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TRORemoteDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+FalseTrueFalseTrueFalse2700FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.0.0FactuGES (Servidor)2.7.0.0jueves, 17 de noviembre de 2016 18:06
+
+ File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TRORemoteDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+