diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 626aea33..14cd639d 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -189,6 +189,9 @@ SET GENERATOR GEN_FACTURAS_PROVEEDOR_ID TO 1; CREATE GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID; SET GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID TO 1; +CREATE GENERATOR GEN_FACTURAS_PROV_CONTRATOS_ID; +SET GENERATOR GEN_FACTURAS_PROV_CONTRATOS_ID TO 1; + CREATE GENERATOR GEN_FACTURA_PROV_DETALLES_ID; SET GENERATOR GEN_FACTURA_PROV_DETALLES_ID TO 1; @@ -977,6 +980,13 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES ( FECHA_MODIFICACION TIMESTAMP ); +CREATE TABLE FACTURAS_PROVEEDOR_CONTRATOS ( + ID TIPO_ID NOT NULL, + ID_FACTURA TIPO_ID NOT NULL, + ID_CONTRATO TIPO_ID NOT NULL, + IMPORTE TIPO_IMPORTE +); + CREATE TABLE FAMILIAS ( ID TIPO_ID NOT NULL, DESCRIPCION VARCHAR(255) @@ -4137,6 +4147,33 @@ FROM ORDER BY USERNAME; ; +create view V_CONTRATOS_FACTURAS_PROVEEDOR (ID_CONTRATO, IMPORTE) +AS +select ID_CONTRATO, SUM(IMPORTE) as IMPORTE_GASTOS_PROVEEDORES +from facturas_proveedor_contratos +group by 1; + +create view V_CONTRATOS_BENEFICIOS (ID, REFERENCIA, FECHA_CONTRATO, NOMBRE, NIF_CIF, +IMPORTE_NETO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IMPORTE_FACTURAS_PROVEEDOR, +IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO) +AS +select +contratos_cliente.ID, +contratos_cliente.referencia, contratos_cliente.fecha_contrato, +contratos_cliente.nombre, contratos_cliente.nif_cif, +contratos_cliente.importe_neto, contratos_cliente.importe_descuento, +contratos_cliente.base_imponible, v_contratos_facturas_proveedor.importe as importe_facturas_proveedor, +(contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0)) as importe_beneficio, +case when (contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0)) = 0 then 0 + else (((contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0))*100)/contratos_cliente.importe_neto) +end as porcentaje_beneficio + +from contratos_cliente +left join v_contratos_facturas_proveedor +on (v_contratos_facturas_proveedor.ID_CONTRATO = contratos_cliente.ID); + + + /******************************************************************************/ /**** Primary Keys ****/ /******************************************************************************/ @@ -4178,6 +4215,7 @@ ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT PK_FACTURAS_CLIENTE PRIMARY KEY (ID) ALTER TABLE FACTURAS_CLIENTE_DETALLES ADD CONSTRAINT PK_FACTURAS_CLIENTE_DETALLES PRIMARY KEY (ID); ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT PK_FACTURAS_PROVEEDOR PRIMARY KEY (ID); ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_FACTURAS_PROVEEDOR_DETALLES PRIMARY KEY (ID); +ALTER TABLE FACTURAS_PROVEEDOR_CONTRATOS ADD CONSTRAINT PK_FACTURAS_PROVEEDOR_CONTRATOS PRIMARY KEY (ID); ALTER TABLE FAMILIAS ADD CONSTRAINT PK_FAMILIAS PRIMARY KEY (ID); ALTER TABLE FORMAS_PAGO ADD PRIMARY KEY (ID); ALTER TABLE FORMAS_PAGO_PLAZOS ADD PRIMARY KEY (ID); @@ -4230,6 +4268,8 @@ ALTER TABLE EMPRESAS_TIENDAS ADD CONSTRAINT FK_EMPRESAS_TIENDAS_1 FOREIGN KEY (I ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT FK_FACTURAS_CLIENTE_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION; ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT FK_FACTURAS_PRO_DET_ID_FACTURA FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE; +ALTER TABLE FACTURAS_PROVEEDOR_CONTRATOS ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_CONTRATO2 FOREIGN KEY (ID_CONTRATO) REFERENCES CONTRATOS_CLIENTE (ID) ON DELETE CASCADE ON UPDATE CASCADE; +ALTER TABLE FACTURAS_PROVEEDOR_CONTRATOS ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_CONTRATOS FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE; ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS FOREIGN KEY (ID_ARTICULO) REFERENCES ARTICULOS (ID); ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS2 FOREIGN KEY (ID_ALMACEN) REFERENCES ALMACENES (ID); ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT FK_PEDIDOS_CLIENTE FOREIGN KEY (ID_CLIENTE) REFERENCES CONTACTOS (ID); diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index e95f8e8f..87df91ca 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 8b251f31..1641339f 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES index 8b251f31..1641339f 100644 Binary files a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES and b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES differ diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dpk b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dpk index 2ceedcc9..4137694b 100644 Binary files a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dpk and b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dpk differ diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj index a80500af..607dfed2 100644 --- a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj +++ b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj @@ -49,20 +49,21 @@ MainSource - - - - - - - - + + + + + + + + + diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index 5c7e2d70..0aa71f95 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas @@ -59,6 +59,7 @@ type function DarListaAnosContratos: TStringList; procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); + procedure VerListadoBeneficios; end; TContratosClienteController = class(TControllerBase, IContratosClienteController) @@ -129,6 +130,7 @@ type function DarListaAnosContratos: TStringList; procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); + procedure VerListadoBeneficios; end; implementation @@ -140,7 +142,8 @@ uses schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente, uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente, schContactosClient_Intf, uContratosClienteReportController, - uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils; + uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils, + uIEditorContratosClienteBeneficios; { TContratosClienteController } @@ -451,6 +454,29 @@ begin end; end; +procedure TContratosClienteController.VerListadoBeneficios; +var + AContratosClienteBeneficios: IBizContratosClienteBeneficios; + AEditor : IEditorContratosClienteBeneficios; +begin + AEditor := NIL; + + AContratosClienteBeneficios := FDataModule.GetContratosClienteBeneficios; + CreateEditor('EditorContratosClienteBeneficios', IEditorContratosClienteBeneficios, AEditor); + + if Assigned(AEditor) then + try +// AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE + + AEditor.Contratos := AContratosClienteBeneficios; + AEditor.ShowModal; + + finally + AEditor.Release; + AEditor := NIL; + end; +end; + procedure TContratosClienteController.VerTodos(AContratos: IBizContratoCliente; const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AHeaderText: String = ''); diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm index dd7771e9..0433d472 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm @@ -1,7 +1,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente OnCreate = DAClientDataModuleCreate - Height = 370 - Width = 603 + Height = 423 + Width = 828 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel @@ -565,4 +565,68 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente Left = 352 Top = 256 end + object tbl_ContratosClienteBeneficios: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'FECHA_CONTRATO' + DataType = datDateTime + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + end + item + Name = 'IMPORTE_FACTURAS_PROVEEDOR' + DataType = datCurrency + end + item + Name = 'IMPORTE_BENEFICIO' + DataType = datCurrency + end + item + Name = 'PORCENTAJE_BENEFICIO' + DataType = datCurrency + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_ContratosCliente + LogicalName = 'ContratosClienteBeneficios' + IndexDefs = <> + Left = 712 + Top = 88 + end + object ds_ContratosClienteBeneficios: TDADataSource + DataSet = tbl_ContratosClienteBeneficios.Dataset + DataTable = tbl_ContratosClienteBeneficios + Left = 712 + Top = 32 + end end diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas index c02a781d..4a37414f 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas @@ -31,6 +31,8 @@ type ds_Valores: TDADataSource; tbl_TiposCapitulos: TDAMemDataTable; ds_TiposCapitulos: TDADataSource; + tbl_ContratosClienteBeneficios: TDAMemDataTable; + ds_ContratosClienteBeneficios: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); private @@ -51,6 +53,7 @@ type function GetRptPDFContrato(const AID: Integer): Binary; function GetAnosItems : TStringList; + function GetContratosClienteBeneficios : IBizContratosClienteBeneficios; end; implementation @@ -159,6 +162,22 @@ begin end; end; +function TDataModuleContratosCliente.GetContratosClienteBeneficios: IBizContratosClienteBeneficios; +var + AContratosBeneficios: TDAMemDataTable; +begin + ShowHourglassCursor; + try + AContratosBeneficios := CloneDataTable(tbl_ContratosClienteBeneficios); + AContratosBeneficios.BusinessRulesID := BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS; + Result := (AContratosBeneficios as IBizContratosClienteBeneficios); + + finally + HideHourglassCursor; + end; + +end; + function TDataModuleContratosCliente.GetItem(const ID: Integer): IBizContratoCliente; var Condicion: TDAWhereExpression; diff --git a/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosCliente.pas index b72493d1..bf8dc2c9 100644 --- a/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosCliente.pas @@ -14,6 +14,7 @@ type function GetItems(const AListaID: TIntegerList) : IBizContratoCliente; overload; function GetItem(const ID : Integer) : IBizContratoCliente; function NewItem : IBizContratoCliente; + function GetContratosClienteBeneficios : IBizContratosClienteBeneficios; end; implementation diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas index 74d18136..3bbd73e5 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas @@ -3,23 +3,25 @@ unit schContratosClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_Valores = '{57BFD5F5-494A-4231-B97D-032F7E10F24B}'; - RID_Propiedades = '{4D58ECE3-A9F8-43A4-AAA3-CD646C22B7DE}'; - RID_ListaAnosContratos = '{1D11C4F1-0182-4996-BAC0-9196D938AA76}'; - RID_ContratosCliente = '{73CCDE34-A6B2-46FB-A827-92F690E6DDBC}'; - RID_TiposCapitulos = '{EDB0FFD7-2779-4985-821B-E4777E629C36}'; - RID_ContratosCliente_Detalles = '{4B663F62-78D9-4AFF-A977-54BE10A624FE}'; + RID_Valores = '{72B7AEE8-325E-4838-9EFA-4A888B257897}'; + RID_Propiedades = '{204B145C-8E4B-42B5-8305-40B6D02D17A8}'; + RID_ListaAnosContratos = '{A9376B52-1BE5-4374-A5C9-A28ED0A55664}'; + RID_ContratosClienteBeneficios = '{465DF5E0-F5CF-4515-B7DC-B4BE11BE7934}'; + RID_ContratosCliente = '{8CB29C6D-A484-4B0A-8273-424E91DAF879}'; + RID_TiposCapitulos = '{A3D99F24-9CDC-4DC7-A89B-2AC340010C93}'; + RID_ContratosCliente_Detalles = '{421C5A4A-27CD-4656-9DC9-6D2E2E508231}'; { Data table names } nme_Valores = 'Valores'; nme_Propiedades = 'Propiedades'; nme_ListaAnosContratos = 'ListaAnosContratos'; + nme_ContratosClienteBeneficios = 'ContratosClienteBeneficios'; nme_ContratosCliente = 'ContratosCliente'; nme_TiposCapitulos = 'TiposCapitulos'; nme_ContratosCliente_Detalles = 'ContratosCliente_Detalles'; @@ -50,6 +52,32 @@ const { ListaAnosContratos field indexes } idx_ListaAnosContratosANO = 0; + { ContratosClienteBeneficios fields } + fld_ContratosClienteBeneficiosID = 'ID'; + fld_ContratosClienteBeneficiosREFERENCIA = 'REFERENCIA'; + fld_ContratosClienteBeneficiosFECHA_CONTRATO = 'FECHA_CONTRATO'; + fld_ContratosClienteBeneficiosNOMBRE = 'NOMBRE'; + fld_ContratosClienteBeneficiosNIF_CIF = 'NIF_CIF'; + fld_ContratosClienteBeneficiosIMPORTE_NETO = 'IMPORTE_NETO'; + fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; + fld_ContratosClienteBeneficiosBASE_IMPONIBLE = 'BASE_IMPONIBLE'; + fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 'IMPORTE_FACTURAS_PROVEEDOR'; + fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 'IMPORTE_BENEFICIO'; + fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 'PORCENTAJE_BENEFICIO'; + + { ContratosClienteBeneficios field indexes } + idx_ContratosClienteBeneficiosID = 0; + idx_ContratosClienteBeneficiosREFERENCIA = 1; + idx_ContratosClienteBeneficiosFECHA_CONTRATO = 2; + idx_ContratosClienteBeneficiosNOMBRE = 3; + idx_ContratosClienteBeneficiosNIF_CIF = 4; + idx_ContratosClienteBeneficiosIMPORTE_NETO = 5; + idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO = 6; + idx_ContratosClienteBeneficiosBASE_IMPONIBLE = 7; + idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 8; + idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 9; + idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 10; + { ContratosCliente fields } fld_ContratosClienteID = 'ID'; fld_ContratosClienteID_EMPRESA = 'ID_EMPRESA'; @@ -197,7 +225,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{7C23406A-157C-424B-ABCF-148CC015BC4F}'] + ['{FAEF0BA9-EE5E-4DBA-8566-920E9D426DC7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -223,7 +251,7 @@ type end; { TValoresDataTableRules } - TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) + TValoresDataTableRules = class(TDADataTableRules, IValores) private protected { Property getters and setters } @@ -256,7 +284,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{52FAC363-53E6-4F11-AE60-FE16A842EEA4}'] + ['{E0116E85-FA5E-4B34-9EB7-CDD77FBE72DE}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -282,7 +310,7 @@ type end; { TPropiedadesDataTableRules } - TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) + TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) private protected { Property getters and setters } @@ -315,7 +343,7 @@ type { IListaAnosContratos } IListaAnosContratos = interface(IDAStronglyTypedDataTable) - ['{F741301B-D6DB-457C-9B43-1EC77A740D17}'] + ['{B157E813-9175-49A8-B893-9A9924926C56}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -329,7 +357,7 @@ type end; { TListaAnosContratosDataTableRules } - TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos) + TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos) private protected { Property getters and setters } @@ -348,9 +376,164 @@ type end; + { IContratosClienteBeneficios } + IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) + ['{669F62EB-07E0-4A41-9D2A-B8FC81A11A12}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetFECHA_CONTRATOValue: DateTime; + procedure SetFECHA_CONTRATOValue(const aValue: DateTime); + function GetFECHA_CONTRATOIsNull: Boolean; + procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); + function GetNOMBREValue: String; + procedure SetNOMBREValue(const aValue: String); + function GetNOMBREIsNull: Boolean; + procedure SetNOMBREIsNull(const aValue: Boolean); + function GetNIF_CIFValue: String; + procedure SetNIF_CIFValue(const aValue: String); + function GetNIF_CIFIsNull: Boolean; + procedure SetNIF_CIFIsNull(const aValue: Boolean); + function GetIMPORTE_NETOValue: Currency; + procedure SetIMPORTE_NETOValue(const aValue: Currency); + function GetIMPORTE_NETOIsNull: Boolean; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); + function GetIMPORTE_DESCUENTOValue: Currency; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); + function GetIMPORTE_DESCUENTOIsNull: Boolean; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); + function GetBASE_IMPONIBLEValue: Currency; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); + function GetBASE_IMPONIBLEIsNull: Boolean; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); + function GetIMPORTE_FACTURAS_PROVEEDORValue: Currency; + procedure SetIMPORTE_FACTURAS_PROVEEDORValue(const aValue: Currency); + function GetIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean; + procedure SetIMPORTE_FACTURAS_PROVEEDORIsNull(const aValue: Boolean); + function GetIMPORTE_BENEFICIOValue: Currency; + procedure SetIMPORTE_BENEFICIOValue(const aValue: Currency); + function GetIMPORTE_BENEFICIOIsNull: Boolean; + procedure SetIMPORTE_BENEFICIOIsNull(const aValue: Boolean); + function GetPORCENTAJE_BENEFICIOValue: Currency; + procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); + function GetPORCENTAJE_BENEFICIOIsNull: Boolean; + procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; + property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property IMPORTE_FACTURAS_PROVEEDOR: Currency read GetIMPORTE_FACTURAS_PROVEEDORValue write SetIMPORTE_FACTURAS_PROVEEDORValue; + property IMPORTE_FACTURAS_PROVEEDORIsNull: Boolean read GetIMPORTE_FACTURAS_PROVEEDORIsNull write SetIMPORTE_FACTURAS_PROVEEDORIsNull; + property IMPORTE_BENEFICIO: Currency read GetIMPORTE_BENEFICIOValue write SetIMPORTE_BENEFICIOValue; + property IMPORTE_BENEFICIOIsNull: Boolean read GetIMPORTE_BENEFICIOIsNull write SetIMPORTE_BENEFICIOIsNull; + property PORCENTAJE_BENEFICIO: Currency read GetPORCENTAJE_BENEFICIOValue write SetPORCENTAJE_BENEFICIOValue; + property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull; + end; + + { TContratosClienteBeneficiosDataTableRules } + TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetFECHA_CONTRATOValue: DateTime; virtual; + procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual; + function GetFECHA_CONTRATOIsNull: Boolean; virtual; + procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + function GetNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetNIF_CIFValue: String; virtual; + procedure SetNIF_CIFValue(const aValue: String); virtual; + function GetNIF_CIFIsNull: Boolean; virtual; + procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_NETOValue: Currency; virtual; + procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; + function GetIMPORTE_NETOIsNull: Boolean; virtual; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_DESCUENTOValue: Currency; virtual; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; + function GetBASE_IMPONIBLEValue: Currency; virtual; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; + function GetBASE_IMPONIBLEIsNull: Boolean; virtual; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_FACTURAS_PROVEEDORValue: Currency; virtual; + procedure SetIMPORTE_FACTURAS_PROVEEDORValue(const aValue: Currency); virtual; + function GetIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean; virtual; + procedure SetIMPORTE_FACTURAS_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_BENEFICIOValue: Currency; virtual; + procedure SetIMPORTE_BENEFICIOValue(const aValue: Currency); virtual; + function GetIMPORTE_BENEFICIOIsNull: Boolean; virtual; + procedure SetIMPORTE_BENEFICIOIsNull(const aValue: Boolean); virtual; + function GetPORCENTAJE_BENEFICIOValue: Currency; virtual; + procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); virtual; + function GetPORCENTAJE_BENEFICIOIsNull: Boolean; virtual; + procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; + property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property IMPORTE_FACTURAS_PROVEEDOR: Currency read GetIMPORTE_FACTURAS_PROVEEDORValue write SetIMPORTE_FACTURAS_PROVEEDORValue; + property IMPORTE_FACTURAS_PROVEEDORIsNull: Boolean read GetIMPORTE_FACTURAS_PROVEEDORIsNull write SetIMPORTE_FACTURAS_PROVEEDORIsNull; + property IMPORTE_BENEFICIO: Currency read GetIMPORTE_BENEFICIOValue write SetIMPORTE_BENEFICIOValue; + property IMPORTE_BENEFICIOIsNull: Boolean read GetIMPORTE_BENEFICIOIsNull write SetIMPORTE_BENEFICIOIsNull; + property PORCENTAJE_BENEFICIO: Currency read GetPORCENTAJE_BENEFICIOValue write SetPORCENTAJE_BENEFICIOValue; + property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + { IContratosCliente } IContratosCliente = interface(IDAStronglyTypedDataTable) - ['{BC6E72B5-30B2-4553-8C99-CBBBCA899EBA}'] + ['{6C9916A4-79AB-4C37-A48C-6012AB24C980}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -624,7 +807,7 @@ type end; { TContratosClienteDataTableRules } - TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente) + TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente) private f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; @@ -916,7 +1099,7 @@ type } { ITiposCapitulos } ITiposCapitulos = interface(IDAStronglyTypedDataTable) - ['{BA175773-59CB-4349-A002-2BF8672EFA85}'] + ['{CA80C6D6-6E5B-4E3A-9790-34416A07D6B6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -960,7 +1143,7 @@ type end; { TTiposCapitulosDataTableRules } - TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos) + TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos) private protected { Property getters and setters } @@ -1011,7 +1194,7 @@ type { IContratosCliente_Detalles } IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{45989059-DF2C-4A8B-8A53-028E6F526A87}'] + ['{01A6BC62-F13E-40FD-A7CA-ACE471474C86}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1109,7 +1292,7 @@ type end; { TContratosCliente_DetallesDataTableRules } - TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles) + TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles) private protected { Property getters and setters } @@ -1399,6 +1582,249 @@ begin end; +{ TContratosClienteBeneficiosDataTableRules } +constructor TContratosClienteBeneficiosDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TContratosClienteBeneficiosDataTableRules.Destroy; +begin + inherited; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosID].AsInteger; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosID].AsInteger := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosID].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosID].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].AsString; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].AsString := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetFECHA_CONTRATOValue: DateTime; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsDateTime; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetFECHA_CONTRATOValue(const aValue: DateTime); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsDateTime := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetFECHA_CONTRATOIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetFECHA_CONTRATOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetNOMBREValue: String; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].AsString; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetNOMBREValue(const aValue: String); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].AsString := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetNOMBREIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetNIF_CIFValue: String; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosNIF_CIF].AsString; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetNIF_CIFValue(const aValue: String); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosNIF_CIF].AsString := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetNIF_CIFIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosNIF_CIF].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosNIF_CIF].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_NETOValue: Currency; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_NETO].AsCurrency; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_NETO].AsCurrency := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_NETOIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_NETO].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_NETO].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_DESCUENTOValue: Currency; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO].AsCurrency; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO].AsCurrency := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetBASE_IMPONIBLEValue: Currency; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosBASE_IMPONIBLE].AsCurrency; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosBASE_IMPONIBLE].AsCurrency := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetBASE_IMPONIBLEIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosBASE_IMPONIBLE].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosBASE_IMPONIBLE].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_FACTURAS_PROVEEDORValue: Currency; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR].AsCurrency; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_FACTURAS_PROVEEDORValue(const aValue: Currency); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR].AsCurrency := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_FACTURAS_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_FACTURAS_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_BENEFICIOValue: Currency; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO].AsCurrency; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_BENEFICIOValue(const aValue: Currency); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO].AsCurrency := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_BENEFICIOIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_BENEFICIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO].AsVariant := Null; +end; + +function TContratosClienteBeneficiosDataTableRules.GetPORCENTAJE_BENEFICIOValue: Currency; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO].AsCurrency; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); +begin + DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO].AsCurrency := aValue; +end; + +function TContratosClienteBeneficiosDataTableRules.GetPORCENTAJE_BENEFICIOIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO].IsNull; +end; + +procedure TContratosClienteBeneficiosDataTableRules.SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO].AsVariant := Null; +end; + + { TContratosClienteDataTableRules } constructor TContratosClienteDataTableRules.Create(aDataTable: TDADataTable); var @@ -2847,6 +3273,7 @@ initialization RegisterDataTableRules(RID_Valores, TValoresDataTableRules); RegisterDataTableRules(RID_Propiedades, TPropiedadesDataTableRules); RegisterDataTableRules(RID_ListaAnosContratos, TListaAnosContratosDataTableRules); + RegisterDataTableRules(RID_ContratosClienteBeneficios, TContratosClienteBeneficiosDataTableRules); RegisterDataTableRules(RID_ContratosCliente, TContratosClienteDataTableRules); RegisterDataTableRules(RID_TiposCapitulos, TTiposCapitulosDataTableRules); RegisterDataTableRules(RID_ContratosCliente_Detalles, TContratosCliente_DetallesDataTableRules); diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas index a1b61bf0..c4f08e06 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas @@ -9,17 +9,18 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ValoresDelta = '{94A3010D-5D46-4AA9-9838-04B55576C94E}'; - RID_PropiedadesDelta = '{99F13846-B993-4348-AE33-7D0922C5D1AD}'; - RID_ListaAnosContratosDelta = '{74150E30-F707-4AF1-9D4C-69ACEE1FF491}'; - RID_ContratosClienteDelta = '{4D6235D2-E6FF-4894-889B-937ED4E1A5C7}'; - RID_TiposCapitulosDelta = '{837573E5-D7F7-44CC-A73C-797CBB7D62F0}'; - RID_ContratosCliente_DetallesDelta = '{EA0605D9-70CD-4487-8706-ECC60AEC6E82}'; + RID_ValoresDelta = '{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}'; + RID_PropiedadesDelta = '{EAC18BA2-1808-42BD-B887-7780E0DE9339}'; + RID_ListaAnosContratosDelta = '{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}'; + RID_ContratosClienteBeneficiosDelta = '{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}'; + RID_ContratosClienteDelta = '{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}'; + RID_TiposCapitulosDelta = '{6A3B35F6-2F7A-413B-AB11-9F05935C5774}'; + RID_ContratosCliente_DetallesDelta = '{01D29ED0-F4B1-45DD-A233-C0B689192303}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{94A3010D-5D46-4AA9-9838-04B55576C94E}'] + ['{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -77,7 +78,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{99F13846-B993-4348-AE33-7D0922C5D1AD}'] + ['{EAC18BA2-1808-42BD-B887-7780E0DE9339}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -135,7 +136,7 @@ type { IListaAnosContratosDelta } IListaAnosContratosDelta = interface(IListaAnosContratos) - ['{74150E30-F707-4AF1-9D4C-69ACEE1FF491}'] + ['{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}'] { Property getters and setters } function GetOldANOValue : String; @@ -167,9 +168,163 @@ type end; + { IContratosClienteBeneficiosDelta } + IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) + ['{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldREFERENCIAValue : String; + function GetOldFECHA_CONTRATOValue : DateTime; + function GetOldNOMBREValue : String; + function GetOldNIF_CIFValue : String; + function GetOldIMPORTE_NETOValue : Currency; + function GetOldIMPORTE_DESCUENTOValue : Currency; + function GetOldBASE_IMPONIBLEValue : Currency; + function GetOldIMPORTE_FACTURAS_PROVEEDORValue : Currency; + function GetOldIMPORTE_BENEFICIOValue : Currency; + function GetOldPORCENTAJE_BENEFICIOValue : Currency; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldNIF_CIF : String read GetOldNIF_CIFValue; + property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; + property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; + property OldIMPORTE_FACTURAS_PROVEEDOR : Currency read GetOldIMPORTE_FACTURAS_PROVEEDORValue; + property OldIMPORTE_BENEFICIO : Currency read GetOldIMPORTE_BENEFICIOValue; + property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue; + end; + + { TContratosClienteBeneficiosBusinessProcessorRules } + TContratosClienteBeneficiosBusinessProcessorRules = class(TDABusinessProcessorRules, IContratosClienteBeneficios, IContratosClienteBeneficiosDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetFECHA_CONTRATOValue: DateTime; virtual; + function GetFECHA_CONTRATOIsNull: Boolean; virtual; + function GetOldFECHA_CONTRATOValue: DateTime; virtual; + function GetOldFECHA_CONTRATOIsNull: Boolean; virtual; + procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual; + procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + function GetNOMBREIsNull: Boolean; virtual; + function GetOldNOMBREValue: String; virtual; + function GetOldNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetNIF_CIFValue: String; virtual; + function GetNIF_CIFIsNull: Boolean; virtual; + function GetOldNIF_CIFValue: String; virtual; + function GetOldNIF_CIFIsNull: Boolean; virtual; + procedure SetNIF_CIFValue(const aValue: String); virtual; + procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_NETOValue: Currency; virtual; + function GetIMPORTE_NETOIsNull: Boolean; virtual; + function GetOldIMPORTE_NETOValue: Currency; virtual; + function GetOldIMPORTE_NETOIsNull: Boolean; virtual; + procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_DESCUENTOValue: Currency; virtual; + function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; + function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; + function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; + function GetBASE_IMPONIBLEValue: Currency; virtual; + function GetBASE_IMPONIBLEIsNull: Boolean; virtual; + function GetOldBASE_IMPONIBLEValue: Currency; virtual; + function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_FACTURAS_PROVEEDORValue: Currency; virtual; + function GetIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean; virtual; + function GetOldIMPORTE_FACTURAS_PROVEEDORValue: Currency; virtual; + function GetOldIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean; virtual; + procedure SetIMPORTE_FACTURAS_PROVEEDORValue(const aValue: Currency); virtual; + procedure SetIMPORTE_FACTURAS_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_BENEFICIOValue: Currency; virtual; + function GetIMPORTE_BENEFICIOIsNull: Boolean; virtual; + function GetOldIMPORTE_BENEFICIOValue: Currency; virtual; + function GetOldIMPORTE_BENEFICIOIsNull: Boolean; virtual; + procedure SetIMPORTE_BENEFICIOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_BENEFICIOIsNull(const aValue: Boolean); virtual; + function GetPORCENTAJE_BENEFICIOValue: Currency; virtual; + function GetPORCENTAJE_BENEFICIOIsNull: Boolean; virtual; + function GetOldPORCENTAJE_BENEFICIOValue: Currency; virtual; + function GetOldPORCENTAJE_BENEFICIOIsNull: Boolean; virtual; + procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); virtual; + procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property FECHA_CONTRATO : DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; + property FECHA_CONTRATOIsNull : Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull; + property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue; + property OldFECHA_CONTRATOIsNull : Boolean read GetOldFECHA_CONTRATOIsNull; + property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; + property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property OldNIF_CIF : String read GetOldNIF_CIFValue; + property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; + property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; + property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull; + property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull; + property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; + property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull; + property IMPORTE_FACTURAS_PROVEEDOR : Currency read GetIMPORTE_FACTURAS_PROVEEDORValue write SetIMPORTE_FACTURAS_PROVEEDORValue; + property IMPORTE_FACTURAS_PROVEEDORIsNull : Boolean read GetIMPORTE_FACTURAS_PROVEEDORIsNull write SetIMPORTE_FACTURAS_PROVEEDORIsNull; + property OldIMPORTE_FACTURAS_PROVEEDOR : Currency read GetOldIMPORTE_FACTURAS_PROVEEDORValue; + property OldIMPORTE_FACTURAS_PROVEEDORIsNull : Boolean read GetOldIMPORTE_FACTURAS_PROVEEDORIsNull; + property IMPORTE_BENEFICIO : Currency read GetIMPORTE_BENEFICIOValue write SetIMPORTE_BENEFICIOValue; + property IMPORTE_BENEFICIOIsNull : Boolean read GetIMPORTE_BENEFICIOIsNull write SetIMPORTE_BENEFICIOIsNull; + property OldIMPORTE_BENEFICIO : Currency read GetOldIMPORTE_BENEFICIOValue; + property OldIMPORTE_BENEFICIOIsNull : Boolean read GetOldIMPORTE_BENEFICIOIsNull; + property PORCENTAJE_BENEFICIO : Currency read GetPORCENTAJE_BENEFICIOValue write SetPORCENTAJE_BENEFICIOValue; + property PORCENTAJE_BENEFICIOIsNull : Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull; + property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue; + property OldPORCENTAJE_BENEFICIOIsNull : Boolean read GetOldPORCENTAJE_BENEFICIOIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + { IContratosClienteDelta } IContratosClienteDelta = interface(IContratosCliente) - ['{4D6235D2-E6FF-4894-889B-937ED4E1A5C7}'] + ['{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -735,7 +890,7 @@ type { ITiposCapitulosDelta } ITiposCapitulosDelta = interface(ITiposCapitulos) - ['{837573E5-D7F7-44CC-A73C-797CBB7D62F0}'] + ['{6A3B35F6-2F7A-413B-AB11-9F05935C5774}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -829,7 +984,7 @@ type { IContratosCliente_DetallesDelta } IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) - ['{EA0605D9-70CD-4487-8706-ECC60AEC6E82}'] + ['{01D29ED0-F4B1-45DD-A233-C0B689192303}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTRATOValue : Integer; @@ -1287,6 +1442,359 @@ begin end; +{ TContratosClienteBeneficiosBusinessProcessorRules } +constructor TContratosClienteBeneficiosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TContratosClienteBeneficiosBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosID]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosID]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosREFERENCIA]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosREFERENCIA]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetFECHA_CONTRATOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetFECHA_CONTRATOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldFECHA_CONTRATOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldFECHA_CONTRATOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetFECHA_CONTRATOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetFECHA_CONTRATOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosNOMBRE]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosNOMBRE]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetNOMBREValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetNIF_CIFValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNIF_CIF]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNIF_CIF]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldNIF_CIFValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosNIF_CIF]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosNIF_CIF]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNIF_CIF] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNIF_CIF] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_NETOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_FACTURAS_PROVEEDORValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_FACTURAS_PROVEEDORValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_FACTURAS_PROVEEDORValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_FACTURAS_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_BENEFICIOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_BENEFICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_BENEFICIOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_BENEFICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_BENEFICIOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_BENEFICIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO] := Null; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetPORCENTAJE_BENEFICIOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetPORCENTAJE_BENEFICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO]); +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldPORCENTAJE_BENEFICIOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO]; +end; + +function TContratosClienteBeneficiosBusinessProcessorRules.GetOldPORCENTAJE_BENEFICIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO]); +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO] := aValue; +end; + +procedure TContratosClienteBeneficiosBusinessProcessorRules.SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO] := Null; +end; + + { TContratosClienteBusinessProcessorRules } constructor TContratosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var @@ -3399,6 +3907,7 @@ initialization RegisterBusinessProcessorRules(RID_ValoresDelta, TValoresBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PropiedadesDelta, TPropiedadesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ListaAnosContratosDelta, TListaAnosContratosBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_ContratosClienteBeneficiosDelta, TContratosClienteBeneficiosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContratosClienteDelta, TContratosClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_TiposCapitulosDelta, TTiposCapitulosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContratosCliente_DetallesDelta, TContratosCliente_DetallesBusinessProcessorRules); diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas index a492a612..eb07e125 100644 --- a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas @@ -9,6 +9,7 @@ uses const BIZ_CLIENT_CONTRATO_CLIENTE = 'Client.ContratoCliente'; + BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS = 'Client.ContratosClienteBeneficios'; SITUACION_CONTRATO_PENDIENTE = 'PENDIENTE'; SITUACION_CONTRATO_TERMINADO = 'TERMINADO'; @@ -38,6 +39,10 @@ type function DarListaSituaciones: TStringList; end; + IBizContratosClienteBeneficios = interface(IContratosClienteBeneficios) + ['{ABB58720-9FD2-4E85-AEAA-4E7DAA1E6223}'] + end; + TBizContratoCliente = class(TContratosClienteDataTableRules, IBizContratoCliente, ISeleccionable) private procedure CalcularBaseImponible; @@ -94,6 +99,9 @@ type destructor Destroy; override; end; + TBizContratosClienteBeneficios = class(TContratosClienteBeneficiosDataTableRules, IBizContratosClienteBeneficios) + end; + implementation @@ -403,6 +411,7 @@ end; initialization RegisterDataTableRules(BIZ_CLIENT_CONTRATO_CLIENTE, TBizContratoCliente); + RegisterDataTableRules(BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS, TBizContratosClienteBeneficios); finalization diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm index f052faff..fc5a9612 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm @@ -127,6 +127,117 @@ object srvContratosCliente: TsrvContratosCliente Size = 254 end> end + item + Params = <> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + TargetTable = 'V_CONTRATOS_BENEFICIOS' + Name = 'IBX' + SQL = + 'SELECT '#10' ID, REFERENCIA, FECHA_CONTRATO, NOMBRE, NIF_CIF, IMP' + + 'ORTE_NETO, '#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IMPORTE_FACTU' + + 'RAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO'#10' FR' + + 'OM'#10' V_CONTRATOS_BENEFICIOS'#10' WHERE {Where}' + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'FECHA_CONTRATO' + TableField = 'FECHA_CONTRATO' + end + item + DatasetField = 'NOMBRE' + TableField = 'NOMBRE' + end + item + DatasetField = 'NIF_CIF' + TableField = 'NIF_CIF' + end + item + DatasetField = 'IMPORTE_NETO' + TableField = 'IMPORTE_NETO' + end + item + DatasetField = 'IMPORTE_DESCUENTO' + TableField = 'IMPORTE_DESCUENTO' + end + item + DatasetField = 'BASE_IMPONIBLE' + TableField = 'BASE_IMPONIBLE' + end + item + DatasetField = 'IMPORTE_FACTURAS_PROVEEDOR' + TableField = 'IMPORTE_FACTURAS_PROVEEDOR' + end + item + DatasetField = 'IMPORTE_BENEFICIO' + TableField = 'IMPORTE_BENEFICIO' + end + item + DatasetField = 'PORCENTAJE_BENEFICIO' + TableField = 'PORCENTAJE_BENEFICIO' + end> + end> + Name = 'ContratosClienteBeneficios' + Fields = < + item + Name = 'ID' + DataType = datInteger + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'FECHA_CONTRATO' + DataType = datDateTime + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + end + item + Name = 'IMPORTE_FACTURAS_PROVEEDOR' + DataType = datCurrency + end + item + Name = 'IMPORTE_BENEFICIO' + DataType = datCurrency + end + item + Name = 'PORCENTAJE_BENEFICIO' + DataType = datCurrency + end> + end item Params = <> Statements = < diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES index 8b251f31..1641339f 100644 Binary files a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES and b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES differ diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk index e164884d..d5741fce 100644 --- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk +++ b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk @@ -47,7 +47,34 @@ requires dxComnD11, ContratosCliente_model, ContratosCliente_controller, - ConCli_FacCli_relation; + ConCli_FacCli_relation, + PngComponentsD10, + PNG_D10, + vclactnband, + vclx, + tb2k_d10, + tbx_d10, + GUISDK_D11R, + designide, + xmlrtl, + dxCoreD11, + cxGridD11, + cxPageControlD11, + cxExtEditorsD11, + cxExportD11, + dxPSCoreD11, + dxPScxCommonD11, + dxPSLnksD11, + vclshlctrls, + dxPScxGrid6LnkD11, + dclcxLibraryD11, + dcldxCoreD11, + JvStdCtrlsD11R, + JclVcl, + Jcl, + JvCoreD11R, + JvSystemD11R, + JvPageCompsD11R; contains uContratosClienteViewRegister in 'uContratosClienteViewRegister.pas', @@ -62,6 +89,8 @@ contains uEditorContratosClienteReport in 'uEditorContratosClienteReport.pas' {fEditorContratosClientePreview: TfEditorPedidosClientePreview}, uViewDireccionEntregaContratoCliente in 'uViewDireccionEntregaContratoCliente.pas' {frViewDireccionEntregaContratoCliente: TFrame}, uViewDocumentosContratoCliente in 'uViewDocumentosContratoCliente.pas' {frViewDocumentosContratoCliente: TFrame}, - uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame}; + uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame}, + uViewContratosClienteBeneficios in 'uViewContratosClienteBeneficios.pas' {frViewContratosClienteBeneficios: TFrame}, + uEditorContratosClienteBeneficios in 'uEditorContratosClienteBeneficios.pas' {fEditorContratosClienteBeneficios: TFrame}; end. diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj index 1b80b2e2..bff2ff2a 100644 --- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj +++ b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj @@ -49,29 +49,49 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorPresupuestoCliente
@@ -81,6 +101,10 @@
fEditorContratosCliente
TfEditorPedidoCliente + +
fEditorContratosClienteBeneficios
+ TFrame +
fEditorContratosClientePreview
TfEditorPedidosClientePreview @@ -101,6 +125,10 @@
frViewContratosCliente
TFrame + +
frViewContratosClienteBeneficios
+ TFrame +
frViewDatosYSeleccionClienteContrato
TFrame @@ -121,6 +149,13 @@
frViewElegirArticulosContratosCliente
TFrame + + + + + + +