Subida 4.2.1
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@149 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
d0a129962b
commit
baa98c2ed2
@ -54,58 +54,6 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas">
|
||||
<Form>DataModuleImpresiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
@ -115,6 +63,58 @@
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Servidor\designide.dcp" />
|
||||
<DCCReference Include="..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Servidor\Jcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Servidor\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -3,31 +3,33 @@ unit schContactosClient_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_Contactos = '{C5CBBD15-3BE4-4CA7-8F63-6496108E58A4}';
|
||||
RID_GruposCliente = '{A52B6D07-E18F-4B0B-BC19-322967C318C8}';
|
||||
RID_DatosBancarios = '{C8B7B5A7-065B-484C-AAD0-003D7A0164CF}';
|
||||
RID_Clientes = '{EE303315-836A-469E-802F-1D5E8E6E717C}';
|
||||
RID_Proveedores = '{455D2B4C-679E-41FD-BCAF-E4A918936818}';
|
||||
RID_Empleados = '{1619723C-2EC8-46E5-94EB-ED3F600CFA7F}';
|
||||
RID_DireccionesContacto = '{61C30993-004A-4271-A751-F9F3CB6BE2AB}';
|
||||
RID_ClientesDescuentos = '{7BB5EB78-1652-4284-AC1F-CD8CE965C041}';
|
||||
RID_GruposProveedor = '{315F8232-27A0-4D35-A529-6840ECDDCCDA}';
|
||||
RID_GruposEmpleado = '{0B578AD4-35EA-490B-BBE3-54A84AB00D4F}';
|
||||
RID_Contactos_Refresh = '{BC90B1C9-6F9A-4D4B-8B93-A6B8B079E009}';
|
||||
RID_ContratosEmpleados = '{11996FEA-CE9C-4EF5-9280-8F9656675856}';
|
||||
RID_DescripcionesProveedores = '{24F427B2-1B99-4960-8115-78BA0BD21687}';
|
||||
RID_PersonalContacto = '{1D1E9BC1-7AA8-492C-8A03-6835ABDA38C2}';
|
||||
RID_Agentes_Comisiones = '{4D3CB44A-2E6A-45BD-A244-C0F5F9165D58}';
|
||||
RID_Agentes = '{A705D009-CF13-4DE5-BCBE-57A82D161ADA}';
|
||||
RID_ClientesDescuentosArticulos = '{9A572B85-9876-41E2-A85F-8F83E64B0D9F}';
|
||||
RID_Agentes_Objetivos_albaranes = '{DC092C80-D84E-49FC-9240-EF1C6D629CBF}';
|
||||
RID_Agentes_Objetivos_facturas = '{42D0ECBB-7A15-442C-8836-318A4CEB7F12}';
|
||||
RID_Contactos = '{291D5023-2485-4738-BA4B-8CFD1087564D}';
|
||||
RID_GruposCliente = '{3202886D-ABFE-4D93-8B7C-DCC767B8E13E}';
|
||||
RID_DatosBancarios = '{48378F5C-39D8-4F3E-AF60-30E3B15C1BD6}';
|
||||
RID_Clientes = '{6BB9F834-2CD8-4CE1-AEF2-2F632139E4E6}';
|
||||
RID_Proveedores = '{64948969-32BB-4EE9-B51E-798A988B6BB9}';
|
||||
RID_Empleados = '{EC0F7AAD-8090-489F-A5C7-004A80A7682A}';
|
||||
RID_DireccionesContacto = '{497F22D7-6679-4BF4-B909-4F0DD68F1B0D}';
|
||||
RID_ClientesDescuentos = '{DD4D5290-DC73-45F2-AA7D-FB799D9AE6AE}';
|
||||
RID_GruposProveedor = '{3C14F4A5-17DB-44DC-8E26-0AD2F3231245}';
|
||||
RID_GruposEmpleado = '{D7511C4F-EE3D-4C78-B5EF-A3935874DD92}';
|
||||
RID_Contactos_Refresh = '{76C8D865-64CD-4DD5-8A80-F82AA6683E27}';
|
||||
RID_ContratosEmpleados = '{6DB2FA18-7E29-43FF-8D71-67A5481B8E84}';
|
||||
RID_DescripcionesProveedores = '{D3734658-7727-47E1-9C43-AB4D4BD58EF4}';
|
||||
RID_PersonalContacto = '{B3F92D0E-5DCC-4723-BDC0-E2045C0B4F74}';
|
||||
RID_Agentes_Comisiones = '{716B55E8-F461-4131-A90A-3E5291CF1319}';
|
||||
RID_ListaAnosObjetivosAlb = '{492D6536-8A33-44D0-86B9-A4512BD54E62}';
|
||||
RID_Agentes = '{271490F9-AFF6-4904-9F85-097B4CB0AAA2}';
|
||||
RID_ClientesDescuentosArticulos = '{20759DA3-0B2D-4A5D-852F-6DB6725E7D19}';
|
||||
RID_Agentes_Objetivos_albaranes = '{DFE878FE-9DF3-46C4-BFF1-90CF546A31EF}';
|
||||
RID_Agentes_Objetivos_facturas = '{73C0859D-9EFA-45A8-AA4C-F8F6572C985B}';
|
||||
RID_ListaAnosObjetivosFac = '{5A1B02F6-EA0E-4B3D-8067-DAAA0FE5178D}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Contactos = 'Contactos';
|
||||
@ -45,10 +47,12 @@ const
|
||||
nme_DescripcionesProveedores = 'DescripcionesProveedores';
|
||||
nme_PersonalContacto = 'PersonalContacto';
|
||||
nme_Agentes_Comisiones = 'Agentes_Comisiones';
|
||||
nme_ListaAnosObjetivosAlb = 'ListaAnosObjetivosAlb';
|
||||
nme_Agentes = 'Agentes';
|
||||
nme_ClientesDescuentosArticulos = 'ClientesDescuentosArticulos';
|
||||
nme_Agentes_Objetivos_albaranes = 'Agentes_Objetivos_albaranes';
|
||||
nme_Agentes_Objetivos_facturas = 'Agentes_Objetivos_facturas';
|
||||
nme_ListaAnosObjetivosFac = 'ListaAnosObjetivosFac';
|
||||
|
||||
{ Contactos fields }
|
||||
fld_ContactosID = 'ID';
|
||||
@ -534,6 +538,12 @@ const
|
||||
idx_Agentes_ComisionesNOMBRE = 3;
|
||||
idx_Agentes_ComisionesCOMISION = 4;
|
||||
|
||||
{ ListaAnosObjetivosAlb fields }
|
||||
fld_ListaAnosObjetivosAlbANO = 'ANO';
|
||||
|
||||
{ ListaAnosObjetivosAlb field indexes }
|
||||
idx_ListaAnosObjetivosAlbANO = 0;
|
||||
|
||||
{ Agentes fields }
|
||||
fld_AgentesID = 'ID';
|
||||
fld_AgentesID_CATEGORIA = 'ID_CATEGORIA';
|
||||
@ -648,10 +658,16 @@ const
|
||||
idx_Agentes_Objetivos_facturasUNIDADES_OBJETIVO = 5;
|
||||
idx_Agentes_Objetivos_facturasIMPORTE_OBJETIVO = 6;
|
||||
|
||||
{ ListaAnosObjetivosFac fields }
|
||||
fld_ListaAnosObjetivosFacANO = 'ANO';
|
||||
|
||||
{ ListaAnosObjetivosFac field indexes }
|
||||
idx_ListaAnosObjetivosFacANO = 0;
|
||||
|
||||
type
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{317413A0-0416-4786-B3DF-CED31C64267C}']
|
||||
['{1CBC2D1C-3449-4C91-B2C6-6AF07E1EABCB}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -796,7 +812,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContactosDataTableRules }
|
||||
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
|
||||
TContactosDataTableRules = class(TDADataTableRules, IContactos)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -950,7 +966,7 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{CBEADB2A-FABA-4564-95CF-D424E5D08DEB}']
|
||||
['{B9DBD6F1-AE60-44F7-8E0B-A6093CD02F7E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -970,7 +986,7 @@ type
|
||||
end;
|
||||
|
||||
{ TGruposClienteDataTableRules }
|
||||
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
|
||||
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -997,7 +1013,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{D09E0DDD-206F-46A0-B377-B90630DF657A}']
|
||||
['{B6A49401-06FA-450A-B833-31DB18866E07}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1059,7 +1075,7 @@ type
|
||||
end;
|
||||
|
||||
{ TDatosBancariosDataTableRules }
|
||||
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
|
||||
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1128,7 +1144,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{1F4485B0-9B81-4D1A-86F4-6AAE01FE860F}']
|
||||
['{1B30B5ED-D974-4FF4-ACEF-83E365A1D686}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1387,7 +1403,7 @@ type
|
||||
end;
|
||||
|
||||
{ TClientesDataTableRules }
|
||||
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
|
||||
TClientesDataTableRules = class(TDADataTableRules, IClientes)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -1655,7 +1671,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{9DF8DF39-679B-44AD-AF28-353E78CA6D58}']
|
||||
['{36A8200A-5E50-497C-A0F2-BAFAD4B5A2C9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1896,7 +1912,7 @@ type
|
||||
end;
|
||||
|
||||
{ TProveedoresDataTableRules }
|
||||
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
|
||||
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -2146,7 +2162,7 @@ type
|
||||
|
||||
{ IEmpleados }
|
||||
IEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{D196D4B6-2743-4FA8-8844-3F4738D5C8C8}']
|
||||
['{DE26478A-6B56-40DD-9CFF-176D1B41AFE0}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2353,7 +2369,7 @@ type
|
||||
end;
|
||||
|
||||
{ TEmpleadosDataTableRules }
|
||||
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
|
||||
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
f_FORMACION_BASE: IROStrings;
|
||||
@ -2577,7 +2593,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{F2C90D00-9A04-4BEA-8733-0018317A6263}']
|
||||
['{2A82A155-3A4B-44BF-9A1B-C197A50F39B1}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2680,7 +2696,7 @@ type
|
||||
end;
|
||||
|
||||
{ TDireccionesContactoDataTableRules }
|
||||
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
|
||||
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -2792,7 +2808,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{011971A4-38C7-4C40-9C16-E5550E7FC00C}']
|
||||
['{DCD380B7-39A2-446F-9ACF-53057F43F28C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2830,7 +2846,7 @@ type
|
||||
end;
|
||||
|
||||
{ TClientesDescuentosDataTableRules }
|
||||
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
|
||||
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2875,7 +2891,7 @@ type
|
||||
|
||||
{ IGruposProveedor }
|
||||
IGruposProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{27780311-09B1-42F1-A8C6-438EE41E961A}']
|
||||
['{EC66CD85-3FE0-4DE0-A543-8FA1DBCF33E0}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2895,7 +2911,7 @@ type
|
||||
end;
|
||||
|
||||
{ TGruposProveedorDataTableRules }
|
||||
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
|
||||
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2922,7 +2938,7 @@ type
|
||||
|
||||
{ IGruposEmpleado }
|
||||
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
|
||||
['{CEF6810B-71BF-4669-B221-F3331CE7470D}']
|
||||
['{37D061A4-7D65-41B8-9DAF-33B393EE50E5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2942,7 +2958,7 @@ type
|
||||
end;
|
||||
|
||||
{ TGruposEmpleadoDataTableRules }
|
||||
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
|
||||
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2969,7 +2985,7 @@ type
|
||||
|
||||
{ IContactos_Refresh }
|
||||
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{6C1E01C6-A541-49E4-932B-DCB0AB7C8F0B}']
|
||||
['{47A29D73-F2AF-4DA5-BA66-FC09A1FA7DA6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3102,7 +3118,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContactos_RefreshDataTableRules }
|
||||
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
|
||||
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -3244,7 +3260,7 @@ type
|
||||
|
||||
{ IContratosEmpleados }
|
||||
IContratosEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{F2C5D384-2EC9-4003-A30A-B367A42E1036}']
|
||||
['{01E65909-DD8B-44B1-AB39-73F2047DC2FF}']
|
||||
{ Property getters and setters }
|
||||
function GetCONTRATOValue: String;
|
||||
procedure SetCONTRATOValue(const aValue: String);
|
||||
@ -3258,7 +3274,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContratosEmpleadosDataTableRules }
|
||||
TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados)
|
||||
TContratosEmpleadosDataTableRules = class(TDADataTableRules, IContratosEmpleados)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -3279,7 +3295,7 @@ type
|
||||
|
||||
{ IDescripcionesProveedores }
|
||||
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{81AD7666-E0E0-4308-A44B-DEA172886D84}']
|
||||
['{EF6069F3-8A7F-49A7-9AA6-FCB4FD7BC6F2}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCION_PROVEEDORValue: String;
|
||||
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
|
||||
@ -3293,7 +3309,7 @@ type
|
||||
end;
|
||||
|
||||
{ TDescripcionesProveedoresDataTableRules }
|
||||
TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores)
|
||||
TDescripcionesProveedoresDataTableRules = class(TDADataTableRules, IDescripcionesProveedores)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -3314,7 +3330,7 @@ type
|
||||
|
||||
{ IPersonalContacto }
|
||||
IPersonalContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{130FF6B0-6814-4E96-A023-B4A3B791848F}']
|
||||
['{24490A3B-6DEC-4546-8433-2B73B85E5B93}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3382,7 +3398,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPersonalContactoDataTableRules }
|
||||
TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto)
|
||||
TPersonalContactoDataTableRules = class(TDADataTableRules, IPersonalContacto)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -3457,7 +3473,7 @@ type
|
||||
|
||||
{ IAgentes_Comisiones }
|
||||
IAgentes_Comisiones = interface(IDAStronglyTypedDataTable)
|
||||
['{B72C6A25-D915-47C8-AFF1-88B19136DFE8}']
|
||||
['{191150F9-E106-4E8A-8124-32860D4F8894}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3495,7 +3511,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAgentes_ComisionesDataTableRules }
|
||||
TAgentes_ComisionesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Comisiones)
|
||||
TAgentes_ComisionesDataTableRules = class(TDADataTableRules, IAgentes_Comisiones)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -3538,9 +3554,44 @@ type
|
||||
|
||||
end;
|
||||
|
||||
{ IListaAnosObjetivosAlb }
|
||||
IListaAnosObjetivosAlb = interface(IDAStronglyTypedDataTable)
|
||||
['{B8BF52B7-476E-410A-9720-8B30EB132FCD}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: SmallInt;
|
||||
procedure SetANOValue(const aValue: SmallInt);
|
||||
function GetANOIsNull: Boolean;
|
||||
procedure SetANOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ANO: SmallInt read GetANOValue write SetANOValue;
|
||||
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
|
||||
end;
|
||||
|
||||
{ TListaAnosObjetivosAlbDataTableRules }
|
||||
TListaAnosObjetivosAlbDataTableRules = class(TDADataTableRules, IListaAnosObjetivosAlb)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: SmallInt; virtual;
|
||||
procedure SetANOValue(const aValue: SmallInt); virtual;
|
||||
function GetANOIsNull: Boolean; virtual;
|
||||
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ANO: SmallInt read GetANOValue write SetANOValue;
|
||||
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IAgentes }
|
||||
IAgentes = interface(IDAStronglyTypedDataTable)
|
||||
['{D52CFB4C-E5C9-4067-9F0F-F35260F53D95}']
|
||||
['{FD432FBB-8219-433D-924F-22901565FFF3}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3703,7 +3754,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAgentesDataTableRules }
|
||||
TAgentesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes)
|
||||
TAgentesDataTableRules = class(TDADataTableRules, IAgentes)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -3875,7 +3926,7 @@ type
|
||||
|
||||
{ IClientesDescuentosArticulos }
|
||||
IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable)
|
||||
['{6DB3E96E-A996-4A28-A2D6-874BC3B4D1AF}']
|
||||
['{007089E4-2A88-4E59-9F39-DBA5E0DD0C57}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3937,7 +3988,7 @@ type
|
||||
end;
|
||||
|
||||
{ TClientesDescuentosArticulosDataTableRules }
|
||||
TClientesDescuentosArticulosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentosArticulos)
|
||||
TClientesDescuentosArticulosDataTableRules = class(TDADataTableRules, IClientesDescuentosArticulos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -4006,7 +4057,7 @@ type
|
||||
|
||||
{ IAgentes_Objetivos_albaranes }
|
||||
IAgentes_Objetivos_albaranes = interface(IDAStronglyTypedDataTable)
|
||||
['{CFCD1E75-CA07-4C58-B697-58AB0E9DCD6F}']
|
||||
['{93BAC2FE-520D-454C-95D2-15A72D48968A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -4056,7 +4107,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAgentes_Objetivos_albaranesDataTableRules }
|
||||
TAgentes_Objetivos_albaranesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Objetivos_albaranes)
|
||||
TAgentes_Objetivos_albaranesDataTableRules = class(TDADataTableRules, IAgentes_Objetivos_albaranes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -4113,7 +4164,7 @@ type
|
||||
|
||||
{ IAgentes_Objetivos_facturas }
|
||||
IAgentes_Objetivos_facturas = interface(IDAStronglyTypedDataTable)
|
||||
['{9CF904E4-C6C9-41E5-8C64-0633B59BE86A}']
|
||||
['{B28387E5-80DE-4340-9114-CC7AE7ECF05A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -4163,7 +4214,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAgentes_Objetivos_facturasDataTableRules }
|
||||
TAgentes_Objetivos_facturasDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Objetivos_facturas)
|
||||
TAgentes_Objetivos_facturasDataTableRules = class(TDADataTableRules, IAgentes_Objetivos_facturas)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -4218,6 +4269,41 @@ type
|
||||
|
||||
end;
|
||||
|
||||
{ IListaAnosObjetivosFac }
|
||||
IListaAnosObjetivosFac = interface(IDAStronglyTypedDataTable)
|
||||
['{8E1FC0F1-1AFF-47F6-8FCB-619723CC5DA6}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: SmallInt;
|
||||
procedure SetANOValue(const aValue: SmallInt);
|
||||
function GetANOIsNull: Boolean;
|
||||
procedure SetANOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ANO: SmallInt read GetANOValue write SetANOValue;
|
||||
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
|
||||
end;
|
||||
|
||||
{ TListaAnosObjetivosFacDataTableRules }
|
||||
TListaAnosObjetivosFacDataTableRules = class(TDADataTableRules, IListaAnosObjetivosFac)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: SmallInt; virtual;
|
||||
procedure SetANOValue(const aValue: SmallInt); virtual;
|
||||
function GetANOIsNull: Boolean; virtual;
|
||||
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ANO: SmallInt read GetANOValue write SetANOValue;
|
||||
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
@ -8916,6 +9002,39 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ TListaAnosObjetivosAlbDataTableRules }
|
||||
constructor TListaAnosObjetivosAlbDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TListaAnosObjetivosAlbDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosAlbDataTableRules.GetANOValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TListaAnosObjetivosAlbDataTableRules.SetANOValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosAlbDataTableRules.GetANOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ListaAnosObjetivosAlbANO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TListaAnosObjetivosAlbDataTableRules.SetANOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TAgentesDataTableRules }
|
||||
constructor TAgentesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
var
|
||||
@ -10000,6 +10119,39 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ TListaAnosObjetivosFacDataTableRules }
|
||||
constructor TListaAnosObjetivosFacDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TListaAnosObjetivosFacDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosFacDataTableRules.GetANOValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TListaAnosObjetivosFacDataTableRules.SetANOValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosFacDataTableRules.GetANOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ListaAnosObjetivosFacANO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TListaAnosObjetivosFacDataTableRules.SetANOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
|
||||
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
|
||||
@ -10016,9 +10168,11 @@ initialization
|
||||
RegisterDataTableRules(RID_DescripcionesProveedores, TDescripcionesProveedoresDataTableRules);
|
||||
RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules);
|
||||
RegisterDataTableRules(RID_Agentes_Comisiones, TAgentes_ComisionesDataTableRules);
|
||||
RegisterDataTableRules(RID_ListaAnosObjetivosAlb, TListaAnosObjetivosAlbDataTableRules);
|
||||
RegisterDataTableRules(RID_Agentes, TAgentesDataTableRules);
|
||||
RegisterDataTableRules(RID_ClientesDescuentosArticulos, TClientesDescuentosArticulosDataTableRules);
|
||||
RegisterDataTableRules(RID_Agentes_Objetivos_albaranes, TAgentes_Objetivos_albaranesDataTableRules);
|
||||
RegisterDataTableRules(RID_Agentes_Objetivos_facturas, TAgentes_Objetivos_facturasDataTableRules);
|
||||
RegisterDataTableRules(RID_ListaAnosObjetivosFac, TListaAnosObjetivosFacDataTableRules);
|
||||
|
||||
end.
|
||||
|
||||
@ -9,30 +9,32 @@ 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_ContactosDelta = '{39416DA5-238E-47E9-A82E-07A239049EBA}';
|
||||
RID_GruposClienteDelta = '{83DA4B0F-90DA-4C55-98B9-D7B0478B54C9}';
|
||||
RID_DatosBancariosDelta = '{E2CF54FC-D385-4E34-8AD9-468F613370CC}';
|
||||
RID_ClientesDelta = '{6AB5F06E-ACE1-497F-95A8-2CD68F8261F4}';
|
||||
RID_ProveedoresDelta = '{D1324DD1-75FC-4241-9ECD-36627E80BCB5}';
|
||||
RID_EmpleadosDelta = '{D96A5955-19DA-44B3-86F8-0217EFFF2F5C}';
|
||||
RID_DireccionesContactoDelta = '{B40A76E6-E740-434E-B16F-532A638CB575}';
|
||||
RID_ClientesDescuentosDelta = '{472998E9-FA58-4385-9053-4A3F1138EE6D}';
|
||||
RID_GruposProveedorDelta = '{AF56FDBF-7D39-442D-8F87-4549F09DAA21}';
|
||||
RID_GruposEmpleadoDelta = '{0C4E4FAD-76EE-4B82-81A3-77CF6DC35199}';
|
||||
RID_Contactos_RefreshDelta = '{2ED30DD9-C801-43B1-97FC-765DC9FB8BCC}';
|
||||
RID_ContratosEmpleadosDelta = '{0B6CD4CF-4DBB-42A9-A3FD-94974C3E5B46}';
|
||||
RID_DescripcionesProveedoresDelta = '{408A90EF-AED2-40AB-9FE0-46D1EA721B5A}';
|
||||
RID_PersonalContactoDelta = '{F8381C5C-B8F8-4F56-B56D-A333E064353E}';
|
||||
RID_Agentes_ComisionesDelta = '{CD1B8807-E14C-453F-9ACF-F53DA26E6DAB}';
|
||||
RID_AgentesDelta = '{D43A0810-3E6F-4735-8CC0-4636179FCBBB}';
|
||||
RID_ClientesDescuentosArticulosDelta = '{6D6683CD-C6F3-47CE-913B-CF19B9A1A038}';
|
||||
RID_Agentes_Objetivos_albaranesDelta = '{FAB9F379-D856-452E-B39B-03CDF32BC20F}';
|
||||
RID_Agentes_Objetivos_facturasDelta = '{7EEB2D8D-FDFD-454A-AC8D-261AA6F4DC82}';
|
||||
RID_ContactosDelta = '{924489BD-4BF1-490A-80E1-292384CDE36B}';
|
||||
RID_GruposClienteDelta = '{00B6FC09-D8A1-4AF6-B6DF-2BCEF361091C}';
|
||||
RID_DatosBancariosDelta = '{359B215D-847C-407A-9553-F0E7AE268DAE}';
|
||||
RID_ClientesDelta = '{71CCE505-5A15-4B1E-A807-8DA7DFE6C36C}';
|
||||
RID_ProveedoresDelta = '{F3854348-13E9-465B-9E6E-67EC43F26D2E}';
|
||||
RID_EmpleadosDelta = '{8A94BFD2-C61E-46A8-9620-CF7E1C97D7B5}';
|
||||
RID_DireccionesContactoDelta = '{C480F508-E137-4093-8BF2-DF49EF2AB3DE}';
|
||||
RID_ClientesDescuentosDelta = '{B4C0F049-8B81-4EFB-9E8E-592A72FE25A6}';
|
||||
RID_GruposProveedorDelta = '{129AA285-FCCC-42C8-B31E-288EDB9500DA}';
|
||||
RID_GruposEmpleadoDelta = '{F6F9AD04-610E-4F13-AC1F-7ACDB1761FE8}';
|
||||
RID_Contactos_RefreshDelta = '{755CB99F-48D6-47A3-B95B-0580F7586656}';
|
||||
RID_ContratosEmpleadosDelta = '{7E590734-DDA2-4025-ACC6-0F16255B130A}';
|
||||
RID_DescripcionesProveedoresDelta = '{57434ABA-AADE-4CD2-930E-6309C476941F}';
|
||||
RID_PersonalContactoDelta = '{8B6FE0F0-8635-483F-8FCC-0D386BF286DD}';
|
||||
RID_Agentes_ComisionesDelta = '{A136E396-E02A-4776-BB9D-6C2AF7228D09}';
|
||||
RID_ListaAnosObjetivosAlbDelta = '{FC0A5B37-290A-4872-93FD-EDA0FCCEC000}';
|
||||
RID_AgentesDelta = '{A42667F1-F22B-4E4C-A840-C80695B7291C}';
|
||||
RID_ClientesDescuentosArticulosDelta = '{49185AEC-BA8D-4CDE-9F02-1C02A34FEF09}';
|
||||
RID_Agentes_Objetivos_albaranesDelta = '{1CF088C7-E0C8-4090-85A1-14A3838B781F}';
|
||||
RID_Agentes_Objetivos_facturasDelta = '{B10C7599-1FB6-4CA6-AADF-0FFB60329EC9}';
|
||||
RID_ListaAnosObjetivosFacDelta = '{01C5B570-6CCD-4680-B6C9-CFC0DB37A4DE}';
|
||||
|
||||
type
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{39416DA5-238E-47E9-A82E-07A239049EBA}']
|
||||
['{924489BD-4BF1-490A-80E1-292384CDE36B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -331,7 +333,7 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{83DA4B0F-90DA-4C55-98B9-D7B0478B54C9}']
|
||||
['{00B6FC09-D8A1-4AF6-B6DF-2BCEF361091C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -377,7 +379,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{E2CF54FC-D385-4E34-8AD9-468F613370CC}']
|
||||
['{359B215D-847C-407A-9553-F0E7AE268DAE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -507,7 +509,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{6AB5F06E-ACE1-497F-95A8-2CD68F8261F4}']
|
||||
['{71CCE505-5A15-4B1E-A807-8DA7DFE6C36C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1034,7 +1036,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{D1324DD1-75FC-4241-9ECD-36627E80BCB5}']
|
||||
['{F3854348-13E9-465B-9E6E-67EC43F26D2E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1525,7 +1527,7 @@ type
|
||||
|
||||
{ IEmpleadosDelta }
|
||||
IEmpleadosDelta = interface(IEmpleados)
|
||||
['{D96A5955-19DA-44B3-86F8-0217EFFF2F5C}']
|
||||
['{8A94BFD2-C61E-46A8-9620-CF7E1C97D7B5}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1960,7 +1962,7 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{B40A76E6-E740-434E-B16F-532A638CB575}']
|
||||
['{C480F508-E137-4093-8BF2-DF49EF2AB3DE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -2175,7 +2177,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{472998E9-FA58-4385-9053-4A3F1138EE6D}']
|
||||
['{B4C0F049-8B81-4EFB-9E8E-592A72FE25A6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -2257,7 +2259,7 @@ type
|
||||
|
||||
{ IGruposProveedorDelta }
|
||||
IGruposProveedorDelta = interface(IGruposProveedor)
|
||||
['{AF56FDBF-7D39-442D-8F87-4549F09DAA21}']
|
||||
['{129AA285-FCCC-42C8-B31E-288EDB9500DA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2303,7 +2305,7 @@ type
|
||||
|
||||
{ IGruposEmpleadoDelta }
|
||||
IGruposEmpleadoDelta = interface(IGruposEmpleado)
|
||||
['{0C4E4FAD-76EE-4B82-81A3-77CF6DC35199}']
|
||||
['{F6F9AD04-610E-4F13-AC1F-7ACDB1761FE8}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2349,7 +2351,7 @@ type
|
||||
|
||||
{ IContactos_RefreshDelta }
|
||||
IContactos_RefreshDelta = interface(IContactos_Refresh)
|
||||
['{2ED30DD9-C801-43B1-97FC-765DC9FB8BCC}']
|
||||
['{755CB99F-48D6-47A3-B95B-0580F7586656}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
@ -2624,7 +2626,7 @@ type
|
||||
|
||||
{ IContratosEmpleadosDelta }
|
||||
IContratosEmpleadosDelta = interface(IContratosEmpleados)
|
||||
['{0B6CD4CF-4DBB-42A9-A3FD-94974C3E5B46}']
|
||||
['{7E590734-DDA2-4025-ACC6-0F16255B130A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldCONTRATOValue : String;
|
||||
|
||||
@ -2658,7 +2660,7 @@ type
|
||||
|
||||
{ IDescripcionesProveedoresDelta }
|
||||
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
|
||||
['{408A90EF-AED2-40AB-9FE0-46D1EA721B5A}']
|
||||
['{57434ABA-AADE-4CD2-930E-6309C476941F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCION_PROVEEDORValue : String;
|
||||
|
||||
@ -2692,7 +2694,7 @@ type
|
||||
|
||||
{ IPersonalContactoDelta }
|
||||
IPersonalContactoDelta = interface(IPersonalContacto)
|
||||
['{F8381C5C-B8F8-4F56-B56D-A333E064353E}']
|
||||
['{8B6FE0F0-8635-483F-8FCC-0D386BF286DD}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -2834,7 +2836,7 @@ type
|
||||
|
||||
{ IAgentes_ComisionesDelta }
|
||||
IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
|
||||
['{CD1B8807-E14C-453F-9ACF-F53DA26E6DAB}']
|
||||
['{A136E396-E02A-4776-BB9D-6C2AF7228D09}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
@ -2914,9 +2916,43 @@ type
|
||||
|
||||
end;
|
||||
|
||||
{ IListaAnosObjetivosAlbDelta }
|
||||
IListaAnosObjetivosAlbDelta = interface(IListaAnosObjetivosAlb)
|
||||
['{FC0A5B37-290A-4872-93FD-EDA0FCCEC000}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : SmallInt;
|
||||
|
||||
{ Properties }
|
||||
property OldANO : SmallInt read GetOldANOValue;
|
||||
end;
|
||||
|
||||
{ TListaAnosObjetivosAlbBusinessProcessorRules }
|
||||
TListaAnosObjetivosAlbBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosObjetivosAlb, IListaAnosObjetivosAlbDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: SmallInt; virtual;
|
||||
function GetANOIsNull: Boolean; virtual;
|
||||
function GetOldANOValue: SmallInt; virtual;
|
||||
function GetOldANOIsNull: Boolean; virtual;
|
||||
procedure SetANOValue(const aValue: SmallInt); virtual;
|
||||
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ANO : SmallInt read GetANOValue write SetANOValue;
|
||||
property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
|
||||
property OldANO : SmallInt read GetOldANOValue;
|
||||
property OldANOIsNull : Boolean read GetOldANOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IAgentesDelta }
|
||||
IAgentesDelta = interface(IAgentes)
|
||||
['{D43A0810-3E6F-4735-8CC0-4636179FCBBB}']
|
||||
['{A42667F1-F22B-4E4C-A840-C80695B7291C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -3251,7 +3287,7 @@ type
|
||||
|
||||
{ IClientesDescuentosArticulosDelta }
|
||||
IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos)
|
||||
['{6D6683CD-C6F3-47CE-913B-CF19B9A1A038}']
|
||||
['{49185AEC-BA8D-4CDE-9F02-1C02A34FEF09}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -3381,7 +3417,7 @@ type
|
||||
|
||||
{ IAgentes_Objetivos_albaranesDelta }
|
||||
IAgentes_Objetivos_albaranesDelta = interface(IAgentes_Objetivos_albaranes)
|
||||
['{FAB9F379-D856-452E-B39B-03CDF32BC20F}']
|
||||
['{1CF088C7-E0C8-4090-85A1-14A3838B781F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
@ -3487,7 +3523,7 @@ type
|
||||
|
||||
{ IAgentes_Objetivos_facturasDelta }
|
||||
IAgentes_Objetivos_facturasDelta = interface(IAgentes_Objetivos_facturas)
|
||||
['{7EEB2D8D-FDFD-454A-AC8D-261AA6F4DC82}']
|
||||
['{B10C7599-1FB6-4CA6-AADF-0FFB60329EC9}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
@ -3591,6 +3627,40 @@ type
|
||||
|
||||
end;
|
||||
|
||||
{ IListaAnosObjetivosFacDelta }
|
||||
IListaAnosObjetivosFacDelta = interface(IListaAnosObjetivosFac)
|
||||
['{01C5B570-6CCD-4680-B6C9-CFC0DB37A4DE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : SmallInt;
|
||||
|
||||
{ Properties }
|
||||
property OldANO : SmallInt read GetOldANOValue;
|
||||
end;
|
||||
|
||||
{ TListaAnosObjetivosFacBusinessProcessorRules }
|
||||
TListaAnosObjetivosFacBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosObjetivosFac, IListaAnosObjetivosFacDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: SmallInt; virtual;
|
||||
function GetANOIsNull: Boolean; virtual;
|
||||
function GetOldANOValue: SmallInt; virtual;
|
||||
function GetOldANOIsNull: Boolean; virtual;
|
||||
procedure SetANOValue(const aValue: SmallInt); virtual;
|
||||
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ANO : SmallInt read GetANOValue write SetANOValue;
|
||||
property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
|
||||
property OldANO : SmallInt read GetOldANOValue;
|
||||
property OldANOIsNull : Boolean read GetOldANOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
@ -10420,6 +10490,49 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ TListaAnosObjetivosAlbBusinessProcessorRules }
|
||||
constructor TListaAnosObjetivosAlbBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TListaAnosObjetivosAlbBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosAlbBusinessProcessorRules.GetANOValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO];
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosAlbBusinessProcessorRules.GetANOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO]);
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosAlbBusinessProcessorRules.GetOldANOValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosAlbANO];
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosAlbBusinessProcessorRules.GetOldANOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosAlbANO]);
|
||||
end;
|
||||
|
||||
procedure TListaAnosObjetivosAlbBusinessProcessorRules.SetANOValue(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TListaAnosObjetivosAlbBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TAgentesBusinessProcessorRules }
|
||||
constructor TAgentesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
var
|
||||
@ -11995,6 +12108,49 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ TListaAnosObjetivosFacBusinessProcessorRules }
|
||||
constructor TListaAnosObjetivosFacBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TListaAnosObjetivosFacBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosFacBusinessProcessorRules.GetANOValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO];
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosFacBusinessProcessorRules.GetANOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO]);
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosFacBusinessProcessorRules.GetOldANOValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosFacANO];
|
||||
end;
|
||||
|
||||
function TListaAnosObjetivosFacBusinessProcessorRules.GetOldANOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosFacANO]);
|
||||
end;
|
||||
|
||||
procedure TListaAnosObjetivosFacBusinessProcessorRules.SetANOValue(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TListaAnosObjetivosFacBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
|
||||
@ -12011,9 +12167,11 @@ initialization
|
||||
RegisterBusinessProcessorRules(RID_DescripcionesProveedoresDelta, TDescripcionesProveedoresBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_Agentes_ComisionesDelta, TAgentes_ComisionesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ListaAnosObjetivosAlbDelta, TListaAnosObjetivosAlbBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_AgentesDelta, TAgentesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ClientesDescuentosArticulosDelta, TClientesDescuentosArticulosBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_Agentes_Objetivos_albaranesDelta, TAgentes_Objetivos_albaranesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_Agentes_Objetivos_facturasDelta, TAgentes_Objetivos_facturasBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ListaAnosObjetivosFacDelta, TListaAnosObjetivosFacBusinessProcessorRules);
|
||||
|
||||
end.
|
||||
|
||||
@ -51,12 +51,35 @@ begin
|
||||
try
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('OLD_ID_EMPLEADO').Value := aChange.OldValueByName[fld_AgentesID];
|
||||
ParamByName('OLD_ID_AGENTE').Value := aChange.OldValueByName[fld_AgentesID];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
ACommand := NIL;
|
||||
end;
|
||||
{
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_Agentes_Objetivos_albaranes');
|
||||
try
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('OLD_ID').Value := aChange.OldValueByName[fld_AgentesID];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
ACommand := NIL;
|
||||
end;
|
||||
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_Agentes_Objetivos_facturas');
|
||||
try
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('OLD_ID').Value := aChange.OldValueByName[fld_AgentesID];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
ACommand := NIL;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
function TBizAgenteServer.IncrementarReferenciaContacto: Boolean;
|
||||
|
||||
@ -4924,7 +4924,7 @@ object srvContactos: TsrvContactos
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = ' Delete_AgentesDatos'
|
||||
Name = 'Delete_AgentesDatos'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
|
||||
@ -36,13 +36,6 @@
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">1</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">4.2.1.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">4.2.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 31 de enero de 2012 10:21</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
Reference in New Issue
Block a user