Version 2.6.4
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@90 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
parent
5d84ee43b4
commit
4e117d6728
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -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>
|
||||
@ -58,54 +65,54 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Resources\Iconos\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\designide.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\IndyCore.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\IndySystem.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\pckMD5.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\VclSmp.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Resources\Iconos\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -422,7 +422,6 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
|
||||
@ -9,13 +9,13 @@ 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 = '{85C69203-C88F-4A9D-AA12-DE1F6ACFD665}';
|
||||
RID_Propiedades = '{CB2E34C1-796F-448F-A4A6-846D624B852E}';
|
||||
RID_ListaAnosContratos = '{E6BA2538-34EE-4BC8-8856-A422852BFAAF}';
|
||||
RID_ContratosClienteBeneficios = '{38C0DE62-7B04-4DC8-8CD1-E58555EE0C8E}';
|
||||
RID_ContratosCliente = '{38FD388B-7CAE-48F3-B299-C815FDEFB7EC}';
|
||||
RID_TiposCapitulos = '{C6155131-527F-4917-9E35-588127E79C9F}';
|
||||
RID_ContratosCliente_Detalles = '{884DB417-09B0-45BE-98A0-BF118A908349}';
|
||||
RID_Valores = '{F8BEAEBD-B764-475D-AAC0-BDE37787074F}';
|
||||
RID_Propiedades = '{C20A8F74-2A21-4468-BE12-33F78435D1C9}';
|
||||
RID_ListaAnosContratos = '{DC2AD3BB-AF55-46C9-9D92-22A69E3595BA}';
|
||||
RID_ContratosClienteBeneficios = '{39274DD9-6C7F-4D63-B46F-0D91784A5BDD}';
|
||||
RID_ContratosCliente = '{BBB0D52D-EF28-471F-9E8A-EF6650935779}';
|
||||
RID_TiposCapitulos = '{0004836D-B859-4F01-88B4-152E7DE8EE12}';
|
||||
RID_ContratosCliente_Detalles = '{7FAF4020-9A11-43F8-9EC3-50D2C51F5511}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -239,7 +239,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{0189264B-8AD0-4068-8E27-FA6906AA8105}']
|
||||
['{93B5E16D-D83A-44D5-9A72-73F5C06B4DB6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -298,7 +298,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{29CC0CF4-C2C1-4C0D-B975-FAE4239194A8}']
|
||||
['{D3ECB8CA-7CD6-4072-81D7-4199649CD877}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -357,7 +357,7 @@ type
|
||||
|
||||
{ IListaAnosContratos }
|
||||
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
|
||||
['{06AFA59E-EE56-4C39-8BD3-3F12115F94A2}']
|
||||
['{D92E481B-B83E-4A7D-A894-82D9AC8611F2}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -392,7 +392,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficios }
|
||||
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
|
||||
['{8EBBB0F4-9441-44BA-B2E3-1450D22BD87A}']
|
||||
['{79AF05E5-1F98-494B-AA3C-701988FC5D95}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -583,7 +583,7 @@ type
|
||||
|
||||
{ IContratosCliente }
|
||||
IContratosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{56584CDC-67FF-4EE9-AED7-AA788EA382DA}']
|
||||
['{FBF1D4A1-5EC3-4737-94F2-4D2E02961885}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1173,7 +1173,7 @@ type
|
||||
}
|
||||
{ ITiposCapitulos }
|
||||
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
|
||||
['{2376F69B-6893-4066-83C8-C5302031CB4C}']
|
||||
['{4FAEAA24-0C3E-4102-9245-1268C047848E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1268,7 +1268,7 @@ type
|
||||
|
||||
{ IContratosCliente_Detalles }
|
||||
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{0A8E4C29-8121-4FFF-BFCE-BCA46AB5F97E}']
|
||||
['{E1402F62-24C6-4568-B3B3-5D84C8E7072D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,18 +9,18 @@ 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 = '{9149743D-AD7E-4B3D-BD91-811AA69C3A9D}';
|
||||
RID_PropiedadesDelta = '{BB4061A1-FBEA-4E8E-AF30-85D4DCAE4AB6}';
|
||||
RID_ListaAnosContratosDelta = '{35EDD3EF-F51E-4465-B7F8-17C52EE11522}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{B057495F-3D21-47BA-B9A5-85BA36CDA2B0}';
|
||||
RID_ContratosClienteDelta = '{402BB40F-3E53-4941-A42D-3AFE9B181157}';
|
||||
RID_TiposCapitulosDelta = '{C3893479-3E86-4DFE-82F7-067CC2E61FB5}';
|
||||
RID_ContratosCliente_DetallesDelta = '{A169B5F1-0496-4515-98E8-A9BA0449FF62}';
|
||||
RID_ValoresDelta = '{AFA3E014-9771-46CA-AD58-BB178DE03490}';
|
||||
RID_PropiedadesDelta = '{F2BDFF90-4F7C-49F9-9A3D-8C5D3FE5F537}';
|
||||
RID_ListaAnosContratosDelta = '{5DBDFDE8-A17E-4EC5-87F7-C17E6D4ECF66}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{4932E674-FD06-4DFB-B2C2-9F8CF8625791}';
|
||||
RID_ContratosClienteDelta = '{55AD4AA0-BD11-4F4E-ADA3-CD019CB2E92B}';
|
||||
RID_TiposCapitulosDelta = '{DA81420C-1A5E-47F3-8FAC-14ACDBAD9749}';
|
||||
RID_ContratosCliente_DetallesDelta = '{2F500632-2D38-4B7A-AB5F-4AB42F4D4D83}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{9149743D-AD7E-4B3D-BD91-811AA69C3A9D}']
|
||||
['{AFA3E014-9771-46CA-AD58-BB178DE03490}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PROPIEDADValue : Integer;
|
||||
@ -78,7 +78,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{BB4061A1-FBEA-4E8E-AF30-85D4DCAE4AB6}']
|
||||
['{F2BDFF90-4F7C-49F9-9A3D-8C5D3FE5F537}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -136,7 +136,7 @@ type
|
||||
|
||||
{ IListaAnosContratosDelta }
|
||||
IListaAnosContratosDelta = interface(IListaAnosContratos)
|
||||
['{35EDD3EF-F51E-4465-B7F8-17C52EE11522}']
|
||||
['{5DBDFDE8-A17E-4EC5-87F7-C17E6D4ECF66}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -170,7 +170,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficiosDelta }
|
||||
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
|
||||
['{B057495F-3D21-47BA-B9A5-85BA36CDA2B0}']
|
||||
['{4932E674-FD06-4DFB-B2C2-9F8CF8625791}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -360,7 +360,7 @@ type
|
||||
|
||||
{ IContratosClienteDelta }
|
||||
IContratosClienteDelta = interface(IContratosCliente)
|
||||
['{402BB40F-3E53-4941-A42D-3AFE9B181157}']
|
||||
['{55AD4AA0-BD11-4F4E-ADA3-CD019CB2E92B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -950,7 +950,7 @@ type
|
||||
|
||||
{ ITiposCapitulosDelta }
|
||||
ITiposCapitulosDelta = interface(ITiposCapitulos)
|
||||
['{C3893479-3E86-4DFE-82F7-067CC2E61FB5}']
|
||||
['{DA81420C-1A5E-47F3-8FAC-14ACDBAD9749}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -1044,7 +1044,7 @@ type
|
||||
|
||||
{ IContratosCliente_DetallesDelta }
|
||||
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
|
||||
['{A169B5F1-0496-4515-98E8-A9BA0449FF62}']
|
||||
['{2F500632-2D38-4B7A-AB5F-4AB42F4D4D83}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
|
||||
@ -964,7 +964,6 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
|
||||
@ -65,10 +65,11 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
|
||||
inherited cxGridViewVALORADO: TcxGridDBColumn [5]
|
||||
Visible = True
|
||||
end
|
||||
inherited cxGridViewVALORADO: TcxGridDBColumn [6]
|
||||
inherited cxGridViewVISIBLE: TcxGridDBColumn [6]
|
||||
Caption = #191'Importe visible?'
|
||||
Visible = True
|
||||
end
|
||||
object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
|
||||
|
||||
@ -49,7 +49,7 @@
|
||||
<DelphiCompile Include="PresupuestosCliente_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="uDataModulePresupuestosCliente.pas">
|
||||
<Form>DataModulePresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -352,7 +352,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
|
||||
@ -9,12 +9,12 @@ 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 = '{57C9E146-05FF-4C0B-A29E-9C476B04D60A}';
|
||||
RID_Propiedades = '{4BE10F7B-91E6-403A-820A-8FE3436FFF07}';
|
||||
RID_ListaAnosPresupuestos = '{6C734448-3C27-4A94-B5AF-D35DA8B624E9}';
|
||||
RID_PresupuestosCliente = '{FA8B3E42-3B3B-4A2D-9B62-457CC1471E4D}';
|
||||
RID_CapitulosPresupuesto = '{BF9749E2-1C81-400F-B33F-218045066EB4}';
|
||||
RID_PresupuestosCliente_Detalles = '{044A74E5-A3DB-43C5-AC20-3AFB0270950E}';
|
||||
RID_Valores = '{C22F2D6D-67BA-4245-80B3-EEFC0B515DCB}';
|
||||
RID_Propiedades = '{025877AE-7F09-4408-8F07-E91C27E0122F}';
|
||||
RID_ListaAnosPresupuestos = '{E9370224-CCED-4127-8E1C-5970DBC7A1CC}';
|
||||
RID_PresupuestosCliente = '{EFA77388-391C-4EC2-BCC3-D7C2DA188448}';
|
||||
RID_CapitulosPresupuesto = '{A3EF8730-6F18-42FA-B29A-7A382E0E8334}';
|
||||
RID_PresupuestosCliente_Detalles = '{F6B388F3-D596-4B8F-BEDA-2006C2C63EA5}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -180,8 +180,8 @@ const
|
||||
fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD';
|
||||
fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
|
||||
fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
||||
fld_PresupuestosCliente_DetallesVALORADO = 'VALORADO';
|
||||
fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE';
|
||||
fld_PresupuestosCliente_DetallesVALORADO = 'VALORADO';
|
||||
fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
|
||||
fld_PresupuestosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO';
|
||||
fld_PresupuestosCliente_DetallesDESCUENTO = 'DESCUENTO';
|
||||
@ -199,8 +199,8 @@ const
|
||||
idx_PresupuestosCliente_DetallesCANTIDAD = 6;
|
||||
idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7;
|
||||
idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8;
|
||||
idx_PresupuestosCliente_DetallesVALORADO = 9;
|
||||
idx_PresupuestosCliente_DetallesVISIBLE = 10;
|
||||
idx_PresupuestosCliente_DetallesVISIBLE = 9;
|
||||
idx_PresupuestosCliente_DetallesVALORADO = 10;
|
||||
idx_PresupuestosCliente_DetallesID_ARTICULO = 11;
|
||||
idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 12;
|
||||
idx_PresupuestosCliente_DetallesDESCUENTO = 13;
|
||||
@ -211,7 +211,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{462EADE1-2E42-45FD-8E3D-02E41B35A94A}']
|
||||
['{C60C05EF-A689-43CF-B163-9ADAE9E8DBF5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -306,7 +306,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{A2A973F8-1D1D-4C8F-9371-9B72435227EA}']
|
||||
['{96845BFC-8076-43FF-A1E7-EA21F67A9373}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -353,7 +353,7 @@ type
|
||||
|
||||
{ IListaAnosPresupuestos }
|
||||
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
|
||||
['{A0D991B4-D303-41B0-BA06-C99C6913390D}']
|
||||
['{1CBD727A-F7D4-47C0-9B97-64B895E88FC4}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -388,7 +388,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente }
|
||||
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{722C48BC-8220-4F31-A68C-2FA7552D025C}']
|
||||
['{363D2686-FD82-4CE7-A8F8-DB83C6E25063}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -915,7 +915,7 @@ type
|
||||
|
||||
{ ICapitulosPresupuesto }
|
||||
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
|
||||
['{409391D9-20DD-496C-8271-7AB8983EA3EF}']
|
||||
['{338F22FC-3A4B-4933-8DC4-1A420BAD9FCB}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1082,7 +1082,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_Detalles }
|
||||
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{E06194DA-C67C-4012-9645-4D98FBD1A65F}']
|
||||
['{C4E01248-FEE0-4706-ABF3-74ABEF686652}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1120,14 +1120,14 @@ type
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
function GetIMPORTE_TOTALIsNull: Boolean;
|
||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
|
||||
function GetVALORADOValue: SmallInt;
|
||||
procedure SetVALORADOValue(const aValue: SmallInt);
|
||||
function GetVALORADOIsNull: Boolean;
|
||||
procedure SetVALORADOIsNull(const aValue: Boolean);
|
||||
function GetVISIBLEValue: SmallInt;
|
||||
procedure SetVISIBLEValue(const aValue: SmallInt);
|
||||
function GetVISIBLEIsNull: Boolean;
|
||||
procedure SetVISIBLEIsNull(const aValue: Boolean);
|
||||
function GetVALORADOValue: SmallInt;
|
||||
procedure SetVALORADOValue(const aValue: SmallInt);
|
||||
function GetVALORADOIsNull: Boolean;
|
||||
procedure SetVALORADOIsNull(const aValue: Boolean);
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
function GetID_ARTICULOIsNull: Boolean;
|
||||
@ -1173,10 +1173,10 @@ type
|
||||
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
|
||||
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
|
||||
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
|
||||
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
|
||||
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
|
||||
@ -1232,14 +1232,14 @@ type
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
|
||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
|
||||
function GetVALORADOValue: SmallInt; virtual;
|
||||
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
|
||||
function GetVALORADOIsNull: Boolean; virtual;
|
||||
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetVISIBLEValue: SmallInt; virtual;
|
||||
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
|
||||
function GetVISIBLEIsNull: Boolean; virtual;
|
||||
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
|
||||
function GetVALORADOValue: SmallInt; virtual;
|
||||
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
|
||||
function GetVALORADOIsNull: Boolean; virtual;
|
||||
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ARTICULOValue: Integer; virtual;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
|
||||
function GetID_ARTICULOIsNull: Boolean; virtual;
|
||||
@ -1284,10 +1284,10 @@ type
|
||||
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
|
||||
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
|
||||
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
|
||||
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
|
||||
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
|
||||
@ -2916,27 +2916,6 @@ begin
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetVALORADOValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetVALORADOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsSmallInt;
|
||||
@ -2958,6 +2937,27 @@ begin
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetVALORADOValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetVALORADOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger;
|
||||
|
||||
@ -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 = '{0DFF292A-C0F6-4340-B980-2E384A813763}';
|
||||
RID_PropiedadesDelta = '{348BD315-BA9C-45E0-A524-85591A47838A}';
|
||||
RID_ListaAnosPresupuestosDelta = '{CCFE0D8C-377A-4D72-96E7-475EDA12309D}';
|
||||
RID_PresupuestosClienteDelta = '{E6D86574-0DF3-402A-832E-F3706341F88B}';
|
||||
RID_CapitulosPresupuestoDelta = '{06A01999-D2F4-4C61-8036-3EB77B4BF57B}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{2820C6A3-C1CB-47CF-94FD-2580C9CE734E}';
|
||||
RID_ValoresDelta = '{23B065AE-0C56-49AB-AE63-95BE6E6F97B0}';
|
||||
RID_PropiedadesDelta = '{9E323215-A8B5-49BE-9C72-00B586B8BCEE}';
|
||||
RID_ListaAnosPresupuestosDelta = '{E8D41C0D-67FE-4D0A-A225-B8378BE12D2A}';
|
||||
RID_PresupuestosClienteDelta = '{7C87F0CD-0CBC-421B-B576-A4D796983F8B}';
|
||||
RID_CapitulosPresupuestoDelta = '{6EDFBB65-57A2-4980-BEDE-2E73503BE6FC}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{C9A2968D-C52A-4E32-9751-111EDCB641D2}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{0DFF292A-C0F6-4340-B980-2E384A813763}']
|
||||
['{23B065AE-0C56-49AB-AE63-95BE6E6F97B0}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -113,7 +113,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{348BD315-BA9C-45E0-A524-85591A47838A}']
|
||||
['{9E323215-A8B5-49BE-9C72-00B586B8BCEE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -159,7 +159,7 @@ type
|
||||
|
||||
{ IListaAnosPresupuestosDelta }
|
||||
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
|
||||
['{CCFE0D8C-377A-4D72-96E7-475EDA12309D}']
|
||||
['{E8D41C0D-67FE-4D0A-A225-B8378BE12D2A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -193,7 +193,7 @@ type
|
||||
|
||||
{ IPresupuestosClienteDelta }
|
||||
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
|
||||
['{E6D86574-0DF3-402A-832E-F3706341F88B}']
|
||||
['{7C87F0CD-0CBC-421B-B576-A4D796983F8B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -723,7 +723,7 @@ type
|
||||
|
||||
{ ICapitulosPresupuestoDelta }
|
||||
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
|
||||
['{06A01999-D2F4-4C61-8036-3EB77B4BF57B}']
|
||||
['{6EDFBB65-57A2-4980-BEDE-2E73503BE6FC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -889,7 +889,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_DetallesDelta }
|
||||
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
|
||||
['{2820C6A3-C1CB-47CF-94FD-2580C9CE734E}']
|
||||
['{C9A2968D-C52A-4E32-9751-111EDCB641D2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PRESUPUESTOValue : Integer;
|
||||
@ -900,8 +900,8 @@ type
|
||||
function GetOldCANTIDADValue : Currency;
|
||||
function GetOldIMPORTE_UNIDADValue : Currency;
|
||||
function GetOldIMPORTE_TOTALValue : Currency;
|
||||
function GetOldVALORADOValue : SmallInt;
|
||||
function GetOldVISIBLEValue : SmallInt;
|
||||
function GetOldVALORADOValue : SmallInt;
|
||||
function GetOldID_ARTICULOValue : Integer;
|
||||
function GetOldTIPO_ARTICULOValue : String;
|
||||
function GetOldDESCUENTOValue : Float;
|
||||
@ -919,8 +919,8 @@ type
|
||||
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
|
||||
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property OldVALORADO : SmallInt read GetOldVALORADOValue;
|
||||
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
|
||||
property OldVALORADO : SmallInt read GetOldVALORADOValue;
|
||||
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
||||
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
|
||||
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
||||
@ -988,18 +988,18 @@ type
|
||||
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
|
||||
function GetVALORADOValue: SmallInt; virtual;
|
||||
function GetVALORADOIsNull: Boolean; virtual;
|
||||
function GetOldVALORADOValue: SmallInt; virtual;
|
||||
function GetOldVALORADOIsNull: Boolean; virtual;
|
||||
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
|
||||
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetVISIBLEValue: SmallInt; virtual;
|
||||
function GetVISIBLEIsNull: Boolean; virtual;
|
||||
function GetOldVISIBLEValue: SmallInt; virtual;
|
||||
function GetOldVISIBLEIsNull: Boolean; virtual;
|
||||
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
|
||||
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
|
||||
function GetVALORADOValue: SmallInt; virtual;
|
||||
function GetVALORADOIsNull: Boolean; virtual;
|
||||
function GetOldVALORADOValue: SmallInt; virtual;
|
||||
function GetOldVALORADOIsNull: Boolean; virtual;
|
||||
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
|
||||
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ARTICULOValue: Integer; virtual;
|
||||
function GetID_ARTICULOIsNull: Boolean; virtual;
|
||||
function GetOldID_ARTICULOValue: Integer; virtual;
|
||||
@ -1074,14 +1074,14 @@ type
|
||||
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
|
||||
property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
|
||||
property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
|
||||
property OldVALORADO : SmallInt read GetOldVALORADOValue;
|
||||
property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
|
||||
property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue;
|
||||
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
|
||||
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
|
||||
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
|
||||
property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
|
||||
property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
|
||||
property OldVALORADO : SmallInt read GetOldVALORADOValue;
|
||||
property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
|
||||
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
||||
@ -3447,37 +3447,6 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO];
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO]);
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVALORADO];
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVALORADO]);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE];
|
||||
@ -3509,6 +3478,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO];
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO]);
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVALORADO];
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVALORADO]);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO];
|
||||
|
||||
@ -816,11 +816,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'VALORADO'
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
Name = 'VALORADO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
@ -848,7 +848,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
|
||||
@ -76,9 +76,11 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
|
||||
inherited cxGridViewVALORADO: TcxGridDBColumn [5]
|
||||
Visible = True
|
||||
end
|
||||
inherited cxGridViewVALORADO: TcxGridDBColumn [6]
|
||||
inherited cxGridViewVISIBLE: TcxGridDBColumn [6]
|
||||
Caption = #191'Importe visible?'
|
||||
Visible = True
|
||||
end
|
||||
object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
|
||||
|
||||
@ -123,6 +123,8 @@ begin
|
||||
AContrato.IMPORTE_RE := APresupuesto.IMPORTE_RE;
|
||||
AContrato.TIPO_CONTRATO := APresupuesto.TIPO_PRESUPUESTO;
|
||||
AContrato.REFERENCIA_CLIENTE := APresupuesto.REFERENCIA_CLIENTE;
|
||||
AContrato.ID_FORMA_PAGO := APresupuesto.ID_FORMA_PAGO;
|
||||
AContrato.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteFORMA_PAGO).AsVariant;
|
||||
end;
|
||||
|
||||
procedure CopiarDetallesAContrato(
|
||||
@ -187,6 +189,7 @@ begin
|
||||
if not AArticulos.IMPORTE_PORTEIsNull then
|
||||
ADetalles.IMPORTE_PORTE := AArticulos.IMPORTE_PORTE;
|
||||
ADetalles.VISIBLE := AArticulos.VISIBLE;
|
||||
ADetalles.VALORADO := AArticulos.VALORADO;
|
||||
ADetalles.REFERENCIA_PROVEEDOR := AArticulos.REFERENCIA_PROVEEDOR;
|
||||
ADetalles.Post;
|
||||
AArticulos.Next;
|
||||
|
||||
@ -124,8 +124,6 @@ uses
|
||||
schSubfamiliasServer_Intf in '..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
|
||||
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
|
||||
uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule},
|
||||
uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule},
|
||||
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
|
||||
@ -134,14 +132,16 @@ uses
|
||||
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
|
||||
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
|
||||
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
|
||||
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
|
||||
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
|
||||
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_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}
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user