git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@93 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.pas

@@ -52,8 +52,7 @@ begin
     begin
       Clear;
       // (ID = :ID)
-      Expression := NewBinaryExpression(NewField('', fld_EmpresasID),
+      Expression := NewBinaryExpression(NewField('', fld_EmpresasID), NewConstant(ID, datInteger), dboEqual);
-        NewConstant(ID, datInteger), dboEqual);
     end;
   finally
     HideHourglassCursor;

Source/Base/Base.dproj

@@ -51,13 +51,6 @@
       
       
       
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -72,57 +65,57 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\adortl.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxDataD10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxEditorsD10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxExportD10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxExtEditorsD10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxGridD10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntl5D10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntlPrintSys3D10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxLibraryD10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxPageControlD10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\dbrtl.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\dclIndyCore.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\designide.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\dsnap.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\dxPSCoreD10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\dxThemeD10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\GUISDK_D11.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyCore.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyProtocols.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndySystem.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\Jcl.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JclVcl.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JSDialog100.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCmpD11R.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvMMD11R.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvNetD11R.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckMD5.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\PNG_D10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\rtl.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\TB2k_D10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\tbx_d10.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcl.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\vclactnband.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcldb.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcljpg.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\VclSmp.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\vclx.dcp" />
-    <DCCReference Include="..\..\Output\Debug\Servidor\Informes\xmlrtl.dcp" />
     <DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
     <DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxDataD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxExportD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxGridD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxIntl5D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxIntlPrintSys3D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>

Source/GUIBase/GUIBase.drc

@@ -35,4 +35,4 @@ END
 /* C:\Codigo Tecsitel\Source\GUIBase\uDialogBase.dfm */
 /* C:\Codigo Tecsitel\Source\GUIBase\uViewGrid.dfm */
 /* C:\Codigo Tecsitel\Source\GUIBase\GUIBase.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf17B.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf92.tmp */

Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */
-/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.drf */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE6.tmp */

Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -188,52 +188,48 @@ begin
 end;
 
 function TAlbaranesClienteController.BuscarAlbaranesDevolucion: IBizAlbaranCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
+
     with Result.DataTable.DynamicWhere do
     begin
-      // (ID = :ID)
+      // (IMPORTE_TOTAL < 0)
-      Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL),
+      Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL), NewConstant(0, datCurrency), dboLess);
-      NewConstant(0, datCurrency), dboLess);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
-{
+
-    with Result.DataTable.Where do
-    begin
-      if NotEmpty then
-        AddOperator(opAND);
-      OpenBraket;
-      AddCondition(fld_AlbaranesClienteIMPORTE_TOTAL, cLess, 0);
-      CloseBraket;
-    end;
-}
   finally
     HideHourglassCursor;
   end;
 end;
 
 function TAlbaranesClienteController.BuscarAlbaranesNormales: IBizAlbaranCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
+
     with Result.DataTable.DynamicWhere do
     begin
-      // (ID = :ID)
+      // (IMPORTE_TOTAL >= 0)
-      Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL),
+      Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteIMPORTE_TOTAL), NewConstant(0, datCurrency), dboGreaterOrEqual);
-      NewConstant(0, datCurrency), dboGreaterOrEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
 
-{    with Result.DataTable.Where do
-    begin
-      if NotEmpty then
-        AddOperator(opAND);
-      OpenBraket;
-      AddCondition(fld_AlbaranesClienteIMPORTE_TOTAL, cMajorOrEqual, 0);
-      CloseBraket;
-    end;
-}
   finally
     HideHourglassCursor;
   end;
@@ -246,36 +242,48 @@ begin
 end;
 
 function TAlbaranesClienteController.BuscarPendientes: IBizAlbaranCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarAlbaranesNormales;
-    with Result.DataTable.Where do
+
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
+      // (SITUACION = SERVIDO)
-        AddOperator(opAND);
+      Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteSITUACION), NewConstant(SITUACION_ALBARAN_SERVIDO, datString), dboEqual);
-      OpenBraket;
+
-      AddText(fld_AlbaranesClienteSITUACION + ' = ''' + SITUACION_ALBARAN_SERVIDO + '''');
+      if IsEmpty then
-      CloseBraket;
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
 end;
 
 function TAlbaranesClienteController.BuscarSinFacturar: IBizAlbaranCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarAlbaranesNormales;
-    with Result.DataTable.Where do
+
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
+      // (ID_FACTURA = NULL)
-        AddOperator(opAND);
+      Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_FACTURA), NewNull(), dboEqual);
-      OpenBraket;
+
-      AddText(fld_AlbaranesClienteID_FACTURA + ' is null');
+      if IsEmpty then
-      CloseBraket;
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
@@ -824,21 +832,20 @@ begin
   Result := ASeleccionados;
 end;
 
-procedure TAlbaranesClienteController.FiltrarEmpresa(
+procedure TAlbaranesClienteController.FiltrarEmpresa(AAlbaran: IBizAlbaranCliente);
-  AAlbaran: IBizAlbaranCliente);
 begin
   if AAlbaran.DataTable.Active then
     AAlbaran.DataTable.Active := False;
 
-{
+  // Filtrar los albaranes actuales por empresa
-  // Filtrar los presupuestos actuales por empresa
+{  with AContacto.DataTable.DynamicWhere do
-  with AAlbaran.DataTable.Where do
   begin
-    if NotEmpty then
+    Clear;
-      AddOperator(opAND);
+    // (ID = :ID)
-    AddCondition(fld_AlbaranesClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+    Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_EMPRESA),
+      NewConstant(dmUsuarios.IDEmpresaActual, datInteger), dboEqual);
   end;
-}  
+}
 end;
 
 procedure TAlbaranesClienteController.SetClienteController(const Value: IClientesController);

Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1CD.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE4.tmp */

Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm

@@ -30,6 +30,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         Name = 'ID'
         DataType = datAutoInc
         GeneratorName = 'GEN_ALBARANES_CLI_ID'
+        Required = True
         ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesCliente_ID'
         InPrimaryKey = True
@@ -283,14 +284,14 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'AlbaranesCliente'
     IndexDefs = <>
-    Left = 208
+    Left = 232
-    Top = 104
+    Top = 128
   end
   object ds_AlbaranesCliente: TDADataSource
     DataSet = tbl_AlbaranesCliente.Dataset
     DataTable = tbl_AlbaranesCliente
-    Left = 208
+    Left = 232
-    Top = 40
+    Top = 56
   end
   object tbl_AlbaranesCliente_Detalles: TDAMemDataTable
     RemoteUpdatesOptions = []
@@ -392,12 +393,12 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
     LogicalName = 'AlbaranesCliente_Detalles'
     IndexDefs = <>
     Left = 384
-    Top = 104
+    Top = 128
   end
   object ds_AlbaranesCliente_Detalles: TDADataSource
     DataSet = tbl_AlbaranesCliente_Detalles.Dataset
     DataTable = tbl_AlbaranesCliente_Detalles
     Left = 384
-    Top = 40
+    Top = 56
   end
 end

Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas

@@ -93,20 +93,24 @@ begin
 end;
 
 function TDataModuleAlbaranesCliente.GetItem(const ID: Integer): IBizAlbaranCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
-//REVISAR    
+
-{    with Result.DataTable.Where do
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
+      // (ID = :ID)
-         AddOperator(opAND);
+      Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteID), NewConstant(ID, datInteger), dboEqual);
-      OpenBraket;
+
-      AddText(fld_AlbaranesClienteID + ' = ' + IntToStr(ID));
+      if IsEmpty then
-      CloseBraket;
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
-}
+
   finally
     HideHourglassCursor;
   end;
@@ -119,12 +123,11 @@ begin
   ShowHourglassCursor;
   try
     AAlbaran := CloneDataTable(tbl_AlbaranesCliente);
+    AsignarClaseNegocio(AAlbaran);
 
     // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
     AAlbaran.FieldByName(fld_AlbaranesClienteREFERENCIA).ServerAutoRefresh := TRUE;
 
-    AsignarClaseNegocio(AAlbaran);
-
     with TBizAlbaranCliente(AAlbaran.BusinessEventsObj) do
     begin
       Detalles := _GetDetalles;

Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1CB.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE2.tmp */

Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas

@@ -9,9 +9,9 @@ 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_DarReferencia = '{3064CE78-1DEF-447D-92EC-05ACE1C82546}';
+  RID_DarReferencia = '{A693E269-BAF7-46A1-84E5-DBC746856BE3}';
-  RID_AlbaranesCliente = '{47ACC563-2892-497C-A352-219214A5B5D7}';
+  RID_AlbaranesCliente = '{1D19F302-9D09-4E86-9602-98B88C9FF5E7}';
-  RID_AlbaranesCliente_Detalles = '{A3936C03-05C3-4AF0-885C-E9490860F5E9}';
+  RID_AlbaranesCliente_Detalles = '{DFBF54C4-E8F9-47BA-9920-89709FB21148}';
 
   { Data table names }
   nme_DarReferencia = 'DarReferencia';
@@ -141,7 +141,7 @@ const
 type
   { IDarReferencia }
   IDarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{877284B1-53EC-46E3-AAE3-B3153676982A}']
+  ['{15B4231D-DD94-42A2-9AC2-4C32AFB4B267}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -176,7 +176,7 @@ type
 
   { IAlbaranesCliente }
   IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
-  ['{B82CD28D-7ECC-4D09-9700-1EA713C7F621}']
+  ['{26F46D95-DBBE-40FD-BB99-EEC4B6EE75CD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -667,7 +667,7 @@ type
 
   { IAlbaranesCliente_Detalles }
   IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{AE3D76A3-4B8A-46D5-9B22-3F69B3BB489C}']
+  ['{C442C7DF-32BE-4A00-8446-3DA2F08508AC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);

Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas

@@ -9,14 +9,14 @@ 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_DarReferenciaDelta = '{ED087064-A93F-4F83-AB90-08AA4BF5F6D3}';
+  RID_DarReferenciaDelta = '{95530CA0-F6C5-439B-ACE3-8DD1B50D65AC}';
-  RID_AlbaranesClienteDelta = '{8C94D643-A1FB-4FC8-84D3-D0BE4B2A9B61}';
+  RID_AlbaranesClienteDelta = '{9E1A105B-7BE6-4100-BED9-9EB5E4517371}';
-  RID_AlbaranesCliente_DetallesDelta = '{ABC9FD9E-7737-47A6-83EA-E51FE4139B46}';
+  RID_AlbaranesCliente_DetallesDelta = '{4FD893A0-294F-4ACF-8656-9DC37A524688}';
 
 type
   { IDarReferenciaDelta }
   IDarReferenciaDelta = interface(IDarReferencia)
-  ['{ED087064-A93F-4F83-AB90-08AA4BF5F6D3}']
+  ['{95530CA0-F6C5-439B-ACE3-8DD1B50D65AC}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IAlbaranesClienteDelta }
   IAlbaranesClienteDelta = interface(IAlbaranesCliente)
-  ['{8C94D643-A1FB-4FC8-84D3-D0BE4B2A9B61}']
+  ['{9E1A105B-7BE6-4100-BED9-9EB5E4517371}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -542,7 +542,7 @@ type
 
   { IAlbaranesCliente_DetallesDelta }
   IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
-  ['{ABC9FD9E-7737-47A6-83EA-E51FE4139B46}']
+  ['{4FD893A0-294F-4ACF-8656-9DC37A524688}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;

Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas

@@ -15,12 +15,27 @@ type
   end;
 
   TBizDetallesAlbaranCliente = class(TAlbaranesCliente_DetallesDataTableRules, IBizDetallesAlbaranCliente)
+  protected
+      procedure BeforeInsert(Sender: TDADataTable); override;
   end;
 
 implementation
 
+uses
+  DB;
+
 { TBizDetallesAlbaranCliente }
 
+procedure TBizDetallesAlbaranCliente.BeforeInsert(Sender: TDADataTable);
+var
+  AMasterTable : TDADataTable;
+begin
+  inherited;
+  AMasterTable := DataTable.GetMasterDataTable;
+  if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
+    AMasterTable.Post;
+end;
+
 initialization
   RegisterDataTableRules(BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE, TBizDetallesAlbaranCliente);
 

Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DD.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF4.tmp */

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -620,16 +620,179 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
       item
         Params = <
           item
-            Name = 'OLD_ID'
+            Name = 'ID'
-            DataType = datInteger
+            DataType = datAutoInc
+            GeneratorName = 'GEN_ALBARANES_CLI_ID'
+            Value = ''
+          end
+          item
+            Name = 'ID_EMPRESA'
+            Value = ''
+          end
+          item
+            Name = 'ID_CLIENTE'
+            Value = ''
+          end
+          item
+            Name = 'FECHA_ALBARAN'
+            Value = ''
+          end
+          item
+            Name = 'REFERENCIA'
+            Value = ''
+          end
+          item
+            Name = 'REFERENCIA_CLIENTE'
+            Value = ''
+          end
+          item
+            Name = 'ID_ALMACEN'
+            Value = ''
+          end
+          item
+            Name = 'ID_PEDIDO'
+            Value = ''
+          end
+          item
+            Name = 'ID_FACTURA'
+            Value = ''
+          end
+          item
+            Name = 'CALLE'
+            Value = ''
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            Value = ''
+          end
+          item
+            Name = 'POBLACION'
+            Value = ''
+          end
+          item
+            Name = 'PROVINCIA'
+            Value = ''
+          end
+          item
+            Name = 'PERSONA_CONTACTO'
+            Value = ''
+          end
+          item
+            Name = 'TELEFONO'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_NETO'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_PORTE'
+            Value = ''
+          end
+          item
+            Name = 'DESCUENTO'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_DESCUENTO'
+            Value = ''
+          end
+          item
+            Name = 'BASE_IMPONIBLE'
+            Value = ''
+          end
+          item
+            Name = 'IVA'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_IVA'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_TOTAL'
+            Value = ''
+          end
+          item
+            Name = 'OBSERVACIONES'
+            Value = ''
+          end
+          item
+            Name = 'INCIDENCIAS'
+            Value = ''
+          end
+          item
+            Name = 'INCIDENCIAS_ACTIVAS'
+            Value = ''
+          end
+          item
+            Name = 'FECHA_ALTA'
+            Value = ''
+          end
+          item
+            Name = 'FECHA_MODIFICACION'
+            Value = ''
+          end
+          item
+            Name = 'USUARIO'
+            Value = ''
+          end
+          item
+            Name = 'ID_FORMA_PAGO'
+            Value = ''
+          end
+          item
+            Name = 'FECHA_PREVISTA_ENVIO'
+            Value = ''
+          end
+          item
+            Name = 'FECHA_ENVIO'
+            Value = ''
+          end
+          item
+            Name = 'FECHA_RECEPCION'
             Value = ''
-            ParamType = daptInput
           end>
         Statements = <
           item
             Connection = 'IBX'
+            Default = True
             TargetTable = 'ALBARANES_CLIENTE'
-            SQL = 'DELETE '#10'  FROM'#10'    ALBARANES_CLIENTE'#10'  WHERE'#10'    (ID = :OLD_ID)'
+            SQL = 
+              'INSERT'#10'  INTO ALBARANES_CLIENTE'#10'    (ID, ID_EMPRESA, ID_CLIENTE,' +
+              ' FECHA_ALBARAN, REFERENCIA,'#10'     REFERENCIA_CLIENTE, ID_ALMACEN,' +
+              ' ID_PEDIDO, ID_FACTURA, CALLE,'#10'     CODIGO_POSTAL, POBLACION, PR' +
+              'OVINCIA, PERSONA_CONTACTO, '#10'     TELEFONO, IMPORTE_NETO, IMPORTE' +
+              '_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10'     BASE_IMPONIBLE, IVA,' +
+              ' IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10'     INCIDENCIAS, I' +
+              'NCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10'     USUARI' +
+              'O, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_ENVIO, '#10'     FECHA' +
+              '_RECEPCION)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_' +
+              'ALBARAN, :REFERENCIA,'#10'     :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID' +
+              '_PEDIDO, :ID_FACTURA, :CALLE,'#10'     :CODIGO_POSTAL, :POBLACION, :' +
+              'PROVINCIA, :PERSONA_CONTACTO,'#10'     :TELEFONO, :IMPORTE_NETO, :IM' +
+              'PORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10'     :BASE_IMPONIBL' +
+              'E, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10'     :INC' +
+              'IDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION' +
+              ','#10'     :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_E' +
+              'NVIO, :FECHA_RECEPCION)'#10'     '#10'     '#10#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_AlbaranesCliente'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            Default = True
+            TargetTable = 'ALBARANES_CLIENTE'
+            SQL = 'DELETE '#10'  FROM'#10'    ALBARANES_CLIENTE'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -639,105 +802,234 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
         Params = <
           item
             Name = 'ID'
-            DataType = datAutoInc
-            GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID'
             Value = ''
-            ParamType = daptInput
           end
           item
-            Name = 'ID_ALBARAN'
+            Name = 'ID_EMPRESA'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
-            Name = 'POSICION'
+            Name = 'ID_CLIENTE'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
-            Name = 'TIPO_DETALLE'
+            Name = 'FECHA_ALBARAN'
-            DataType = datString
-            Size = 10
             Value = ''
-            ParamType = daptInput
           end
           item
-            Name = 'ID_ARTICULO'
+            Name = 'REFERENCIA'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
-            Name = 'CONCEPTO'
+            Name = 'REFERENCIA_CLIENTE'
-            DataType = datString
-            Size = 2000
             Value = ''
-            ParamType = daptInput
           end
           item
-            Name = 'CANTIDAD'
+            Name = 'ID_ALMACEN'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
-            Name = 'IMPORTE_UNIDAD'
+            Name = 'ID_PEDIDO'
-            DataType = datFloat
             Value = ''
-            ParamType = daptInput
           end
           item
-            Name = 'DESCUENTO'
+            Name = 'ID_FACTURA'
-            DataType = datFloat
+            Value = ''
+          end
+          item
+            Name = 'CALLE'
+            Value = ''
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            Value = ''
+          end
+          item
+            Name = 'POBLACION'
+            Value = ''
+          end
+          item
+            Name = 'PROVINCIA'
+            Value = ''
+          end
+          item
+            Name = 'PERSONA_CONTACTO'
+            Value = ''
+          end
+          item
+            Name = 'TELEFONO'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_NETO'
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'IMPORTE_PORTE'
-            DataType = datFloat
             Value = ''
-            ParamType = daptInput
+          end
+          item
+            Name = 'DESCUENTO'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_DESCUENTO'
+            Value = ''
+          end
+          item
+            Name = 'BASE_IMPONIBLE'
+            Value = ''
+          end
+          item
+            Name = 'IVA'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_IVA'
+            Value = ''
           end
           item
             Name = 'IMPORTE_TOTAL'
-            DataType = datFloat
             Value = ''
-            ParamType = daptInput
           end
           item
-            Name = 'VISIBLE'
+            Name = 'OBSERVACIONES'
-            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'INCIDENCIAS'
+            Value = ''
+          end
+          item
+            Name = 'INCIDENCIAS_ACTIVAS'
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FECHA_ALTA'
-            DataType = datDateTime
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FECHA_MODIFICACION'
-            DataType = datDateTime
             Value = ''
-            ParamType = daptInput
+          end
+          item
+            Name = 'USUARIO'
+            Value = ''
+          end
+          item
+            Name = 'ID_FORMA_PAGO'
+            Value = ''
+          end
+          item
+            Name = 'FECHA_PREVISTA_ENVIO'
+            Value = ''
+          end
+          item
+            Name = 'FECHA_ENVIO'
+            Value = ''
+          end
+          item
+            Name = 'FECHA_RECEPCION'
+            Value = ''
+          end
+          item
+            Name = 'OLD_ID'
+            Value = ''
           end>
         Statements = <
           item
             Connection = 'IBX'
+            Default = True
+            TargetTable = 'ALBARANES_CLIENTE'
+            SQL = 
+              'UPDATE ALBARANES_CLIENTE'#10'  SET '#10'    ID = :ID,'#10'    ID_EMPRESA = :' +
+              'ID_EMPRESA, '#10'    ID_CLIENTE = :ID_CLIENTE, '#10'    FECHA_ALBARAN = ' +
+              ':FECHA_ALBARAN,'#10'    REFERENCIA = :REFERENCIA, '#10'    REFERENCIA_CL' +
+              'IENTE = :REFERENCIA_CLIENTE, '#10'    ID_ALMACEN = :ID_ALMACEN,'#10'    ' +
+              'ID_PEDIDO = :ID_PEDIDO,'#10'    ID_FACTURA = :ID_FACTURA,'#10'    CALLE ' +
+              '= :CALLE,'#10'    CODIGO_POSTAL = :CODIGO_POSTAL, '#10'    POBLACION = :' +
+              'POBLACION, '#10'    PROVINCIA = :PROVINCIA, '#10'    PERSONA_CONTACTO = ' +
+              ':PERSONA_CONTACTO, '#10'    TELEFONO = :TELEFONO, '#10'    IMPORTE_NETO ' +
+              '= :IMPORTE_NETO, '#10'    IMPORTE_PORTE = :IMPORTE_PORTE, '#10'    DESCU' +
+              'ENTO = :DESCUENTO, '#10'    IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, ' +
+              #10'    BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10'    IVA = :IVA, '#10'    IMP' +
+              'ORTE_IVA = :IMPORTE_IVA, '#10'    IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
+              '   OBSERVACIONES = :OBSERVACIONES, '#10'    INCIDENCIAS = :INCIDENCI' +
+              'AS, '#10'    INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10'    FECHA_' +
+              'ALTA = :FECHA_ALTA, '#10'    FECHA_MODIFICACION = :FECHA_MODIFICACIO' +
+              'N, '#10'    USUARIO = :USUARIO, '#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO,' +
+              ' '#10'    FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10'    FECHA_E' +
+              'NVIO = :FECHA_ENVIO, '#10'    FECHA_RECEPCION = :FECHA_RECEPCION'#10'  W' +
+              'HERE'#10'    (ID = :OLD_ID)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_AlbaranesCliente'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID'
+            Value = ''
+          end
+          item
+            Name = 'ID_ALBARAN'
+            Value = ''
+          end
+          item
+            Name = 'POSICION'
+            Value = ''
+          end
+          item
+            Name = 'TIPO_DETALLE'
+            Value = ''
+          end
+          item
+            Name = 'CONCEPTO'
+            Value = ''
+          end
+          item
+            Name = 'CANTIDAD'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_UNIDAD'
+            Value = ''
+          end
+          item
+            Name = 'DESCUENTO'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_PORTE'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_TOTAL'
+            Value = ''
+          end
+          item
+            Name = 'VISIBLE'
+            Value = ''
+          end
+          item
+            Name = 'ID_ARTICULO'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            Default = True
             TargetTable = 'ALBARANES_CLIENTE_DETALLES'
             SQL = 
-              'INSERT INTO ALBARANES_CLIENTE_DETALLES ('#10'    ID,'#10'    ID_ALBARAN,' +
+              'INSERT'#10'  INTO ALBARANES_CLIENTE_DETALLES'#10'    (ID, ID_ALBARAN, PO' +
-              #10'    POSICION,'#10'    TIPO_DETALLE,'#10'    ID_ARTICULO,'#10'    CONCEPTO,'#10 +
+              'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10'     IMPORTE_UNIDAD, D' +
-              '    CANTIDAD,'#10'    IMPORTE_UNIDAD,'#10'    DESCUENTO,'#10'    IMPORTE_POR' +
+              'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10'     VISIBLE, ID_ARTICU' +
-              'TE,'#10'    IMPORTE_TOTAL,'#10'    VISIBLE,'#10'    FECHA_ALTA,'#10'    FECHA_MO' +
+              'LO)'#10'  VALUES'#10'    (:ID, :ID_ALBARAN, :POSICION, :TIPO_DETALLE, :C' +
-              'DIFICACION)'#10'  VALUES ('#10'    :ID,'#10'    :ID_ALBARAN,'#10'    :POSICION,'#10 +
+              'ONCEPTO, :CANTIDAD,'#10'     :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_P' +
-              '    :TIPO_DETALLE,'#10'    :ID_ARTICULO,'#10'    :CONCEPTO,'#10'    :CANTIDA' +
+              'ORTE, :IMPORTE_TOTAL, '#10'     :VISIBLE, :ID_ARTICULO)'#10
-              'D,'#10'    :IMPORTE_UNIDAD,'#10'    :DESCUENTO,'#10'    :IMPORTE_PORTE,'#10'    ' +
-              ':IMPORTE_TOTAL,'#10'    :VISIBLE,'#10'    :FECHA_ALTA,'#10'    :FECHA_MODIFI' +
-              'CACION);'
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -747,13 +1039,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
         Params = <
           item
             Name = 'OLD_ID'
-            DataType = datInteger
+            DataType = datAutoInc
-            Value = ''
+            Value = '0'
-            ParamType = daptInput
           end>
         Statements = <
           item
             Connection = 'IBX'
+            Default = True
             TargetTable = 'ALBARANES_CLIENTE_DETALLES'
             SQL = 
               'DELETE '#10'  FROM'#10'    ALBARANES_CLIENTE_DETALLES'#10'  WHERE'#10'    (ID = ' +
@@ -781,10 +1073,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Name = 'TIPO_DETALLE'
             Value = ''
           end
-          item
-            Name = 'ID_ARTICULO'
-            Value = ''
-          end
           item
             Name = 'CONCEPTO'
             Value = ''
@@ -814,7 +1102,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Value = ''
           end
           item
-            Name = 'FECHA_MODIFICACION'
+            Name = 'ID_ARTICULO'
             Value = ''
           end
           item
@@ -824,424 +1112,20 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
         Statements = <
           item
             Connection = 'IBX'
+            Default = True
             TargetTable = 'ALBARANES_CLIENTE_DETALLES'
             SQL = 
-              'UPDATE ALBARANES_CLIENTE_DETALLES'#10'  SET'#10'    ID = :ID,'#10'    ID_ALB' +
+              'UPDATE ALBARANES_CLIENTE_DETALLES'#10'  SET '#10'    ID = :ID,'#10'    ID_AL' +
-              'ARAN = :ID_ALBARAN,'#10'    POSICION = :POSICION,'#10'    TIPO_DETALLE =' +
+              'BARAN = :ID_ALBARAN, '#10'    POSICION = :POSICION, '#10'    TIPO_DETALL' +
-              ' :TIPO_DETALLE,'#10'    ID_ARTICULO = :ID_ARTICULO,'#10'    CONCEPTO = :' +
+              'E = :TIPO_DETALLE, '#10'    CONCEPTO = :CONCEPTO, '#10'    CANTIDAD = :C' +
-              'CONCEPTO,'#10'    CANTIDAD = :CANTIDAD,'#10'    IMPORTE_UNIDAD = :IMPORT' +
+              'ANTIDAD, '#10'    IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10'    DESCUENTO =' +
-              'E_UNIDAD,'#10'    DESCUENTO = :DESCUENTO,'#10'    IMPORTE_PORTE = :IMPOR' +
+              ' :DESCUENTO, '#10'    IMPORTE_PORTE = :IMPORTE_PORTE, '#10'    IMPORTE_T' +
-              'TE_PORTE,'#10'    IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10'    VISIBLE = :VIS' +
+              'OTAL = :IMPORTE_TOTAL, '#10'    VISIBLE = :VISIBLE, '#10'    ID_ARTICULO' +
-              'IBLE,'#10'    FECHA_MODIFICACION = :FECHA_MODIFICACION'#10'  WHERE'#10'  (ID' +
+              ' = :ID_ARTICULO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
-              ' = :OLD_ID);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
         Name = 'Update_AlbaranesCliente_Detalles'
-      end
-      item
-        Params = <
-          item
-            Name = 'ID'
-            DataType = datAutoInc
-            GeneratorName = 'GEN_ALBARANES_CLI_ID'
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'ID_EMPRESA'
-            DataType = datInteger
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'ID_CLIENTE'
-            DataType = datInteger
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'REFERENCIA'
-            DataType = datString
-            Size = 255
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'REFERENCIA_CLIENTE'
-            DataType = datString
-            Size = 255
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'FECHA_ALBARAN'
-            DataType = datDateTime
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'ID_PEDIDO'
-            DataType = datInteger
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'ID_ALMACEN'
-            DataType = datInteger
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'ID_FACTURA'
-            DataType = datInteger
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'CALLE'
-            DataType = datString
-            Size = 255
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'CODIGO_POSTAL'
-            DataType = datString
-            Size = 10
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'POBLACION'
-            DataType = datString
-            Size = 255
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'PROVINCIA'
-            DataType = datString
-            Size = 255
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'PERSONA_CONTACTO'
-            DataType = datString
-            Size = 255
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'TELEFONO'
-            DataType = datString
-            Size = 25
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'BASE_IMPONIBLE'
-            DataType = datFloat
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'IMPORTE_NETO'
-            DataType = datFloat
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'IMPORTE_PORTE'
-            DataType = datFloat
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'DESCUENTO'
-            DataType = datFloat
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'IMPORTE_DESCUENTO'
-            DataType = datFloat
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'IVA'
-            DataType = datFloat
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'IMPORTE_IVA'
-            DataType = datFloat
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'IMPORTE_TOTAL'
-            DataType = datFloat
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'OBSERVACIONES'
-            DataType = datMemo
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'INCIDENCIAS'
-            DataType = datMemo
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'INCIDENCIAS_ACTIVAS'
-            DataType = datInteger
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'FECHA_ALTA'
-            DataType = datDateTime
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'FECHA_MODIFICACION'
-            DataType = datDateTime
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'USUARIO'
-            DataType = datString
-            Size = 20
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'ID_FORMA_PAGO'
-            DataType = datInteger
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'FECHA_PREVISTA_ENVIO'
-            DataType = datDateTime
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'FECHA_ENVIO'
-            DataType = datDateTime
-            Value = ''
-            ParamType = daptInput
-          end
-          item
-            Name = 'FECHA_RECEPCION'
-            DataType = datDateTime
-            Value = ''
-            ParamType = daptInput
-          end>
-        Statements = <
-          item
-            Connection = 'IBX'
-            TargetTable = 'ALBARANES_CLIENTE'
-            SQL = 
-              'INSERT'#10'  INTO ALBARANES_CLIENTE'#10'    (ID, ID_EMPRESA, ID_CLIENTE,' +
-              ' REFERENCIA, REFERENCIA_CLIENTE,'#10'     FECHA_ALBARAN, ID_PEDIDO, ' +
-              'ID_ALMACEN, ID_FACTURA, CALLE,'#10'     CODIGO_POSTAL, POBLACION, PR' +
-              'OVINCIA, PERSONA_CONTACTO, '#10'     TELEFONO, BASE_IMPONIBLE, IMPOR' +
-              'TE_NETO, IMPORTE_PORTE, '#10'     DESCUENTO, IMPORTE_DESCUENTO, IVA,' +
-              ' IMPORTE_IVA, IMPORTE_TOTAL, '#10'     OBSERVACIONES, INCIDENCIAS, I' +
-              'NCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10'     FECHA_MODIFICACION, USUARI' +
-              'O, ID_FORMA_PAGO,'#10'     FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_' +
-              'RECEPCION)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :ID_CLIENTE, :REFEREN' +
-              'CIA, :REFERENCIA_CLIENTE,'#10'     :FECHA_ALBARAN, :ID_PEDIDO, :ID_A' +
-              'LMACEN, :ID_FACTURA, :CALLE,'#10'     :CODIGO_POSTAL, :POBLACION, :P' +
-              'ROVINCIA, :PERSONA_CONTACTO, '#10'     :TELEFONO, :BASE_IMPONIBLE, :' +
-              'IMPORTE_NETO, :IMPORTE_PORTE, '#10'     :DESCUENTO, :IMPORTE_DESCUEN' +
-              'TO, :IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TOTAL, :OBSERVACIONES, :I' +
-              'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10'     :FECHA_ALTA, :FECHA_MODI' +
-              'FICACION, :USUARIO,'#10'     :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, ' +
-              ':FECHA_ENVIO, :FECHA_RECEPCION)'
-            StatementType = stSQL
-            ColumnMappings = <>
-          end>
-        Name = 'Insert_AlbaranesCliente'
-      end
-      item
-        Params = <
-          item
-            Name = 'ID'
-            Value = ''
-          end
-          item
-            Name = 'ID_EMPRESA'
-            Value = ''
-          end
-          item
-            Name = 'ID_CLIENTE'
-            Value = ''
-          end
-          item
-            Name = 'REFERENCIA'
-            Value = ''
-          end
-          item
-            Name = 'REFERENCIA_CLIENTE'
-            Value = ''
-          end
-          item
-            Name = 'FECHA_ALBARAN'
-            Value = ''
-          end
-          item
-            Name = 'ID_PEDIDO'
-            Value = ''
-          end
-          item
-            Name = 'ID_ALMACEN'
-            Value = ''
-          end
-          item
-            Name = 'ID_FACTURA'
-            Value = ''
-          end
-          item
-            Name = 'CALLE'
-            Value = ''
-          end
-          item
-            Name = 'CODIGO_POSTAL'
-            Value = ''
-          end
-          item
-            Name = 'POBLACION'
-            Value = ''
-          end
-          item
-            Name = 'PROVINCIA'
-            Value = ''
-          end
-          item
-            Name = 'PERSONA_CONTACTO'
-            Value = ''
-          end
-          item
-            Name = 'TELEFONO'
-            Value = ''
-          end
-          item
-            Name = 'BASE_IMPONIBLE'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_NETO'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_PORTE'
-            Value = ''
-          end
-          item
-            Name = 'DESCUENTO'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_DESCUENTO'
-            Value = ''
-          end
-          item
-            Name = 'IVA'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_IVA'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_TOTAL'
-            Value = ''
-          end
-          item
-            Name = 'OBSERVACIONES'
-            Value = ''
-          end
-          item
-            Name = 'INCIDENCIAS'
-            Value = ''
-          end
-          item
-            Name = 'INCIDENCIAS_ACTIVAS'
-            Value = ''
-          end
-          item
-            Name = 'FECHA_ALTA'
-            Value = ''
-          end
-          item
-            Name = 'FECHA_MODIFICACION'
-            Value = ''
-          end
-          item
-            Name = 'USUARIO'
-            Value = ''
-          end
-          item
-            Name = 'ID_FORMA_PAGO'
-            Value = ''
-          end
-          item
-            Name = 'FECHA_PREVISTA_ENVIO'
-            Value = ''
-          end
-          item
-            Name = 'FECHA_ENVIO'
-            Value = ''
-          end
-          item
-            Name = 'FECHA_RECEPCION'
-            Value = ''
-          end
-          item
-            Name = 'OLD_ID'
-            Value = ''
-          end>
-        Statements = <
-          item
-            Connection = 'IBX'
-            TargetTable = 'ALBARANES_CLIENTE'
-            SQL = 
-              'UPDATE ALBARANES_CLIENTE'#10'  SET '#10'    ID = :ID,'#10'    ID_EMPRESA = :' +
-              'ID_EMPRESA, '#10'    ID_CLIENTE = :ID_CLIENTE, '#10'    REFERENCIA = :RE' +
-              'FERENCIA, '#10'    REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10'    FEC' +
-              'HA_ALBARAN = :FECHA_ALBARAN, '#10'    ID_PEDIDO = :ID_PEDIDO, '#10'    I' +
-              'D_ALMACEN = :ID_ALMACEN,'#10'    ID_FACTURA = :ID_FACTURA, '#10'    CALL' +
-              'E = :CALLE, '#10'    CODIGO_POSTAL = :CODIGO_POSTAL, '#10'    POBLACION ' +
-              '= :POBLACION, '#10'    PROVINCIA = :PROVINCIA, '#10'    PERSONA_CONTACTO' +
-              ' = :PERSONA_CONTACTO, '#10'    TELEFONO = :TELEFONO, '#10'    BASE_IMPON' +
-              'IBLE = :BASE_IMPONIBLE, '#10'    IMPORTE_NETO = :IMPORTE_NETO, '#10'    ' +
-              'IMPORTE_PORTE = :IMPORTE_PORTE, '#10'    DESCUENTO = :DESCUENTO, '#10'  ' +
-              '  IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10'    IVA = :IVA, '#10'    ' +
-              'IMPORTE_IVA = :IMPORTE_IVA, '#10'    IMPORTE_TOTAL = :IMPORTE_TOTAL,' +
-              ' '#10'    OBSERVACIONES = :OBSERVACIONES, '#10'    INCIDENCIAS = :INCIDE' +
-              'NCIAS, '#10'    INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10'    FEC' +
-              'HA_ALTA = :FECHA_ALTA, '#10'    FECHA_MODIFICACION = :FECHA_MODIFICA' +
-              'CION, '#10'    USUARIO = :USUARIO, '#10'    ID_FORMA_PAGO = :ID_FORMA_PA' +
-              'GO,'#10'    FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10'    FECHA_' +
-              'ENVIO = :FECHA_ENVIO, '#10'    FECHA_RECEPCION = :FECHA_RECEPCION'#10'  ' +
-              'WHERE'#10'    (ID = :OLD_ID)'#10
-            StatementType = stSQL
-            ColumnMappings = <>
-          end>
-        Name = 'Update_AlbaranesCliente'
       end>
     RelationShips = <
       item

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas

@@ -30,10 +30,8 @@ type
     Bin2DataStreamer: TDABin2DataStreamer;
     schAlbaranesCliente: TDASchema;
     DADataDictionary: TDADataDictionary;
-    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
+    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
-      var aConnectionName: string);
+    procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
-    procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
-      const IncludeSchema: Boolean; const MaxRecords: Integer);
     procedure DARemoteServiceCreate(Sender: TObject);
   private
   protected

Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc

@@ -27,4 +27,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DB.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF2.tmp */

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm

@@ -6,7 +6,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
   ClientWidth = 765
   OnClose = CustomEditorClose
   ExplicitWidth = 773
-  ExplicitHeight = 619
+  ExplicitHeight = 612
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -200,10 +200,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.dfm

@@ -143,8 +143,16 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
         Width = 73
         ExplicitWidth = 73
       end
+      inherited Bevel3: TBevel
+        Left = 332
+        Height = 54
+        ExplicitLeft = 332
+        ExplicitHeight = 54
+      end
       inherited Bevel4: TBevel
+        Left = 448
         Width = 285
+        ExplicitLeft = 448
         ExplicitWidth = 285
       end
       inherited ImporteDto: TcxDBCurrencyEdit
@@ -153,12 +161,16 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
         Width = 93
       end
       inherited ImporteIVA: TcxDBCurrencyEdit
+        Left = 519
         Style.IsFontAssigned = True
+        ExplicitLeft = 519
         ExplicitWidth = 214
         Width = 214
       end
       inherited ImporteTotal: TcxDBCurrencyEdit
+        Left = 449
         Style.IsFontAssigned = True
+        ExplicitLeft = 449
         ExplicitWidth = 284
         Width = 284
       end
@@ -166,18 +178,26 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
         Style.IsFontAssigned = True
       end
       inherited edtIVA: TcxDBSpinEdit
+        Left = 448
         Style.IsFontAssigned = True
+        ExplicitLeft = 448
       end
       inherited ImporteBase: TcxDBCurrencyEdit
+        Left = 448
         Style.IsFontAssigned = True
+        ExplicitLeft = 448
         ExplicitWidth = 285
         Width = 285
       end
       inherited edtRE: TcxDBSpinEdit
+        Left = 448
         Style.IsFontAssigned = True
+        ExplicitLeft = 448
       end
       inherited ImporteRE: TcxDBCurrencyEdit
+        Left = 519
         Style.IsFontAssigned = True
+        ExplicitLeft = 519
         ExplicitWidth = 214
         Width = 214
       end
@@ -195,6 +215,10 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
         ExplicitWidth = 81
         Width = 81
       end
+      inherited bTiposIVA: TButton
+        Left = 184
+        ExplicitLeft = 184
+      end
       inherited cbRecargoEquivalencia: TcxDBCheckBox
         ExplicitWidth = 219
         Width = 219

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas

@@ -10,7 +10,7 @@ uses
   JvStatusBar, uViewIncidencias, uCustomView, uViewBase, uViewDetallesBase,
   uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, TBX,
   TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
-  JvNavigationPane, uIEditorAlbaranDevCliente;
+  JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces;
 
 type
   TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente)

Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm

@@ -1,6 +1,15 @@
 inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
   inherited cxGrid: TcxGrid
     inherited cxGridView: TcxGridDBTableView
+      inherited cxGridViewID: TcxGridDBColumn
+        Visible = False
+      end
+      inherited cxGridViewPOSICION: TcxGridDBColumn
+        Visible = False
+      end
+      inherited cxGridViewTIPO: TcxGridDBColumn
+        Visible = False
+      end
       inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
         Visible = False
       end

Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm

@@ -130,6 +130,7 @@ inherited DataModuleAlmacenes: TDataModuleAlmacenes
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'Almacenes'
+    IndexDefs = <>
     Left = 192
     Top = 80
   end

Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas

@@ -56,18 +56,24 @@ begin
 end;
 
 function TDataModuleAlmacenes.GetItem(const ID: Integer): IBizAlmacen;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
-    with Result.DataTable.Where do
+
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
+      // (ID = :ID)
-        AddOperator(opAND);
+      Condicion := NewBinaryExpression(NewField('', fld_AlmacenesID), NewConstant(ID, datInteger), dboEqual);
-      OpenBraket;
+
-      AddText('Almacenes.' + fld_AlmacenesID + ' = ' + IntToStr(ID));
+      if IsEmpty then
-      CloseBraket;
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm

@@ -145,6 +145,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'Articulos'
+    IndexDefs = <>
     Left = 232
     Top = 112
   end
@@ -252,6 +253,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'ArticulosParaCliente'
+    IndexDefs = <>
     Left = 400
     Top = 112
   end

Source/Modulos/Articulos/Data/uDataModuleArticulos.pas

@@ -58,6 +58,8 @@ begin
 end;
 
 function TDataModuleArticulos.GetItem(const ID: Integer; AClienteID: Integer = -1): IBizArticulo;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
@@ -66,14 +68,17 @@ begin
     else
       Result := Self.GetItems(AClienteID);
 
-    with Result.DataTable.Where do
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
+      // (ID = :ID)
-        AddOperator(opAND);
+      Condicion := NewBinaryExpression(NewField('', fld_ArticulosID), NewConstant(ID, datInteger), dboEqual);
-      OpenBraket;
+
-      AddText('V_ARTICULOS.' + fld_ArticulosID + ' = ' + IntToStr(ID));
+      if IsEmpty then
-      CloseBraket;
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Contactos/Controller/Contactos_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A1.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB8.tmp */

Source/Modulos/Contactos/Controller/uContactosController.pas

@@ -272,6 +272,7 @@ begin
   // Filtrar los contactos actuales por empresa
 {  with AContacto.DataTable.DynamicWhere do
   begin
+    Clear;
     // (ID = :ID)
     Expression := NewBinaryExpression(NewField('', fld_ContactosID_EMPRESA),
       NewConstant(dmUsuarios.IDEmpresaActual, datInteger), dboEqual);

Source/Modulos/Contactos/Data/Contactos_data.drc

@@ -17,4 +17,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf19F.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB6.tmp */

Source/Modulos/Contactos/Data/uDataModuleClientes.dfm

@@ -244,6 +244,7 @@ inherited DataModuleClientes: TDataModuleClientes
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'Clientes'
+    IndexDefs = <>
     Left = 296
     Top = 168
   end
@@ -300,6 +301,7 @@ inherited DataModuleClientes: TDataModuleClientes
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'ClientesDescuentos'
+    IndexDefs = <>
     Left = 448
     Top = 168
   end
@@ -325,6 +327,7 @@ inherited DataModuleClientes: TDataModuleClientes
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'GruposCliente'
+    IndexDefs = <>
     Left = 552
     Top = 168
   end

Source/Modulos/Contactos/Data/uDataModuleClientes.pas

@@ -56,16 +56,24 @@ begin
 end;
 
 function TDataModuleClientes.GetItem(const ID: Integer): IBizCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
+
     with Result.DataTable.DynamicWhere do
     begin
       // (ID = :ID)
-      Expression := NewBinaryExpression(NewField('', fld_ContactosID),
+      Condicion := NewBinaryExpression(NewField('', fld_ContactosID), NewConstant(ID, datInteger), dboEqual);
-        NewConstant(ID, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
@@ -94,17 +102,22 @@ begin
 end;
 
 function TDataModuleClientes.GetItemsTiendaWeb: IBizCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
+
     with Result.DataTable.DynamicWhere do
     begin
+      // (ID = :ID)
+      Condicion := NewBinaryExpression(NewField('', fld_ClientesTIENDA_WEB), NewConstant(1, datInteger), dboEqual);
+
       Clear;
-      // (TIENDA_WEB = 1)
+      Expression := Condicion
-      Expression := NewBinaryExpression(NewField('', fld_ClientesTIENDA_WEB),
-        NewConstant(1, datInteger), dboEqual);
     end;
+
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm

@@ -214,6 +214,7 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'Empleados'
+    IndexDefs = <>
     Left = 296
     Top = 168
   end
@@ -239,6 +240,7 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'GruposEmpleado'
+    IndexDefs = <>
     Left = 448
     Top = 168
   end

Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas

@@ -53,16 +53,24 @@ begin
 end;
 
 function TDataModuleEmpleados.GetItem(const ID: Integer): IBizEmpleado;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
+
     with Result.DataTable.DynamicWhere do
     begin
       // (ID = :ID)
-      Expression := NewBinaryExpression(NewField('', fld_ContactosID),
+      Condicion := NewBinaryExpression(NewField('', fld_ContactosID), NewConstant(ID, datInteger), dboEqual);
-        NewConstant(ID, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm

@@ -26,6 +26,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'GruposProveedor'
+    IndexDefs = <>
     Left = 448
     Top = 168
   end
@@ -257,6 +258,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'Proveedores'
+    IndexDefs = <>
     Left = 296
     Top = 168
   end

Source/Modulos/Contactos/Data/uDataModuleProveedores.pas

@@ -50,17 +50,24 @@ begin
 end;
 
 function TDataModuleProveedores.GetItem(const ID: Integer): IBizProveedor;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
 
-    // (ID = :ID)
     with Result.DataTable.DynamicWhere do
     begin
-      Expression := NewBinaryExpression(NewField('', fld_ContactosID),
+      // (ID = :ID)
-        NewConstant(ID, datInteger), dboEqual);
+      Condicion := NewBinaryExpression(NewField('', fld_ContactosID), NewConstant(ID, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
@@ -88,17 +95,22 @@ begin
 end;
 
 function TDataModuleProveedores.GetItemsTiendaWeb: IBizProveedor;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
+
     with Result.DataTable.DynamicWhere do
     begin
+      // (ID = :ID)
+      Condicion := NewBinaryExpression(NewField('', fld_ClientesTIENDA_WEB), NewConstant(1, datInteger), dboEqual);
+
       Clear;
-      // (TIENDA_WEB = 1)
+      Expression := Condicion
-      Expression := NewBinaryExpression(NewField('', fld_ProveedoresTIENDA_WEB),
-        NewConstant(1, datInteger), dboEqual);
     end;
+
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Contactos/Model/Contactos_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf19D.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfB4.tmp */

Source/Modulos/Contactos/Plugin/Contactos_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A5.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */

Source/Modulos/Contactos/Views/Contactos_view.drc

@@ -45,4 +45,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A3.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBA.tmp */

Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D5.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEC.tmp */

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas

@@ -880,7 +880,7 @@ begin
       AFactura.DataTable.ApplyUpdates;
 
       //Se generan los recibos automáticamente a partir de la forma de pago
-//      GenerarRecibos(AFactura);
+      GenerarRecibos(AFactura);
 
       Result := True;
     finally

Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D3.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEA.tmp */

Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm

@@ -54,6 +54,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         DisplayLabel = 'Tipo'
         DictionaryEntry = 'FacturasCliente_TIPO'
       end
+      item
+        Name = 'ID_COMISION_LIQUIDADA'
+        DataType = datInteger
+        DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
+      end
       item
         Name = 'FECHA_FACTURA'
         DataType = datDateTime
@@ -64,7 +69,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         Name = 'SITUACION'
         DataType = datString
         Size = 255
-        DisplayLabel = 'Situaci'#243'n'
+        DisplayLabel = 'Situaci'#195#179'n'
         DictionaryEntry = 'FacturasCliente_SITUACION'
       end
       item
@@ -150,14 +155,14 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         Name = 'CALLE'
         DataType = datString
         Size = 150
-        DisplayLabel = 'Direcci'#243'n'
+        DisplayLabel = 'Direcci'#195#179'n'
         DictionaryEntry = 'FacturasCliente_CALLE'
       end
       item
         Name = 'POBLACION'
         DataType = datString
         Size = 150
-        DisplayLabel = 'Poblaci'#243'n'
+        DisplayLabel = 'Poblaci'#195#179'n'
         DictionaryEntry = 'FacturasCliente_POBLACION'
       end
       item
@@ -171,7 +176,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         Name = 'CODIGO_POSTAL'
         DataType = datString
         Size = 10
-        DisplayLabel = 'C'#243'd. postal'
+        DisplayLabel = 'C'#195#179'd. postal'
         DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
       end
       item
@@ -198,8 +203,8 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
       end
       item
         Name = 'RECARGO_EQUIVALENCIA'
-        DataType = datInteger
+        DataType = datSmallInt
-        DisplayLabel = #191'Con R.E.?'
+        DisplayLabel = #194#191'Con R.E.?'
         DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
       end
       item
@@ -222,28 +227,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
       end
       item
-        Name = 'ID_COMISION_LIQUIDADA'
+        Name = 'ID_AGENTE'
         DataType = datInteger
-        DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
+        DictionaryEntry = 'FacturasCliente_ID_AGENTE'
       end
       item
         Name = 'REFERENCIA_COMISION'
         DataType = datString
         Size = 255
         DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION'
-      end
-      item
-        Name = 'ID_AGENTE'
-        DataType = datInteger
-        DictionaryEntry = 'FacturasCliente_ID_AGENTE'
-      end
-      item
-        Name = 'FECHA_VENCIMIENTO'
-        DataType = datDateTime
-        LogChanges = False
-        DisplayLabel = 'Fecha de vencimiento'
-        DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
-        Calculated = True
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -252,14 +244,14 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'FacturasCliente'
     IndexDefs = <>
-    Left = 224
+    Left = 240
     Top = 112
   end
   object ds_FacturasCliente: TDADataSource
     DataSet = tbl_FacturasCliente.Dataset
     DataTable = tbl_FacturasCliente
-    Left = 216
+    Left = 240
-    Top = 64
+    Top = 48
   end
   object tbl_FacturasCliente_Detalles: TDAMemDataTable
     RemoteUpdatesOptions = []
@@ -281,7 +273,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
       item
         Name = 'POSICION'
         DataType = datInteger
-        DisplayLabel = 'Posici'#243'n'
+        DisplayLabel = 'Posici'#195#179'n'
         DictionaryEntry = 'FacturasCliente_Detalles_POSICION'
       end
       item
@@ -321,7 +313,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
       item
         Name = 'VISIBLE'
         DataType = datInteger
-        DisplayLabel = #191'Visible?'
+        DisplayLabel = #194#191'Visible?'
         DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
       end
       item
@@ -363,13 +355,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'FacturasCliente_Detalles'
     IndexDefs = <>
-    Left = 368
+    Left = 400
-    Top = 104
+    Top = 112
   end
   object ds_FacturasCliente_Detalles: TDADataSource
     DataSet = tbl_FacturasCliente_Detalles.Dataset
     DataTable = tbl_FacturasCliente_Detalles
-    Left = 368
+    Left = 400
-    Top = 56
+    Top = 40
   end
 end

Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas

@@ -78,18 +78,24 @@ begin
 end;
 
 function TDataModuleFacturasCliente.GetItem(const ID: Integer): IBizFacturaCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
-    with Result.DataTable.Where do
+
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
+      // (ID = :ID)
-        AddOperator(opAND);
+      Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID), NewConstant(ID, datInteger), dboEqual);
-      OpenBraket;
+
-      AddText(fld_FacturasClienteID + ' = ' + IntToStr(ID));
+      if IsEmpty then
-      CloseBraket;
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D1.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE8.tmp */

Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas

@@ -9,9 +9,9 @@ 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_DarReferencia = '{EE290313-AC22-43B7-815F-58253B4EF915}';
+  RID_DarReferencia = '{CC46C1A7-C6CE-4ABE-B1A8-4C2BABFB5C93}';
-  RID_FacturasCliente = '{39FCB7C7-33D8-41D0-B361-7006793E354E}';
+  RID_FacturasCliente = '{51E6C07A-D580-46D7-9032-1838AF4D4B07}';
-  RID_FacturasCliente_Detalles = '{2277CCFA-8265-4007-B54E-AFBB5EEB7366}';
+  RID_FacturasCliente_Detalles = '{8A70D0F2-F09E-4166-A792-00012AA7C35A}';
 
   { Data table names }
   nme_DarReferencia = 'DarReferencia';
@@ -29,6 +29,7 @@ const
   fld_FacturasClienteID_EMPRESA = 'ID_EMPRESA';
   fld_FacturasClienteREFERENCIA = 'REFERENCIA';
   fld_FacturasClienteTIPO = 'TIPO';
+  fld_FacturasClienteID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
   fld_FacturasClienteFECHA_FACTURA = 'FECHA_FACTURA';
   fld_FacturasClienteSITUACION = 'SITUACION';
   fld_FacturasClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE';
@@ -55,46 +56,43 @@ const
   fld_FacturasClienteID_TIPO_IVA = 'ID_TIPO_IVA';
   fld_FacturasClienteIMPORTE_NETO = 'IMPORTE_NETO';
   fld_FacturasClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
-  fld_FacturasClienteID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
-  fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
   fld_FacturasClienteID_AGENTE = 'ID_AGENTE';
-  fld_FacturasClienteFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
+  fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
 
   { FacturasCliente field indexes }
   idx_FacturasClienteID = 0;
   idx_FacturasClienteID_EMPRESA = 1;
   idx_FacturasClienteREFERENCIA = 2;
   idx_FacturasClienteTIPO = 3;
-  idx_FacturasClienteFECHA_FACTURA = 4;
+  idx_FacturasClienteID_COMISION_LIQUIDADA = 4;
-  idx_FacturasClienteSITUACION = 5;
+  idx_FacturasClienteFECHA_FACTURA = 5;
-  idx_FacturasClienteBASE_IMPONIBLE = 6;
+  idx_FacturasClienteSITUACION = 6;
-  idx_FacturasClienteDESCUENTO = 7;
+  idx_FacturasClienteBASE_IMPONIBLE = 7;
-  idx_FacturasClienteIMPORTE_DESCUENTO = 8;
+  idx_FacturasClienteDESCUENTO = 8;
-  idx_FacturasClienteIVA = 9;
+  idx_FacturasClienteIMPORTE_DESCUENTO = 9;
-  idx_FacturasClienteIMPORTE_IVA = 10;
+  idx_FacturasClienteIVA = 10;
-  idx_FacturasClienteRE = 11;
+  idx_FacturasClienteIMPORTE_IVA = 11;
-  idx_FacturasClienteIMPORTE_RE = 12;
+  idx_FacturasClienteRE = 12;
-  idx_FacturasClienteIMPORTE_TOTAL = 13;
+  idx_FacturasClienteIMPORTE_RE = 13;
-  idx_FacturasClienteOBSERVACIONES = 14;
+  idx_FacturasClienteIMPORTE_TOTAL = 14;
-  idx_FacturasClienteID_CLIENTE = 15;
+  idx_FacturasClienteOBSERVACIONES = 15;
-  idx_FacturasClienteNIF_CIF = 16;
+  idx_FacturasClienteID_CLIENTE = 16;
-  idx_FacturasClienteNOMBRE = 17;
+  idx_FacturasClienteNIF_CIF = 17;
-  idx_FacturasClienteCALLE = 18;
+  idx_FacturasClienteNOMBRE = 18;
-  idx_FacturasClientePOBLACION = 19;
+  idx_FacturasClienteCALLE = 19;
-  idx_FacturasClientePROVINCIA = 20;
+  idx_FacturasClientePOBLACION = 20;
-  idx_FacturasClienteCODIGO_POSTAL = 21;
+  idx_FacturasClientePROVINCIA = 21;
-  idx_FacturasClienteFECHA_ALTA = 22;
+  idx_FacturasClienteCODIGO_POSTAL = 22;
-  idx_FacturasClienteFECHA_MODIFICACION = 23;
+  idx_FacturasClienteFECHA_ALTA = 23;
-  idx_FacturasClienteUSUARIO = 24;
+  idx_FacturasClienteFECHA_MODIFICACION = 24;
-  idx_FacturasClienteID_FORMA_PAGO = 25;
+  idx_FacturasClienteUSUARIO = 25;
-  idx_FacturasClienteRECARGO_EQUIVALENCIA = 26;
+  idx_FacturasClienteID_FORMA_PAGO = 26;
-  idx_FacturasClienteID_TIPO_IVA = 27;
+  idx_FacturasClienteRECARGO_EQUIVALENCIA = 27;
-  idx_FacturasClienteIMPORTE_NETO = 28;
+  idx_FacturasClienteID_TIPO_IVA = 28;
-  idx_FacturasClienteIMPORTE_PORTE = 29;
+  idx_FacturasClienteIMPORTE_NETO = 29;
-  idx_FacturasClienteID_COMISION_LIQUIDADA = 30;
+  idx_FacturasClienteIMPORTE_PORTE = 30;
-  idx_FacturasClienteREFERENCIA_COMISION = 31;
+  idx_FacturasClienteID_AGENTE = 31;
-  idx_FacturasClienteID_AGENTE = 32;
+  idx_FacturasClienteREFERENCIA_COMISION = 32;
-  idx_FacturasClienteFECHA_VENCIMIENTO = 33;
 
   { FacturasCliente_Detalles fields }
   fld_FacturasCliente_DetallesID = 'ID';
@@ -131,7 +129,7 @@ const
 type
   { IDarReferencia }
   IDarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{FC6FD5A4-62B4-4B90-A7B7-04717D03C5BE}']
+  ['{3338E715-B18C-4550-BE4C-C92B071770B4}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -166,7 +164,7 @@ type
 
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{C611FEEA-3F5D-4990-87EC-5E077E74DDAB}']
+  ['{0ACBE344-A040-4AD4-8037-DA9382B4D9CF}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -184,6 +182,10 @@ type
     procedure SetTIPOValue(const aValue: String);
     function GetTIPOIsNull: Boolean;
     procedure SetTIPOIsNull(const aValue: Boolean);
+    function GetID_COMISION_LIQUIDADAValue: Integer;
+    procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
+    function GetID_COMISION_LIQUIDADAIsNull: Boolean;
+    procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
     function GetFECHA_FACTURAValue: DateTime;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime);
     function GetFECHA_FACTURAIsNull: Boolean;
@@ -271,8 +273,8 @@ type
     procedure SetID_FORMA_PAGOValue(const aValue: Integer);
     function GetID_FORMA_PAGOIsNull: Boolean;
     procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
-    function GetRECARGO_EQUIVALENCIAValue: Integer;
+    function GetRECARGO_EQUIVALENCIAValue: SmallInt;
-    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
+    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
     function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
     procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
     function GetID_TIPO_IVAValue: Integer;
@@ -287,22 +289,14 @@ type
     procedure SetIMPORTE_PORTEValue(const aValue: Currency);
     function GetIMPORTE_PORTEIsNull: Boolean;
     procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
-    function GetID_COMISION_LIQUIDADAValue: Integer;
-    procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
-    function GetID_COMISION_LIQUIDADAIsNull: Boolean;
-    procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
-    function GetREFERENCIA_COMISIONValue: String;
-    procedure SetREFERENCIA_COMISIONValue(const aValue: String);
-    function GetREFERENCIA_COMISIONIsNull: Boolean;
-    procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
     function GetID_AGENTEValue: Integer;
     procedure SetID_AGENTEValue(const aValue: Integer);
     function GetID_AGENTEIsNull: Boolean;
     procedure SetID_AGENTEIsNull(const aValue: Boolean);
-    function GetFECHA_VENCIMIENTOValue: DateTime;
+    function GetREFERENCIA_COMISIONValue: String;
-    procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+    procedure SetREFERENCIA_COMISIONValue(const aValue: String);
-    function GetFECHA_VENCIMIENTOIsNull: Boolean;
+    function GetREFERENCIA_COMISIONIsNull: Boolean;
-    procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+    procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -314,6 +308,8 @@ type
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
+    property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
+    property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@@ -358,7 +354,7 @@ type
     property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
-    property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+    property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
     property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
     property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
     property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@@ -366,14 +362,10 @@ type
     property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
     property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
     property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
-    property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
-    property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
-    property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
-    property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
     property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
     property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
-    property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+    property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
-    property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+    property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
   end;
 
   { TFacturasClienteDataTableRules }
@@ -399,6 +391,10 @@ type
     procedure SetTIPOValue(const aValue: String); virtual;
     function GetTIPOIsNull: Boolean; virtual;
     procedure SetTIPOIsNull(const aValue: Boolean); virtual;
+    function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
+    procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
+    function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
+    procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
     function GetFECHA_FACTURAValue: DateTime; virtual;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
     function GetFECHA_FACTURAIsNull: Boolean; virtual;
@@ -486,8 +482,8 @@ type
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
     function GetID_FORMA_PAGOIsNull: Boolean; virtual;
     procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
-    function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
+    function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
-    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
+    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
     function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
     procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
     function GetID_TIPO_IVAValue: Integer; virtual;
@@ -502,22 +498,14 @@ type
     procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
     function GetIMPORTE_PORTEIsNull: Boolean; virtual;
     procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
-    function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
-    procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
-    function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
-    procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
-    function GetREFERENCIA_COMISIONValue: String; virtual;
-    procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
-    function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
-    procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
     function GetID_AGENTEValue: Integer; virtual;
     procedure SetID_AGENTEValue(const aValue: Integer); virtual;
     function GetID_AGENTEIsNull: Boolean; virtual;
     procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
-    function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
+    function GetREFERENCIA_COMISIONValue: String; virtual;
-    procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
+    procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
-    function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
+    function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
-    procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
+    procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -528,6 +516,8 @@ type
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
+    property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
+    property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@@ -572,7 +562,7 @@ type
     property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
-    property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+    property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
     property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
     property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
     property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@@ -580,14 +570,10 @@ type
     property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
     property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
     property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
-    property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
-    property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
-    property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
-    property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
     property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
     property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
-    property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+    property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
-    property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+    property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -597,7 +583,7 @@ type
 
   { IFacturasCliente_Detalles }
   IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{BD1BDC59-CA88-4C8D-B189-A917927D3F22}']
+  ['{E62E97AD-C08F-4BB6-A6EF-21BF966630A0}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -929,6 +915,27 @@ begin
     DataTable.Fields[idx_FacturasClienteTIPO].AsVariant := Null;
 end;
 
+function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger;
+end;
+
+procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsVariant := Null;
+end;
+
 function TFacturasClienteDataTableRules.GetFECHA_FACTURAValue: DateTime;
 begin
   result := DataTable.Fields[idx_FacturasClienteFECHA_FACTURA].AsDateTime;
@@ -1387,14 +1394,14 @@ begin
     DataTable.Fields[idx_FacturasClienteID_FORMA_PAGO].AsVariant := Null;
 end;
 
-function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer;
+function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
 begin
-  result := DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsInteger;
+  result := DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsSmallInt;
 end;
 
-procedure TFacturasClienteDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
+procedure TFacturasClienteDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
 begin
-  DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsInteger := aValue;
+  DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsSmallInt := aValue;
 end;
 
 function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
@@ -1471,48 +1478,6 @@ begin
     DataTable.Fields[idx_FacturasClienteIMPORTE_PORTE].AsVariant := Null;
 end;
 
-function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
-begin
-  result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger;
-end;
-
-procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
-begin
-  DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsInteger := aValue;
-end;
-
-function TFacturasClienteDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].IsNull;
-end;
-
-procedure TFacturasClienteDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_FacturasClienteID_COMISION_LIQUIDADA].AsVariant := Null;
-end;
-
-function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONValue: String;
-begin
-  result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString;
-end;
-
-procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String);
-begin
-  DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString := aValue;
-end;
-
-function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].IsNull;
-end;
-
-procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
-end;
-
 function TFacturasClienteDataTableRules.GetID_AGENTEValue: Integer;
 begin
   result := DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger;
@@ -1534,25 +1499,25 @@ begin
     DataTable.Fields[idx_FacturasClienteID_AGENTE].AsVariant := Null;
 end;
 
-function TFacturasClienteDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
+function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONValue: String;
 begin
-  result := DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsDateTime;
+  result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString;
 end;
 
-procedure TFacturasClienteDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String);
 begin
-  DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsDateTime := aValue;
+  DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString := aValue;
 end;
 
-function TFacturasClienteDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean;
+function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].IsNull;
+  result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].IsNull;
 end;
 
-procedure TFacturasClienteDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+procedure TFacturasClienteDataTableRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsVariant := Null;
+    DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
 end;
 
 

Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas

@@ -9,14 +9,14 @@ 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_DarReferenciaDelta = '{3F90C22F-1A27-477C-8666-97294D63941A}';
+  RID_DarReferenciaDelta = '{E8B8EB94-54CB-49B3-879C-1CF0319BCBBD}';
-  RID_FacturasClienteDelta = '{5DED3958-196C-45DF-93EB-942421D0DB76}';
+  RID_FacturasClienteDelta = '{EC7543D0-B0B5-48F9-9401-DEEE0D0BEFF2}';
-  RID_FacturasCliente_DetallesDelta = '{D421677A-3717-40DD-9787-33F108D28E17}';
+  RID_FacturasCliente_DetallesDelta = '{A1C5C789-FF93-491C-82C6-A49EF37F27A3}';
 
 type
   { IDarReferenciaDelta }
   IDarReferenciaDelta = interface(IDarReferencia)
-  ['{3F90C22F-1A27-477C-8666-97294D63941A}']
+  ['{E8B8EB94-54CB-49B3-879C-1CF0319BCBBD}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -50,12 +50,13 @@ type
 
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{5DED3958-196C-45DF-93EB-942421D0DB76}']
+  ['{EC7543D0-B0B5-48F9-9401-DEEE0D0BEFF2}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
     function GetOldREFERENCIAValue : String;
     function GetOldTIPOValue : String;
+    function GetOldID_COMISION_LIQUIDADAValue : Integer;
     function GetOldFECHA_FACTURAValue : DateTime;
     function GetOldSITUACIONValue : String;
     function GetOldBASE_IMPONIBLEValue : Currency;
@@ -78,20 +79,19 @@ type
     function GetOldFECHA_MODIFICACIONValue : DateTime;
     function GetOldUSUARIOValue : String;
     function GetOldID_FORMA_PAGOValue : Integer;
-    function GetOldRECARGO_EQUIVALENCIAValue : Integer;
+    function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
     function GetOldID_TIPO_IVAValue : Integer;
     function GetOldIMPORTE_NETOValue : Currency;
     function GetOldIMPORTE_PORTEValue : Currency;
-    function GetOldID_COMISION_LIQUIDADAValue : Integer;
-    function GetOldREFERENCIA_COMISIONValue : String;
     function GetOldID_AGENTEValue : Integer;
-    function GetOldFECHA_VENCIMIENTOValue : DateTime;
+    function GetOldREFERENCIA_COMISIONValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldTIPO : String read GetOldTIPOValue;
+    property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
     property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
@@ -114,14 +114,12 @@ type
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
-    property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
+    property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
     property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
     property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
     property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
-    property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
-    property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
-    property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
+    property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
   end;
 
   { TFacturasClienteBusinessProcessorRules }
@@ -155,6 +153,12 @@ type
     function GetOldTIPOIsNull: Boolean; virtual;
     procedure SetTIPOValue(const aValue: String); virtual;
     procedure SetTIPOIsNull(const aValue: Boolean); virtual;
+    function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
+    function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
+    function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
+    function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
+    procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
+    procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
     function GetFECHA_FACTURAValue: DateTime; virtual;
     function GetFECHA_FACTURAIsNull: Boolean; virtual;
     function GetOldFECHA_FACTURAValue: DateTime; virtual;
@@ -286,11 +290,11 @@ type
     function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
     procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
-    function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
+    function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
     function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
-    function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual;
+    function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
     function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
-    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
+    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
     procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
     function GetID_TIPO_IVAValue: Integer; virtual;
     function GetID_TIPO_IVAIsNull: Boolean; virtual;
@@ -310,30 +314,18 @@ type
     function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
     procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
     procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
-    function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
-    function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
-    function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
-    function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
-    procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
-    procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
-    function GetREFERENCIA_COMISIONValue: String; virtual;
-    function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
-    function GetOldREFERENCIA_COMISIONValue: String; virtual;
-    function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
-    procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
-    procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
     function GetID_AGENTEValue: Integer; virtual;
     function GetID_AGENTEIsNull: Boolean; virtual;
     function GetOldID_AGENTEValue: Integer; virtual;
     function GetOldID_AGENTEIsNull: Boolean; virtual;
     procedure SetID_AGENTEValue(const aValue: Integer); virtual;
     procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
-    function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
+    function GetREFERENCIA_COMISIONValue: String; virtual;
-    function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
+    function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
-    function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
+    function GetOldREFERENCIA_COMISIONValue: String; virtual;
-    function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
-    procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
+    procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
-    procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
+    procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -352,6 +344,10 @@ type
     property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
     property OldTIPO : String read GetOldTIPOValue;
     property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
+    property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
+    property ID_COMISION_LIQUIDADAIsNull : Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
+    property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
+    property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull;
     property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
@@ -440,9 +436,9 @@ type
     property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
     property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
-    property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+    property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
     property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
-    property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
+    property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
     property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
     property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
     property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@@ -456,22 +452,14 @@ type
     property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
     property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
     property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
-    property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
-    property ID_COMISION_LIQUIDADAIsNull : Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
-    property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
-    property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull;
-    property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
-    property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
-    property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
-    property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
     property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
     property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
     property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
-    property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
+    property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
-    property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+    property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
-    property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
+    property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
-    property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull;
+    property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -481,7 +469,7 @@ type
 
   { IFacturasCliente_DetallesDelta }
   IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
-  ['{D421677A-3717-40DD-9787-33F108D28E17}']
+  ['{A1C5C789-FF93-491C-82C6-A49EF37F27A3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -863,6 +851,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO] := Null;
 end;
 
+function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := Null;
+end;
+
 function TFacturasClienteBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_FACTURA];
@@ -1542,7 +1561,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_FORMA_PAGO] := Null;
 end;
 
-function TFacturasClienteBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer;
+function TFacturasClienteBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA];
 end;
@@ -1552,7 +1571,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]);
 end;
 
-function TFacturasClienteBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer;
+function TFacturasClienteBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA];
 end;
@@ -1562,7 +1581,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]);
 end;
 
-procedure TFacturasClienteBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
+procedure TFacturasClienteBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA] := aValue;
 end;
@@ -1666,68 +1685,6 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_PORTE] := Null;
 end;
 
-function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
-begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA];
-end;
-
-function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]);
-end;
-
-function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer;
-begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA];
-end;
-
-function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]);
-end;
-
-procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
-begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := aValue;
-end;
-
-procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA] := Null;
-end;
-
-function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
-begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION];
-end;
-
-function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION]);
-end;
-
-function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String;
-begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION];
-end;
-
-function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION]);
-end;
-
-procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String);
-begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := aValue;
-end;
-
-procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null;
-end;
-
 function TFacturasClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE];
@@ -1759,35 +1716,35 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := Null;
 end;
 
-function TFacturasClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
+function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION];
 end;
 
-function TFacturasClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean;
+function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION]);
 end;
 
-function TFacturasClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime;
+function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_VENCIMIENTO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION];
 end;
 
-function TFacturasClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean;
+function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION]);
 end;
 
-procedure TFacturasClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
+procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := aValue;
 end;
 
-procedure TFacturasClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null;
 end;
 
 

Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas

@@ -14,17 +14,14 @@ type
   end;
 
   TBizDetallesFacturaCliente = class(TFacturasCliente_DetallesDataTableRules, IBizDetallesFacturaCliente)
-  private
-    ContIdAux: Integer;
   protected
-    procedure OnNewRecord(Sender: TDADataTable); override;
     procedure BeforeInsert(Sender: TDADataTable); override;
   end;
 
 implementation
 
 uses
-  DB, SysUtils, Dialogs;
+  DB;
 
 { TBizDetallesFacturaCliente }
 
@@ -40,13 +37,6 @@ begin
   end;
 end;
 
-procedure TBizDetallesFacturaCliente.OnNewRecord(Sender: TDADataTable);
-begin
-  inherited;
-//  ID := ContIdAux; // -1, -2, -3...
-//  Dec(ContIdAux);
-end;
-
 initialization
   RegisterDataTableRules(BIZ_CLIENT_DETALLES_FACTURA_CLIENTE, TBizDetallesFacturaCliente);
 

Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas

@@ -73,7 +73,7 @@ type
     procedure OnNewRecord(Sender: TDADataTable); override;
 
     function GetSITUACIONValue: String; override;    
-    procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
+//    procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
     procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); override;
     procedure SetID_TIPO_IVAValue(const aValue: Integer); override;
 
@@ -327,13 +327,13 @@ begin
     inherited;
 end;
 
-procedure TBizFacturaCliente.SetID_FORMA_PAGOValue(const aValue: Integer);
+{procedure TBizFacturaCliente.SetID_FORMA_PAGOValue(const aValue: Integer);
 begin
   if (aValue = 0) then
     SetFieldNull(DataTable, fld_FacturasClienteID_FORMA_PAGO)
   else
     inherited;
-end;
+end;}
 
 procedure TBizFacturaCliente.SetID_TIPO_IVAValue(const aValue: Integer);
 begin

Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E1.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF8.tmp */

Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -75,6 +75,10 @@ object srvFacturasCliente: TsrvFacturasCliente
                 DatasetField = 'TIPO'
                 TableField = 'TIPO'
               end
+              item
+                DatasetField = 'ID_COMISION_LIQUIDADA'
+                TableField = 'ID_COMISION_LIQUIDADA'
+              end
               item
                 DatasetField = 'FECHA_FACTURA'
                 TableField = 'FECHA_FACTURA'
@@ -180,16 +184,12 @@ object srvFacturasCliente: TsrvFacturasCliente
                 TableField = 'IMPORTE_PORTE'
               end
               item
-                DatasetField = 'ID_COMISION_LIQUIDADA'
+                DatasetField = 'ID_AGENTE'
-                TableField = 'ID_COMISION_LIQUIDADA'
+                TableField = 'ID_AGENTE'
               end
               item
                 DatasetField = 'REFERENCIA_COMISION'
                 TableField = 'REFERENCIA_COMISION'
-              end
-              item
-                DatasetField = 'ID_AGENTE'
-                TableField = 'ID_AGENTE'
               end>
           end>
         Name = 'FacturasCliente'
@@ -219,6 +219,11 @@ object srvFacturasCliente: TsrvFacturasCliente
             Size = 1
             DictionaryEntry = 'FacturasCliente_TIPO'
           end
+          item
+            Name = 'ID_COMISION_LIQUIDADA'
+            DataType = datInteger
+            DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
+          end
           item
             Name = 'FECHA_FACTURA'
             DataType = datDateTime
@@ -339,7 +344,7 @@ object srvFacturasCliente: TsrvFacturasCliente
           end
           item
             Name = 'RECARGO_EQUIVALENCIA'
-            DataType = datInteger
+            DataType = datSmallInt
             DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
           end
           item
@@ -358,26 +363,15 @@ object srvFacturasCliente: TsrvFacturasCliente
             DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
           end
           item
-            Name = 'ID_COMISION_LIQUIDADA'
+            Name = 'ID_AGENTE'
             DataType = datInteger
-            DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
+            DictionaryEntry = 'FacturasCliente_ID_AGENTE'
           end
           item
             Name = 'REFERENCIA_COMISION'
             DataType = datString
             Size = 255
             DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION'
-          end
-          item
-            Name = 'ID_AGENTE'
-            DataType = datInteger
-            DictionaryEntry = 'FacturasCliente_ID_AGENTE'
-          end
-          item
-            Name = 'FECHA_VENCIMIENTO'
-            DataType = datDateTime
-            DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
-            Calculated = True
           end>
       end
       item
@@ -1492,7 +1486,7 @@ object srvFacturasCliente: TsrvFacturasCliente
       end
       item
         Name = 'FacturasCliente_RECARGO_EQUIVALENCIA'
-        DataType = datInteger
+        DataType = datSmallInt
         DisplayLabel = #191'Con R.E.?'
       end
       item

Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc

@@ -22,4 +22,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1DF.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF6.tmp */

Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm

@@ -142,7 +142,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 DataBinding.DataSource = frViewFacturaCliente1.DADataSource
               end
               inherited edtCodigoPostal: TcxDBTextEdit
+                Left = 192
                 DataBinding.DataSource = frViewFacturaCliente1.DADataSource
+                ExplicitLeft = 192
+              end
+              inherited Button3: TBitBtn
+                Left = 82
+                ExplicitLeft = 82
               end
             end
           end

Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm

@@ -1,6 +1,6 @@
 inherited frViewFacturaCliente: TfrViewFacturaCliente
-  Width = 451
+  Width = 754
-  Height = 304
+  Height = 333
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,16 +9,18 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 451
+    Width = 754
-    Height = 304
+    Height = 333
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
+    ExplicitWidth = 451
+    ExplicitHeight = 304
     DesignSize = (
-      451
+      754
-      304)
+      333)
     object eReferencia: TcxDBTextEdit
       Left = 124
       Top = 30
@@ -79,7 +81,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Width = 301
     end
     inline frViewClienteFactura: TfrViewDatosYSeleccionCliente
-      Left = 310
+      Left = 393
       Top = 30
       Width = 314
       Height = 215
@@ -91,7 +93,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       ParentFont = False
       TabOrder = 5
       ReadOnly = False
-      ExplicitLeft = 310
+      ExplicitLeft = 393
       ExplicitTop = 30
       ExplicitWidth = 314
       ExplicitHeight = 215
@@ -126,13 +128,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           Width = 327
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 192
+          Left = 247
           DataBinding.DataSource = DADataSource
-          ExplicitLeft = 192
+          ExplicitLeft = 247
         end
         inherited Button3: TBitBtn
-          Left = 82
+          Left = 137
-          ExplicitLeft = 82
+          ExplicitLeft = 137
         end
       end
     end
@@ -168,7 +170,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Width = 78
     end
     object bFormasPago: TButton
-      Left = 150
+      Left = 233
       Top = 84
       Width = 132
       Height = 23

Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas

@@ -69,16 +69,24 @@ begin
 end;
 
 function TFormasPagoController.Buscar(ID: Integer): IBizFormaPago;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
+
     with Result.DataTable.DynamicWhere do
     begin
       // (ID = :ID)
-      Expression := NewBinaryExpression(NewField('', fld_FormasPagoID),
+      Condicion := NewBinaryExpression(NewField('', fld_FormasPagoID), NewConstant(ID, datInteger), dboEqual);
-        NewConstant(ID, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C9.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE0.tmp */

Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C7.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDE.tmp */

Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas

@@ -89,18 +89,24 @@ begin
 end;
 
 function TDataModulePresupuestosCliente.GetItem(const ID: Integer): IBizPresupuestoCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
-    with Result.DataTable.Where do
+
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
+      // (ID = :ID)
-         AddOperator(opAND);
+      Condicion := NewBinaryExpression(NewField('', fld_PresupuestosClienteID), NewConstant(ID, datInteger), dboEqual);
-      OpenBraket;
+
-      AddText(fld_PresupuestosClienteID + ' = ' + IntToStr(ID));
+      if IsEmpty then
-      CloseBraket;
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
@@ -108,21 +114,21 @@ end;
 
 function TDataModulePresupuestosCliente.GetItems: IBizPresupuestoCliente;
 var
-  APresupuesto : TDAMemDataTable;
+  APresupuesto: TDAMemDataTable;
 begin
   ShowHourglassCursor;
   try
     APresupuesto := CloneDataTable(tbl_PresupuestosCliente);
+    AsignarClaseNegocio(APresupuesto);
 
     // EL CAMPO REFERENCIA TIENEN QUE SER AUTOREFRESH!!!!!
     APresupuesto.FieldByName(fld_PresupuestosClienteREFERENCIA).ServerAutoRefresh := TRUE;
 
-    AsignarClaseNegocio(APresupuesto);
-
     with TBizPresupuestoCliente(APresupuesto.BusinessEventsObj) do
          Detalles := _GetDetalles;
 
     Result := (APresupuesto as IBizPresupuestoCliente);
+
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C5.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfDC.tmp */

Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D9.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfF0.tmp */

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc

@@ -23,4 +23,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorElegirArticulosPresupuestoCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D7.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfEE.tmp */

Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas

@@ -244,6 +244,8 @@ begin
 end;
 
 function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   if not Assigned(Recibo) then
      raise Exception.Create ('IBizReciboCliente no asignado (BuscarRecibosACompensar)');
@@ -251,37 +253,51 @@ begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-         AddOperator(opAND);
-
       //No podrá compensarse un recibo a si mismo
-      OpenBraket;
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID), NewConstant(Recibo.ID, datInteger), dboNotEqual);
-      AddText(fld_RecibosClienteID + ' <> ' + IntToStr(Recibo.ID));
-      CloseBraket;
 
-      AddOperator(opAND);
+      if IsEmpty then
-
+         Expression := Condicion
-      //Solo podrá compensar recibos del mismo cliente
+      else
-      OpenBraket;
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
-      AddText(fld_RecibosClienteID_CLIENTE + ' = ' + IntToStr(Recibo.ID_CLIENTE));
-      CloseBraket;
-
-      AddOperator(opAND);
-
-      //Omitimos los recibos compensados
-      OpenBraket;
-      AddText(fld_RecibosClienteID_RECIBO_COMPENSADO + ' IS NULL ');
-      CloseBraket;
-
-      AddOperator(opAND);
-
-      //No podrá compensarse recibos que estan cobrados
-      OpenBraket;
-      AddText(fld_RecibosClienteSITUACION + ' <> ''' + CTE_COBRADO + '''');
-      CloseBraket;
     end;
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      //Solo podrá compensar recibos del mismo cliente
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_CLIENTE), NewConstant(Recibo.ID_CLIENTE, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      //Omitimos los recibos compensados
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_RECIBO_COMPENSADO), NewNull, dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      //No podrá compensarse recibos que estan cobrados
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteSITUACION), NewConstant(CTE_COBRADO, datString), dboNotEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+
   finally
     HideHourglassCursor;
   end;
@@ -302,18 +318,24 @@ begin
 end;
 
 function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
+      // (ID = :ID)
-         AddOperator(opAND);
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_FACTURA), NewConstant(ID_FACTURA, datInteger), dboEqual);
-      OpenBraket;
+
-      AddText(fld_RecibosClienteID_FACTURA + ' = ' + IntToStr(ID_FACTURA));
+      if IsEmpty then
-      CloseBraket;
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
@@ -514,6 +536,7 @@ begin
     if Assigned(AEditor) then
       with AEditor do
       begin
+        Controller := Self; //OJO ORDEN MUY IMPORTANTE
         RecibosCliente := ARecibosCliente;
         MultiSelect := True;
         ShowEmbedded;

Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc

@@ -12,6 +12,6 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */
+/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.DFM */
 /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1BD.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.drf */

Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm

@@ -28,7 +28,10 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
     Fields = <
       item
         Name = 'ID'
-        DataType = datInteger
+        DataType = datAutoInc
+        GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
+        Required = True
+        ServerAutoRefresh = True
         DictionaryEntry = 'PagosCliente_ID'
         InPrimaryKey = True
       end
@@ -115,22 +118,27 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'PagosCliente'
-    Left = 272
+    IndexDefs = <>
-    Top = 80
+    Left = 352
+    Top = 88
   end
   object ds_PagosCliente: TDADataSource
     DataSet = tbl_PagosCliente.Dataset
     DataTable = tbl_PagosCliente
-    Left = 272
+    Left = 352
-    Top = 24
+    Top = 32
   end
   object tbl_RecibosCliente: TDAMemDataTable
     RemoteUpdatesOptions = []
     Fields = <
       item
         Name = 'ID'
-        DataType = datInteger
+        DataType = datAutoInc
+        GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
+        Required = True
+        ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_ID'
+        InPrimaryKey = True
       end
       item
         Name = 'ID_RECIBO_COMPENSADO'
@@ -298,125 +306,14 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'RecibosCliente'
+    IndexDefs = <>
     Left = 168
-    Top = 80
+    Top = 88
   end
   object ds_RecibosCliente: TDADataSource
     DataSet = tbl_RecibosCliente.Dataset
     DataTable = tbl_RecibosCliente
     Left = 168
-    Top = 24
+    Top = 32
-  end
-  object tbl_RecibosCompensadosCli: TDAMemDataTable
-    RemoteUpdatesOptions = []
-    Fields = <
-      item
-        Name = 'ID'
-        DataType = datInteger
-      end
-      item
-        Name = 'ID_RECIBO_COMPENSADO'
-        DataType = datInteger
-      end
-      item
-        Name = 'REFERENCIA'
-        DataType = datString
-        Size = 255
-        DictionaryEntry = 'RecibosCliente_REFERENCIA'
-      end
-      item
-        Name = 'SITUACION'
-        DataType = datString
-        Size = 9
-        DictionaryEntry = 'RecibosCliente_SITUACION'
-      end
-      item
-        Name = 'ID_FACTURA'
-        DataType = datInteger
-        DictionaryEntry = 'RecibosCliente_ID_FACTURA'
-      end
-      item
-        Name = 'FECHA_EMISION'
-        DataType = datDateTime
-        DisplayLabel = 'RecibosCliente_FECHA_EMISION'
-        DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
-      end
-      item
-        Name = 'FECHA_VENCIMIENTO'
-        DataType = datDateTime
-        DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
-      end
-      item
-        Name = 'IMPORTE'
-        DataType = datCurrency
-        Alignment = taRightJustify
-        DictionaryEntry = 'RecibosCliente_IMPORTE'
-      end
-      item
-        Name = 'OTROS_GASTOS'
-        DataType = datCurrency
-        DisplayLabel = 'RecibosCliente_OTROS_GASTOS'
-        Alignment = taRightJustify
-        DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
-      end
-      item
-        Name = 'IMPORTE_TOTAL'
-        DataType = datCurrency
-        Alignment = taRightJustify
-        DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
-      end
-      item
-        Name = 'FECHA_FACTURA'
-        DataType = datDateTime
-        DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
-      end
-      item
-        Name = 'IMPORTE_FACTURA'
-        DataType = datCurrency
-        Alignment = taRightJustify
-        DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
-      end
-      item
-        Name = 'ID_CLIENTE'
-        DataType = datInteger
-        DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
-      end
-      item
-        Name = 'NOMBRE_CLIENTE'
-        DataType = datString
-        Size = 255
-        DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
-      end
-      item
-        Name = 'NIF_CIF_CLIENTE'
-        DataType = datString
-        Size = 15
-        DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
-      end
-      item
-        Name = 'ID_EMPRESA'
-        DataType = datInteger
-        DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
-      end>
-    Params = <
-      item
-        Name = 'ID'
-        DataType = datInteger
-        Value = ''
-        ParamType = daptInput
-      end>
-    StreamingOptions = [soDisableEventsWhileStreaming]
-    RemoteDataAdapter = rda_RecibosCliente
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
-    LogicalName = 'RecibosCompensadosCli'
-    Left = 392
-    Top = 80
-  end
-  object ds_RecibosCompensadosCli: TDADataSource
-    DataSet = tbl_RecibosCompensadosCli.Dataset
-    DataTable = tbl_RecibosCompensadosCli
-    Left = 392
-    Top = 24
   end
 end

Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas

@@ -44,8 +44,6 @@ type
     ds_PagosCliente: TDADataSource;
     tbl_RecibosCliente: TDAMemDataTable;
     ds_RecibosCliente: TDADataSource;
-    tbl_RecibosCompensadosCli: TDAMemDataTable;
-    ds_RecibosCompensadosCli: TDADataSource;
     procedure DAClientDataModuleCreate(Sender: TObject);
   protected
     function _GetPagos: IBizPagosCliente;
@@ -71,7 +69,7 @@ uses
 
 function TDataModuleRecibosCliente.GetReport(const ID: String): Binary;
 begin
-  Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
+//  Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
 end;
 
 procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject);
@@ -102,19 +100,19 @@ function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensado
 var
   ARecibosCompensados : TDAMemDataTable;
 begin
-  ShowHourglassCursor;
+{  ShowHourglassCursor;
   try
     ARecibosCompensados := CloneDataTable(tbl_RecibosCompensadosCli);
     with ARecibosCompensados do
     begin
       BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSCLI;
-      DetailOptions := DetailOptions -
+      DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
-        [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
     end;
     Result := (ARecibosCompensados as IBizRecibosCompensadosCli);
   finally
     HideHourglassCursor;
   end;
+}  
 end;
 
 function TDataModuleRecibosCliente.GetItems: IBizRecibosCliente;
@@ -144,18 +142,24 @@ begin
 end;
 
 function TDataModuleRecibosCliente.GetItem(const ID: Integer): IBizRecibosCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
-    with Result.DataTable.Where do
+
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
+      // (ID = :ID)
-        AddOperator(opAND);
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID), NewConstant(ID, datInteger), dboEqual);
-      OpenBraket;
+
-      AddText(fld_RecibosClienteID + ' = ' + IntToStr(ID));
+      if IsEmpty then
-      CloseBraket;
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas

@@ -3,15 +3,15 @@ unit schRecibosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, 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_RecibosCliente = '{49C7956A-0A84-4CAC-A577-709985BCFE40}';
+  RID_RecibosCliente = '{5410D8EC-FA59-43E6-96AB-C7C2E1292FBB}';
-  RID_PagosCliente = '{556A81CB-B10F-4575-B1E8-1CDC29E07ECA}';
+  RID_PagosCliente = '{A9A33A29-1E9F-40C7-9F00-73776CAA6D93}';
-  RID_RecibosCompensadosCli = '{F7389B45-CBEA-4957-9676-8031F6C9B121}';
+  RID_RecibosCompensadosCli = '{55474263-530A-458F-ADE8-497B260FA9A3}';
 
   { Data table names }
   nme_RecibosCliente = 'RecibosCliente';
@@ -111,43 +111,69 @@ const
   { RecibosCompensadosCli fields }
   fld_RecibosCompensadosCliID = 'ID';
   fld_RecibosCompensadosCliID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO';
+  fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO';
   fld_RecibosCompensadosCliREFERENCIA = 'REFERENCIA';
   fld_RecibosCompensadosCliSITUACION = 'SITUACION';
   fld_RecibosCompensadosCliID_FACTURA = 'ID_FACTURA';
+  fld_RecibosCompensadosCliID_REMESA = 'ID_REMESA';
+  fld_RecibosCompensadosCliREFERENCIA_REMESA = 'REFERENCIA_REMESA';
   fld_RecibosCompensadosCliFECHA_EMISION = 'FECHA_EMISION';
   fld_RecibosCompensadosCliFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
+  fld_RecibosCompensadosCliDESCRIPCION = 'DESCRIPCION';
+  fld_RecibosCompensadosCliOBSERVACIONES = 'OBSERVACIONES';
   fld_RecibosCompensadosCliIMPORTE = 'IMPORTE';
   fld_RecibosCompensadosCliOTROS_GASTOS = 'OTROS_GASTOS';
   fld_RecibosCompensadosCliIMPORTE_TOTAL = 'IMPORTE_TOTAL';
   fld_RecibosCompensadosCliFECHA_FACTURA = 'FECHA_FACTURA';
+  fld_RecibosCompensadosCliFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
   fld_RecibosCompensadosCliIMPORTE_FACTURA = 'IMPORTE_FACTURA';
+  fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
   fld_RecibosCompensadosCliID_CLIENTE = 'ID_CLIENTE';
   fld_RecibosCompensadosCliNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
   fld_RecibosCompensadosCliNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
-  fld_RecibosCompensadosCliID_EMPRESA = 'ID_EMPRESA';
+  fld_RecibosCompensadosCliENTIDAD_CLIENTE = 'ENTIDAD_CLIENTE';
+  fld_RecibosCompensadosCliSUCURSAL_CLIENTE = 'SUCURSAL_CLIENTE';
+  fld_RecibosCompensadosCliDC_CLIENTE = 'DC_CLIENTE';
+  fld_RecibosCompensadosCliCUENTA_CLIENTE = 'CUENTA_CLIENTE';
+  fld_RecibosCompensadosCliFECHA_ALTA = 'FECHA_ALTA';
+  fld_RecibosCompensadosCliFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+  fld_RecibosCompensadosCliUSUARIO = 'USUARIO';
 
   { RecibosCompensadosCli field indexes }
   idx_RecibosCompensadosCliID = 0;
   idx_RecibosCompensadosCliID_RECIBO_COMPENSADO = 1;
-  idx_RecibosCompensadosCliREFERENCIA = 2;
+  idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO = 2;
-  idx_RecibosCompensadosCliSITUACION = 3;
+  idx_RecibosCompensadosCliREFERENCIA = 3;
-  idx_RecibosCompensadosCliID_FACTURA = 4;
+  idx_RecibosCompensadosCliSITUACION = 4;
-  idx_RecibosCompensadosCliFECHA_EMISION = 5;
+  idx_RecibosCompensadosCliID_FACTURA = 5;
-  idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 6;
+  idx_RecibosCompensadosCliID_REMESA = 6;
-  idx_RecibosCompensadosCliIMPORTE = 7;
+  idx_RecibosCompensadosCliREFERENCIA_REMESA = 7;
-  idx_RecibosCompensadosCliOTROS_GASTOS = 8;
+  idx_RecibosCompensadosCliFECHA_EMISION = 8;
-  idx_RecibosCompensadosCliIMPORTE_TOTAL = 9;
+  idx_RecibosCompensadosCliFECHA_VENCIMIENTO = 9;
-  idx_RecibosCompensadosCliFECHA_FACTURA = 10;
+  idx_RecibosCompensadosCliDESCRIPCION = 10;
-  idx_RecibosCompensadosCliIMPORTE_FACTURA = 11;
+  idx_RecibosCompensadosCliOBSERVACIONES = 11;
-  idx_RecibosCompensadosCliID_CLIENTE = 12;
+  idx_RecibosCompensadosCliIMPORTE = 12;
-  idx_RecibosCompensadosCliNOMBRE_CLIENTE = 13;
+  idx_RecibosCompensadosCliOTROS_GASTOS = 13;
-  idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 14;
+  idx_RecibosCompensadosCliIMPORTE_TOTAL = 14;
-  idx_RecibosCompensadosCliID_EMPRESA = 15;
+  idx_RecibosCompensadosCliFECHA_FACTURA = 15;
+  idx_RecibosCompensadosCliFORMA_PAGO_FACTURA = 16;
+  idx_RecibosCompensadosCliIMPORTE_FACTURA = 17;
+  idx_RecibosCompensadosCliID_EMPRESA = 18;
+  idx_RecibosCompensadosCliID_CLIENTE = 19;
+  idx_RecibosCompensadosCliNOMBRE_CLIENTE = 20;
+  idx_RecibosCompensadosCliNIF_CIF_CLIENTE = 21;
+  idx_RecibosCompensadosCliENTIDAD_CLIENTE = 22;
+  idx_RecibosCompensadosCliSUCURSAL_CLIENTE = 23;
+  idx_RecibosCompensadosCliDC_CLIENTE = 24;
+  idx_RecibosCompensadosCliCUENTA_CLIENTE = 25;
+  idx_RecibosCompensadosCliFECHA_ALTA = 26;
+  idx_RecibosCompensadosCliFECHA_MODIFICACION = 27;
+  idx_RecibosCompensadosCliUSUARIO = 28;
 
 type
   { IRecibosCliente }
   IRecibosCliente = interface(IDAStronglyTypedDataTable)
-  ['{14D43E5A-D46A-4F89-8E59-6BA1C0EBB6B1}']
+  ['{11D2AB69-38A8-41B8-8139-2C32F3732B9C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -329,7 +355,7 @@ type
   end;
 
   { TRecibosClienteDataTableRules }
-  TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
+  TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
   private
   protected
     { Property getters and setters }
@@ -518,7 +544,7 @@ type
 
   { IPagosCliente }
   IPagosCliente = interface(IDAStronglyTypedDataTable)
-  ['{92A8371B-B686-4664-8F0F-621B498C99F2}']
+  ['{A77D5C00-617A-4A1C-B34F-B24E6AC72E0D}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -598,7 +624,7 @@ type
   end;
 
   { TPagosClienteDataTableRules }
-  TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
+  TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
   private
   protected
     { Property getters and setters }
@@ -685,7 +711,7 @@ type
 
   { IRecibosCompensadosCli }
   IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
-  ['{EB912FB7-AC41-4E3F-B888-E26228ED7B80}']
+  ['{3E3D9FC0-4E90-4A4D-AE58-8B53087B5A5F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -695,6 +721,10 @@ type
     procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer);
     function GetID_RECIBO_COMPENSADOIsNull: Boolean;
     procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean);
+    function GetREFERENCIA_REC_COMPENSADOValue: String;
+    procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+    function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
+    procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
     function GetREFERENCIAValue: String;
     procedure SetREFERENCIAValue(const aValue: String);
     function GetREFERENCIAIsNull: Boolean;
@@ -707,6 +737,14 @@ type
     procedure SetID_FACTURAValue(const aValue: Integer);
     function GetID_FACTURAIsNull: Boolean;
     procedure SetID_FACTURAIsNull(const aValue: Boolean);
+    function GetID_REMESAValue: Integer;
+    procedure SetID_REMESAValue(const aValue: Integer);
+    function GetID_REMESAIsNull: Boolean;
+    procedure SetID_REMESAIsNull(const aValue: Boolean);
+    function GetREFERENCIA_REMESAValue: String;
+    procedure SetREFERENCIA_REMESAValue(const aValue: String);
+    function GetREFERENCIA_REMESAIsNull: Boolean;
+    procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
     function GetFECHA_EMISIONValue: DateTime;
     procedure SetFECHA_EMISIONValue(const aValue: DateTime);
     function GetFECHA_EMISIONIsNull: Boolean;
@@ -715,6 +753,14 @@ type
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
     function GetFECHA_VENCIMIENTOIsNull: Boolean;
     procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
+    function GetDESCRIPCIONValue: String;
+    procedure SetDESCRIPCIONValue(const aValue: String);
+    function GetDESCRIPCIONIsNull: Boolean;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+    function GetOBSERVACIONESValue: String;
+    procedure SetOBSERVACIONESValue(const aValue: String);
+    function GetOBSERVACIONESIsNull: Boolean;
+    procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
     function GetIMPORTEValue: Currency;
     procedure SetIMPORTEValue(const aValue: Currency);
     function GetIMPORTEIsNull: Boolean;
@@ -731,10 +777,18 @@ type
     procedure SetFECHA_FACTURAValue(const aValue: DateTime);
     function GetFECHA_FACTURAIsNull: Boolean;
     procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
+    function GetFORMA_PAGO_FACTURAValue: String;
+    procedure SetFORMA_PAGO_FACTURAValue(const aValue: String);
+    function GetFORMA_PAGO_FACTURAIsNull: Boolean;
+    procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
     function GetIMPORTE_FACTURAValue: Currency;
     procedure SetIMPORTE_FACTURAValue(const aValue: Currency);
     function GetIMPORTE_FACTURAIsNull: Boolean;
     procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean);
+    function GetID_EMPRESAValue: Integer;
+    procedure SetID_EMPRESAValue(const aValue: Integer);
+    function GetID_EMPRESAIsNull: Boolean;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean);
     function GetID_CLIENTEValue: Integer;
     procedure SetID_CLIENTEValue(const aValue: Integer);
     function GetID_CLIENTEIsNull: Boolean;
@@ -747,10 +801,34 @@ type
     procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
     function GetNIF_CIF_CLIENTEIsNull: Boolean;
     procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean);
-    function GetID_EMPRESAValue: Integer;
+    function GetENTIDAD_CLIENTEValue: String;
-    procedure SetID_EMPRESAValue(const aValue: Integer);
+    procedure SetENTIDAD_CLIENTEValue(const aValue: String);
-    function GetID_EMPRESAIsNull: Boolean;
+    function GetENTIDAD_CLIENTEIsNull: Boolean;
-    procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+    procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
+    function GetSUCURSAL_CLIENTEValue: String;
+    procedure SetSUCURSAL_CLIENTEValue(const aValue: String);
+    function GetSUCURSAL_CLIENTEIsNull: Boolean;
+    procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
+    function GetDC_CLIENTEValue: String;
+    procedure SetDC_CLIENTEValue(const aValue: String);
+    function GetDC_CLIENTEIsNull: Boolean;
+    procedure SetDC_CLIENTEIsNull(const aValue: Boolean);
+    function GetCUENTA_CLIENTEValue: String;
+    procedure SetCUENTA_CLIENTEValue(const aValue: String);
+    function GetCUENTA_CLIENTEIsNull: Boolean;
+    procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+    function GetFECHA_ALTAValue: DateTime;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime);
+    function GetFECHA_ALTAIsNull: Boolean;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+    function GetFECHA_MODIFICACIONValue: DateTime;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+    function GetFECHA_MODIFICACIONIsNull: Boolean;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+    function GetUSUARIOValue: String;
+    procedure SetUSUARIOValue(const aValue: String);
+    function GetUSUARIOIsNull: Boolean;
+    procedure SetUSUARIOIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -758,16 +836,26 @@ type
     property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
     property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
     property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+    property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+    property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
     property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
     property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+    property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
+    property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
+    property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+    property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
     property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
     property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
+    property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
     property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
     property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
     property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
@@ -776,20 +864,36 @@ type
     property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+    property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+    property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
     property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
     property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
     property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
     property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
     property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
-    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
-    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
+    property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
+    property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
+    property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
+    property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
+    property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
+    property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
   end;
 
   { TRecibosCompensadosCliDataTableRules }
-  TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
+  TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
   private
   protected
     { Property getters and setters }
@@ -801,6 +905,10 @@ type
     procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
     function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
     procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
+    procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
+    function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual;
     function GetREFERENCIAValue: String; virtual;
     procedure SetREFERENCIAValue(const aValue: String); virtual;
     function GetREFERENCIAIsNull: Boolean; virtual;
@@ -813,6 +921,14 @@ type
     procedure SetID_FACTURAValue(const aValue: Integer); virtual;
     function GetID_FACTURAIsNull: Boolean; virtual;
     procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetID_REMESAValue: Integer; virtual;
+    procedure SetID_REMESAValue(const aValue: Integer); virtual;
+    function GetID_REMESAIsNull: Boolean; virtual;
+    procedure SetID_REMESAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_REMESAValue: String; virtual;
+    procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
+    function GetREFERENCIA_REMESAIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual;
     function GetFECHA_EMISIONValue: DateTime; virtual;
     procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual;
     function GetFECHA_EMISIONIsNull: Boolean; virtual;
@@ -821,6 +937,14 @@ type
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
     function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
     procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+    function GetOBSERVACIONESValue: String; virtual;
+    procedure SetOBSERVACIONESValue(const aValue: String); virtual;
+    function GetOBSERVACIONESIsNull: Boolean; virtual;
+    procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
     function GetIMPORTEValue: Currency; virtual;
     procedure SetIMPORTEValue(const aValue: Currency); virtual;
     function GetIMPORTEIsNull: Boolean; virtual;
@@ -837,10 +961,18 @@ type
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
     function GetFECHA_FACTURAIsNull: Boolean; virtual;
     procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetFORMA_PAGO_FACTURAValue: String; virtual;
+    procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
+    function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+    procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
     function GetIMPORTE_FACTURAValue: Currency; virtual;
     procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
     function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
     procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    function GetID_EMPRESAIsNull: Boolean; virtual;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
     function GetID_CLIENTEValue: Integer; virtual;
     procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
     function GetID_CLIENTEIsNull: Boolean; virtual;
@@ -853,26 +985,60 @@ type
     procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
     function GetNIF_CIF_CLIENTEIsNull: Boolean; virtual;
     procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
-    function GetID_EMPRESAValue: Integer; virtual;
+    function GetENTIDAD_CLIENTEValue: String; virtual;
-    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
-    function GetID_EMPRESAIsNull: Boolean; virtual;
+    function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
-    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetSUCURSAL_CLIENTEValue: String; virtual;
+    procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
+    function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual;
+    procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetDC_CLIENTEValue: String; virtual;
+    procedure SetDC_CLIENTEValue(const aValue: String); virtual;
+    function GetDC_CLIENTEIsNull: Boolean; virtual;
+    procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetCUENTA_CLIENTEValue: String; virtual;
+    procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
+    function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
+    procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    function GetFECHA_ALTAIsNull: Boolean; virtual;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetUSUARIOValue: String; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    function GetUSUARIOIsNull: Boolean; virtual;
+    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
     property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
     property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue;
     property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
+    property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+    property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
     property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
     property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
+    property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue;
+    property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
+    property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+    property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
     property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
     property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
+    property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
     property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
     property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
     property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue;
@@ -881,16 +1047,32 @@ type
     property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
     property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
     property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+    property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+    property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
     property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
     property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
+    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
     property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
     property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
     property NIF_CIF_CLIENTEIsNull: Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
-    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ENTIDAD_CLIENTE: String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
-    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property ENTIDAD_CLIENTEIsNull: Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
+    property SUCURSAL_CLIENTE: String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
+    property SUCURSAL_CLIENTEIsNull: Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
+    property DC_CLIENTE: String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
+    property DC_CLIENTEIsNull: Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
+    property CUENTA_CLIENTE: String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
+    property CUENTA_CLIENTEIsNull: Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
+    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1840,6 +2022,27 @@ begin
     DataTable.Fields[idx_RecibosCompensadosCliID_RECIBO_COMPENSADO].AsVariant := Null;
 end;
 
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REC_COMPENSADOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO].AsVariant := Null;
+end;
+
 function TRecibosCompensadosCliDataTableRules.GetREFERENCIAValue: String;
 begin
   result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA].AsString;
@@ -1903,6 +2106,48 @@ begin
     DataTable.Fields[idx_RecibosCompensadosCliID_FACTURA].AsVariant := Null;
 end;
 
+function TRecibosCompensadosCliDataTableRules.GetID_REMESAValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].AsInteger;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_REMESAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetID_REMESAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_REMESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliID_REMESA].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REMESAValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REMESAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetREFERENCIA_REMESAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliREFERENCIA_REMESA].AsVariant := Null;
+end;
+
 function TRecibosCompensadosCliDataTableRules.GetFECHA_EMISIONValue: DateTime;
 begin
   result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_EMISION].AsDateTime;
@@ -1945,6 +2190,48 @@ begin
     DataTable.Fields[idx_RecibosCompensadosCliFECHA_VENCIMIENTO].AsVariant := Null;
 end;
 
+function TRecibosCompensadosCliDataTableRules.GetDESCRIPCIONValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliDESCRIPCION].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetOBSERVACIONESValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetOBSERVACIONESValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetOBSERVACIONESIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliOBSERVACIONES].AsVariant := Null;
+end;
+
 function TRecibosCompensadosCliDataTableRules.GetIMPORTEValue: Currency;
 begin
   result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE].AsCurrency;
@@ -2029,6 +2316,27 @@ begin
     DataTable.Fields[idx_RecibosCompensadosCliFECHA_FACTURA].AsVariant := Null;
 end;
 
+function TRecibosCompensadosCliDataTableRules.GetFORMA_PAGO_FACTURAValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliFORMA_PAGO_FACTURA].AsVariant := Null;
+end;
+
 function TRecibosCompensadosCliDataTableRules.GetIMPORTE_FACTURAValue: Currency;
 begin
   result := DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsCurrency;
@@ -2050,6 +2358,27 @@ begin
     DataTable.Fields[idx_RecibosCompensadosCliIMPORTE_FACTURA].AsVariant := Null;
 end;
 
+function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsVariant := Null;
+end;
+
 function TRecibosCompensadosCliDataTableRules.GetID_CLIENTEValue: Integer;
 begin
   result := DataTable.Fields[idx_RecibosCompensadosCliID_CLIENTE].AsInteger;
@@ -2113,25 +2442,151 @@ begin
     DataTable.Fields[idx_RecibosCompensadosCliNIF_CIF_CLIENTE].AsVariant := Null;
 end;
 
-function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAValue: Integer;
+function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEValue: String;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger;
+  result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString;
 end;
 
-procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
+procedure TRecibosCompensadosCliDataTableRules.SetENTIDAD_CLIENTEValue(const aValue: String);
 begin
-  DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsInteger := aValue;
+  DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsString := aValue;
 end;
 
-function TRecibosCompensadosCliDataTableRules.GetID_EMPRESAIsNull: boolean;
+function TRecibosCompensadosCliDataTableRules.GetENTIDAD_CLIENTEIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].IsNull;
+  result := DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].IsNull;
 end;
 
-procedure TRecibosCompensadosCliDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+procedure TRecibosCompensadosCliDataTableRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_RecibosCompensadosCliID_EMPRESA].AsVariant := Null;
+    DataTable.Fields[idx_RecibosCompensadosCliENTIDAD_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetSUCURSAL_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetSUCURSAL_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliSUCURSAL_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetDC_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetDC_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetDC_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetDC_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliDC_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetCUENTA_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetCUENTA_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliCUENTA_CLIENTE].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].AsDateTime;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliFECHA_ALTA].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliFECHA_MODIFICACION].AsVariant := Null;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetUSUARIOValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsString;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsString := aValue;
+end;
+
+function TRecibosCompensadosCliDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].IsNull;
+end;
+
+procedure TRecibosCompensadosCliDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosCliUSUARIO].AsVariant := Null;
 end;
 
 

Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas

@@ -9,14 +9,14 @@ 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_RecibosClienteDelta = '{112687A9-E4E3-453E-AD24-F6AF1575EDCC}';
+  RID_RecibosClienteDelta = '{E1FDCE22-19B3-498A-BEBA-6CFB34FC22C2}';
-  RID_PagosClienteDelta = '{41C4B6B1-E072-45C7-9E22-BB8773C91269}';
+  RID_PagosClienteDelta = '{B09875FA-0962-46A9-9A3A-40F618B4230D}';
-  RID_RecibosCompensadosCliDelta = '{A4012B7D-03C6-4AE3-84CF-E185F4BA123E}';
+  RID_RecibosCompensadosCliDelta = '{43471651-957E-47B2-B810-E0227C1BB163}';
 
 type
   { IRecibosClienteDelta }
   IRecibosClienteDelta = interface(IRecibosCliente)
-  ['{112687A9-E4E3-453E-AD24-F6AF1575EDCC}']
+  ['{E1FDCE22-19B3-498A-BEBA-6CFB34FC22C2}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -386,7 +386,7 @@ type
 
   { IPagosClienteDelta }
   IPagosClienteDelta = interface(IPagosCliente)
-  ['{41C4B6B1-E072-45C7-9E22-BB8773C91269}']
+  ['{B09875FA-0962-46A9-9A3A-40F618B4230D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -552,42 +552,68 @@ type
 
   { IRecibosCompensadosCliDelta }
   IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
-  ['{A4012B7D-03C6-4AE3-84CF-E185F4BA123E}']
+  ['{43471651-957E-47B2-B810-E0227C1BB163}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
+    function GetOldREFERENCIA_REC_COMPENSADOValue : String;
     function GetOldREFERENCIAValue : String;
     function GetOldSITUACIONValue : String;
     function GetOldID_FACTURAValue : Integer;
+    function GetOldID_REMESAValue : Integer;
+    function GetOldREFERENCIA_REMESAValue : String;
     function GetOldFECHA_EMISIONValue : DateTime;
     function GetOldFECHA_VENCIMIENTOValue : DateTime;
+    function GetOldDESCRIPCIONValue : String;
+    function GetOldOBSERVACIONESValue : String;
     function GetOldIMPORTEValue : Currency;
     function GetOldOTROS_GASTOSValue : Currency;
     function GetOldIMPORTE_TOTALValue : Currency;
     function GetOldFECHA_FACTURAValue : DateTime;
+    function GetOldFORMA_PAGO_FACTURAValue : String;
     function GetOldIMPORTE_FACTURAValue : Currency;
+    function GetOldID_EMPRESAValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
     function GetOldNOMBRE_CLIENTEValue : String;
     function GetOldNIF_CIF_CLIENTEValue : String;
-    function GetOldID_EMPRESAValue : Integer;
+    function GetOldENTIDAD_CLIENTEValue : String;
+    function GetOldSUCURSAL_CLIENTEValue : String;
+    function GetOldDC_CLIENTEValue : String;
+    function GetOldCUENTA_CLIENTEValue : String;
+    function GetOldFECHA_ALTAValue : DateTime;
+    function GetOldFECHA_MODIFICACIONValue : DateTime;
+    function GetOldUSUARIOValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
     property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
+    property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
+    property OldID_REMESA : Integer read GetOldID_REMESAValue;
+    property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
     property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
     property OldIMPORTE : Currency read GetOldIMPORTEValue;
     property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+    property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
     property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
     property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
-    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
+    property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
+    property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
+    property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
   end;
 
   { TRecibosCompensadosCliBusinessProcessorRules }
@@ -607,6 +633,12 @@ type
     function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual;
     procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual;
     procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_REC_COMPENSADOValue: String; virtual;
+    function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual;
+    function GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual;
     function GetREFERENCIAValue: String; virtual;
     function GetREFERENCIAIsNull: Boolean; virtual;
     function GetOldREFERENCIAValue: String; virtual;
@@ -625,6 +657,18 @@ type
     function GetOldID_FACTURAIsNull: Boolean; virtual;
     procedure SetID_FACTURAValue(const aValue: Integer); virtual;
     procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetID_REMESAValue: Integer; virtual;
+    function GetID_REMESAIsNull: Boolean; virtual;
+    function GetOldID_REMESAValue: Integer; virtual;
+    function GetOldID_REMESAIsNull: Boolean; virtual;
+    procedure SetID_REMESAValue(const aValue: Integer); virtual;
+    procedure SetID_REMESAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_REMESAValue: String; virtual;
+    function GetREFERENCIA_REMESAIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_REMESAValue: String; virtual;
+    function GetOldREFERENCIA_REMESAIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual;
     function GetFECHA_EMISIONValue: DateTime; virtual;
     function GetFECHA_EMISIONIsNull: Boolean; virtual;
     function GetOldFECHA_EMISIONValue: DateTime; virtual;
@@ -637,6 +681,18 @@ type
     function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
     procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    function GetOldDESCRIPCIONValue: String; virtual;
+    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+    function GetOBSERVACIONESValue: String; virtual;
+    function GetOBSERVACIONESIsNull: Boolean; virtual;
+    function GetOldOBSERVACIONESValue: String; virtual;
+    function GetOldOBSERVACIONESIsNull: Boolean; virtual;
+    procedure SetOBSERVACIONESValue(const aValue: String); virtual;
+    procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
     function GetIMPORTEValue: Currency; virtual;
     function GetIMPORTEIsNull: Boolean; virtual;
     function GetOldIMPORTEValue: Currency; virtual;
@@ -661,12 +717,24 @@ type
     function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
     procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
     procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetFORMA_PAGO_FACTURAValue: String; virtual;
+    function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+    function GetOldFORMA_PAGO_FACTURAValue: String; virtual;
+    function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual;
+    procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual;
+    procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual;
     function GetIMPORTE_FACTURAValue: Currency; virtual;
     function GetIMPORTE_FACTURAIsNull: Boolean; virtual;
     function GetOldIMPORTE_FACTURAValue: Currency; virtual;
     function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual;
     procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual;
     procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetID_EMPRESAValue: Integer; virtual;
+    function GetID_EMPRESAIsNull: Boolean; virtual;
+    function GetOldID_EMPRESAValue: Integer; virtual;
+    function GetOldID_EMPRESAIsNull: Boolean; virtual;
+    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
     function GetID_CLIENTEValue: Integer; virtual;
     function GetID_CLIENTEIsNull: Boolean; virtual;
     function GetOldID_CLIENTEValue: Integer; virtual;
@@ -685,12 +753,48 @@ type
     function GetOldNIF_CIF_CLIENTEIsNull: Boolean; virtual;
     procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
     procedure SetNIF_CIF_CLIENTEIsNull(const aValue: Boolean); virtual;
-    function GetID_EMPRESAValue: Integer; virtual;
+    function GetENTIDAD_CLIENTEValue: String; virtual;
-    function GetID_EMPRESAIsNull: Boolean; virtual;
+    function GetENTIDAD_CLIENTEIsNull: Boolean; virtual;
-    function GetOldID_EMPRESAValue: Integer; virtual;
+    function GetOldENTIDAD_CLIENTEValue: String; virtual;
-    function GetOldID_EMPRESAIsNull: Boolean; virtual;
+    function GetOldENTIDAD_CLIENTEIsNull: Boolean; virtual;
-    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+    procedure SetENTIDAD_CLIENTEValue(const aValue: String); virtual;
-    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    procedure SetENTIDAD_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetSUCURSAL_CLIENTEValue: String; virtual;
+    function GetSUCURSAL_CLIENTEIsNull: Boolean; virtual;
+    function GetOldSUCURSAL_CLIENTEValue: String; virtual;
+    function GetOldSUCURSAL_CLIENTEIsNull: Boolean; virtual;
+    procedure SetSUCURSAL_CLIENTEValue(const aValue: String); virtual;
+    procedure SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetDC_CLIENTEValue: String; virtual;
+    function GetDC_CLIENTEIsNull: Boolean; virtual;
+    function GetOldDC_CLIENTEValue: String; virtual;
+    function GetOldDC_CLIENTEIsNull: Boolean; virtual;
+    procedure SetDC_CLIENTEValue(const aValue: String); virtual;
+    procedure SetDC_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetCUENTA_CLIENTEValue: String; virtual;
+    function GetCUENTA_CLIENTEIsNull: Boolean; virtual;
+    function GetOldCUENTA_CLIENTEValue: String; virtual;
+    function GetOldCUENTA_CLIENTEIsNull: Boolean; virtual;
+    procedure SetCUENTA_CLIENTEValue(const aValue: String); virtual;
+    procedure SetCUENTA_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_ALTAValue: DateTime; virtual;
+    function GetFECHA_ALTAIsNull: Boolean; virtual;
+    function GetOldFECHA_ALTAValue: DateTime; virtual;
+    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetUSUARIOValue: String; virtual;
+    function GetUSUARIOIsNull: Boolean; virtual;
+    function GetOldUSUARIOValue: String; virtual;
+    function GetOldUSUARIOIsNull: Boolean; virtual;
+    procedure SetUSUARIOValue(const aValue: String); virtual;
+    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -701,6 +805,10 @@ type
     property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull;
     property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue;
     property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull;
+    property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue;
+    property REFERENCIA_REC_COMPENSADOIsNull : Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull;
+    property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue;
+    property OldREFERENCIA_REC_COMPENSADOIsNull : Boolean read GetOldREFERENCIA_REC_COMPENSADOIsNull;
     property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
@@ -713,6 +821,14 @@ type
     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_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue;
+    property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull;
+    property OldID_REMESA : Integer read GetOldID_REMESAValue;
+    property OldID_REMESAIsNull : Boolean read GetOldID_REMESAIsNull;
+    property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue;
+    property REFERENCIA_REMESAIsNull : Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull;
+    property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue;
+    property OldREFERENCIA_REMESAIsNull : Boolean read GetOldREFERENCIA_REMESAIsNull;
     property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue;
     property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull;
     property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue;
@@ -721,6 +837,14 @@ type
     property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
     property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull;
+    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+    property OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
+    property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+    property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue;
+    property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
     property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue;
     property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
     property OldIMPORTE : Currency read GetOldIMPORTEValue;
@@ -737,10 +861,18 @@ type
     property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
     property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
     property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
+    property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue;
+    property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull;
+    property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
+    property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull;
     property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue;
     property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
     property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
     property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull;
+    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
     property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
     property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
@@ -753,10 +885,34 @@ type
     property NIF_CIF_CLIENTEIsNull : Boolean read GetNIF_CIF_CLIENTEIsNull write SetNIF_CIF_CLIENTEIsNull;
     property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
     property OldNIF_CIF_CLIENTEIsNull : Boolean read GetOldNIF_CIF_CLIENTEIsNull;
-    property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+    property ENTIDAD_CLIENTE : String read GetENTIDAD_CLIENTEValue write SetENTIDAD_CLIENTEValue;
-    property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property ENTIDAD_CLIENTEIsNull : Boolean read GetENTIDAD_CLIENTEIsNull write SetENTIDAD_CLIENTEIsNull;
-    property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldENTIDAD_CLIENTE : String read GetOldENTIDAD_CLIENTEValue;
-    property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+    property OldENTIDAD_CLIENTEIsNull : Boolean read GetOldENTIDAD_CLIENTEIsNull;
+    property SUCURSAL_CLIENTE : String read GetSUCURSAL_CLIENTEValue write SetSUCURSAL_CLIENTEValue;
+    property SUCURSAL_CLIENTEIsNull : Boolean read GetSUCURSAL_CLIENTEIsNull write SetSUCURSAL_CLIENTEIsNull;
+    property OldSUCURSAL_CLIENTE : String read GetOldSUCURSAL_CLIENTEValue;
+    property OldSUCURSAL_CLIENTEIsNull : Boolean read GetOldSUCURSAL_CLIENTEIsNull;
+    property DC_CLIENTE : String read GetDC_CLIENTEValue write SetDC_CLIENTEValue;
+    property DC_CLIENTEIsNull : Boolean read GetDC_CLIENTEIsNull write SetDC_CLIENTEIsNull;
+    property OldDC_CLIENTE : String read GetOldDC_CLIENTEValue;
+    property OldDC_CLIENTEIsNull : Boolean read GetOldDC_CLIENTEIsNull;
+    property CUENTA_CLIENTE : String read GetCUENTA_CLIENTEValue write SetCUENTA_CLIENTEValue;
+    property CUENTA_CLIENTEIsNull : Boolean read GetCUENTA_CLIENTEIsNull write SetCUENTA_CLIENTEIsNull;
+    property OldCUENTA_CLIENTE : String read GetOldCUENTA_CLIENTEValue;
+    property OldCUENTA_CLIENTEIsNull : Boolean read GetOldCUENTA_CLIENTEIsNull;
+    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
+    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+    property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+    property OldUSUARIO : String read GetOldUSUARIOValue;
+    property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -2137,6 +2293,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_RECIBO_COMPENSADO] := Null;
 end;
 
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REC_COMPENSADO] := Null;
+end;
+
 function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIAValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA];
@@ -2230,6 +2417,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_FACTURA] := Null;
 end;
 
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_REMESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_REMESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_REMESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_REMESA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_REMESA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_REMESA] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REMESAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliREFERENCIA_REMESA] := Null;
+end;
+
 function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_EMISION];
@@ -2292,6 +2541,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_VENCIMIENTO] := Null;
 end;
 
+function TRecibosCompensadosCliBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDESCRIPCION];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDESCRIPCION]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDESCRIPCION] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOBSERVACIONESValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldOBSERVACIONESValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOBSERVACIONES];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliOBSERVACIONES]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliOBSERVACIONES] := Null;
+end;
+
 function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTEValue: Currency;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE];
@@ -2416,6 +2727,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_FACTURA] := Null;
 end;
 
+function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFORMA_PAGO_FACTURA] := Null;
+end;
+
 function TRecibosCompensadosCliBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA];
@@ -2447,6 +2789,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliIMPORTE_FACTURA] := Null;
 end;
 
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null;
+end;
+
 function TRecibosCompensadosCliBusinessProcessorRules.GetID_CLIENTEValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_CLIENTE];
@@ -2540,35 +2913,221 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliNIF_CIF_CLIENTE] := Null;
 end;
 
-function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE];
 end;
 
-function TRecibosCompensadosCliBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+function TRecibosCompensadosCliBusinessProcessorRules.GetENTIDAD_CLIENTEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]);
 end;
 
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE];
 end;
 
-function TRecibosCompensadosCliBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldENTIDAD_CLIENTEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliID_EMPRESA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE]);
 end;
 
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := aValue;
 end;
 
-procedure TRecibosCompensadosCliBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetENTIDAD_CLIENTEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliID_EMPRESA] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliENTIDAD_CLIENTE] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetSUCURSAL_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldSUCURSAL_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetSUCURSAL_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliSUCURSAL_CLIENTE] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetDC_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldDC_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliDC_CLIENTE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetDC_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliDC_CLIENTE] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetCUENTA_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldCUENTA_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetCUENTA_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliCUENTA_CLIENTE] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_ALTA];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_ALTA]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_ALTA] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliFECHA_MODIFICACION] := Null;
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO]);
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliUSUARIO];
+end;
+
+function TRecibosCompensadosCliBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosCliUSUARIO]);
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := aValue;
+end;
+
+procedure TRecibosCompensadosCliBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosCliUSUARIO] := Null;
 end;
 
 

Source/Modulos/Recibos de cliente/Model/uBizPagosCliente.pas

@@ -40,32 +40,25 @@ type
   end;
 
   TBizPagosCliente = class(TPagosClienteDataTableRules, IBizPagosCliente)
-  private
-    ContIdAux: Integer;
   protected
-    procedure OnNewRecord(Sender: TDADataTable); override;
+     procedure BeforeInsert(Sender: TDADataTable); override;
-  public
-    constructor Create(aDataTable: TDADataTable); override;
   end;
 
 implementation
 
 uses
-  SysUtils, uDataTableUtils;
+  DB;
 
 { TBizPagosCliente }
 
-constructor TBizPagosCliente.Create(aDataTable: TDADataTable);
+procedure TBizPagosCliente.BeforeInsert(Sender: TDADataTable);
-begin
+var
-  inherited Create(aDataTable);
+  AMasterTable : TDADataTable;
-  ContIdAux := -1;
-end;
-
-procedure TBizPagosCliente.OnNewRecord(Sender: TDADataTable);
 begin
   inherited;
-  ID := ContIdAux; // -1, -2, -3...
+  AMasterTable := DataTable.GetMasterDataTable;
-  Dec(ContIdAux);
+  if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
+    AMasterTable.Post;
 end;
 
 initialization

Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas

@@ -212,7 +212,6 @@ end;
 procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable);
 begin
   inherited;
-  ID := GetRecNo; // -1, -2, -3...
   IniciarValoresIBizRecibosClienteNuevo;
 end;
 

Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C3.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.drf */

Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm

@@ -1,7 +1,6 @@
 object srvRecibosCliente: TsrvRecibosCliente
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
   SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schRecibosCliente
@@ -307,6 +306,7 @@ object srvRecibosCliente: TsrvRecibosCliente
         Statements = <
           item
             Connection = 'IBX'
+            Default = True
             TargetTable = 'PAGOS_CLIENTE'
             StatementType = stAutoSQL
             ColumnMappings = <
@@ -365,6 +365,7 @@ object srvRecibosCliente: TsrvRecibosCliente
             Name = 'ID'
             DataType = datAutoInc
             GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
+            ServerAutoRefresh = True
             DictionaryEntry = 'PagosCliente_ID'
             InPrimaryKey = True
           end
@@ -432,27 +433,25 @@ object srvRecibosCliente: TsrvRecibosCliente
           end>
       end
       item
-        Params = <
+        Params = <>
-          item
-            Name = 'ID'
-            DataType = datInteger
-            Value = ''
-            ParamType = daptInput
-          end>
         Statements = <
           item
             Connection = 'IBX'
             TargetTable = 'V_RECIBOS_CLIENTE'
-            SQL = 
+            StatementType = stAutoSQL
-              'SELECT ID,'#10'       ID_RECIBO_COMPENSADO,'#10'       REFERENCIA,'#10'     ' +
-              '  SITUACION,'#10'       ID_FACTURA,'#10'       FECHA_EMISION,'#10'       FEC' +
-              'HA_VENCIMIENTO,'#10'       IMPORTE,'#10'       OTROS_GASTOS,'#10'       IMPO' +
-              'RTE_TOTAL,'#10'       FECHA_FACTURA,'#10'       IMPORTE_FACTURA,'#10'       ' +
-              'ID_CLIENTE,'#10'       NOMBRE_CLIENTE,'#10'       NIF_CIF_CLIENTE,'#10'     ' +
-              '  ID_EMPRESA'#10#10'FROM V_RECIBOS_CLIENTE'#10'WHERE ID_RECIBO_COMPENSADO ' +
-              '= :ID'
-            StatementType = stSQL
             ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ID_RECIBO_COMPENSADO'
+                TableField = 'ID_RECIBO_COMPENSADO'
+              end
+              item
+                DatasetField = 'REFERENCIA_REC_COMPENSADO'
+                TableField = 'REFERENCIA_REC_COMPENSADO'
+              end
               item
                 DatasetField = 'REFERENCIA'
                 TableField = 'REFERENCIA'
@@ -465,22 +464,62 @@ object srvRecibosCliente: TsrvRecibosCliente
                 DatasetField = 'ID_FACTURA'
                 TableField = 'ID_FACTURA'
               end
+              item
+                DatasetField = 'ID_REMESA'
+                TableField = 'ID_REMESA'
+              end
+              item
+                DatasetField = 'REFERENCIA_REMESA'
+                TableField = 'REFERENCIA_REMESA'
+              end
+              item
+                DatasetField = 'FECHA_EMISION'
+                TableField = 'FECHA_EMISION'
+              end
               item
                 DatasetField = 'FECHA_VENCIMIENTO'
                 TableField = 'FECHA_VENCIMIENTO'
               end
+              item
+                DatasetField = 'DESCRIPCION'
+                TableField = 'DESCRIPCION'
+              end
+              item
+                DatasetField = 'OBSERVACIONES'
+                TableField = 'OBSERVACIONES'
+              end
               item
                 DatasetField = 'IMPORTE'
                 TableField = 'IMPORTE'
               end
+              item
+                DatasetField = 'OTROS_GASTOS'
+                TableField = 'OTROS_GASTOS'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
               item
                 DatasetField = 'FECHA_FACTURA'
                 TableField = 'FECHA_FACTURA'
               end
+              item
+                DatasetField = 'FORMA_PAGO_FACTURA'
+                TableField = 'FORMA_PAGO_FACTURA'
+              end
               item
                 DatasetField = 'IMPORTE_FACTURA'
                 TableField = 'IMPORTE_FACTURA'
               end
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
+              item
+                DatasetField = 'ID_CLIENTE'
+                TableField = 'ID_CLIENTE'
+              end
               item
                 DatasetField = 'NOMBRE_CLIENTE'
                 TableField = 'NOMBRE_CLIENTE'
@@ -490,32 +529,32 @@ object srvRecibosCliente: TsrvRecibosCliente
                 TableField = 'NIF_CIF_CLIENTE'
               end
               item
-                DatasetField = 'ID_EMPRESA'
+                DatasetField = 'ENTIDAD_CLIENTE'
-                TableField = 'ID_EMPRESA'
+                TableField = 'ENTIDAD_CLIENTE'
               end
               item
-                DatasetField = 'OTROS_GASTOS'
+                DatasetField = 'SUCURSAL_CLIENTE'
-                TableField = 'OTROS_GASTOS'
+                TableField = 'SUCURSAL_CLIENTE'
               end
               item
-                DatasetField = 'ID_CLIENTE'
+                DatasetField = 'DC_CLIENTE'
-                TableField = 'ID_CLIENTE'
+                TableField = 'DC_CLIENTE'
               end
               item
-                DatasetField = 'IMPORTE_TOTAL'
+                DatasetField = 'CUENTA_CLIENTE'
-                TableField = 'IMPORTE_TOTAL'
+                TableField = 'CUENTA_CLIENTE'
               end
               item
-                DatasetField = 'FECHA_EMISION'
+                DatasetField = 'FECHA_ALTA'
-                TableField = 'FECHA_EMISION'
+                TableField = 'FECHA_ALTA'
               end
               item
-                DatasetField = 'ID_RECIBO_COMPENSADO'
+                DatasetField = 'FECHA_MODIFICACION'
-                TableField = 'ID_RECIBO_COMPENSADO'
+                TableField = 'FECHA_MODIFICACION'
               end
               item
-                DatasetField = 'ID'
+                DatasetField = 'USUARIO'
-                TableField = 'ID'
+                TableField = 'USUARIO'
               end>
           end>
         Name = 'RecibosCompensadosCli'
@@ -523,84 +562,133 @@ object srvRecibosCliente: TsrvRecibosCliente
           item
             Name = 'ID'
             DataType = datInteger
+            InPrimaryKey = True
           end
           item
             Name = 'ID_RECIBO_COMPENSADO'
             DataType = datInteger
           end
+          item
+            Name = 'REFERENCIA_REC_COMPENSADO'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'REFERENCIA'
             DataType = datString
             Size = 255
-            DictionaryEntry = 'RecibosCliente_REFERENCIA'
           end
           item
             Name = 'SITUACION'
             DataType = datString
             Size = 9
-            DictionaryEntry = 'RecibosCliente_SITUACION'
           end
           item
             Name = 'ID_FACTURA'
             DataType = datInteger
-            DictionaryEntry = 'RecibosCliente_ID_FACTURA'
+          end
+          item
+            Name = 'ID_REMESA'
+            DataType = datInteger
+          end
+          item
+            Name = 'REFERENCIA_REMESA'
+            DataType = datString
+            Size = 255
           end
           item
             Name = 'FECHA_EMISION'
             DataType = datDateTime
-            DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
           end
           item
             Name = 'FECHA_VENCIMIENTO'
             DataType = datDateTime
-            DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
+          end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'OBSERVACIONES'
+            DataType = datString
+            Size = 255
           end
           item
             Name = 'IMPORTE'
             DataType = datCurrency
-            DictionaryEntry = 'RecibosCliente_IMPORTE'
           end
           item
             Name = 'OTROS_GASTOS'
             DataType = datCurrency
-            DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
           end
           item
             Name = 'IMPORTE_TOTAL'
             DataType = datCurrency
-            DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
           end
           item
             Name = 'FECHA_FACTURA'
             DataType = datDateTime
-            DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
+          end
+          item
+            Name = 'FORMA_PAGO_FACTURA'
+            DataType = datString
+            Size = 255
           end
           item
             Name = 'IMPORTE_FACTURA'
             DataType = datCurrency
-            DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
+          end
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
           end
           item
             Name = 'ID_CLIENTE'
             DataType = datInteger
-            DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
           end
           item
             Name = 'NOMBRE_CLIENTE'
             DataType = datString
             Size = 255
-            DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
           end
           item
             Name = 'NIF_CIF_CLIENTE'
             DataType = datString
             Size = 15
-            DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
           end
           item
-            Name = 'ID_EMPRESA'
+            Name = 'ENTIDAD_CLIENTE'
-            DataType = datInteger
+            DataType = datString
-            DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
+            Size = 15
+          end
+          item
+            Name = 'SUCURSAL_CLIENTE'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'DC_CLIENTE'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'CUENTA_CLIENTE'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'FECHA_ALTA'
+            DataType = datDateTime
+          end
+          item
+            Name = 'FECHA_MODIFICACION'
+            DataType = datDateTime
+          end
+          item
+            Name = 'USUARIO'
+            DataType = datString
+            Size = 30
           end>
       end>
     JoinDataTables = <>
@@ -969,15 +1057,11 @@ object srvRecibosCliente: TsrvRecibosCliente
         Params = <
           item
             Name = 'ID_RECIBO_COMPENSADO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end>
         Statements = <
           item
@@ -995,9 +1079,7 @@ object srvRecibosCliente: TsrvRecibosCliente
         Params = <
           item
             Name = 'OLD_ID'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end>
         Statements = <
           item
@@ -1015,15 +1097,11 @@ object srvRecibosCliente: TsrvRecibosCliente
         Params = <
           item
             Name = 'ID_RECIBO_COMPENSADO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'OLD_ID'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end>
         Statements = <
           item
@@ -1038,6 +1116,14 @@ object srvRecibosCliente: TsrvRecibosCliente
         Name = 'Update_RecibosCompensadosCli'
       end>
     RelationShips = <
+      item
+        Name = 'FK_RecibosCompensados'
+        MasterDatasetName = 'RecibosCliente'
+        MasterFields = 'ID'
+        DetailDatasetName = 'RecibosCompensadosCli'
+        DetailFields = 'ID_RECIBO_COMPENSADO'
+        RelationshipType = rtForeignKey
+      end
       item
         Name = 'FK_PagosCliente'
         MasterDatasetName = 'RecibosCliente'
@@ -1099,7 +1185,7 @@ object srvRecibosCliente: TsrvRecibosCliente
     DeleteCommandName = 'Delete_RecibosCliente'
     UpdateCommandName = 'Update_RecibosCliente'
     ReferencedDataset = 'RecibosCliente'
-    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    ProcessorOptions = [poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 192
     Top = 24
@@ -1336,7 +1422,7 @@ object srvRecibosCliente: TsrvRecibosCliente
     DeleteCommandName = 'Delete_RecibosCompensadosCli'
     UpdateCommandName = 'Update_RecibosCompensadosCli'
     ReferencedDataset = 'RecibosCompensadosCli'
-    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    ProcessorOptions = [poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 192
     Top = 152

Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas

@@ -33,10 +33,9 @@ type
     Bin2DataStreamer: TDABin2DataStreamer;
     schRecibosCliente: TDASchema;
     DADataDictionary: TDADataDictionary;
-    procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
-      const IncludeSchema: Boolean; const MaxRecords: Integer);
-    procedure DARemoteServiceCreate(Sender: TObject);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
+    procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
+    procedure DARemoteServiceCreate(Sender: TObject);
   private
   protected
     { IsrvRecibosProveedor methods }
@@ -69,7 +68,7 @@ begin
     { Aquí se asegura que el usuario sólo accede a Recibos
       de las empresas a las que tiene permiso para acceder
       filtrando DataSet por ID_EMPRESA. }
-//    FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA);
+    FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA);
   end;
 end;
 

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm

@@ -78,26 +78,36 @@ inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados
     Width = 549
     ExplicitWidth = 549
     inherited ToolButton1: TToolButton
+      Top = 0
       ExplicitWidth = 62
     end
     inherited ToolButton4: TToolButton
+      Top = 0
       ExplicitWidth = 74
     end
+    inherited ToolButton5: TToolButton
+      Top = 0
+    end
     inherited ToolButton2: TToolButton
+      Top = 0
       ExplicitWidth = 67
     end
+    inherited ToolButton6: TToolButton
+      Top = 0
+    end
     inherited ToolButton7: TToolButton
+      Top = 0
       ExplicitWidth = 117
     end
     object ToolButton3: TToolButton
       Left = 336
-      Top = 2
+      Top = 0
       Action = actExpandir
       AutoSize = True
     end
     object ToolButton8: TToolButton
       Left = 434
-      Top = 2
+      Top = 0
       Action = actContraer
       AutoSize = True
     end

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas

@@ -10,7 +10,7 @@ uses
   cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
   cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosCliente,
   uBizRecibosCliente, uRecibosClienteController, Grids, DBGrids, cxSpinEdit,
-  dxLayoutControl;
+  dxLayoutControl, uDAInterfaces;
 
 type
   IViewRecibosCompensados = interface

Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf18B.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA2.tmp */

Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm

@@ -68,6 +68,7 @@ inherited DataModuleTiposIVA: TDataModuleTiposIVA
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'TiposIVA'
+    IndexDefs = <>
     Left = 296
     Top = 24
   end

Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas

@@ -86,16 +86,22 @@ begin
 end;
 
 function TDataModuleTiposIVA.GetItem(const ID: Integer): IBizTipoIVA;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := Self.GetItems;
 
-    // (ID = :ID)
     with Result.DataTable.DynamicWhere do
     begin
-      Expression := NewBinaryExpression(NewField('', fld_TiposIVAID),
+      // (ID = :ID)
-        NewConstant(ID, datInteger), dboEqual);
+      Condicion := NewBinaryExpression(NewField('', fld_TiposIVAID), NewConstant(ID, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
 
   finally

Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf189.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA0.tmp */

Source/Servidor/FactuGES_Server.dpr

@@ -60,15 +60,15 @@ uses
   srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDataAbstractService},
   srvFacturasCliente_Impl in '..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas' {srvFacturasCliente: TDataAbstractService},
   uBizFacturasClienteServer in '..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas',
+  uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente},
+  schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
+  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
+  schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
+  schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
   schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
   schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
+  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
-  uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente},
-  schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
-  schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
-  schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
-  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,155 +1,155 @@
-<?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">3</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">3.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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</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">3</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">3.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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</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 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">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-	</ProjectExtensions>
+  </ProjectExtensions>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-	<ItemGroup>
+  <ItemGroup>
-		<DelphiCompile Include="FactuGES_Server.dpr">
+    <DelphiCompile Include="FactuGES_Server.dpr">
-			<MainSource>MainSource</MainSource>
+      <MainSource>MainSource</MainSource>
-		</DelphiCompile>
+    </DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<Form>srvEmpresas</Form>
+      <Form>srvEmpresas</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.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\Servidor\srvAlbaranesCliente_Impl.pas">
-			<Form>srvAlbaranesCliente</Form>
+      <Form>srvAlbaranesCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-			<Form>srvAlmacenes</Form>
+      <Form>srvAlmacenes</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-			<Form>srvContactos</Form>
+      <Form>srvContactos</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-			<Form>srvFacturasCliente</Form>
+      <Form>srvFacturasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-			<Form>RptPresupuestosCliente</Form>
+      <Form>RptPresupuestosCliente</Form>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<Form>srvPresupuestosCliente</Form>
+      <Form>srvPresupuestosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-			<Form>srvRecibosCliente</Form>
+      <Form>srvRecibosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<Form>srvConfiguracion</Form>
+      <Form>srvConfiguracion</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uConexionBD.pas">
+    <DCCReference Include="Configuracion\uConexionBD.pas">
-			<Form>frConexionBD</Form>
+      <Form>frConexionBD</Form>
-			<DesignClass>TFrame</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
-			<Form>frConfGeneral</Form>
+      <Form>frConfGeneral</Form>
-			<DesignClass>TFrame</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
-			<Form>fConfiguracion</Form>
+      <Form>fConfiguracion</Form>
-			<DesignClass>TForm</DesignClass>
+      <DesignClass>TForm</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<Form>FrameConfiguracion</Form>
+      <Form>FrameConfiguracion</Form>
-			<DesignClass>TFrame</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="srvLogin_Impl.pas">
+    <DCCReference Include="srvLogin_Impl.pas">
-			<Form>srvLogin</Form>
+      <Form>srvLogin</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uAcercaDe.pas">
+    <DCCReference Include="uAcercaDe.pas">
-			<Form>fAcercaDe</Form>
+      <Form>fAcercaDe</Form>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uDataModuleServer.pas">
+    <DCCReference Include="uDataModuleServer.pas">
-			<Form>dmServer</Form>
+      <Form>dmServer</Form>
-			<DesignClass>TDataModule</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uServerMainForm.pas">
+    <DCCReference Include="uServerMainForm.pas">
-			<Form>fServerForm</Form>
+      <Form>fServerForm</Form>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="Utiles\RegExpr.pas"/>
+    <DCCReference Include="Utiles\RegExpr.pas" />
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
-	</ItemGroup>
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "3.0.0.0\0"
               VALUE "ProductVersion", "3.0.0.0\0"
-              VALUE "CompileDate", "martes, 13 de noviembre de 2007 20:09\0"
+              VALUE "CompileDate", "miércoles, 14 de noviembre de 2007 19:07\0"
          END
     END
     BLOCK "VarFileInfo"