diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index e076739..ad204da 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index a730d90..7dae4e8 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,13 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -58,54 +65,54 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3
index 70e6b61..f10d4c2 100644
--- a/Source/Informes/1/InfContratoCliente.fr3
+++ b/Source/Informes/1/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -11,15 +11,15 @@
-
+
-
-
-
+
+
+
diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3
index 5390fc5..fc23b0f 100644
--- a/Source/Informes/1/InfPresupuestoCliente.fr3
+++ b/Source/Informes/1/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -11,15 +11,15 @@
-
+
-
-
-
+
+
+
diff --git a/Source/Informes/2/InfContratoCliente.fr3 b/Source/Informes/2/InfContratoCliente.fr3
index bb7257b..0cc5396 100644
--- a/Source/Informes/2/InfContratoCliente.fr3
+++ b/Source/Informes/2/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -15,15 +15,15 @@
-
+
-
-
-
+
+
+
diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3
index 03e7865..bde6890 100644
--- a/Source/Informes/2/InfPresupuestoCliente.fr3
+++ b/Source/Informes/2/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -15,15 +15,15 @@
-
+
-
-
-
+
+
+
diff --git a/Source/Informes/3/InfContratoCliente.fr3 b/Source/Informes/3/InfContratoCliente.fr3
index e26a62a..2516921 100644
--- a/Source/Informes/3/InfContratoCliente.fr3
+++ b/Source/Informes/3/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -15,15 +15,15 @@
-
+
-
-
-
+
+
+
diff --git a/Source/Informes/3/InfPresupuestoCliente.fr3 b/Source/Informes/3/InfPresupuestoCliente.fr3
index 05d7010..0e642ed 100644
--- a/Source/Informes/3/InfPresupuestoCliente.fr3
+++ b/Source/Informes/3/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -15,15 +15,15 @@
-
+
-
-
-
+
+
+
diff --git a/Source/Informes/4/InfContratoCliente.fr3 b/Source/Informes/4/InfContratoCliente.fr3
index 36aae49..1b96062 100644
--- a/Source/Informes/4/InfContratoCliente.fr3
+++ b/Source/Informes/4/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -11,15 +11,15 @@
-
+
-
-
-
+
+
+
diff --git a/Source/Informes/4/InfPresupuestoCliente.fr3 b/Source/Informes/4/InfPresupuestoCliente.fr3
index 230ae7c..c937780 100644
--- a/Source/Informes/4/InfPresupuestoCliente.fr3
+++ b/Source/Informes/4/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -11,15 +11,15 @@
-
+
-
-
-
+
+
+
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
index b27a421..56e2b7d 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
@@ -422,7 +422,6 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
- Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
index 437ae21..46bc117 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
@@ -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);
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
index c17ce71..6e883dc 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
@@ -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;
diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
index 8365446..97a87d0 100644
--- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
+++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
@@ -964,7 +964,6 @@ object srvContratosCliente: TsrvContratosCliente
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
- Size = 255
end>
end>
JoinDataTables = <>
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
index eb511f9..427f518 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
@@ -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]
diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj
index 66e04f6..3127d45 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj
+++ b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj
@@ -49,7 +49,7 @@
MainSource
-
+
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
index 60e5506..bebd16e 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
@@ -352,7 +352,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
- Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
index 3e3e8c0..0ab595d 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
@@ -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;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
index 3dae25a..bc0e4c4 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
@@ -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];
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index a95d222..635e57c 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
@@ -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 = <>
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
index 6d23c7e..cf006a8 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
@@ -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]
diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
index 5cff94c..d107c54 100644
--- a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
+++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
@@ -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;
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index c556ede..8edba57 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -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}
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index 0d57a1e..562fbba 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ