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

Se mete columna referencia del cliente en el listado de beneficios de contrato

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@119 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2016-09-05 11:04:01 +00:00
parent 7fd0b6f385
commit 6d9cdf76e1
14 changed files with 267 additions and 176 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Database/scripts/factuges.sql
View File

@ -4293,6 +4293,7 @@ CREATE VIEW V_CONTRATOS_BENEFICIOS(
ID, ID,
REFERENCIA, REFERENCIA,
FECHA_CONTRATO, FECHA_CONTRATO,
REFERENCIA_CLIENTE,
NOMBRE, NOMBRE,
NIF_CIF, NIF_CIF,
IMPORTE_NETO, IMPORTE_NETO,
@ -4308,6 +4309,7 @@ AS
select select
contratos_cliente.ID, contratos_cliente.ID,
contratos_cliente.referencia, contratos_cliente.fecha_contrato, contratos_cliente.referencia, contratos_cliente.fecha_contrato,
CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,
contratos_cliente.nombre, contratos_cliente.nif_cif, contratos_cliente.nombre, contratos_cliente.nif_cif,
contratos_cliente.importe_neto, contratos_cliente.importe_descuento, contratos_cliente.importe_neto, contratos_cliente.importe_descuento,
contratos_cliente.base_imponible, contratos_cliente.base_imponible,

103
Source/Base/Base.dproj
View File

@ -51,13 +51,6 @@
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -72,55 +65,55 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.RES
View File

Binary file not shown.

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

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

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

@ -532,6 +532,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'FECHA_CONTRATO' Name = 'FECHA_CONTRATO'
DataType = datDateTime DataType = datDateTime
end end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString

101
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 = '{F8BEAEBD-B764-475D-AAC0-BDE37787074F}'; RID_Valores = '{EFD1F7C2-8E8E-4AAE-B2C5-7B343C56CABC}';
RID_Propiedades = '{C20A8F74-2A21-4468-BE12-33F78435D1C9}'; RID_Propiedades = '{4820AA98-F3FF-4077-9FEB-C2E4736BB23B}';
RID_ListaAnosContratos = '{DC2AD3BB-AF55-46C9-9D92-22A69E3595BA}'; RID_ListaAnosContratos = '{3D3572A5-2C27-483B-AA9B-3143CB5C9BA1}';
RID_ContratosClienteBeneficios = '{39274DD9-6C7F-4D63-B46F-0D91784A5BDD}'; RID_ContratosClienteBeneficios = '{329FBEE1-47CA-4E16-BA30-0FE155B5FDA5}';
RID_ContratosCliente = '{BBB0D52D-EF28-471F-9E8A-EF6650935779}'; RID_ContratosCliente = '{3EBF8421-AFE3-42F9-9B07-525AEE7A2348}';
RID_TiposCapitulos = '{0004836D-B859-4F01-88B4-152E7DE8EE12}'; RID_TiposCapitulos = '{342EFE89-C164-4DF7-8324-ADBB8C121644}';
RID_ContratosCliente_Detalles = '{7FAF4020-9A11-43F8-9EC3-50D2C51F5511}'; RID_ContratosCliente_Detalles = '{A2EF3306-B4B6-4109-96EF-20C9F6D82300}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -56,6 +56,7 @@ const
fld_ContratosClienteBeneficiosID = 'ID'; fld_ContratosClienteBeneficiosID = 'ID';
fld_ContratosClienteBeneficiosREFERENCIA = 'REFERENCIA'; fld_ContratosClienteBeneficiosREFERENCIA = 'REFERENCIA';
fld_ContratosClienteBeneficiosFECHA_CONTRATO = 'FECHA_CONTRATO'; fld_ContratosClienteBeneficiosFECHA_CONTRATO = 'FECHA_CONTRATO';
fld_ContratosClienteBeneficiosREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_ContratosClienteBeneficiosNOMBRE = 'NOMBRE'; fld_ContratosClienteBeneficiosNOMBRE = 'NOMBRE';
fld_ContratosClienteBeneficiosNIF_CIF = 'NIF_CIF'; fld_ContratosClienteBeneficiosNIF_CIF = 'NIF_CIF';
fld_ContratosClienteBeneficiosIMPORTE_NETO = 'IMPORTE_NETO'; fld_ContratosClienteBeneficiosIMPORTE_NETO = 'IMPORTE_NETO';
@ -72,17 +73,18 @@ const
idx_ContratosClienteBeneficiosID = 0; idx_ContratosClienteBeneficiosID = 0;
idx_ContratosClienteBeneficiosREFERENCIA = 1; idx_ContratosClienteBeneficiosREFERENCIA = 1;
idx_ContratosClienteBeneficiosFECHA_CONTRATO = 2; idx_ContratosClienteBeneficiosFECHA_CONTRATO = 2;
idx_ContratosClienteBeneficiosNOMBRE = 3; idx_ContratosClienteBeneficiosREFERENCIA_CLIENTE = 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_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE = 11; idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 11;
idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL = 12; idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_CLIENTE = 12;
idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL = 13; idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO_REAL = 13;
idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO_REAL = 14;
{ ContratosCliente fields } { ContratosCliente fields }
fld_ContratosClienteID = 'ID'; fld_ContratosClienteID = 'ID';
@ -239,7 +241,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{93B5E16D-D83A-44D5-9A72-73F5C06B4DB6}'] ['{F9BF1948-763A-4CB4-9DF1-35E6C948DDB4}']
{ 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 +267,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 +300,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{D3ECB8CA-7CD6-4072-81D7-4199649CD877}'] ['{AC649959-C638-4C8A-8B1D-764BB1751371}']
{ 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 +326,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 +359,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{D92E481B-B83E-4A7D-A894-82D9AC8611F2}'] ['{A739B752-2CAA-42C8-A07D-BD0A28068E5E}']
{ 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 +373,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 +394,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{79AF05E5-1F98-494B-AA3C-701988FC5D95}'] ['{E7667437-590B-4D1C-9762-7242E8107E1A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -406,6 +408,10 @@ type
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); procedure SetFECHA_CONTRATOValue(const aValue: DateTime);
function GetFECHA_CONTRATOIsNull: Boolean; function GetFECHA_CONTRATOIsNull: Boolean;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean);
function GetREFERENCIA_CLIENTEValue: String;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetNOMBREValue: String; function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String); procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean; function GetNOMBREIsNull: Boolean;
@ -459,6 +465,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
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 REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
@ -484,7 +492,7 @@ type
end; end;
{ TContratosClienteBeneficiosDataTableRules } { TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios) TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -500,6 +508,10 @@ type
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual; procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
function GetFECHA_CONTRATOIsNull: Boolean; virtual; function GetFECHA_CONTRATOIsNull: Boolean; virtual;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual; procedure SetFECHA_CONTRATOIsNull(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 GetNOMBREValue: String; virtual; function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual; function GetNOMBREIsNull: Boolean; virtual;
@ -552,6 +564,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
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 REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
@ -583,7 +597,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{FBF1D4A1-5EC3-4737-94F2-4D2E02961885}'] ['{A6237FAB-2A10-4BBF-B5A6-CF29A326D98F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -869,7 +883,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 +1187,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{4FAEAA24-0C3E-4102-9245-1268C047848E}'] ['{5AE90EC7-AD94-4636-A2B9-44465BB62E8D}']
{ 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 +1231,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 +1282,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{E1402F62-24C6-4568-B3B3-5D84C8E7072D}'] ['{D463BB1A-F962-4B97-AE5E-FDBB7D58439E}']
{ 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 +1392,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 }
@ -1754,6 +1768,27 @@ begin
DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsVariant := Null; DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].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.GetNOMBREValue: String; function TContratosClienteBeneficiosDataTableRules.GetNOMBREValue: String;
begin begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].AsString; result := DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].AsString;

71
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 = '{AFA3E014-9771-46CA-AD58-BB178DE03490}'; RID_ValoresDelta = '{6D64F831-7B58-4A9E-9180-0CE187DC1F33}';
RID_PropiedadesDelta = '{F2BDFF90-4F7C-49F9-9A3D-8C5D3FE5F537}'; RID_PropiedadesDelta = '{00F00B68-D182-4416-83C1-3850142A5B63}';
RID_ListaAnosContratosDelta = '{5DBDFDE8-A17E-4EC5-87F7-C17E6D4ECF66}'; RID_ListaAnosContratosDelta = '{7E698FA6-63C1-49A6-BAF4-5958D8B922E1}';
RID_ContratosClienteBeneficiosDelta = '{4932E674-FD06-4DFB-B2C2-9F8CF8625791}'; RID_ContratosClienteBeneficiosDelta = '{ACA5ABBD-4284-4E2B-AE63-9F9DACC26E93}';
RID_ContratosClienteDelta = '{55AD4AA0-BD11-4F4E-ADA3-CD019CB2E92B}'; RID_ContratosClienteDelta = '{E74263B4-9F80-48FF-8228-19422AFDBA51}';
RID_TiposCapitulosDelta = '{DA81420C-1A5E-47F3-8FAC-14ACDBAD9749}'; RID_TiposCapitulosDelta = '{82C3C976-5C8E-41F2-A0A9-B8028E119613}';
RID_ContratosCliente_DetallesDelta = '{2F500632-2D38-4B7A-AB5F-4AB42F4D4D83}'; RID_ContratosCliente_DetallesDelta = '{55A68F42-1449-47F7-BCD9-E5613C7AED8B}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{AFA3E014-9771-46CA-AD58-BB178DE03490}'] ['{6D64F831-7B58-4A9E-9180-0CE187DC1F33}']
{ 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)
['{F2BDFF90-4F7C-49F9-9A3D-8C5D3FE5F537}'] ['{00F00B68-D182-4416-83C1-3850142A5B63}']
{ 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)
['{5DBDFDE8-A17E-4EC5-87F7-C17E6D4ECF66}'] ['{7E698FA6-63C1-49A6-BAF4-5958D8B922E1}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,11 +170,12 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{4932E674-FD06-4DFB-B2C2-9F8CF8625791}'] ['{ACA5ABBD-4284-4E2B-AE63-9F9DACC26E93}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldFECHA_CONTRATOValue : DateTime; function GetOldFECHA_CONTRATOValue : DateTime;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_NETOValue : Currency;
@ -191,6 +192,7 @@ type
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue; property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
@ -227,6 +229,12 @@ type
function GetOldFECHA_CONTRATOIsNull: Boolean; virtual; function GetOldFECHA_CONTRATOIsNull: Boolean; virtual;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual; procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual; procedure SetFECHA_CONTRATOIsNull(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 GetNOMBREValue: String; virtual; function GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual; function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual; function GetOldNOMBREValue: String; virtual;
@ -307,6 +315,10 @@ type
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;
property OldFECHA_CONTRATOIsNull : Boolean read GetOldFECHA_CONTRATOIsNull; property OldFECHA_CONTRATOIsNull : Boolean read GetOldFECHA_CONTRATOIsNull;
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 NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
@ -360,7 +372,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{55AD4AA0-BD11-4F4E-ADA3-CD019CB2E92B}'] ['{E74263B4-9F80-48FF-8228-19422AFDBA51}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -950,7 +962,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{DA81420C-1A5E-47F3-8FAC-14ACDBAD9749}'] ['{82C3C976-5C8E-41F2-A0A9-B8028E119613}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1044,7 +1056,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{2F500632-2D38-4B7A-AB5F-4AB42F4D4D83}'] ['{55A68F42-1449-47F7-BCD9-E5613C7AED8B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -1630,6 +1642,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO] := 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.GetNOMBREValue: String; function TContratosClienteBeneficiosBusinessProcessorRules.GetNOMBREValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE];

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

@ -137,11 +137,12 @@ 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, FECHA_CONTRATO, REFERENCIA_CLIENTE, ' +
'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, IMP' + 'IBLE, IMPORTE_FACTURAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCEN' +
'ORTE_FACTURAS_CLIENTE,'#10' IMPORTE_BENEFICIO_REAL, PORCENTAJE_BE' + 'TAJE_BENEFICIO, IMPORTE_FACTURAS_CLIENTE,'#10' IMPORTE_BENEFICIO_' +
'NEFICIO_REAL'#10' FROM'#10' V_CONTRATOS_BENEFICIOS'#10' WHERE {Where}'#10 'REAL, PORCENTAJE_BENEFICIO_REAL'#10' FROM'#10' V_CONTRATOS_BENEFICIO' +
'S'#10' WHERE {Where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -156,6 +157,10 @@ object srvContratosCliente: TsrvContratosCliente
DatasetField = 'FECHA_CONTRATO' DatasetField = 'FECHA_CONTRATO'
TableField = 'FECHA_CONTRATO' TableField = 'FECHA_CONTRATO'
end end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item item
DatasetField = 'NOMBRE' DatasetField = 'NOMBRE'
TableField = 'NOMBRE' TableField = 'NOMBRE'
@ -216,6 +221,11 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'FECHA_CONTRATO' Name = 'FECHA_CONTRATO'
DataType = datDateTime DataType = datDateTime
end end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString

BIN
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES
View File

Binary file not shown.

102
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj
View File

@ -49,57 +49,57 @@
<DelphiCompile Include="ContratosCliente_view.dpk"> <DelphiCompile Include="ContratosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\ConCli_AlbCli_relation.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ConCli_AlbCli_relation.dcp" />
<DCCReference Include="..\..\..\Servidor\ConCli_FacCli_relation.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ConCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\..\Servidor\ContratosCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\ContratosCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\..\Servidor\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxExportD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxExtEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxGridD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cxPageControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\dclcxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dcldxCoreD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dcldxCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\designide.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\dxComnD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxPSCoreD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxPScxCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxPSLnksD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\GestorInformes_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\Jcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="..\..\..\Servidor\JclVcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="..\..\..\Servidor\JvCoreD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvPageCompsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvStdCtrlsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvSystemD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\PngComponentsD10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="..\..\..\Servidor\PNG_D10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\tb2k_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="..\..\..\Servidor\tbx_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\..\..\Servidor\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\..\..\Servidor\vclshlctrls.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
<DCCReference Include="..\..\..\Servidor\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="uContratosClienteViewRegister.pas" /> <DCCReference Include="uContratosClienteViewRegister.pas" />
<DCCReference Include="uDialogOpcionesImpresionContratosCliente.pas"> <DCCReference Include="uDialogOpcionesImpresionContratosCliente.pas">
<Form>fDialogOpcionesImpresionContratosCliente</Form> <Form>fDialogOpcionesImpresionContratosCliente</Form>

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

@ -16,6 +16,10 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
DataBinding.FieldName = 'FECHA_CONTRATO' DataBinding.FieldName = 'FECHA_CONTRATO'
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
end end
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Cliente' Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
@ -107,9 +111,6 @@ inherited frViewContratosClienteBeneficios: TfrViewContratosClienteBeneficios
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 554
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 40415.784062094910000000 ReportDocument.CreationDate = 40415.784062094910000000

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

@ -30,6 +30,7 @@ type
cxGridViewIMPORTE_FACTURAS_CLIENTE: TcxGridDBColumn; cxGridViewIMPORTE_FACTURAS_CLIENTE: TcxGridDBColumn;
cxGridViewIMPORTE_BENEFICIO_REAL: TcxGridDBColumn; cxGridViewIMPORTE_BENEFICIO_REAL: TcxGridDBColumn;
cxGridViewPORCENTAJE_BENEFICIO_REAL: TcxGridDBColumn; cxGridViewPORCENTAJE_BENEFICIO_REAL: TcxGridDBColumn;
cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
private private
FContratos: IBizContratosClienteBeneficios; FContratos: IBizContratosClienteBeneficios;

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -134,15 +134,15 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
uNumUtils in '..\Base\Utiles\uNumUtils.pas', uNumUtils in '..\Base\Utiles\uNumUtils.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',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas'; schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

1
Source/Servidor/FactuGES_Server.dproj
View File

@ -29,6 +29,7 @@
<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">6</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 11 de abril de 2016 13:37</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">6</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 11 de abril de 2016 13:37</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 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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>