Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arraglo ID maestro detalle

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@560 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-04 09:54:53 +00:00
parent 0ca00fbaf8
commit 2b81fc848c
3 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

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

8
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

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

2
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -507,6 +507,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
Value = ''
end
item