Se arregla clase de negocio de recibos cliente y proveedor para que funcione correctamente las referencias e incrementen (no funcionaba bien porque el orden de las reglas de negocio en el esquema)

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

Source/Base/Base.dproj

@@ -44,6 +44,27 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -58,55 +79,55 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Cliente/FactuGES.dproj

@@ -52,7 +52,8 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,8,6,0
+FILEVERSION 2,8,7,0
-PRODUCTVERSION 2,8,6,0
+PRODUCTVERSION 2,8,7,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.8.6.0\0"
+              VALUE "FileVersion", "2.8.7.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "2.8.6.0\0"
+              VALUE "ProductVersion", "2.8.7.0\0"
          END
     END
     BLOCK "VarFileInfo"

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

@@ -371,7 +371,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         Name = 'ID_TIENDA'
         DataType = datInteger
         DisplayLabel = 'RecibosCliente_ID_TIENDA'
-        ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_ID_TIENDA'
       end
       item
@@ -379,22 +378,20 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'RecibosCliente_TIENDA'
-        ServerAutoRefresh = True
         DictionaryEntry = 'RecibosCliente_TIENDA'
       end
       item
         Name = 'LISTA_NOMBRES'
         DataType = datString
         Size = 255
-        DisplayLabel = 'Otros nombres'
+        DictionaryEntry = 'RecibosCliente_LISTA_NOMBRES'
-        ServerAutoRefresh = True
       end
       item
         Name = 'CUENTA_CONTABLE'
         DataType = datString
         Size = 255
         DisplayLabel = 'Cuenta contable'
-        ServerAutoRefresh = True
+        DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

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

@@ -9,10 +9,10 @@ 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_ListaAnosRecibos = '{AE89E2C7-E725-49D7-923C-C31DB52289BC}';
+  RID_ListaAnosRecibos = '{6F080A07-7F79-49DA-8223-2A765568A41D}';
-  RID_RecibosCliente = '{EA2A5415-CD57-4A6D-B0ED-02C852CDF365}';
+  RID_RecibosCliente = '{FF13E325-433D-4B3F-ACBD-95CB1636F3EE}';
-  RID_PagosCliente = '{91E0EB25-0D8D-49CC-BEE9-DDB4DC953232}';
+  RID_PagosCliente = '{1E77A59F-B566-4264-8DB5-E93D18972BB8}';
-  RID_RecibosCompensadosCli = '{8418F37E-CDF2-49D4-8EA6-458D5619E4D4}';
+  RID_RecibosCompensadosCli = '{98D8A267-FB74-476C-A8E5-F8CD6C1E4CD5}';
 
   { Data table names }
   nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -225,7 +225,7 @@ const
 type
   { IListaAnosRecibos }
   IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
-  ['{FAC8D465-4E19-43A8-B172-67E80A7D2D39}']
+  ['{56AA9455-4989-40E3-B732-0FE6B0E52E03}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -260,7 +260,7 @@ type
 
   { IRecibosCliente }
   IRecibosCliente = interface(IDAStronglyTypedDataTable)
-  ['{68685DBB-DED5-49DD-8E6F-844F238408B8}']
+  ['{5072D408-2297-4727-B0A0-EB3FCB2C231C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -739,7 +739,7 @@ type
 
   { IPagosCliente }
   IPagosCliente = interface(IDAStronglyTypedDataTable)
-  ['{CFF8F00A-377F-4D2C-A75E-4B5E8B17F6F5}']
+  ['{CFAC341F-7138-4FBB-AC89-E63550865FCC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -978,7 +978,7 @@ type
 
   { IRecibosCompensadosCli }
   IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
-  ['{241530CF-F60C-48CC-838B-F3F34C69347C}']
+  ['{C1ABC344-B387-4169-A394-4F93FD736B79}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);

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

@@ -9,15 +9,15 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosRecibosDelta = '{B3DE24BA-E4C3-4E3F-B165-880E87414EB2}';
+  RID_ListaAnosRecibosDelta = '{070BCFBB-6E14-46D6-BBB2-A01C1BAD1371}';
-  RID_RecibosClienteDelta = '{7241C382-E1CC-4FC6-A769-0EBA50663E8D}';
+  RID_RecibosClienteDelta = '{46CE98E3-16F4-43A1-8219-F238C0D52079}';
-  RID_PagosClienteDelta = '{553625F5-33E4-4FB0-9C0D-EE9012E08F8E}';
+  RID_PagosClienteDelta = '{8E5F9BD5-BBDE-4A07-A44D-5E2E2E6A11AA}';
-  RID_RecibosCompensadosCliDelta = '{5AFBB5EF-8AA2-4DFA-805D-D09B444DE070}';
+  RID_RecibosCompensadosCliDelta = '{6B9D813E-0FF0-49C2-A1C3-DCC7F50EF7B5}';
 
 type
   { IListaAnosRecibosDelta }
   IListaAnosRecibosDelta = interface(IListaAnosRecibos)
-  ['{B3DE24BA-E4C3-4E3F-B165-880E87414EB2}']
+  ['{070BCFBB-6E14-46D6-BBB2-A01C1BAD1371}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IRecibosClienteDelta }
   IRecibosClienteDelta = interface(IRecibosCliente)
-  ['{7241C382-E1CC-4FC6-A769-0EBA50663E8D}']
+  ['{46CE98E3-16F4-43A1-8219-F238C0D52079}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -529,7 +529,7 @@ type
 
   { IPagosClienteDelta }
   IPagosClienteDelta = interface(IPagosCliente)
-  ['{553625F5-33E4-4FB0-9C0D-EE9012E08F8E}']
+  ['{8E5F9BD5-BBDE-4A07-A44D-5E2E2E6A11AA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -767,7 +767,7 @@ type
 
   { IRecibosCompensadosCliDelta }
   IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
-  ['{5AFBB5EF-8AA2-4DFA-805D-D09B444DE070}']
+  ['{6B9D813E-0FF0-49C2-A1C3-DCC7F50EF7B5}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;

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

@@ -1035,6 +1035,8 @@ object srvRecibosCliente: TsrvRecibosCliente
           end
           item
             Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
             Value = ''
           end
           item
@@ -1449,20 +1451,6 @@ object srvRecibosCliente: TsrvRecibosCliente
         RelationshipType = rtForeignKey
       end>
     UpdateRules = <
-      item
-        Name = 'Delete PagosCliente'
-        DoUpdate = False
-        DoInsert = False
-        DatasetName = 'PagosCliente'
-        FailureBehavior = fbRaiseException
-      end
-      item
-        Name = 'Delete RecibosCliente'
-        DoUpdate = False
-        DoInsert = False
-        DatasetName = 'RecibosCliente'
-        FailureBehavior = fbRaiseException
-      end
       item
         Name = 'Insert RecibosCliente'
         DoUpdate = False
@@ -1490,6 +1478,20 @@ object srvRecibosCliente: TsrvRecibosCliente
         DoDelete = False
         DatasetName = 'PagosCliente'
         FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Delete PagosCliente'
+        DoUpdate = False
+        DoInsert = False
+        DatasetName = 'PagosCliente'
+        FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Delete RecibosCliente'
+        DoUpdate = False
+        DoInsert = False
+        DatasetName = 'RecibosCliente'
+        FailureBehavior = fbRaiseException
       end>
     Version = 0
     Left = 48

Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm

@@ -14,12 +14,12 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
     Top = 84
   end
   object rda_RecibosProveedor: TDARemoteDataAdapter
+    DataStreamer = Bin2DataStreamer
     GetSchemaCall.RemoteService = RORemoteService
     GetDataCall.RemoteService = RORemoteService
     UpdateDataCall.RemoteService = RORemoteService
     GetScriptsCall.RemoteService = RORemoteService
     RemoteService = RORemoteService
-    DataStreamer = Bin2DataStreamer
     Left = 51
     Top = 151
   end
@@ -138,8 +138,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
     MasterSource = ds_RecibosProveedor
     MasterFields = 'ID'
     DetailFields = 'ID_RECIBO'
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'PagosProveedor'
     IndexDefs = <>
     Left = 288
@@ -338,8 +336,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
     MasterSource = ds_RecibosProveedor
     MasterFields = 'ID'
     DetailFields = 'ID_RECIBO_COMPENSADO'
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'RecibosCompensadosProv'
     IndexDefs = <>
     Left = 424
@@ -582,8 +578,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
     RemoteDataAdapter = rda_RecibosProveedor
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'RecibosProveedor'
     IndexDefs = <>
     Left = 176
@@ -606,8 +600,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
     RemoteDataAdapter = rda_RecibosProveedor
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'ListaAnosRecibos'
     IndexDefs = <>
     Left = 176

Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas

@@ -3,16 +3,16 @@ unit schRecibosProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosRecibos = '{9B2BA80B-D6E7-4970-B1CC-20990D8D11E7}';
+  RID_ListaAnosRecibos = '{C4D58B52-1C42-49F5-B6C4-00013B86DF71}';
-  RID_RecibosCompensadosProv = '{E0ECB451-A8BC-4B37-82A9-7F86E2FFE256}';
+  RID_RecibosCompensadosProv = '{BD0A05F9-B690-4A5D-95AD-57688D408E31}';
-  RID_RecibosProveedor = '{77ED4397-26CE-4EA3-ACF1-8CFDCE5DDF9C}';
+  RID_RecibosProveedor = '{989AACFA-CB2C-4B5C-ACB8-696687E57527}';
-  RID_PagosProveedor = '{249FF85D-110C-447F-8164-61DF9530E7F9}';
+  RID_PagosProveedor = '{A527D368-D732-4E18-B125-72560F107BAA}';
 
   { Data table names }
   nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -229,7 +229,7 @@ const
 type
   { IListaAnosRecibos }
   IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
-  ['{4CC0A39B-177C-4530-BDA1-74655040BD1D}']
+  ['{75833044-28F9-487D-ADF7-CDC95EB7B769}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -264,7 +264,7 @@ type
 
   { IRecibosCompensadosProv }
   IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
-  ['{4CEC51B6-36BE-40B5-9CC9-7942E4916321}']
+  ['{7E4FA871-AD89-406F-B163-6E5154F44888}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -743,7 +743,7 @@ type
 
   { IRecibosProveedor }
   IRecibosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{2909B622-C1B0-4738-B8EE-87F279FE7CA3}']
+  ['{724C736D-D277-4EBF-914B-78870C1310FA}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1222,7 +1222,7 @@ type
 
   { IPagosProveedor }
   IPagosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{D614A1E7-19B0-47A4-A975-E61D0DA5EE19}']
+  ['{322743CC-25F4-4021-95E4-7E633FF70694}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);

Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas

@@ -9,15 +9,15 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosRecibosDelta = '{6C4A7ACE-8C97-469A-A496-493F1A280405}';
+  RID_ListaAnosRecibosDelta = '{67B9BDDE-4773-4079-8B6D-307FBB93CC35}';
-  RID_RecibosCompensadosProvDelta = '{07E70EBB-5912-4A27-BB68-34D15E499C1E}';
+  RID_RecibosCompensadosProvDelta = '{EFA871F9-3800-4DD1-9EF8-691841D06186}';
-  RID_RecibosProveedorDelta = '{79959841-F924-4E80-B1C0-26D60A1CA5E4}';
+  RID_RecibosProveedorDelta = '{CA420FFF-13D3-416B-A682-A273FA866808}';
-  RID_PagosProveedorDelta = '{C9839E83-8D1F-4F5D-8A06-704C5BE7E7D8}';
+  RID_PagosProveedorDelta = '{FE2AD486-4B08-424D-AA09-1F387625E6C3}';
 
 type
   { IListaAnosRecibosDelta }
   IListaAnosRecibosDelta = interface(IListaAnosRecibos)
-  ['{6C4A7ACE-8C97-469A-A496-493F1A280405}']
+  ['{67B9BDDE-4773-4079-8B6D-307FBB93CC35}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IRecibosCompensadosProvDelta }
   IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
-  ['{07E70EBB-5912-4A27-BB68-34D15E499C1E}']
+  ['{EFA871F9-3800-4DD1-9EF8-691841D06186}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -529,7 +529,7 @@ type
 
   { IRecibosProveedorDelta }
   IRecibosProveedorDelta = interface(IRecibosProveedor)
-  ['{79959841-F924-4E80-B1C0-26D60A1CA5E4}']
+  ['{CA420FFF-13D3-416B-A682-A273FA866808}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -1007,7 +1007,7 @@ type
 
   { IPagosProveedorDelta }
   IPagosProveedorDelta = interface(IPagosProveedor)
-  ['{C9839E83-8D1F-4F5D-8A06-704C5BE7E7D8}']
+  ['{FE2AD486-4B08-424D-AA09-1F387625E6C3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;

Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas

@@ -168,9 +168,10 @@ begin
       FProveedor.DataTable.Active := True;
 
     ID_PROVEEDOR := FProveedor.ID;
+    NOMBRE_PROVEEDOR := FProveedor.NOMBRE;    
     //El proveedor puede tener un nombre por el ce se le conoce y luego un nombre_comercial
     //caso de elegir la dirección principal del proveedor para el recibo, se cogerá el nombre_comercial para los datos fiscales
-    NOMBRE := FProveedor.NOMBRE_COMERCIAL;
+    NOMBRE := FProveedor.NOMBRE;
     NIF_CIF := FProveedor.NIF_CIF;
     CALLE := FProveedor.CALLE;
     CODIGO_POSTAL := FProveedor.CODIGO_POSTAL;

Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm

@@ -1439,20 +1439,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
         RelationshipType = rtForeignKey
       end>
     UpdateRules = <
-      item
-        Name = 'Delete PagosProveedor'
-        DoUpdate = False
-        DoInsert = False
-        DatasetName = 'PagosProveedor'
-        FailureBehavior = fbRaiseException
-      end
-      item
-        Name = 'Delete RecibosProveedor'
-        DoUpdate = False
-        DoInsert = False
-        DatasetName = 'RecibosProveedor'
-        FailureBehavior = fbRaiseException
-      end
       item
         Name = 'Insert RecibosProveedor'
         DoUpdate = False
@@ -1480,6 +1466,20 @@ object srvRecibosProveedor: TsrvRecibosProveedor
         DoDelete = False
         DatasetName = 'PagosProveedor'
         FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Delete PagosProveedor'
+        DoUpdate = False
+        DoInsert = False
+        DatasetName = 'PagosProveedor'
+        FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Delete RecibosProveedor'
+        DoUpdate = False
+        DoInsert = False
+        DatasetName = 'RecibosProveedor'
+        FailureBehavior = fbRaiseException
       end>
     Version = 0
     Left = 48

Source/Servidor/FactuGES_Server.dpr

@@ -106,8 +106,6 @@ uses
   schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
   schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
   schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
-  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
-  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
   srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
   uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
   uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
@@ -135,10 +133,12 @@ uses
   schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
   schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+  schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
+  schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
   schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
   schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
-  schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
+  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
-  schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
+  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -28,7 +28,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 03 de octubre de 2017 12:45</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 25 de octubre de 2017 16:15</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,8,6,0
+FILEVERSION 2,8,7,0
-PRODUCTVERSION 2,8,6,0
+PRODUCTVERSION 2,8,7,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.8.6.0\0"
+              VALUE "FileVersion", "2.8.7.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
-              VALUE "ProductVersion", "2.8.6.0\0"
+              VALUE "ProductVersion", "2.8.7.0\0"
-              VALUE "CompileDate", "miércoles, 25 de octubre de 2017 16:15\0"
+              VALUE "CompileDate", "jueves, 31 de mayo de 2018 13:22\0"
          END
     END
     BLOCK "VarFileInfo"