Se adaptan las facturas de proveedor para poder añadir contratos de cliente y introducir el importe correspondiente a cada uno de la factura, para así sacar el beneficio a partir de los precios del contrato

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@533 f4e31baf-9722-1c47-927c-6f952f962d4b

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

Source/GUIBase/GUIBase.dproj

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

Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj

@@ -49,20 +49,21 @@
     <DelphiCompile Include="ContratosCliente_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_controller.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\ContratosCliente_data.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\ContratosCliente_model.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\GestorDocumentos_controller.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\PresupuestosCliente_model.dcp" />
     <DCCReference Include="uArticulosContratoClienteController.pas" />
     <DCCReference Include="uContratosClienteController.pas" />
     <DCCReference Include="uContratosClienteReportController.pas" />
     <DCCReference Include="uDetallesContratoClienteController.pas" />
+    <DCCReference Include="View\Articulos_controller.dcp" />
+    <DCCReference Include="View\Contactos_controller.dcp" />
+    <DCCReference Include="View\ContratosCliente_data.dcp" />
+    <DCCReference Include="View\ContratosCliente_model.dcp" />
+    <DCCReference Include="View\GestorDocumentos_controller.dcp" />
+    <DCCReference Include="View\GUIBase.dcp" />
+    <DCCReference Include="View\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="View\PresupuestosCliente_model.dcp" />
     <DCCReference Include="View\uIEditorContratoCliente.pas" />
     <DCCReference Include="View\uIEditorContratosCliente.pas" />
+    <DCCReference Include="View\uIEditorContratosClienteBeneficios.pas" />
     <DCCReference Include="View\uIEditorContratosClientePreview.pas" />
     <DCCReference Include="View\uIEditorDireccionEntregaContratoCliente.pas" />
     <DCCReference Include="View\uIEditorElegirArticulosContratosCliente.pas" />

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 = '');

Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm

@@ -1,7 +1,7 @@
 inherited DataModuleContratosCliente: TDataModuleContratosCliente
   OnCreate = DAClientDataModuleCreate
-  Height = 370
+  Height = 423
-  Width = 603
+  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

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;

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

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_Valores = '{72B7AEE8-325E-4838-9EFA-4A888B257897}';
-  RID_Propiedades = '{4D58ECE3-A9F8-43A4-AAA3-CD646C22B7DE}';
+  RID_Propiedades = '{204B145C-8E4B-42B5-8305-40B6D02D17A8}';
-  RID_ListaAnosContratos = '{1D11C4F1-0182-4996-BAC0-9196D938AA76}';
+  RID_ListaAnosContratos = '{A9376B52-1BE5-4374-A5C9-A28ED0A55664}';
-  RID_ContratosCliente = '{73CCDE34-A6B2-46FB-A827-92F690E6DDBC}';
+  RID_ContratosClienteBeneficios = '{465DF5E0-F5CF-4515-B7DC-B4BE11BE7934}';
-  RID_TiposCapitulos = '{EDB0FFD7-2779-4985-821B-E4777E629C36}';
+  RID_ContratosCliente = '{8CB29C6D-A484-4B0A-8273-424E91DAF879}';
-  RID_ContratosCliente_Detalles = '{4B663F62-78D9-4AFF-A977-54BE10A624FE}';
+  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);

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_ValoresDelta = '{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}';
-  RID_PropiedadesDelta = '{99F13846-B993-4348-AE33-7D0922C5D1AD}';
+  RID_PropiedadesDelta = '{EAC18BA2-1808-42BD-B887-7780E0DE9339}';
-  RID_ListaAnosContratosDelta = '{74150E30-F707-4AF1-9D4C-69ACEE1FF491}';
+  RID_ListaAnosContratosDelta = '{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}';
-  RID_ContratosClienteDelta = '{4D6235D2-E6FF-4894-889B-937ED4E1A5C7}';
+  RID_ContratosClienteBeneficiosDelta = '{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}';
-  RID_TiposCapitulosDelta = '{837573E5-D7F7-44CC-A73C-797CBB7D62F0}';
+  RID_ContratosClienteDelta = '{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}';
-  RID_ContratosCliente_DetallesDelta = '{EA0605D9-70CD-4487-8706-ECC60AEC6E82}';
+  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);

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
 

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

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.

Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj

@@ -49,29 +49,49 @@
     <DelphiCompile Include="ContratosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\adortl.dcp" />
+    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Articulos_view.dcp" />
+    <DCCReference Include="Articulos_view.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Base.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dcp" />
+    <DCCReference Include="ConCli_FacCli_relation.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\ContratosCliente_controller.dcp" />
+    <DCCReference Include="ContratosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\ContratosCliente_model.dcp" />
+    <DCCReference Include="ContratosCliente_model.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\cxDataD11.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="cxExportD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dbrtl.dcp" />
+    <DCCReference Include="cxGridD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dsnap.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dxComnD11.dcp" />
+    <DCCReference Include="cxPageControlD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="dclcxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\GestorInformes_controller.dcp" />
+    <DCCReference Include="dcldxCoreD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\GUIBase.dcp" />
+    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\rtl.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\vcl.dcp" />
+    <DCCReference Include="dxCoreD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\vcldb.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\vcljpg.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
+    <DCCReference Include="dxPSCoreD11.dcp" />
+    <DCCReference Include="dxPScxCommonD11.dcp" />
+    <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="dxPSLnksD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="GUISDK_D11R.dcp" />
+    <DCCReference Include="Jcl.dcp" />
+    <DCCReference Include="JclVcl.dcp" />
+    <DCCReference Include="JvCoreD11R.dcp" />
+    <DCCReference Include="JvPageCompsD11R.dcp" />
+    <DCCReference Include="JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="JvSystemD11R.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="tb2k_d10.dcp" />
+    <DCCReference Include="tbx_d10.dcp" />
     <DCCReference Include="uContratosClienteViewRegister.pas" />
     <DCCReference Include="uEditorContratoCliente.pas">
       <Form>fEditorPresupuestoCliente</Form>
@@ -81,6 +101,10 @@
       <Form>fEditorContratosCliente</Form>
       <DesignClass>TfEditorPedidoCliente</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorContratosClienteBeneficios.pas">
+      <Form>fEditorContratosClienteBeneficios</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorContratosClienteReport.pas">
       <Form>fEditorContratosClientePreview</Form>
       <DesignClass>TfEditorPedidosClientePreview</DesignClass>
@@ -101,6 +125,10 @@
       <Form>frViewContratosCliente</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewContratosClienteBeneficios.pas">
+      <Form>frViewContratosClienteBeneficios</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewDatosYSeleccionClienteContrato.pas">
       <Form>frViewDatosYSeleccionClienteContrato</Form>
       <DesignClass>TFrame</DesignClass>
@@ -121,6 +149,13 @@
       <Form>frViewElegirArticulosContratosCliente</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclshlctrls.dcp" />
+    <DCCReference Include="vclx.dcp" />
+    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contratos de cliente/Views/uContratosClienteViewRegister.pas

@@ -8,11 +8,13 @@ procedure UnregisterViews;
 implementation
 
 uses
-  uEditorRegistryUtils, uEditorContratosCliente, uEditorContratoCliente, uEditorElegirContratosCliente,
+  uEditorRegistryUtils, uEditorContratosCliente, uEditorContratosClienteBeneficios,
+  uEditorContratoCliente, uEditorElegirContratosCliente,
   uEditorElegirArticulosContratoCliente, uEditorContratosClienteReport;
 
 procedure RegisterViews;
 begin
+  EditorRegistry.RegisterClass(TfEditorContratosClienteBeneficios, 'EditorContratosClienteBeneficios');
   EditorRegistry.RegisterClass(TfEditorContratosCliente, 'EditorContratosCliente');
   EditorRegistry.RegisterClass(TfEditorContratoCliente, 'EditorContratoCliente');
   EditorRegistry.RegisterClass(TfEditorElegirContratosCliente, 'EditorElegirContratosCliente');
@@ -22,6 +24,7 @@ end;
 
 procedure UnregisterViews;
 begin
+  EditorRegistry.UnRegisterClass(TfEditorContratosClienteBeneficios);
   EditorRegistry.UnRegisterClass(TfEditorContratosCliente);
   EditorRegistry.UnRegisterClass(TfEditorContratoCliente);
   EditorRegistry.UnRegisterClass(TfEditorElegirContratosCliente);

Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm

@@ -168,7 +168,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
       DockPos = 343
       Visible = True
       ExplicitLeft = 431
-      ExplicitWidth = 117
+      ExplicitWidth = 221
       object TBXSeparatorItem18: TTBXSeparatorItem
       end
       object TBXItem40: TTBXItem
@@ -178,6 +178,10 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
       object TBXItem46: TTBXItem
         Action = actInformes
       end
+      object TBXItem42: TTBXItem
+        Action = actListadoBeneficios
+        DisplayMode = nbdmImageAndText
+      end
     end
   end
   inherited StatusBar: TJvStatusBar
@@ -223,6 +227,12 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
       Visible = False
       OnExecute = actInformesExecute
     end
+    object actListadoBeneficios: TAction
+      Category = 'Acciones'
+      Caption = 'Listar beneficios'
+      ImageIndex = 26
+      OnExecute = actListadoBeneficiosExecute
+    end
   end
   inherited SmallImages: TPngImageList
     PngImages = <

Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas

@@ -40,6 +40,8 @@ type
     TBXItem46: TTBXItem;
     JSInformesDialog: TJSDialog;
     TBXItem47: TTBXItem;
+    actListadoBeneficios: TAction;
+    TBXItem42: TTBXItem;
     procedure FormShow(Sender: TObject);
     procedure actGenerarAlbaranCliExecute(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
@@ -55,6 +57,7 @@ type
     procedure actEnviarEMailUpdate(Sender: TObject);
     procedure actInformesExecute(Sender: TObject);
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
+    procedure actListadoBeneficiosExecute(Sender: TObject);
 
   protected
     FContratos: IBizContratoCliente;
@@ -309,6 +312,12 @@ begin
   end;
 end;
 
+procedure TfEditorContratosCliente.actListadoBeneficiosExecute(Sender: TObject);
+begin
+  inherited;
+  FController.VerListadoBeneficios;
+end;
+
 procedure TfEditorContratosCliente.AsignarVista;
 begin
   ViewGrid := CreateView(TfrViewContratosCliente) as IViewContratosCliente;

Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj

@@ -1,4 +1,5 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
     <MainSource>FacturasProveedor_controller.dpk</MainSource>
@@ -41,25 +42,41 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="FacturasProveedor_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\AlbaranesProveedor_controller.dcp" />
+    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="..\AlbaranesProveedor_model.dcp" />
+    <DCCReference Include="AlbaranesProveedor_controller.dcp" />
-    <DCCReference Include="..\Articulos_controller.dcp" />
+    <DCCReference Include="AlbaranesProveedor_model.dcp" />
-    <DCCReference Include="..\Contactos_controller.dcp" />
+    <DCCReference Include="Articulos_controller.dcp" />
-    <DCCReference Include="..\FacturasProveedor_data.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
-    <DCCReference Include="..\FacturasProveedor_model.dcp" />
+    <DCCReference Include="ContratosCliente_controller.dcp" />
-    <DCCReference Include="..\FormasPago_controller.dcp" />
+    <DCCReference Include="ContratosCliente_model.dcp" />
-    <DCCReference Include="..\RecibosProveedor_controller.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="dxCoreD11.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="FacturasProveedor_data.dcp" />
+    <DCCReference Include="FacturasProveedor_model.dcp" />
+    <DCCReference Include="FormasPago_controller.dcp" />
+    <DCCReference Include="RecibosProveedor_controller.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uArticulosFacturaProveedorController.pas" />
+    <DCCReference Include="uContratosFacturaProveedorController.pas" />
     <DCCReference Include="uDetallesFacturaProveedorController.pas" />
     <DCCReference Include="uFacturasProveedorController.pas" />
     <DCCReference Include="uFacturasProveedorReportController.pas" />
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vclx.dcp" />
     <DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" />
     <DCCReference Include="View\uIEditorFacturaProveedor.pas" />
     <DCCReference Include="View\uIEditorFacturasProveedor.pas" />

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -6,7 +6,7 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasProveedor,
   uProveedoresController, uDetallesFacturaProveedorController, uBizFacturasProveedor,
-  uBizAlbaranesProveedor, uBizDireccionesContacto;
+  uBizAlbaranesProveedor, uBizDireccionesContacto, uContratosFacturaProveedorController;
 
 type
   IFacturasProveedorController = interface(IControllerBase)
@@ -19,6 +19,10 @@ type
     procedure SetDetallesController(const Value: IDetallesFacturaProveedorController);
     property DetallesController: IDetallesFacturaProveedorController read GetDetallesController write SetDetallesController;
 
+    function GetContratosController: IContratosFacturaProveedorController;
+    procedure SetContratosController(const Value: IContratosFacturaProveedorController);
+    property ContratosController: IContratosFacturaProveedorController read GetContratosController write SetContratosController;
+
     function Buscar(const ID: Integer): IBizFacturaProveedor;
     function BuscarTodos: IBizFacturaProveedor;
     procedure Ver(AFactura : IBizFacturaProveedor);
@@ -59,6 +63,7 @@ type
     FDataModule : IDataModuleFacturasProveedor;
     FProveedorController : IProveedoresController;
     FDetallesController : IDetallesFacturaProveedorController;
+    FContratosController : IContratosFacturaProveedorController;
 
     function GetProveedorController: IProveedoresController;
     procedure SetProveedorController(const Value: IProveedoresController);
@@ -66,6 +71,9 @@ type
     function GetDetallesController: IDetallesFacturaProveedorController;
     procedure SetDetallesController(const Value: IDetallesFacturaProveedorController);
 
+    function GetContratosController: IContratosFacturaProveedorController;
+    procedure SetContratosController(const Value: IContratosFacturaProveedorController);
+
     function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
     function _Vacio : IBizFacturaProveedor;
 
@@ -80,6 +88,7 @@ type
   public
     property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
     property DetallesController: IDetallesFacturaProveedorController read GetDetallesController write SetDetallesController;
+    property ContratosController: IContratosFacturaProveedorController read GetContratosController write SetContratosController;
 
     constructor Create; override;
     destructor Destroy; override;
@@ -555,6 +564,7 @@ begin
   FProveedorController := TProveedoresController.Create;  
   FDetallesController := TDetallesFacturaProveedorController.Create;
   FDetallesController.addObservador(Self);
+  FContratosController := TContratosFacturaProveedorController.Create;
 end;
 
 function TFacturasProveedorController.CreateEditor(const AName: String;
@@ -589,6 +599,7 @@ begin
   FDataModule := Nil;
   FProveedorController := Nil;
   FDetallesController := Nil;
+  FContratosController := Nil;  
   inherited;
 end;
 
@@ -875,6 +886,9 @@ end;
 
 function TFacturasProveedorController.EsEliminable(AFactura: IBizFacturaProveedor; var AComentario: Variant): Boolean;
 begin
+  Result := True;
+  AComentario := Null;
+  
   if not Assigned(AFactura) then
      raise Exception.Create ('Factura no asignado: EsEliminable');
 
@@ -897,6 +911,7 @@ end;
 
 function TFacturasProveedorController.EsModificable(AFactura: IBizFacturaProveedor; var AComentario: Variant): Boolean;
 begin
+  Result := True;
   AComentario := Null;
 
   if not Assigned(AFactura) then
@@ -1049,6 +1064,11 @@ begin
   FProveedorController := Value;
 end;
 
+procedure TFacturasProveedorController.SetContratosController(const Value: IContratosFacturaProveedorController);
+begin
+  FContratosController := Value;
+end;
+
 procedure TFacturasProveedorController.SetDetallesController(const Value: IDetallesFacturaProveedorController);
 begin
   FDetallesController := Value;
@@ -1321,6 +1341,11 @@ begin
   Result := FProveedorController;
 end;
 
+function TFacturasProveedorController.GetContratosController: IContratosFacturaProveedorController;
+begin
+  Result := FContratosController;
+end;
+
 function TFacturasProveedorController.GetDetallesController: IDetallesFacturaProveedorController;
 begin
   Result := FDetallesController;

Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm

@@ -424,4 +424,70 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
     Left = 208
     Top = 168
   end
+  object tbl_FacturasProveedor_Contratos: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datAutoInc
+        GeneratorName = 'GEN_FACTURAS_PROV_CONTRATOS_ID'
+        ServerAutoRefresh = True
+        DictionaryEntry = 'FacturasProveedor_Contratos_ID'
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ID_FACTURA'
+        DataType = datInteger
+        DisplayLabel = 'FacturasProveedor_Contratos_ID_FACTURA'
+        DictionaryEntry = 'FacturasProveedor_Contratos_ID_FACTURA'
+      end
+      item
+        Name = 'ID_CONTRATO'
+        DataType = datInteger
+        DisplayLabel = 'FacturasProveedor_Contratos_ID_CONTRATO'
+        DictionaryEntry = 'FacturasProveedor_Contratos_ID_CONTRATO'
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'NOMBRE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'FacturasProveedor_Contratos_NOMBRE'
+        DictionaryEntry = 'FacturasProveedor_Contratos_NOMBRE'
+      end
+      item
+        Name = 'NIF_CIF'
+        DataType = datString
+        Size = 15
+        DisplayLabel = 'FacturasProveedor_Contratos_NIF_CIF'
+        DictionaryEntry = 'FacturasProveedor_Contratos_NIF_CIF'
+      end
+      item
+        Name = 'IMPORTE'
+        DataType = datCurrency
+        DisplayLabel = 'FacturasProveedor_Contratos_IMPORTE'
+        DictionaryEntry = 'FacturasProveedor_Contratos_IMPORTE'
+      end>
+    Params = <>
+    MasterMappingMode = mmWhere
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rda_FacturasProveedor
+    MasterSource = ds_FacturasProveedor
+    MasterFields = 'ID'
+    DetailFields = 'ID_FACTURA'
+    LogicalName = 'FacturasProveedor_Contratos'
+    IndexDefs = <>
+    Left = 368
+    Top = 168
+  end
+  object ds_FacturasProveedor_Contratos: TDADataSource
+    DataSet = tbl_FacturasProveedor_Contratos.Dataset
+    DataTable = tbl_FacturasProveedor_Contratos
+    Left = 368
+    Top = 216
+  end
 end

Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas

@@ -22,9 +22,12 @@ type
     ds_FacturasProveedor_Detalles: TDADataSource;
     tbl_ListaAnosFacturas: TDAMemDataTable;
     ds_ListaAnosFacturas: TDADataSource;
+    tbl_FacturasProveedor_Contratos: TDAMemDataTable;
+    ds_FacturasProveedor_Contratos: TDADataSource;
     procedure DAClientDataModuleCreate(Sender: TObject);
   private
     function _GetDetalles : IBizDetallesFacturaProveedor;
+    function _GetContratos : IBizContratosFacturaProveedor;
   public
     function GetAnosItems : TStringList;
     function GetItems : IBizFacturaProveedor;
@@ -61,6 +64,24 @@ begin
   Result := GetItem(ID_NULO)
 end;
 
+function TDataModuleFacturasProveedor._GetContratos: IBizContratosFacturaProveedor;
+var
+  AContratos : TDAMemDataTable;
+begin
+  ShowHourglassCursor;
+  try
+    AContratos := CloneDataTable(tbl_FacturasProveedor_Contratos);
+    with AContratos do
+    begin
+      BusinessRulesID := BIZ_CLIENT_CONTRATOS_FACTURA_PROVEEDOR;
+      DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
+    end;
+    Result := (AContratos as IBizContratosFacturaProveedor);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 function TDataModuleFacturasProveedor._GetDetalles: IBizDetallesFacturaProveedor;
 var
   ADetalles : TDAMemDataTable;
@@ -142,6 +163,7 @@ begin
     with TBizFacturaProveedor(AFactura.BusinessEventsObj) do
     begin
       Detalles := _GetDetalles;
+      Contratos := _GetContratos;      
     end;
 
     Result := (AFactura as IBizFacturaProveedor);

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas

@@ -3,18 +3,20 @@ unit schFacturasProveedorClient_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_ListaAnosFacturas = '{6D612B76-FD37-4A12-A8FC-AEBF06FE9DFF}';
+  RID_ListaAnosFacturas = '{E4006E34-9471-4B45-8BFB-34D795EE5B47}';
-  RID_FacturasProveedor = '{19A5FACD-B082-4017-9472-473A335CC4CD}';
+  RID_FacturasProveedor_Contratos = '{AEFE41C5-3FCA-46FB-8174-2704B20E2905}';
-  RID_FacturasProveedor_Detalles = '{8F1894C4-09C5-46A6-9C33-BA6CDCE61EF3}';
+  RID_FacturasProveedor = '{4621460A-3688-408C-9676-B526823EC8EF}';
+  RID_FacturasProveedor_Detalles = '{13D46CB1-CC91-4B2C-83B0-6265D005B1E1}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
+  nme_FacturasProveedor_Contratos = 'FacturasProveedor_Contratos';
   nme_FacturasProveedor = 'FacturasProveedor';
   nme_FacturasProveedor_Detalles = 'FacturasProveedor_Detalles';
 
@@ -24,6 +26,24 @@ const
   { ListaAnosFacturas field indexes }
   idx_ListaAnosFacturasANO = 0;
 
+  { FacturasProveedor_Contratos fields }
+  fld_FacturasProveedor_ContratosID = 'ID';
+  fld_FacturasProveedor_ContratosID_FACTURA = 'ID_FACTURA';
+  fld_FacturasProveedor_ContratosID_CONTRATO = 'ID_CONTRATO';
+  fld_FacturasProveedor_ContratosREFERENCIA = 'REFERENCIA';
+  fld_FacturasProveedor_ContratosNOMBRE = 'NOMBRE';
+  fld_FacturasProveedor_ContratosNIF_CIF = 'NIF_CIF';
+  fld_FacturasProveedor_ContratosIMPORTE = 'IMPORTE';
+
+  { FacturasProveedor_Contratos field indexes }
+  idx_FacturasProveedor_ContratosID = 0;
+  idx_FacturasProveedor_ContratosID_FACTURA = 1;
+  idx_FacturasProveedor_ContratosID_CONTRATO = 2;
+  idx_FacturasProveedor_ContratosREFERENCIA = 3;
+  idx_FacturasProveedor_ContratosNOMBRE = 4;
+  idx_FacturasProveedor_ContratosNIF_CIF = 5;
+  idx_FacturasProveedor_ContratosIMPORTE = 6;
+
   { FacturasProveedor fields }
   fld_FacturasProveedorID = 'ID';
   fld_FacturasProveedorID_EMPRESA = 'ID_EMPRESA';
@@ -147,7 +167,7 @@ const
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{D2198D6D-34A4-4ADB-ACA0-62A4FA0126C7}']
+  ['{FC0D46EE-86BF-4511-819E-E9791181DC39}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -161,7 +181,7 @@ type
   end;
 
   { TListaAnosFacturasDataTableRules }
-  TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
+  TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
   private
   protected
     { Property getters and setters }
@@ -180,9 +200,116 @@ type
 
   end;
 
+  { IFacturasProveedor_Contratos }
+  IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
+  ['{DDCB3A4E-D047-4E73-8B5C-7E5879061F5E}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetIDIsNull: Boolean;
+    procedure SetIDIsNull(const aValue: Boolean);
+    function GetID_FACTURAValue: Integer;
+    procedure SetID_FACTURAValue(const aValue: Integer);
+    function GetID_FACTURAIsNull: Boolean;
+    procedure SetID_FACTURAIsNull(const aValue: Boolean);
+    function GetID_CONTRATOValue: Integer;
+    procedure SetID_CONTRATOValue(const aValue: Integer);
+    function GetID_CONTRATOIsNull: Boolean;
+    procedure SetID_CONTRATOIsNull(const aValue: Boolean);
+    function GetREFERENCIAValue: String;
+    procedure SetREFERENCIAValue(const aValue: String);
+    function GetREFERENCIAIsNull: Boolean;
+    procedure SetREFERENCIAIsNull(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 GetIMPORTEValue: Currency;
+    procedure SetIMPORTEValue(const aValue: Currency);
+    function GetIMPORTEIsNull: Boolean;
+    procedure SetIMPORTEIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+    property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+    property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
+    property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    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: Currency read GetIMPORTEValue write SetIMPORTEValue;
+    property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+  end;
+
+  { TFacturasProveedor_ContratosDataTableRules }
+  TFacturasProveedor_ContratosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Contratos)
+  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 GetID_FACTURAValue: Integer; virtual;
+    procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+    function GetID_FACTURAIsNull: Boolean; virtual;
+    procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetID_CONTRATOValue: Integer; virtual;
+    procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
+    function GetID_CONTRATOIsNull: Boolean; virtual;
+    procedure SetID_CONTRATOIsNull(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 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 GetIMPORTEValue: Currency; virtual;
+    procedure SetIMPORTEValue(const aValue: Currency); virtual;
+    function GetIMPORTEIsNull: Boolean; virtual;
+    procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+    property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+    property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
+    property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    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: Currency read GetIMPORTEValue write SetIMPORTEValue;
+    property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
   { IFacturasProveedor }
   IFacturasProveedor = interface(IDAStronglyTypedDataTable)
-  ['{233A9E71-2F88-4FEC-8520-7D094756B72C}']
+  ['{1D01094B-37F3-499C-84DD-5C94D01CE360}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -441,7 +568,7 @@ type
   end;
 
   { TFacturasProveedorDataTableRules }
-  TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
+  TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
   private
     f_OBSERVACIONES: IROStrings;
     procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -709,7 +836,7 @@ type
 
   { IFacturasProveedor_Detalles }
   IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{982FA653-D815-42BA-8B55-2014F12285FE}']
+  ['{4D3A6663-3708-42B0-8D14-5C4E213D48FC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -801,7 +928,7 @@ type
   end;
 
   { TFacturasProveedor_DetallesDataTableRules }
-  TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
+  TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
   private
   protected
     { Property getters and setters }
@@ -935,6 +1062,165 @@ begin
 end;
 
 
+{ TFacturasProveedor_ContratosDataTableRules }
+constructor TFacturasProveedor_ContratosDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TFacturasProveedor_ContratosDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosID].AsInteger;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasProveedor_ContratosID].AsInteger := aValue;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosID].IsNull;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedor_ContratosID].AsVariant := Null;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetID_FACTURAValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosID_FACTURA].AsInteger;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetID_FACTURAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasProveedor_ContratosID_FACTURA].AsInteger := aValue;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetID_FACTURAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosID_FACTURA].IsNull;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedor_ContratosID_FACTURA].AsVariant := Null;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetID_CONTRATOValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosID_CONTRATO].AsInteger;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetID_CONTRATOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasProveedor_ContratosID_CONTRATO].AsInteger := aValue;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetID_CONTRATOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosID_CONTRATO].IsNull;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetID_CONTRATOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedor_ContratosID_CONTRATO].AsVariant := Null;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetREFERENCIAValue: String;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA].AsString;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA].AsString := aValue;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA].IsNull;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA].AsVariant := Null;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetNOMBREValue: String;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE].AsString;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE].AsString := aValue;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetNOMBREIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE].IsNull;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE].AsVariant := Null;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetNIF_CIFValue: String;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosNIF_CIF].AsString;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetNIF_CIFValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FacturasProveedor_ContratosNIF_CIF].AsString := aValue;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetNIF_CIFIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosNIF_CIF].IsNull;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedor_ContratosNIF_CIF].AsVariant := Null;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetIMPORTEValue: Currency;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].AsCurrency;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetIMPORTEValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].AsCurrency := aValue;
+end;
+
+function TFacturasProveedor_ContratosDataTableRules.GetIMPORTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].IsNull;
+end;
+
+procedure TFacturasProveedor_ContratosDataTableRules.SetIMPORTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].AsVariant := Null;
+end;
+
+
 { TFacturasProveedorDataTableRules }
 constructor TFacturasProveedorDataTableRules.Create(aDataTable: TDADataTable);
 var
@@ -2144,6 +2430,7 @@ end;
 
 initialization
   RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules);
+  RegisterDataTableRules(RID_FacturasProveedor_Contratos, TFacturasProveedor_ContratosDataTableRules);
   RegisterDataTableRules(RID_FacturasProveedor, TFacturasProveedorDataTableRules);
   RegisterDataTableRules(RID_FacturasProveedor_Detalles, TFacturasProveedor_DetallesDataTableRules);
 

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas

@@ -9,14 +9,15 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosFacturasDelta = '{A45050BB-F735-43E0-8E89-C9AFAD7410D0}';
+  RID_ListaAnosFacturasDelta = '{89FAA336-EE10-4D08-A890-EFD959DA9FB3}';
-  RID_FacturasProveedorDelta = '{1DB4D8A7-7089-4F96-A433-E160E9BCF222}';
+  RID_FacturasProveedor_ContratosDelta = '{2BF7C867-86B7-42EB-9FFA-92DF6E9874F0}';
-  RID_FacturasProveedor_DetallesDelta = '{F8EAC101-E855-449E-84E3-C54BC44929DB}';
+  RID_FacturasProveedorDelta = '{FB90A42D-E182-4F49-9873-E549CD6C3519}';
+  RID_FacturasProveedor_DetallesDelta = '{25250ECD-8E6B-4B25-9F0A-00B4B207C317}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{A45050BB-F735-43E0-8E89-C9AFAD7410D0}']
+  ['{89FAA336-EE10-4D08-A890-EFD959DA9FB3}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -48,9 +49,115 @@ type
 
   end;
 
+  { IFacturasProveedor_ContratosDelta }
+  IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
+  ['{2BF7C867-86B7-42EB-9FFA-92DF6E9874F0}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldID_FACTURAValue : Integer;
+    function GetOldID_CONTRATOValue : Integer;
+    function GetOldREFERENCIAValue : String;
+    function GetOldNOMBREValue : String;
+    function GetOldNIF_CIFValue : String;
+    function GetOldIMPORTEValue : Currency;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldNOMBRE : String read GetOldNOMBREValue;
+    property OldNIF_CIF : String read GetOldNIF_CIFValue;
+    property OldIMPORTE : Currency read GetOldIMPORTEValue;
+  end;
+
+  { TFacturasProveedor_ContratosBusinessProcessorRules }
+  TFacturasProveedor_ContratosBusinessProcessorRules = class(TDABusinessProcessorRules, IFacturasProveedor_Contratos, IFacturasProveedor_ContratosDelta)
+  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 GetID_FACTURAValue: Integer; virtual;
+    function GetID_FACTURAIsNull: Boolean; virtual;
+    function GetOldID_FACTURAValue: Integer; virtual;
+    function GetOldID_FACTURAIsNull: Boolean; virtual;
+    procedure SetID_FACTURAValue(const aValue: Integer); virtual;
+    procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetID_CONTRATOValue: Integer; virtual;
+    function GetID_CONTRATOIsNull: Boolean; virtual;
+    function GetOldID_CONTRATOValue: Integer; virtual;
+    function GetOldID_CONTRATOIsNull: Boolean; virtual;
+    procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
+    procedure SetID_CONTRATOIsNull(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 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 GetIMPORTEValue: Currency; virtual;
+    function GetIMPORTEIsNull: Boolean; virtual;
+    function GetOldIMPORTEValue: Currency; virtual;
+    function GetOldIMPORTEIsNull: Boolean; virtual;
+    procedure SetIMPORTEValue(const aValue: Currency); virtual;
+    procedure SetIMPORTEIsNull(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 ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
+    property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+    property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
+    property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
+    property ID_CONTRATOIsNull : Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
+    property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
+    property OldID_CONTRATOIsNull : Boolean read GetOldID_CONTRATOIsNull;
+    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 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 : Currency read GetIMPORTEValue write SetIMPORTEValue;
+    property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
+    property OldIMPORTE : Currency read GetOldIMPORTEValue;
+    property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
   { IFacturasProveedorDelta }
   IFacturasProveedorDelta = interface(IFacturasProveedor)
-  ['{1DB4D8A7-7089-4F96-A433-E160E9BCF222}']
+  ['{FB90A42D-E182-4F49-9873-E549CD6C3519}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -577,7 +684,7 @@ type
 
   { IFacturasProveedor_DetallesDelta }
   IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
-  ['{F8EAC101-E855-449E-84E3-C54BC44929DB}']
+  ['{25250ECD-8E6B-4B25-9F0A-00B4B207C317}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -813,6 +920,235 @@ begin
 end;
 
 
+{ TFacturasProveedor_ContratosBusinessProcessorRules }
+constructor TFacturasProveedor_ContratosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TFacturasProveedor_ContratosBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID]);
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID]);
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID] := aValue;
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID] := Null;
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetID_FACTURAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_FACTURA];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_FACTURA]);
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID_FACTURA];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID_FACTURA]);
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_FACTURA] := aValue;
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_FACTURA] := Null;
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetID_CONTRATOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_CONTRATO];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetID_CONTRATOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_CONTRATO]);
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldID_CONTRATOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID_CONTRATO];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldID_CONTRATOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID_CONTRATO]);
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetID_CONTRATOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_CONTRATO] := aValue;
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetID_CONTRATOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_CONTRATO] := Null;
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA]);
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosREFERENCIA];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosREFERENCIA]);
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA] := aValue;
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA] := Null;
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetNOMBREValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE]);
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosNOMBRE];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosNOMBRE]);
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE] := aValue;
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE] := Null;
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetNIF_CIFValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNIF_CIF];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNIF_CIF]);
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldNIF_CIFValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosNIF_CIF];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosNIF_CIF]);
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNIF_CIF] := aValue;
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNIF_CIF] := Null;
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetIMPORTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetIMPORTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE]);
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldIMPORTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosIMPORTE];
+end;
+
+function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosIMPORTE]);
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE] := aValue;
+end;
+
+procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE] := Null;
+end;
+
+
 { TFacturasProveedorBusinessProcessorRules }
 constructor TFacturasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 var
@@ -2583,6 +2919,7 @@ end;
 
 initialization
   RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_FacturasProveedor_ContratosDelta, TFacturasProveedor_ContratosBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_FacturasProveedorDelta, TFacturasProveedorBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_FacturasProveedor_DetallesDelta, TFacturasProveedor_DetallesBusinessProcessorRules);
 

Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas

@@ -7,18 +7,28 @@ uses
 
 const
   BIZ_CLIENT_DETALLES_FACTURA_Proveedor = 'Client.DetallesFactura.Proveedor';
+  BIZ_CLIENT_CONTRATOS_FACTURA_Proveedor = 'Client.ContratosFactura.Proveedor';
 
 type
   IBizDetallesFacturaProveedor = interface(IFacturasProveedor_Detalles)
   ['{785A33CF-17AF-4FFC-9904-33AD3489A6B5}']
   end;
 
+  IBizContratosFacturaProveedor = interface(IFacturasProveedor_Contratos)
+  ['{7C95F11B-9ED5-408A-A7CC-804288086511}']
+  end;
+
   TBizDetallesFacturaProveedor = class(TFacturasProveedor_DetallesDataTableRules, IBizDetallesFacturaProveedor)
   protected
     procedure OnNewRecord(Sender: TDADataTable); override;
     procedure BeforeInsert(Sender: TDADataTable); override;
   end;
 
+  TBizContratosFacturaProveedor = class(TFacturasProveedor_ContratosDataTableRules, IBizContratosFacturaProveedor)
+  protected
+    procedure BeforeInsert(Sender: TDADataTable); override;
+  end;
+
 implementation
 
 uses
@@ -44,7 +54,22 @@ begin
   VISIBLE := 1;
 end;
 
+{ TBizContratosFacturaProveedor }
+
+procedure TBizContratosFacturaProveedor.BeforeInsert(Sender: TDADataTable);
+var
+  AMasterTable : TDADataTable;
+begin
+  inherited;
+  AMasterTable := DataTable.GetMasterDataTable;
+  if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
+  begin
+    AMasterTable.Post;
+  end;
+end;
+
 initialization
   RegisterDataTableRules(BIZ_CLIENT_DETALLES_FACTURA_PROVEEDOR, TBizDetallesFacturaProveedor);
+  RegisterDataTableRules(BIZ_CLIENT_CONTRATOS_FACTURA_PROVEEDOR, TBizContratosFacturaProveedor);  
 
 end.

Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas

@@ -34,6 +34,10 @@ type
     procedure SetDetalles(Value: IBizDetallesFacturaProveedor);
     property Detalles: IBizDetallesFacturaProveedor read GetDetalles write SetDetalles;
 
+    function GetContratos: IBizContratosFacturaProveedor;
+    procedure SetContratos(Value: IBizContratosFacturaProveedor);
+    property Contratos: IBizContratosFacturaProveedor read GetContratos write SetContratos;
+
 		function EsNuevo : Boolean;
     procedure CalcularImporteTotal;
   end;
@@ -50,6 +54,8 @@ type
     FProveedor : IBizProveedor;
     FDetalles : IBizDetallesFacturaProveedor;
     FDetallesLink : TDADataSource;
+    FContratos : IBizContratosFacturaProveedor;
+    FContratosLink : TDADataSource;
 
     procedure SetProveedor(AValue : IBizProveedor);
     function GetProveedor : IBizProveedor;
@@ -60,6 +66,9 @@ type
     function GetDetalles: IBizDetallesFacturaProveedor;
     procedure SetDetalles(Value: IBizDetallesFacturaProveedor);
 
+    function GetContratos: IBizContratosFacturaProveedor;
+    procedure SetContratos(Value: IBizContratosFacturaProveedor);
+
     procedure RECARGO_EQUIVALENCIAOnChange(Sender: TDACustomField);
     procedure ID_TIPO_IVAOnChange(Sender: TDACustomField);
 
@@ -68,7 +77,7 @@ type
     procedure DESCUENTOOnChange(Sender: TDACustomField);
     procedure IVAOnChange(Sender: TDACustomField);
     procedure REOnChange(Sender: TDACustomField);
-		procedure SetID_TIENDAValue(const aValue: Integer); 
+		procedure SetID_TIENDAValue(const aValue: Integer);
     procedure SetID_SUBCUENTAValue(const aValue: Integer);
 
     procedure OnNewRecord(Sender: TDADataTable); override;
@@ -81,6 +90,7 @@ type
     property Proveedor : IBizProveedor read GetProveedor write SetProveedor;
     property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor;
     property Detalles: IBizDetallesFacturaProveedor read GetDetalles write SetDetalles;
+    property Contratos: IBizContratosFacturaProveedor read GetContratos write SetContratos;
 
     property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
         write FSeleccionableInterface implements ISeleccionable;
@@ -194,6 +204,9 @@ begin
   FDetallesLink := TDADataSource.Create(NIL);
   FDetallesLink.DataTable := aDataTable;
 
+  FContratosLink := TDADataSource.Create(NIL);
+  FContratosLink.DataTable := aDataTable;
+
   FSeleccionableInterface := TSeleccionable.Create(aDataTable);
 end;
 
@@ -207,6 +220,8 @@ begin
   FProveedor := NIL;
   FDetalles := NIL;
   FDetallesLink.Free;
+  FContratos := NIL;
+  FContratosLink.Free;
 
   FSeleccionableInterface := NIL;
   inherited;
@@ -217,6 +232,11 @@ begin
   Result := FProveedor;
 end;
 
+function TBizFacturaProveedor.GetContratos: IBizContratosFacturaProveedor;
+begin
+  Result := FContratos;
+end;
+
 function TBizFacturaProveedor.GetDetalles: IBizDetallesFacturaProveedor;
 begin
   Result := FDetalles;
@@ -333,6 +353,12 @@ begin
   end
 end;
 
+procedure TBizFacturaProveedor.SetContratos(Value: IBizContratosFacturaProveedor);
+begin
+  FContratos := Value;
+  EnlazarMaestroDetalle(FContratosLink, FContratos);
+end;
+
 procedure TBizFacturaProveedor.SetDetalles(Value: IBizDetallesFacturaProveedor);
 begin
   FDetalles := Value;

Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm

@@ -6,8 +6,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
   ServiceDataStreamer = Bin2DataStreamer
   ExportedDataTables = <>
   BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
-  Height = 180
+  Height = 271
-  Width = 386
+  Width = 528
   object schFacturasProveedor: TDASchema
     ConnectionManager = dmServer.ConnectionManager
     DataDictionary = DataDictionary
@@ -40,6 +40,99 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             Size = 255
           end>
       end
+      item
+        Params = <>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'FACTURAS_PROVEEDOR_CONTRATOS'
+            Name = 'IBX'
+            SQL = 
+              'SELECT '#10'    FACTURAS_PROVEEDOR_CONTRATOS.ID, FACTURAS_PROVEEDOR_' +
+              'CONTRATOS.ID_FACTURA, FACTURAS_PROVEEDOR_CONTRATOS.ID_CONTRATO,'#10 +
+              '    contratos_cliente.referencia, contratos_cliente.nombre, cont' +
+              'ratos_cliente.nif_cif,'#10'    FACTURAS_PROVEEDOR_CONTRATOS.IMPORTE'#10 +
+              '  FROM'#10'    FACTURAS_PROVEEDOR_CONTRATOS'#10'  left join contratos_cl' +
+              'iente on (contratos_cliente.id = FACTURAS_PROVEEDOR_CONTRATOS.id' +
+              '_contrato)'#10'  WHERE {Where}'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ID_FACTURA'
+                TableField = 'ID_FACTURA'
+              end
+              item
+                DatasetField = 'ID_CONTRATO'
+                TableField = 'ID_CONTRATO'
+              end
+              item
+                DatasetField = 'NOMBRE'
+                TableField = '<unknown>'
+                SQLOrigin = 'NOMBRE'
+              end
+              item
+                DatasetField = 'NIF_CIF'
+                TableField = '<unknown>'
+                SQLOrigin = 'NIF_CIF'
+              end
+              item
+                DatasetField = 'IMPORTE'
+                TableField = 'IMPORTE'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = '<unknown>'
+                SQLOrigin = 'REFERENCIA'
+              end>
+          end>
+        Name = 'FacturasProveedor_Contratos'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_FACTURAS_PROV_CONTRATOS_ID'
+            ServerAutoRefresh = True
+            DictionaryEntry = 'FacturasProveedor_Contratos_ID'
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ID_FACTURA'
+            DataType = datInteger
+            DictionaryEntry = 'FacturasProveedor_Contratos_ID_FACTURA'
+          end
+          item
+            Name = 'ID_CONTRATO'
+            DataType = datInteger
+            DictionaryEntry = 'FacturasProveedor_Contratos_ID_CONTRATO'
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'FacturasProveedor_Contratos_NOMBRE'
+          end
+          item
+            Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
+            DictionaryEntry = 'FacturasProveedor_Contratos_NIF_CIF'
+          end
+          item
+            Name = 'IMPORTE'
+            DataType = datCurrency
+            DictionaryEntry = 'FacturasProveedor_Contratos_IMPORTE'
+          end>
+      end
       item
         Params = <>
         Statements = <
@@ -1196,8 +1289,108 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             ColumnMappings = <>
           end>
         Name = 'Update_FacturasProveedor_Detalles'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_FACTURAS_PROV_CONTRATOS_ID'
+            Value = ''
+          end
+          item
+            Name = 'ID_FACTURA'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'ID_CONTRATO'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE'
+            DataType = datCurrency
+            Value = ''
+          end>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'FACTURAS_PROVEEDOR_CONTRATOS'
+            SQL = 
+              'INSERT'#10'  INTO FACTURAS_PROVEEDOR_CONTRATOS'#10'    (ID, ID_FACTURA, ' +
+              'ID_CONTRATO, IMPORTE)'#10'  VALUES'#10'    (:ID, :ID_FACTURA, :ID_CONTRA' +
+              'TO, :IMPORTE)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_FacturasProveedor_Contratos'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID'
+            DataType = datAutoInc
+            Value = ''
+          end>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'FACTURAS_PROVEEDOR_CONTRATOS'
+            SQL = 
+              'DELETE '#10'  FROM'#10'    FACTURAS_PROVEEDOR_CONTRATOS'#10'  WHERE'#10'    (ID ' +
+              '= :OLD_ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_FacturasProveedor_Contratos'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_FACTURA'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'ID_CONTRATO'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE'
+            DataType = datCurrency
+            Value = ''
+          end
+          item
+            Name = 'OLD_ID'
+            Value = ''
+          end>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'FACTURAS_PROVEEDOR_CONTRATOS'
+            SQL = 
+              'UPDATE FACTURAS_PROVEEDOR_CONTRATOS'#10'  SET '#10'    ID_FACTURA = :ID_' +
+              'FACTURA, '#10'    ID_CONTRATO = :ID_CONTRATO, '#10'    IMPORTE = :IMPORT' +
+              'E'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_FacturasProveedor_Contratos'
       end>
     RelationShips = <
+      item
+        Name = 'FK_FacturasProveedor_Contratos'
+        MasterDatasetName = 'FacturasProveedor'
+        MasterFields = 'ID'
+        DetailDatasetName = 'FacturasProveedor_Contratos'
+        DetailFields = 'ID_FACTURA'
+        RelationshipType = rtForeignKey
+      end
       item
         Name = 'FK_FacturasProveedor_Detalles'
         MasterDatasetName = 'FacturasProveedor'
@@ -1221,6 +1414,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
         DatasetName = 'FacturasProveedor_Detalles'
         FailureBehavior = fbRaiseException
       end
+      item
+        Name = 'Insert FacturasProveedor_Contratos'
+        DoUpdate = False
+        DoDelete = False
+        DatasetName = 'FacturasProveedor_Contratos'
+        FailureBehavior = fbRaiseException
+      end
       item
         Name = 'Update FacturasProveedor'
         DoInsert = False
@@ -1235,6 +1435,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
         DatasetName = 'FacturasProveedor_Detalles'
         FailureBehavior = fbRaiseException
       end
+      item
+        Name = 'Update FacturasProveedor_Contratos'
+        DoInsert = False
+        DoDelete = False
+        DatasetName = 'FacturasProveedor_Contratos'
+        FailureBehavior = fbRaiseException
+      end
       item
         Name = 'Delete FacturasProveedor_Detalles'
         DoUpdate = False
@@ -1242,6 +1449,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
         DatasetName = 'FacturasProveedor_Detalles'
         FailureBehavior = fbRaiseException
       end
+      item
+        Name = 'Delete FacturasProveedor_Contratos'
+        DoUpdate = False
+        DoInsert = False
+        DatasetName = 'FacturasProveedor_Contratos'
+        FailureBehavior = fbRaiseException
+      end
       item
         Name = 'Delete FacturasProveedor'
         DoUpdate = False
@@ -1543,6 +1757,35 @@ object srvFacturasProveedor: TsrvFacturasProveedor
         DataType = datString
         Size = 255
         DisplayLabel = 'REFERENCIA_PROVEEDOR'
+      end
+      item
+        Name = 'FacturasProveedor_Contratos_ID'
+        DataType = datAutoInc
+        GeneratorName = 'GEN_FACTURAS_PROV_CONTRATOS_ID'
+        DisplayLabel = 'ID'
+        ServerAutoRefresh = True
+      end
+      item
+        Name = 'FacturasProveedor_Contratos_ID_FACTURA'
+        DataType = datInteger
+      end
+      item
+        Name = 'FacturasProveedor_Contratos_ID_CONTRATO'
+        DataType = datInteger
+      end
+      item
+        Name = 'FacturasProveedor_Contratos_NOMBRE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'FacturasProveedor_Contratos_NIF_CIF'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'FacturasProveedor_Contratos_IMPORTE'
+        DataType = datCurrency
       end>
     Left = 150
     Top = 22
@@ -1573,4 +1816,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
     Left = 48
     Top = 80
   end
+  object bpFacturasProveedor_Contratos: TDABusinessProcessor
+    Schema = schFacturasProveedor
+    InsertCommandName = 'Insert_FacturasProveedor_Contratos'
+    DeleteCommandName = 'Delete_FacturasProveedor_Contratos'
+    UpdateCommandName = 'Update_FacturasProveedor_Contratos'
+    ReferencedDataset = 'FacturasProveedor_Contratos'
+    ProcessorOptions = [poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 280
+    Top = 136
+  end
 end

Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas

@@ -25,6 +25,7 @@ type
     bpFacturasProveedor: TDABusinessProcessor;
     bpFacturasProveedor_Detalles: TDABusinessProcessor;
     Bin2DataStreamer: TDABin2DataStreamer;
+    bpFacturasProveedor_Contratos: TDABusinessProcessor;
     schFacturasProveedor: TDASchema;
     DataDictionary: TDADataDictionary;
     procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;

Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj

@@ -41,6 +41,9 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -49,35 +52,42 @@
     <DelphiCompile Include="FacturasProveedor_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Recibos de cliente\adortl.dcp" />
+    <DCCReference Include="..\adortl.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\Articulos_view.dcp" />
+    <DCCReference Include="..\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\Contabilidad_controller.dcp" />
+    <DCCReference Include="..\Contabilidad_controller.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\Contabilidad_view.dcp" />
+    <DCCReference Include="..\Contabilidad_view.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\Contactos_controller.dcp" />
+    <DCCReference Include="..\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\Contactos_model.dcp" />
+    <DCCReference Include="..\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\ContratosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\ContratosCliente_model.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\cxDataD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\cxExportD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\dsnap.dcp" />
+    <DCCReference Include="..\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\dxComnD11.dcp" />
+    <DCCReference Include="..\cxGridD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\cxPageControlD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\FacturasProveedor_controller.dcp" />
+    <DCCReference Include="..\dbrtl.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\FacturasProveedor_model.dcp" />
+    <DCCReference Include="..\dsnap.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\GestorInformes_controller.dcp" />
+    <DCCReference Include="..\dxComnD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\GUIBase.dcp" />
+    <DCCReference Include="..\dxCoreD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\rtl.dcp" />
+    <DCCReference Include="..\FacturasProveedor_controller.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\vcl.dcp" />
+    <DCCReference Include="..\FacturasProveedor_model.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\Recibos de cliente\vclx.dcp" />
+    <DCCReference Include="..\PNG_D10.dcp" />
+    <DCCReference Include="..\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="..\vclactnband.dcp" />
+    <DCCReference Include="..\vcldb.dcp" />
+    <DCCReference Include="..\vcljpg.dcp" />
+    <DCCReference Include="..\vclx.dcp" />
     <DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
       <Form>fEditorElegirArticulosFacturaProveedor</Form>
       <DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
@@ -95,6 +105,10 @@
       <DesignClass>TfEditorFacturasProveedorReport</DesignClass>
     </DCCReference>
     <DCCReference Include="uFacturasProveedorViewRegister.pas" />
+    <DCCReference Include="uViewContratosFacturaProveedor.pas">
+      <Form>frViewContratosFacturaProveedor</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewDetallesFacturaProveedor.pas">
       <Form>frViewDetallesFacturaProveedor</Form>
       <DesignClass>TFrame</DesignClass>

Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm

@@ -81,8 +81,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
   inherited pgPaginas: TPageControl
     Width = 740
     Height = 312
+    ActivePage = PagContratos
     OnChanging = pgPaginasChanging
-    ExplicitTop = 109
     ExplicitWidth = 740
     ExplicitHeight = 312
     inherited pagGeneral: TTabSheet
@@ -202,14 +202,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
             end
           end
           inherited frViewObservaciones1: TfrViewObservaciones
-            Width = 521
+            Width = 671
             Height = 228
-            ExplicitWidth = 521
+            ExplicitWidth = 671
             ExplicitHeight = 228
             inherited memObservaciones: TcxDBMemo
               DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
               Height = 228
-              Width = 521
+              Width = 671
             end
           end
         end
@@ -218,6 +218,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
         Left = 0
         Top = 0
@@ -308,9 +312,52 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
         end
       end
     end
+    object PagContratos: TTabSheet
+      Caption = 'Contratos'
+      ImageIndex = 2
+      inline frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor
+        Left = 0
+        Top = 0
+        Width = 732
+        Height = 284
+        Align = alClient
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 0
+        ReadOnly = False
+        ExplicitWidth = 732
+        ExplicitHeight = 284
+        inherited cxGrid: TcxGrid
+          Width = 732
+          Height = 259
+          ExplicitWidth = 732
+          ExplicitHeight = 259
+        end
+        inherited ToolBar1: TToolBar
+          Width = 732
+          ExplicitWidth = 732
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
+        end
+      end
+    end
     object pagContabilidad: TTabSheet
       Caption = 'Contabilidad'
-      ImageIndex = 2
+      ImageIndex = 3
       inline frViewListaSubcuentas1: TfrViewListaSubcuentas
         Left = 0
         Top = 0
@@ -569,11 +616,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
                   Visible = False
                 end
               end
-              inherited dxLayoutControl1Group8: TdxLayoutGroup
-                inherited dxLayoutControl1Item7: TdxLayoutItem
-                  Visible = True
-                end
-              end
             end
           end
         end
@@ -583,10 +625,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
   inherited PnlComentario: TPanel [5]
     Width = 746
     ExplicitWidth = 746
-    inherited lbComentario: TLabel
-      Width = 736
-      Height = 25
-    end
   end
   inherited EditorActionList: TActionList [9]
     Left = 8

Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas

@@ -14,7 +14,8 @@ uses
   dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uBizTiposIVA,
   uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController,
   uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces,
-  cxControls, cxContainer, cxEdit, cxCheckBox, cxDBEdit, uViewListaSubCuentas;
+  cxControls, cxContainer, cxEdit, cxCheckBox, cxDBEdit, uViewListaSubCuentas,
+  uViewDetallesGenerico, uViewContratosFacturaProveedor;
 
 
 type
@@ -24,6 +25,8 @@ type
     frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor;
     pagContabilidad: TTabSheet;
     frViewListaSubcuentas1: TfrViewListaSubcuentas;
+    PagContratos: TTabSheet;
+    frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor;
     procedure FormShow(Sender: TObject);
     procedure frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(
       Sender: TObject);
@@ -409,6 +412,7 @@ begin
   begin
      ViewFacturaProveedor.Controller := FController;
      frViewDetallesFacturaProveedor1.Controller := Controller.DetallesController;
+     frViewContratosFacturaProveedor1.Controller := Controller.ContratosController;     
   end;
 end;
 
@@ -434,6 +438,7 @@ begin
       FViewFactura.Factura := FFactura;
       frViewDetallesFacturaProveedor1.Detalles := FFactura.Detalles;
       frViewDetallesFacturaProveedor1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el proveedor seleccionado
+      frViewContratosFacturaProveedor1.Contratos := FFactura.Contratos;      
     end;
 
     {$IFDEF CONTABILIDAD}

Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm

@@ -1,9 +1,18 @@
 inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor
   inherited cxGrid: TcxGrid
     inherited cxGridView: TcxGridDBTableView
+      inherited cxGridViewCANTIDAD: TcxGridDBColumn
+        Properties.Alignment.Horz = taRightJustify
+      end
+      inherited cxGridViewDESCUENTO: TcxGridDBColumn
+        Visible = False
+        VisibleForCustomization = False
+      end
       inherited cxGridViewIMPORTENETO: TcxGridDBColumn
         Properties.ReadOnly = False
+        Visible = False
         Options.Editing = True
+        VisibleForCustomization = False
       end
     end
   end

Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas

@@ -13,7 +13,8 @@ uses
   cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
   cxImage, Grids, DBGrids, uBizFacturasProveedor, cxGridCustomPopupMenu,
   cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
-  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
+  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, uCustomView,
+  uViewBase;
 
 type
   IViewFacturasProveedor = interface(IViewGrid)

Source/Servidor/FactuGES_Server.dpr

@@ -125,18 +125,18 @@ uses
   schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
   schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
-  schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
-  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
   schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
   schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
   schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
-  schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
-  schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
   schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
   schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
+  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
+  schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
+  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_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 ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

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