Arreglo rapido de schemas

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@481 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-11-25 18:56:03 +00:00
parent 0e63650a9d
commit bd582e9de0
14 changed files with 119 additions and 134 deletions

View File

@ -44,6 +44,13 @@
<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>

View File

@ -53,7 +53,7 @@
<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">3</VersionInfo><VersionInfo Name="Release">9</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.3.9.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.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></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">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.0.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.4.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

Binary file not shown.

View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.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\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.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\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\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

Binary file not shown.

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 = '{044E6A10-20B4-4D17-A1E1-02F2B0EE6BC2}';
RID_AlbaranesCliente = '{EC8EEA50-0133-413D-8D31-F53D6C4D0221}';
RID_AlbaranesCliente_Detalles = '{120E6BFE-ADED-4194-B4FC-E56B648E47DB}';
RID_ListaAnosAlbaranes = '{3FD76345-0267-4CAB-872E-A80F4E99C680}';
RID_AlbaranesCliente = '{88DF5498-A3FD-47CE-BCC4-58551DC487B8}';
RID_AlbaranesCliente_Detalles = '{F8B04F9E-412C-4619-BE66-6371E88EFF2B}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -151,7 +151,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{5576961E-EB12-4940-ACEB-B1E3B948677A}']
['{A66B4C1D-755C-4343-9151-59CB651E3E65}']
{ 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)
['{FD1EA076-A49C-4F7E-96BE-E2B555D55575}']
['{4FF1010A-2F81-47C7-8AFF-26D564E911EA}']
{ 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)
['{0AE85DFD-D8E8-49EF-909C-D17307156A43}']
['{619230C6-3730-4350-8418-11AABE561FDB}']
{ 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 }

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 = '{C01E5E50-A195-4FF2-B07F-334991224E65}';
RID_AlbaranesClienteDelta = '{D4863959-1602-45A1-8240-BC85DBF9E3B6}';
RID_AlbaranesCliente_DetallesDelta = '{651FD911-3E25-4911-AC35-58F2B7AEF391}';
RID_ListaAnosAlbaranesDelta = '{C2B986AC-7EA4-4932-8892-4602A352691A}';
RID_AlbaranesClienteDelta = '{7525A2BE-7DCC-4C0C-B9E0-16191F9F6416}';
RID_AlbaranesCliente_DetallesDelta = '{10D986DD-E44E-4F55-9CF9-EB504147D343}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{C01E5E50-A195-4FF2-B07F-334991224E65}']
['{C2B986AC-7EA4-4932-8892-4602A352691A}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{D4863959-1602-45A1-8240-BC85DBF9E3B6}']
['{7525A2BE-7DCC-4C0C-B9E0-16191F9F6416}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -602,7 +602,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{651FD911-3E25-4911-AC35-58F2B7AEF391}']
['{10D986DD-E44E-4F55-9CF9-EB504147D343}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;

View File

@ -3,18 +3,18 @@ unit schContratosClienteClient_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_Valores = '{F657CD6D-DF69-43EA-A3E2-A241DCF09084}';
RID_Propiedades = '{9906A858-2BEF-45E9-99AD-FA2D7942CD73}';
RID_ListaAnosContratos = '{10A0FC78-53FA-448C-B4BB-98D991B18186}';
RID_ContratosCliente = '{E1ADD649-C673-4258-A5F9-7C7898C5D92B}';
RID_TiposCapitulos = '{D5F98509-6827-480B-85D3-BF0BA0C64998}';
RID_ContratosCliente_Detalles = '{008EBBD7-35BC-43B8-8CBA-26F4B279CFD6}';
RID_Valores = '{FBB517BC-F25D-4748-B9E4-0BF81772409E}';
RID_Propiedades = '{3E75B9DE-D38A-490E-9E08-38A43EAD69E0}';
RID_ListaAnosContratos = '{DB102921-5CAC-47C1-83F9-2EED505EB8B6}';
RID_ContratosCliente = '{8B45031B-F683-4BA5-942F-AD605C28DE53}';
RID_TiposCapitulos = '{CD343E85-93B4-49D1-AA02-5AA9E1FA86C8}';
RID_ContratosCliente_Detalles = '{2DB77ECF-A693-47DF-95FA-3D2A96347C11}';
{ Data table names }
nme_Valores = 'Valores';
@ -195,7 +195,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{A5848FC2-A766-4CF4-8F3D-EBE5A95319D5}']
['{E49F0060-590E-4D59-8BA1-D2542A48FACB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -221,7 +221,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -254,7 +254,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{801022BE-B0EE-4FBA-B321-93EA0FEB0A3F}']
['{163049F7-F031-4246-8645-85C3F6408C22}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -280,7 +280,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -313,7 +313,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{86E1F5A6-C2DF-472D-9F60-FEDBE12CD3D6}']
['{9E8C7D31-F335-4C2F-9835-78E2EF2A0D85}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -327,7 +327,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@ -348,7 +348,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{A7B4A2D4-BCA1-4C5C-AD2E-20C4F3BC13CA}']
['{91A528D4-9847-4130-9348-CBFE9FAB78A8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -616,7 +616,7 @@ type
end;
{ TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -902,7 +902,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{70CCE7F6-9235-4BA4-9F7E-4DAF2B1C6DD9}']
['{763B12B5-0660-4187-A31B-CEB15307E075}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -946,7 +946,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@ -997,7 +997,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{BFB8ADB9-FD43-4885-A66C-5CD57A89BE87}']
['{F2816464-B44B-4A9B-92BF-90C523B5C5D6}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1095,7 +1095,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }

View File

@ -9,17 +9,17 @@ 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_ValoresDelta = '{A9F29618-E25A-4076-9A31-ED37100D8ABE}';
RID_PropiedadesDelta = '{B42E866C-3C13-49E7-96DB-0C6C971567CB}';
RID_ListaAnosContratosDelta = '{3A22DAAB-ED1B-4604-A896-E9C0A5898288}';
RID_ContratosClienteDelta = '{260D24A7-5771-4ACD-AA15-55EE6FD44FE6}';
RID_TiposCapitulosDelta = '{2C1FE27B-5690-4555-B7D2-5C92C9B1EFFA}';
RID_ContratosCliente_DetallesDelta = '{EA7927D3-F427-40C6-9394-546BD299BA21}';
RID_ValoresDelta = '{2E14F7CF-EDB5-4945-B876-90C4D74FF180}';
RID_PropiedadesDelta = '{E649CEF7-68E9-45A6-9653-470814A72238}';
RID_ListaAnosContratosDelta = '{471911A0-5622-4E98-A471-82A6686B3D2D}';
RID_ContratosClienteDelta = '{ADBEAAE3-AAC2-4EA1-8B59-BF7C8831AC45}';
RID_TiposCapitulosDelta = '{AE98CA03-BEAA-4CE6-897D-6A646BF05C8B}';
RID_ContratosCliente_DetallesDelta = '{97DEC7D7-36AF-42DA-B906-1FB326A36797}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{A9F29618-E25A-4076-9A31-ED37100D8ABE}']
['{2E14F7CF-EDB5-4945-B876-90C4D74FF180}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -77,7 +77,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{B42E866C-3C13-49E7-96DB-0C6C971567CB}']
['{E649CEF7-68E9-45A6-9653-470814A72238}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -135,7 +135,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{3A22DAAB-ED1B-4604-A896-E9C0A5898288}']
['{471911A0-5622-4E98-A471-82A6686B3D2D}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -169,7 +169,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{260D24A7-5771-4ACD-AA15-55EE6FD44FE6}']
['{ADBEAAE3-AAC2-4EA1-8B59-BF7C8831AC45}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -723,7 +723,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{2C1FE27B-5690-4555-B7D2-5C92C9B1EFFA}']
['{AE98CA03-BEAA-4CE6-897D-6A646BF05C8B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -817,7 +817,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{EA7927D3-F427-40C6-9394-546BD299BA21}']
['{97DEC7D7-36AF-42DA-B906-1FB326A36797}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;

View File

@ -791,7 +791,8 @@ object srvContratosCliente: TsrvContratosCliente
Params = <
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_CONTRATOS_CLI_ID'
Value = ''
end
item

View File

@ -170,13 +170,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
end
inherited StatusBar: TJvStatusBar
Top = 429
Top = 657
Width = 848
Panels = <
item
Width = 200
end>
ExplicitTop = 429
ExplicitLeft = 8
ExplicitTop = 660
ExplicitWidth = 848
end
inherited pgPaginas: TPageControl
@ -185,17 +186,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 842
ExplicitHeight = 351
ExplicitHeight = 317
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 834
ExplicitHeight = 323
ExplicitHeight = 289
end
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitHeight = 323
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0
Top = 0
@ -213,7 +213,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 834
ExplicitHeight = 323
ExplicitHeight = 289
inherited ToolBar1: TToolBar
Width = 834
Height = 24
@ -237,57 +237,57 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 571
Left = 587
Top = 0
ExplicitLeft = 571
ExplicitLeft = 587
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 588
Left = 604
Top = 0
ExplicitLeft = 588
ExplicitLeft = 604
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 596
Left = 612
Top = 0
ExplicitLeft = 596
ExplicitLeft = 612
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 630
Left = 646
Top = 0
ExplicitLeft = 630
ExplicitLeft = 646
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 664
Left = 680
Top = 0
ExplicitLeft = 664
ExplicitLeft = 680
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 698
Left = 714
Top = 0
ExplicitLeft = 698
ExplicitLeft = 714
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 706
Left = 722
Top = 0
ExplicitLeft = 706
ExplicitLeft = 722
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 740
Left = 756
Top = 0
ExplicitLeft = 740
ExplicitLeft = 756
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 774
Left = 790
Top = 0
ExplicitLeft = 774
ExplicitLeft = 790
ExplicitTop = 0
end
end
@ -297,7 +297,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Height = 239
ExplicitTop = 50
ExplicitWidth = 834
ExplicitHeight = 273
ExplicitHeight = 239
end
inherited TBXDock1: TTBXDock
Top = 24
@ -319,7 +319,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitHeight = 323
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -335,7 +334,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 834
ExplicitHeight = 323
ExplicitHeight = 289
inherited pnlSup: TPanel
Width = 834
ExplicitWidth = 834
@ -360,7 +359,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagDocumentos: TTabSheet
Caption = 'Documentos'
ImageIndex = 5
ExplicitHeight = 323
inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
Left = 0
Top = 0
@ -376,7 +374,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 834
ExplicitHeight = 323
ExplicitHeight = 289
inherited TBXDock: TTBXDock
Width = 834
ExplicitWidth = 834
@ -385,7 +383,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 834
Height = 266
ExplicitWidth = 834
ExplicitHeight = 300
ExplicitHeight = 266
end
inherited EditorActionList: TActionList
Left = 8
@ -404,7 +402,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
inline frViewTotales1: TfrViewTotalesPresupuesto [5]
Left = 0
Top = 448
Top = 429
Width = 848
Height = 228
Align = alBottom

View File

@ -131,12 +131,12 @@ uses
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},
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

View File

@ -28,28 +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">3</VersionInfo><VersionInfo Name="Release">9</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.3.9.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.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 19 de noviembre de 2009 20:26</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">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.0.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.4.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 25 de noviembre de 2009 15:56</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.3.9.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.3.9.0\0"
VALUE "CompileDate", "miércoles, 25 de noviembre de 2009 10:09\0"
VALUE "CompileDate", "miércoles, 25 de noviembre de 2009 15:56\0"
END
END
BLOCK "VarFileInfo"