Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo de schema de albaranes de cliente que haci que fallasen los ids

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@496 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-12-18 18:20:39 +00:00
parent 5ca9433721
commit e96156edd1
3 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -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 }

12
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

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

3
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -639,7 +639,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Params = <
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_ID'
Value = ''
end
item