From e96156edd1851fc610cacec29db2c66163601082 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 18 Dec 2009 18:20:39 +0000 Subject: [PATCH] Arreglo de schema de albaranes de cliente que haci que fallasen los ids git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@496 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Model/schAlbaranesClienteClient_Intf.pas | 20 +++++++++---------- .../Model/schAlbaranesClienteServer_Intf.pas | 12 +++++------ .../Servidor/srvAlbaranesCliente_Impl.dfm | 3 ++- 3 files changed, 18 insertions(+), 17 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index 6e718c28..5ec5987a 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -3,15 +3,15 @@ unit schAlbaranesClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosAlbaranes = '{17726A4E-5A91-4FCC-9EEA-00BB25D5B972}'; - RID_AlbaranesCliente = '{F4115AF9-14A0-466F-B917-8EF2340CC9DB}'; - RID_AlbaranesCliente_Detalles = '{5BF43F37-E84F-4030-A839-DD2A75B4F475}'; + RID_ListaAnosAlbaranes = '{B52C00C6-FE82-4F51-81FA-B4FF1B82A203}'; + RID_AlbaranesCliente = '{34BC09FF-5B71-4550-8CB0-1DA569B133D7}'; + RID_AlbaranesCliente_Detalles = '{86D6C469-278B-4655-A28C-3359D8812BB1}'; { Data table names } nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; @@ -151,7 +151,7 @@ const type { IListaAnosAlbaranes } IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) - ['{37509FE2-3951-4C80-A9ED-67F0ED5E63A8}'] + ['{88848224-91B5-41B0-A2FC-54BCF8BF5AE8}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -165,7 +165,7 @@ type end; { TListaAnosAlbaranesDataTableRules } - TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes) + TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes) private protected { Property getters and setters } @@ -186,7 +186,7 @@ type { IAlbaranesCliente } IAlbaranesCliente = interface(IDAStronglyTypedDataTable) - ['{EE11BFE0-85D8-41A3-BC1A-E2FD5EDCF6FC}'] + ['{DFD09690-9B1D-4BE5-9101-46589DF1E88E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -456,7 +456,7 @@ type end; { TAlbaranesClienteDataTableRules } - TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente) + TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente) private f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; @@ -737,7 +737,7 @@ type { IAlbaranesCliente_Detalles } IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{69558C4F-1024-405D-978D-61DC9D27C40D}'] + ['{B45193BD-105D-44E3-AF4D-BB43F4A1D1CA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -829,7 +829,7 @@ type end; { TAlbaranesCliente_DetallesDataTableRules } - TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles) + TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index 61410252..5be1a8e8 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/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_ListaAnosAlbaranesDelta = '{C5E3B735-D225-4270-9E1D-84D7A64C7588}'; - RID_AlbaranesClienteDelta = '{78F83AC0-0C1C-4D2A-A679-E44E5444B823}'; - RID_AlbaranesCliente_DetallesDelta = '{01B9EB4F-E434-4BBE-BA71-FEB563D95A39}'; + RID_ListaAnosAlbaranesDelta = '{D19A666D-8DA1-4DA3-9C5E-70934F26B596}'; + RID_AlbaranesClienteDelta = '{EC9EB4AE-4745-4CE3-83EB-C57CAA4CCFCD}'; + RID_AlbaranesCliente_DetallesDelta = '{0B383F46-915A-4744-915D-0986E32003B3}'; type { IListaAnosAlbaranesDelta } IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) - ['{C5E3B735-D225-4270-9E1D-84D7A64C7588}'] + ['{D19A666D-8DA1-4DA3-9C5E-70934F26B596}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +50,7 @@ type { IAlbaranesClienteDelta } IAlbaranesClienteDelta = interface(IAlbaranesCliente) - ['{78F83AC0-0C1C-4D2A-A679-E44E5444B823}'] + ['{EC9EB4AE-4745-4CE3-83EB-C57CAA4CCFCD}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -602,7 +602,7 @@ type { IAlbaranesCliente_DetallesDelta } IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) - ['{01B9EB4F-E434-4BBE-BA71-FEB563D95A39}'] + ['{0B383F46-915A-4744-915D-0986E32003B3}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index 7937786a..434c5b4b 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -639,7 +639,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_CLI_ID' Value = '' end item