From 2b81fc848cf0b787aa8b16a5fd4bee561cc1dca6 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 4 Sep 2008 09:54:53 +0000
Subject: [PATCH] Arraglo ID maestro detalle

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@560 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Model/schPresupuestosClienteClient_Intf.pas    | 14 +++++++-------
 .../Model/schPresupuestosClienteServer_Intf.pas    |  8 ++++----
 .../Servidor/srvPresupuestosCliente_Impl.dfm       |  2 ++
 3 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
index f8ca3ddd..65ec0ba9 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas	
@@ -3,14 +3,14 @@ unit schPresupuestosClienteClient_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_PresupuestosCliente = '{469001A1-C0ED-4AA1-AFA1-D87F447B92D3}';
-  RID_PresupuestosCliente_Detalles = '{0C15349E-9BB9-437D-9152-BB070D344F3B}';
+  RID_PresupuestosCliente = '{1477AFCF-F38F-4C8E-B16A-F50F1C2169E4}';
+  RID_PresupuestosCliente_Detalles = '{750706FF-951F-4152-B683-2BC96C124A4C}';
 
   { Data table names }
   nme_PresupuestosCliente = 'PresupuestosCliente';
@@ -121,7 +121,7 @@ const
 type
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{879349D0-AFB3-4D2C-8736-9C44B8F1C0E2}']
+  ['{FD0CFF42-2DC5-478D-BEC2-170BA3E2A992}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -317,7 +317,7 @@ type
   end;
 
   { TPresupuestosClienteDataTableRules }
-  TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
+  TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
   private
     f_PORTADA: IROStrings;
     f_MEMORIA: IROStrings;
@@ -528,7 +528,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{4D852074-23F1-488D-9188-EE0A686AA6AC}']
+  ['{7EA81F15-BEA7-4E6A-9141-ED27C69439FE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -626,7 +626,7 @@ type
   end;
 
   { TPresupuestosCliente_DetallesDataTableRules }
-  TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
+  TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
   private
   protected
     { Property getters and setters }
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
index 731681d9..5af7acf9 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas	
@@ -9,13 +9,13 @@ 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_PresupuestosClienteDelta = '{8DECA7AC-12C3-4688-867C-EF1FBF18E4BC}';
-  RID_PresupuestosCliente_DetallesDelta = '{AC56C197-1697-4E61-96A2-AAEC2E9F783D}';
+  RID_PresupuestosClienteDelta = '{46A71D84-5EDC-4232-A77B-63A5AB0B0254}';
+  RID_PresupuestosCliente_DetallesDelta = '{9E7172B6-B04C-45B7-B8E5-4D7EA47AF466}';
 
 type
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{8DECA7AC-12C3-4688-867C-EF1FBF18E4BC}']
+  ['{46A71D84-5EDC-4232-A77B-63A5AB0B0254}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -425,7 +425,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{AC56C197-1697-4E61-96A2-AAEC2E9F783D}']
+  ['{9E7172B6-B04C-45B7-B8E5-4D7EA47AF466}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index a59afbd3..71d5a58c 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm	
@@ -507,6 +507,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
         Params = <
           item
             Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
             Value = ''
           end
           item