Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se cambia el informe de contratosclientebeneficions para sacar la referencia de cliente del contrato y el vendedor del contrato

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@680 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2019-10-22 17:01:21 +00:00
parent 7397e7da19
commit 6a812d2f51
10 changed files with 661 additions and 375 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de proveedor\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\ccpackD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxExportD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPScxCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\frx11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\frxe11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\fs11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvAppFrmD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvGlobusD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PngComponentsD10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PNG_D10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\tb2k_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\tbx_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

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

@ -541,6 +541,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'FECHA_CONTRATO' Name = 'FECHA_CONTRATO'
DataType = datDateTime DataType = datDateTime
@ -583,6 +588,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
end
item
Name = 'VENDEDOR'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{8D0A6005-9221-49D8-850E-9132CB554EF3}'; RID_Valores = '{58A2DEFE-73CE-4294-A509-3456173EC1E8}';
RID_Propiedades = '{8B55BD13-9462-4069-8727-FC0E5CC3B5CE}'; RID_Propiedades = '{FD279174-BDCF-4C6E-86A5-9EF688F8A386}';
RID_ListaAnosContratos = '{C307F363-E262-45D7-92C8-C8A315917474}'; RID_ListaAnosContratos = '{995B8113-D69E-45F6-B0C6-279DE92E8AE1}';
RID_ContratosClienteBeneficios = '{2A105B52-7E4A-4F48-9BAC-4E919F6619A5}'; RID_ContratosClienteBeneficios = '{AADFE498-8072-4F5F-84FD-7BDAE2D03E88}';
RID_ContratosCliente = '{E6050152-2E8E-4AAB-BD2F-C7A863966187}'; RID_ContratosCliente = '{6BBAF32D-E3F6-4C2F-BB50-EEB0BABCE782}';
RID_TiposCapitulos = '{8DC00365-1B40-406A-94F0-0A706EA1889C}'; RID_TiposCapitulos = '{4355D117-B641-4CF9-99AC-17558CB0C354}';
RID_ContratosCliente_Detalles = '{9BAA7277-F710-4A9B-8EC7-FFC449E23AF6}'; RID_ContratosCliente_Detalles = '{02F28C43-5EC9-4A4F-A2BC-CD4BF581ED0B}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -55,6 +55,7 @@ const
{ ContratosClienteBeneficios fields } { ContratosClienteBeneficios fields }
fld_ContratosClienteBeneficiosID = 'ID'; fld_ContratosClienteBeneficiosID = 'ID';
fld_ContratosClienteBeneficiosREFERENCIA = 'REFERENCIA'; fld_ContratosClienteBeneficiosREFERENCIA = 'REFERENCIA';
fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteBeneficiosFECHA_CONTRATO = 'FECHA_CONTRATO'; fld_ContratosClienteBeneficiosFECHA_CONTRATO = 'FECHA_CONTRATO';
fld_ContratosClienteBeneficiosNOMBRE = 'NOMBRE'; fld_ContratosClienteBeneficiosNOMBRE = 'NOMBRE';
fld_ContratosClienteBeneficiosNIF_CIF = 'NIF_CIF'; fld_ContratosClienteBeneficiosNIF_CIF = 'NIF_CIF';
@ -65,20 +66,25 @@ const
fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 'IMPORTE_BENEFICIO'; fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 'IMPORTE_BENEFICIO';
fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 'PORCENTAJE_BENEFICIO'; fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 'PORCENTAJE_BENEFICIO';
fld_ContratosClienteBeneficiosSITUACION = 'SITUACION'; fld_ContratosClienteBeneficiosSITUACION = 'SITUACION';
fld_ContratosClienteBeneficiosID_VENDEDOR = 'ID_VENDEDOR';
fld_ContratosClienteBeneficiosVENDEDOR = 'VENDEDOR';
{ ContratosClienteBeneficios field indexes } { ContratosClienteBeneficios field indexes }
idx_ContratosClienteBeneficiosID = 0; idx_ContratosClienteBeneficiosID = 0;
idx_ContratosClienteBeneficiosREFERENCIA = 1; idx_ContratosClienteBeneficiosREFERENCIA = 1;
idx_ContratosClienteBeneficiosFECHA_CONTRATO = 2; idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE = 2;
idx_ContratosClienteBeneficiosNOMBRE = 3; idx_ContratosClienteBeneficiosFECHA_CONTRATO = 3;
idx_ContratosClienteBeneficiosNIF_CIF = 4; idx_ContratosClienteBeneficiosNOMBRE = 4;
idx_ContratosClienteBeneficiosIMPORTE_NETO = 5; idx_ContratosClienteBeneficiosNIF_CIF = 5;
idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO = 6; idx_ContratosClienteBeneficiosIMPORTE_NETO = 6;
idx_ContratosClienteBeneficiosBASE_IMPONIBLE = 7; idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO = 7;
idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 8; idx_ContratosClienteBeneficiosBASE_IMPONIBLE = 8;
idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 9; idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 9;
idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 10; idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 10;
idx_ContratosClienteBeneficiosSITUACION = 11; idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 11;
idx_ContratosClienteBeneficiosSITUACION = 12;
idx_ContratosClienteBeneficiosID_VENDEDOR = 13;
idx_ContratosClienteBeneficiosVENDEDOR = 14;
{ ContratosCliente fields } { ContratosCliente fields }
fld_ContratosClienteID = 'ID'; fld_ContratosClienteID = 'ID';
@ -239,7 +245,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{BE709E0D-DA15-433E-845D-A94BC20A4918}'] ['{8DC482B0-0D63-436F-AB19-74A480249588}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -265,7 +271,7 @@ type
end; end;
{ TValoresDataTableRules } { TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) TValoresDataTableRules = class(TDADataTableRules, IValores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -298,7 +304,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{5B1734E1-7B39-4B14-B907-21077C041461}'] ['{83E4E5BD-A49A-4677-A830-7C9B83F3DDE4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -324,7 +330,7 @@ type
end; end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -357,7 +363,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{ABCA5139-F042-4033-BCA2-09D644B80C2C}'] ['{35D2C046-61DA-487F-A0F4-5E3AB7CCA58D}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -371,7 +377,7 @@ type
end; end;
{ TListaAnosContratosDataTableRules } { TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos) TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -392,7 +398,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{6429E1F0-65EC-42C4-B326-A3FDFD709C6B}'] ['{FEA1561B-0DF3-4193-8881-62C4433488E8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -402,6 +408,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean; function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean); procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetREFERENCIA_CLIENTEValue: String;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetFECHA_CONTRATOValue: DateTime; function GetFECHA_CONTRATOValue: DateTime;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); procedure SetFECHA_CONTRATOValue(const aValue: DateTime);
function GetFECHA_CONTRATOIsNull: Boolean; function GetFECHA_CONTRATOIsNull: Boolean;
@ -442,6 +452,14 @@ type
procedure SetSITUACIONValue(const aValue: String); procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean; function GetSITUACIONIsNull: Boolean;
procedure SetSITUACIONIsNull(const aValue: Boolean); procedure SetSITUACIONIsNull(const aValue: Boolean);
function GetID_VENDEDORValue: Integer;
procedure SetID_VENDEDORValue(const aValue: Integer);
function GetID_VENDEDORIsNull: Boolean;
procedure SetID_VENDEDORIsNull(const aValue: Boolean);
function GetVENDEDORValue: String;
procedure SetVENDEDORValue(const aValue: String);
function GetVENDEDORIsNull: Boolean;
procedure SetVENDEDORIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -449,6 +467,8 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull; property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -469,10 +489,14 @@ type
property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull; property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
end; end;
{ TContratosClienteBeneficiosDataTableRules } { TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios) TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -484,6 +508,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_CONTRATOValue: DateTime; virtual; function GetFECHA_CONTRATOValue: DateTime; virtual;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual; procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
function GetFECHA_CONTRATOIsNull: Boolean; virtual; function GetFECHA_CONTRATOIsNull: Boolean; virtual;
@ -524,12 +552,22 @@ type
procedure SetSITUACIONValue(const aValue: String); virtual; procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual; function GetSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
function GetID_VENDEDORValue: Integer; virtual;
procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
function GetID_VENDEDORIsNull: Boolean; virtual;
procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual;
function GetVENDEDORValue: String; virtual;
procedure SetVENDEDORValue(const aValue: String); virtual;
function GetVENDEDORIsNull: Boolean; virtual;
procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull; property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
@ -550,6 +588,10 @@ type
property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull; property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -559,7 +601,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{F6CA8D2A-7FE2-492D-9C31-17EEED90EA92}'] ['{F2DEA876-B1A6-475D-8D1D-8D416E7D40CA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -855,7 +897,7 @@ type
end; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente) TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private private
f_FORMA_PAGO: IROStrings; f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
@ -1173,7 +1215,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{83723322-56DB-4D52-A7F2-71BE5705EFF4}'] ['{5F81E7D5-452E-4E0A-88C8-1F996B6AF531}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1217,7 +1259,7 @@ type
end; end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos) TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1268,7 +1310,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{E4351EBD-42E9-42AA-A32C-EBF448AF3AAB}'] ['{251944F0-59A0-4544-BC1D-DC85411F2FD7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1378,7 +1420,7 @@ type
end; end;
{ TContratosCliente_DetallesDataTableRules } { TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles) TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1733,6 +1775,27 @@ begin
DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].AsVariant := Null; DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].AsVariant := Null;
end; end;
function TContratosClienteBeneficiosDataTableRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].AsString;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].AsString := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetFECHA_CONTRATOValue: DateTime; function TContratosClienteBeneficiosDataTableRules.GetFECHA_CONTRATOValue: DateTime;
begin begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsDateTime; result := DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsDateTime;
@ -1943,6 +2006,48 @@ begin
DataTable.Fields[idx_ContratosClienteBeneficiosSITUACION].AsVariant := Null; DataTable.Fields[idx_ContratosClienteBeneficiosSITUACION].AsVariant := Null;
end; end;
function TContratosClienteBeneficiosDataTableRules.GetID_VENDEDORValue: Integer;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].AsInteger;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetID_VENDEDORValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].AsInteger := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetID_VENDEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetID_VENDEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosID_VENDEDOR].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetVENDEDORValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].AsString;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetVENDEDORValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].AsString := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetVENDEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetVENDEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosVENDEDOR].AsVariant := Null;
end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
constructor TContratosClienteDataTableRules.Create(aDataTable: TDADataTable); constructor TContratosClienteDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{684CE7DA-07CD-44B6-B5D0-A53167809071}'; RID_ValoresDelta = '{B57572E7-8CF0-400C-A161-CC3597A61C0B}';
RID_PropiedadesDelta = '{9411016A-2563-45A8-A869-AD6D77B08D8D}'; RID_PropiedadesDelta = '{9194A821-5316-4432-AB61-66CB529F49E3}';
RID_ListaAnosContratosDelta = '{3904C59D-140E-4B09-8883-BAD4283361E1}'; RID_ListaAnosContratosDelta = '{E141AD09-588D-4313-90DB-61941556C617}';
RID_ContratosClienteBeneficiosDelta = '{33BCE36F-E764-4D57-B64F-CC3336F86D08}'; RID_ContratosClienteBeneficiosDelta = '{662E0B0F-1674-4F05-9CF7-89346BE5E7D5}';
RID_ContratosClienteDelta = '{5A623AB9-EB89-4FE8-B2EB-DCA2DF9DE9E2}'; RID_ContratosClienteDelta = '{07069709-DA46-44C8-9C1C-AAB3F80D3F26}';
RID_TiposCapitulosDelta = '{9005E869-C4FF-4100-B6D7-7C3AB110EF02}'; RID_TiposCapitulosDelta = '{19191BFF-2C9D-43C5-85D6-81B96CDBBF10}';
RID_ContratosCliente_DetallesDelta = '{922730A0-E1D3-48AF-B9FA-C766F808A26F}'; RID_ContratosCliente_DetallesDelta = '{65037CFE-4A72-4CD0-A197-CECC6A4FDD1D}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{684CE7DA-07CD-44B6-B5D0-A53167809071}'] ['{B57572E7-8CF0-400C-A161-CC3597A61C0B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{9411016A-2563-45A8-A869-AD6D77B08D8D}'] ['{9194A821-5316-4432-AB61-66CB529F49E3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{3904C59D-140E-4B09-8883-BAD4283361E1}'] ['{E141AD09-588D-4313-90DB-61941556C617}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,10 +170,11 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{33BCE36F-E764-4D57-B64F-CC3336F86D08}'] ['{662E0B0F-1674-4F05-9CF7-89346BE5E7D5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldFECHA_CONTRATOValue : DateTime; function GetOldFECHA_CONTRATOValue : DateTime;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -184,10 +185,13 @@ type
function GetOldIMPORTE_BENEFICIOValue : Currency; function GetOldIMPORTE_BENEFICIOValue : Currency;
function GetOldPORCENTAJE_BENEFICIOValue : Currency; function GetOldPORCENTAJE_BENEFICIOValue : Currency;
function GetOldSITUACIONValue : String; function GetOldSITUACIONValue : String;
function GetOldID_VENDEDORValue : Integer;
function GetOldVENDEDORValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue; property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
@ -198,6 +202,8 @@ type
property OldIMPORTE_BENEFICIO : Currency read GetOldIMPORTE_BENEFICIOValue; property OldIMPORTE_BENEFICIO : Currency read GetOldIMPORTE_BENEFICIOValue;
property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue; property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue;
property OldSITUACION : String read GetOldSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
property OldVENDEDOR : String read GetOldVENDEDORValue;
end; end;
{ TContratosClienteBeneficiosBusinessProcessorRules } { TContratosClienteBeneficiosBusinessProcessorRules }
@ -217,6 +223,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetFECHA_CONTRATOValue: DateTime; virtual; function GetFECHA_CONTRATOValue: DateTime; virtual;
function GetFECHA_CONTRATOIsNull: Boolean; virtual; function GetFECHA_CONTRATOIsNull: Boolean; virtual;
function GetOldFECHA_CONTRATOValue: DateTime; virtual; function GetOldFECHA_CONTRATOValue: DateTime; virtual;
@ -277,6 +289,18 @@ type
function GetOldSITUACIONIsNull: Boolean; virtual; function GetOldSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual; procedure SetSITUACIONValue(const aValue: String); virtual;
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
function GetID_VENDEDORValue: Integer; virtual;
function GetID_VENDEDORIsNull: Boolean; virtual;
function GetOldID_VENDEDORValue: Integer; virtual;
function GetOldID_VENDEDORIsNull: Boolean; virtual;
procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual;
function GetVENDEDORValue: String; virtual;
function GetVENDEDORIsNull: Boolean; virtual;
function GetOldVENDEDORValue: String; virtual;
function GetOldVENDEDORIsNull: Boolean; virtual;
procedure SetVENDEDORValue(const aValue: String); virtual;
procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -287,6 +311,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
property FECHA_CONTRATO : DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; property FECHA_CONTRATO : DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull : Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull; property FECHA_CONTRATOIsNull : Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue; property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
@ -327,6 +355,14 @@ type
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property OldSITUACION : String read GetOldSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue;
property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
property ID_VENDEDOR : Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
property ID_VENDEDORIsNull : Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
property OldID_VENDEDORIsNull : Boolean read GetOldID_VENDEDORIsNull;
property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue;
property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -336,7 +372,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{5A623AB9-EB89-4FE8-B2EB-DCA2DF9DE9E2}'] ['{07069709-DA46-44C8-9C1C-AAB3F80D3F26}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -952,7 +988,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{9005E869-C4FF-4100-B6D7-7C3AB110EF02}'] ['{19191BFF-2C9D-43C5-85D6-81B96CDBBF10}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1046,7 +1082,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{922730A0-E1D3-48AF-B9FA-C766F808A26F}'] ['{65037CFE-4A72-4CD0-A197-CECC6A4FDD1D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -1601,6 +1637,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA] := Null;
end; end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetFECHA_CONTRATOValue: DateTime; function TContratosClienteBeneficiosBusinessProcessorRules.GetFECHA_CONTRATOValue: DateTime;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO];
@ -1911,6 +1978,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosSITUACION] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosSITUACION] := Null;
end; end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetID_VENDEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetID_VENDEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldID_VENDEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldID_VENDEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetID_VENDEDORValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetID_VENDEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID_VENDEDOR] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetVENDEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetVENDEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldVENDEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosVENDEDOR];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldVENDEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosVENDEDOR]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetVENDEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetVENDEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosVENDEDOR] := Null;
end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
constructor TContratosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TContratosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -137,10 +137,11 @@ object srvContratosCliente: TsrvContratosCliente
TargetTable = 'V_CONTRATOS_BENEFICIOS' TargetTable = 'V_CONTRATOS_BENEFICIOS'
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'SELECT '#10' ID, REFERENCIA, FECHA_CONTRATO, NOMBRE, NIF_CIF, IMP' + 'SELECT '#10' ID, REFERENCIA, REFERENCIA_CLIENTE, FECHA_CONTRATO, ' +
'ORTE_NETO, '#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IMPORTE_FACTU' + 'NOMBRE, NIF_CIF, IMPORTE_NETO,'#10' IMPORTE_DESCUENTO, BASE_IMPON' +
'RAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO, SIT' + 'IBLE, IMPORTE_FACTURAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCEN' +
'UACION'#10' FROM'#10' V_CONTRATOS_BENEFICIOS'#10' WHERE {Where}'#10 'TAJE_BENEFICIO, SITUACION, ID_VENDEDOR, VENDEDOR'#10' FROM'#10' V_CO' +
'NTRATOS_BENEFICIOS'#10' WHERE {Where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -190,6 +191,18 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'SITUACION' DatasetField = 'SITUACION'
TableField = 'SITUACION' TableField = 'SITUACION'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'ID_VENDEDOR'
TableField = 'ID_VENDEDOR'
end
item
DatasetField = 'VENDEDOR'
TableField = 'VENDEDOR'
end> end>
end> end>
Name = 'ContratosClienteBeneficios' Name = 'ContratosClienteBeneficios'
@ -203,6 +216,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'FECHA_CONTRATO' Name = 'FECHA_CONTRATO'
DataType = datDateTime DataType = datDateTime
@ -245,6 +263,15 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
end
item
Name = 'VENDEDOR'
DataType = datString
Size = 255
end> end>
end end
item item

8
Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.dfm
View File

@ -26,6 +26,10 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
Caption = 'Referencia' Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
end end
object cxGridViewREF_CONTENIDO: TcxGridDBColumn
Caption = 'ref. contenido'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end
object cxGridViewFECHA_CONTRATO: TcxGridDBColumn object cxGridViewFECHA_CONTRATO: TcxGridDBColumn
Caption = 'Fecha' Caption = 'Fecha'
DataBinding.FieldName = 'FECHA_CONTRATO' DataBinding.FieldName = 'FECHA_CONTRATO'
@ -83,6 +87,10 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %' Properties.DisplayFormat = ',0.00 %;-,0.00 %'
end end
object cxGridViewVENDEDOR: TcxGridDBColumn
Caption = 'Vendedor'
DataBinding.FieldName = 'VENDEDOR'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'

2
Source/Modulos/Contratos de cliente/Views/uViewContratosClienteBeneficios.pas
View File

@ -30,6 +30,8 @@ type
cxGridPendientes: TcxGridLevel; cxGridPendientes: TcxGridLevel;
cxGridTerminados: TcxGridLevel; cxGridTerminados: TcxGridLevel;
cxGridViewSITUACION: TcxGridDBColumn; cxGridViewSITUACION: TcxGridDBColumn;
cxGridViewVENDEDOR: TcxGridDBColumn;
cxGridViewREF_CONTENIDO: TcxGridDBColumn;
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; procedure cxGridActiveTabChanged(Sender: TcxCustomGrid;
ALevel: TcxGridLevel); ALevel: TcxGridLevel);

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -133,12 +133,12 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_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',
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', 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',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

589
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,298 +1,299 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <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">9</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.9.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 17 de mayo de 2019 18:59</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">9</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.9.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 17 de mayo de 2019 18:59</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> <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>
</ProjectExtensions> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> </ProjectExtensions>
<ItemGroup> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<DelphiCompile Include="FactuGES_Server.dpr"> <ItemGroup>
<MainSource>MainSource</MainSource> <DelphiCompile Include="FactuGES_Server.dpr">
</DelphiCompile> <MainSource>MainSource</MainSource>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<Form>srvEjercicios</Form> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvEjercicios</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvEmpresas</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> </DCCReference>
<Form>srvProvinciasPoblaciones</Form> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DesignClass>TRORemoteDataModule</DesignClass> <Form>srvProvinciasPoblaciones</Form>
</DCCReference> <DesignClass>TRORemoteDataModule</DesignClass>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvAlmacenes</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas"> <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<Form>RptComisiones</Form> <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptComisiones</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas"> </DCCReference>
<Form>srvComisiones</Form> <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvComisiones</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<Form>srvContabilidad</Form> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvContabilidad</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<Form>RptListadosContactos</Form> <DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptListadosContactos</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> </DCCReference>
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvContactos</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas"> <DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<Form>RptContratosCliente</Form> <DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
</DCCReference> <Form>RptContratosCliente</Form>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas"> </DCCReference>
<Form>srvContratosCliente</Form> <DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvContratosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<Form>RptFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> </DCCReference>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<Form>RptFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> </DCCReference>
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<Form>srvGestorDocumentos</Form> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorDocumentos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> </DCCReference>
<Form>srvGestorInformes</Form> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorInformes</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvHistoricoMovimientos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvInventario</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<Form>RptPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptPedidosProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> </DCCReference>
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPedidosProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
</DCCReference> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> </DCCReference>
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPresupuestosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<Form>RptRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> </DCCReference>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<Form>RptRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> </DCCReference>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<Form>srvReferencias</Form> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvReferencias</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<Form>srvUnidadesMedida</Form> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvUnidadesMedida</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<Form>srvConfiguracion</Form> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvConfiguracion</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="Configuracion\uConexionBD.pas"> </DCCReference>
<Form>frConexionBD</Form> <DCCReference Include="Configuracion\uConexionBD.pas">
<DesignClass>TFrame</DesignClass> <Form>frConexionBD</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfGeneral.pas"> </DCCReference>
<Form>frConfGeneral</Form> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DesignClass>TFrame</DesignClass> <Form>frConfGeneral</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfiguracion.pas"> </DCCReference>
<Form>fConfiguracion</Form> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DesignClass>TForm</DesignClass> <Form>fConfiguracion</Form>
</DCCReference> <DesignClass>TForm</DesignClass>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> </DCCReference>
<Form>FrameConfiguracion</Form> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DesignClass>TFrame</DesignClass> <Form>FrameConfiguracion</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="srvLogin_Impl.pas"> </DCCReference>
<Form>srvLogin</Form> <DCCReference Include="srvLogin_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvLogin</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="uAcercaDe.pas"> </DCCReference>
<Form>fAcercaDe</Form> <DCCReference Include="uAcercaDe.pas">
</DCCReference> <Form>fAcercaDe</Form>
<DCCReference Include="uDataModuleServer.pas"> </DCCReference>
<Form>dmServer</Form> <DCCReference Include="uDataModuleServer.pas">
<DesignClass>TDataModule</DesignClass> <Form>dmServer</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="uServerMainForm.pas"> </DCCReference>
<Form>fServerForm</Form> <DCCReference Include="uServerMainForm.pas">
</DCCReference> <Form>fServerForm</Form>
<DCCReference Include="Utiles\RegExpr.pas"/> </DCCReference>
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uServerAppUtils.pas" />
</ItemGroup> <DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]