Tarea #1280 -> En los presupuesto, añadir un campo de CALIDADES

Tarea #1228 -> Poder añadir en contratos una hoja de calidades similar a la de condiciones pero con posibilidad de adaptarlo segun proveedor

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@581 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm

@@ -1,19 +1,24 @@
 inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
+  Width = 910
+  Height = 433
   inherited Panel1: TPanel
-    Width = 424
+    Width = 900
+    ExplicitWidth = 424
     inherited Label3: TLabel
+      Width = 888
       Caption = 'Apariencia'
       ExplicitWidth = 63
     end
   end
   inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
-    Width = 434
+    Width = 910
+    ExplicitWidth = 434
   end
   object Panel2: TPanel
     AlignWithMargins = True
     Left = 5
     Top = 142
-    Width = 424
+    Width = 900
     Height = 22
     Margins.Left = 5
     Margins.Top = 0
@@ -37,10 +42,11 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     ParentBackground = False
     ParentFont = False
     TabOrder = 2
+    ExplicitWidth = 424
     object Label2: TLabel
       Left = 6
       Top = 4
-      Width = 412
+      Width = 888
       Height = 14
       Align = alTop
       Caption = 'Seguridad'
@@ -51,7 +57,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     AlignWithMargins = True
     Left = 5
     Top = 68
-    Width = 424
+    Width = 900
     Height = 74
     Margins.Left = 5
     Margins.Top = 0
@@ -61,6 +67,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     BevelOuter = bvNone
     ParentColor = True
     TabOrder = 3
+    ExplicitWidth = 424
     object Label1: TLabel
       Left = 17
       Top = 14
@@ -92,7 +99,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     AlignWithMargins = True
     Left = 5
     Top = 164
-    Width = 424
+    Width = 900
     Height = 72
     Margins.Left = 5
     Margins.Top = 0
@@ -102,6 +109,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     BevelOuter = bvNone
     ParentColor = True
     TabOrder = 4
+    ExplicitWidth = 424
     object Label4: TLabel
       Left = 17
       Top = 43
@@ -140,7 +148,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     AlignWithMargins = True
     Left = 5
     Top = 236
-    Width = 424
+    Width = 900
     Height = 22
     Margins.Left = 5
     Margins.Top = 0
@@ -164,10 +172,11 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     ParentBackground = False
     ParentFont = False
     TabOrder = 5
+    ExplicitWidth = 424
     object Label5: TLabel
       Left = 6
       Top = 4
-      Width = 412
+      Width = 888
       Height = 14
       Align = alTop
       Caption = 'Usuarios'
@@ -178,7 +187,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     AlignWithMargins = True
     Left = 5
     Top = 258
-    Width = 424
+    Width = 900
     Height = 72
     Margins.Left = 5
     Margins.Top = 0
@@ -188,6 +197,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
     BevelOuter = bvNone
     ParentColor = True
     TabOrder = 6
+    ExplicitWidth = 424
     object lblLongMinPass: TLabel
       Left = 17
       Top = 43

Source/ApplicationBase/uFactuGES_App.pas

@@ -38,9 +38,11 @@ type
     function GetFormaPagoDocumentos: String;
     function GetObservacionesDocumentos: String;
     function GetCondicionesDocumentos: String;
+    function GetCalidadesDocumentos: String;
     procedure SetFormaPagoDocumentos(const Value: String);
     procedure SetObservacionesDocumentos(const Value: String);
     procedure SetCondicionesDocumentos(const Value: String);
+    procedure SetCalidadesDocumentos(const Value: String);
 
     function GetLoadModulesEvent : TAppFactuGES_Event;
     procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event);
@@ -87,6 +89,7 @@ type
     property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos;
     property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos;
     property CondicionesDocumentos : String read GetCondicionesDocumentos write SetCondicionesDocumentos;
+    property CalidadesDocumentos : String read GetCalidadesDocumentos write SetCalidadesDocumentos;
   end;
 
 
@@ -100,7 +103,8 @@ type
     FConfiguracionController : IConfiguracionController;
     FFormaPagoDocumentos: String;
     FObservacionesDocumentos: String;
-    FcondicionesDocumentos: String;
+    FCondicionesDocumentos: String;
+    FCalidadesDocumentos: String;
 
     FAppSplashForm : IAppSplashForm;
     FHostManager : THostManager;
@@ -145,6 +149,8 @@ type
     procedure AfterLoadModule(Sender: TObject; AModuleInfo: TModuleInfo);
     procedure RegisterModule(AModuleInfo : TModuleInfo);
     procedure BuscarTiendaPorDefecto;
+    function GetCalidadesDocumentos: String;
+    procedure SetCalidadesDocumentos(const Value: String);
 
   protected
     procedure DoMainForm;
@@ -189,6 +195,7 @@ type
     property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos;
     property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos;
     property CondicionesDocumentos : String read GetCondicionesDocumentos write SetCondicionesDocumentos;
+    property CalidadesDocumentos : String read GetCalidadesDocumentos write SetCalidadesDocumentos;
   end;
 
 var
@@ -374,6 +381,11 @@ begin
   Result := uAppInfoUtils.GetAppVersion; 
 end;
 
+function TAppFactuGES.GetCalidadesDocumentos: String;
+begin
+  Result := FCalidadesDocumentos;
+end;
+
 function TAppFactuGES.GetCondicionesDocumentos: String;
 begin
   Result := FCondicionesDocumentos;
@@ -553,6 +565,11 @@ begin
   FAppSplashForm := AAppSplashForm;
 end;
 
+procedure TAppFactuGES.SetCalidadesDocumentos(const Value: String);
+begin
+  FCalidadesDocumentos := Value;
+end;
+
 procedure TAppFactuGES.SetCondicionesDocumentos(const Value: String);
 begin
   FCondicionesDocumentos:= Value;

Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas

@@ -757,6 +757,7 @@ begin
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
         AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_COCINA));
+        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA));
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, AContrato.Detalles);
@@ -768,6 +769,7 @@ begin
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO));
         AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO));
+        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO));
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, AContrato.Detalles);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, AContrato.Detalles);
       end;
@@ -778,6 +780,7 @@ begin
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO));
         AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_BANO));
+        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO));
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, AContrato.Detalles);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
       end;
@@ -788,6 +791,7 @@ begin
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO));
         AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO));
+        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO));
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, AContrato.Detalles);
       end;
     teObra:
@@ -797,6 +801,7 @@ begin
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA));
         AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_OBRA));
+        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA));
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, AContrato.Detalles);
       end;
     teVarios:
@@ -805,7 +810,8 @@ begin
         AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS));
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS));
-        AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS));        
+        AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS));
+        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS));
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, AContrato.Detalles);
       end;
   end;

Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm

@@ -324,6 +324,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
       item
         Name = 'CONDICIONES'
         DataType = datMemo
+        DisplayLabel = 'ContratosCliente_CONDICIONES'
+        DictionaryEntry = 'ContratosCliente_CONDICIONES'
+      end
+      item
+        Name = 'CALIDADES'
+        DataType = datMemo
+        DisplayLabel = 'Calidades'
+        DictionaryEntry = 'ContratosCliente_CALIDADES'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

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 = '{2A7F5B24-C4EF-4CAC-84A7-B08B15EF9800}';
+  RID_Valores = '{F0526200-C062-476D-80A3-1CC74B381BC7}';
-  RID_Propiedades = '{F8E7B5B9-507C-4C56-B5E9-8E608B097D89}';
+  RID_Propiedades = '{761E7D92-ACCC-487C-B663-31B34E278F2C}';
-  RID_ListaAnosContratos = '{1395AD65-A076-4E6B-A38B-E97DD7EF440F}';
+  RID_ListaAnosContratos = '{EFA96A9D-E452-46F5-92D2-6301FA044EB5}';
-  RID_ContratosClienteBeneficios = '{AAE37D7A-37D3-4EBD-A74C-351C6F2C5266}';
+  RID_ContratosClienteBeneficios = '{70EF0F8A-3021-466B-8D83-EEFC14E93578}';
-  RID_ContratosCliente = '{8C594040-2BE6-4C03-9027-A3D0DAC74C82}';
+  RID_ContratosCliente = '{5474C56D-8D15-4BBF-A918-B09541C5DD87}';
-  RID_TiposCapitulos = '{8276E8DA-EDAA-4FBF-9109-A96A2234CE9E}';
+  RID_TiposCapitulos = '{E013587B-70DE-493C-A82F-1436745706BE}';
-  RID_ContratosCliente_Detalles = '{2D7606E6-A13A-49D4-9520-8C7C1156CBD7}';
+  RID_ContratosCliente_Detalles = '{C8845677-3FB0-4456-90DE-C5B5447BB721}';
 
   { Data table names }
   nme_Valores = 'Valores';
@@ -125,6 +125,7 @@ const
   fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
   fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO';
   fld_ContratosClienteCONDICIONES = 'CONDICIONES';
+  fld_ContratosClienteCALIDADES = 'CALIDADES';
 
   { ContratosCliente field indexes }
   idx_ContratosClienteID = 0;
@@ -173,6 +174,7 @@ const
   idx_ContratosClientePERSONA_CONTACTO = 43;
   idx_ContratosClienteTIPO_CONTRATO = 44;
   idx_ContratosClienteCONDICIONES = 45;
+  idx_ContratosClienteCALIDADES = 46;
 
   { TiposCapitulos fields }
   fld_TiposCapitulosID = 'ID';
@@ -231,7 +233,7 @@ const
 type
   { IValores }
   IValores = interface(IDAStronglyTypedDataTable)
-  ['{AA391BD6-AAF3-4DD2-B075-AE2234E80A89}']
+  ['{F961655F-A527-46B5-8498-A63C87148DBD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -290,7 +292,7 @@ type
 
   { IPropiedades }
   IPropiedades = interface(IDAStronglyTypedDataTable)
-  ['{23AECADA-9691-4879-8682-B6E356F94740}']
+  ['{C8EA9375-DC1B-4883-AA5D-337B12C8CB03}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -349,7 +351,7 @@ type
 
   { IListaAnosContratos }
   IListaAnosContratos = interface(IDAStronglyTypedDataTable)
-  ['{7301B623-1E33-4C34-B008-C34BF12FA616}']
+  ['{477D5EE0-90BB-4992-A681-D55DE22F223F}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -384,7 +386,7 @@ type
 
   { IContratosClienteBeneficios }
   IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
-  ['{23C65272-1CFD-4C99-9E4E-6F50BEAD3B7C}']
+  ['{C1AD6AEE-9535-4AAD-84EC-C4F26774FDD5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -539,7 +541,7 @@ type
 
   { IContratosCliente }
   IContratosCliente = interface(IDAStronglyTypedDataTable)
-  ['{9AD6CC3E-D998-47A8-AADB-E4FD52CEDDFF}']
+  ['{04D661CB-EC6C-49CD-BD55-5A14CCA1E63C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -720,6 +722,9 @@ type
     function GetCONDICIONESValue: IROStrings;
     function GetCONDICIONESIsNull: Boolean;
     procedure SetCONDICIONESIsNull(const aValue: Boolean);
+    function GetCALIDADESValue: IROStrings;
+    function GetCALIDADESIsNull: Boolean;
+    procedure SetCALIDADESIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -815,6 +820,8 @@ type
     property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
     property CONDICIONES: IROStrings read GetCONDICIONESValue;
     property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
+    property CALIDADES: IROStrings read GetCALIDADESValue;
+    property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
   end;
 
   { TContratosClienteDataTableRules }
@@ -825,11 +832,13 @@ type
     f_OBSERVACIONES: IROStrings;
     f_INCIDENCIAS: IROStrings;
     f_CONDICIONES: IROStrings;
+    f_CALIDADES: IROStrings;
     procedure FORMA_PAGO_OnChange(Sender: TObject);
     procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
     procedure OBSERVACIONES_OnChange(Sender: TObject);
     procedure INCIDENCIAS_OnChange(Sender: TObject);
     procedure CONDICIONES_OnChange(Sender: TObject);
+    procedure CALIDADES_OnChange(Sender: TObject);
   protected
     { Property getters and setters }
     function GetIDValue: Integer; virtual;
@@ -1011,6 +1020,9 @@ type
     function GetCONDICIONESValue: IROStrings; virtual;
     function GetCONDICIONESIsNull: Boolean; virtual;
     procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual;
+    function GetCALIDADESValue: IROStrings; virtual;
+    function GetCALIDADESIsNull: Boolean; virtual;
+    procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1105,6 +1117,8 @@ type
     property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
     property CONDICIONES: IROStrings read GetCONDICIONESValue;
     property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
+    property CALIDADES: IROStrings read GetCALIDADESValue;
+    property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1117,7 +1131,7 @@ type
   }
   { ITiposCapitulos }
   ITiposCapitulos = interface(IDAStronglyTypedDataTable)
-  ['{BFABE088-8874-4BDE-BA13-A4037F709389}']
+  ['{2ECBA155-63C8-4E4A-ABFA-0447AF922692}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1212,7 +1226,7 @@ type
 
   { IContratosCliente_Detalles }
   IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{5A701D96-0AC5-47D4-BCBC-9A1A4B8622B2}']
+  ['{C6C57E6F-5A54-4337-88B0-B74807CF03CD}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1893,6 +1907,10 @@ begin
   StrList := TStringList.Create;
   StrList.OnChange := CONDICIONES_OnChange;
   f_CONDICIONES := NewROStrings(StrList,True);
+
+  StrList := TStringList.Create;
+  StrList.OnChange := CALIDADES_OnChange;
+  f_CALIDADES := NewROStrings(StrList,True);
 end;
 
 destructor TContratosClienteDataTableRules.Destroy;
@@ -1925,6 +1943,11 @@ begin
   if DataTable.Editing then DataTable.Fields[idx_ContratosClienteCONDICIONES].AsVariant := TStringList(Sender).Text;
 end;
 
+procedure TContratosClienteDataTableRules.CALIDADES_OnChange(Sender: TObject);
+begin
+  if DataTable.Editing then DataTable.Fields[idx_ContratosClienteCALIDADES].AsVariant := TStringList(Sender).Text;
+end;
+
 function TContratosClienteDataTableRules.GetIDValue: Integer;
 begin
   result := DataTable.Fields[idx_ContratosClienteID].AsInteger;
@@ -2871,6 +2894,23 @@ begin
     DataTable.Fields[idx_ContratosClienteCONDICIONES].AsVariant := Null;
 end;
 
+function TContratosClienteDataTableRules.GetCALIDADESValue: IROStrings;
+begin
+  result := f_CALIDADES;
+  result.Text := DataTable.Fields[idx_ContratosClienteCALIDADES].AsString;
+end;
+
+function TContratosClienteDataTableRules.GetCALIDADESIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteCALIDADES].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetCALIDADESIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteCALIDADES].AsVariant := Null;
+end;
+
 
 { TTiposCapitulosDataTableRules }
 constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

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 = '{BFD88912-FE88-468F-A484-70A3F0D4F4B1}';
+  RID_ValoresDelta = '{38C40949-A51A-4309-80CD-2D42A1603624}';
-  RID_PropiedadesDelta = '{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}';
+  RID_PropiedadesDelta = '{38B2F017-BDA0-45D7-8FE6-20FBA829A97B}';
-  RID_ListaAnosContratosDelta = '{207FEB34-67B0-49C5-9A68-B112947AEE94}';
+  RID_ListaAnosContratosDelta = '{7874DD16-167E-457B-BD65-4AE8A24EDBF3}';
-  RID_ContratosClienteBeneficiosDelta = '{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}';
+  RID_ContratosClienteBeneficiosDelta = '{586FA3E2-5AB1-4D49-89D1-09EA9581E6FA}';
-  RID_ContratosClienteDelta = '{22B8C14E-C907-45A6-8069-CA587DA68F0B}';
+  RID_ContratosClienteDelta = '{526FC8D5-7105-4C5C-9956-342BEB9C9C12}';
-  RID_TiposCapitulosDelta = '{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}';
+  RID_TiposCapitulosDelta = '{3CF19FFB-79CB-4BEB-AB92-BFAC26395C7E}';
-  RID_ContratosCliente_DetallesDelta = '{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}';
+  RID_ContratosCliente_DetallesDelta = '{7F0E3428-95C8-47D6-8D41-D2FF2C661C75}';
 
 type
   { IValoresDelta }
   IValoresDelta = interface(IValores)
-  ['{BFD88912-FE88-468F-A484-70A3F0D4F4B1}']
+  ['{38C40949-A51A-4309-80CD-2D42A1603624}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PROPIEDADValue : Integer;
@@ -78,7 +78,7 @@ type
 
   { IPropiedadesDelta }
   IPropiedadesDelta = interface(IPropiedades)
-  ['{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}']
+  ['{38B2F017-BDA0-45D7-8FE6-20FBA829A97B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -136,7 +136,7 @@ type
 
   { IListaAnosContratosDelta }
   IListaAnosContratosDelta = interface(IListaAnosContratos)
-  ['{207FEB34-67B0-49C5-9A68-B112947AEE94}']
+  ['{7874DD16-167E-457B-BD65-4AE8A24EDBF3}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -170,7 +170,7 @@ type
 
   { IContratosClienteBeneficiosDelta }
   IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
-  ['{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}']
+  ['{586FA3E2-5AB1-4D49-89D1-09EA9581E6FA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -324,7 +324,7 @@ type
 
   { IContratosClienteDelta }
   IContratosClienteDelta = interface(IContratosCliente)
-  ['{22B8C14E-C907-45A6-8069-CA587DA68F0B}']
+  ['{526FC8D5-7105-4C5C-9956-342BEB9C9C12}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -372,6 +372,7 @@ type
     function GetOldPERSONA_CONTACTOValue : String;
     function GetOldTIPO_CONTRATOValue : String;
     function GetOldCONDICIONESValue : IROStrings;
+    function GetOldCALIDADESValue : IROStrings;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -420,6 +421,7 @@ type
     property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
     property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
     property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
+    property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
   end;
 
   { TContratosClienteBusinessProcessorRules }
@@ -430,11 +432,13 @@ type
     f_OBSERVACIONES: IROStrings;
     f_INCIDENCIAS: IROStrings;
     f_CONDICIONES: IROStrings;
+    f_CALIDADES: IROStrings;
     procedure FORMA_PAGO_OnChange(Sender: TObject);
     procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
     procedure OBSERVACIONES_OnChange(Sender: TObject);
     procedure INCIDENCIAS_OnChange(Sender: TObject);
     procedure CONDICIONES_OnChange(Sender: TObject);
+    procedure CALIDADES_OnChange(Sender: TObject);
   protected
     { Property getters and setters }
     function GetIDValue: Integer; virtual;
@@ -708,6 +712,11 @@ type
     function GetOldCONDICIONESValue: IROStrings; virtual;
     function GetOldCONDICIONESIsNull: Boolean; virtual;
     procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual;
+    function GetCALIDADESValue: IROStrings; virtual;
+    function GetCALIDADESIsNull: Boolean; virtual;
+    function GetOldCALIDADESValue: IROStrings; virtual;
+    function GetOldCALIDADESIsNull: Boolean; virtual;
+    procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -894,6 +903,10 @@ type
     property CONDICIONESIsNull : Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
     property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
     property OldCONDICIONESIsNull : Boolean read GetOldCONDICIONESIsNull;
+    property CALIDADES : IROStrings read GetCALIDADESValue;
+    property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
+    property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
+    property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -903,7 +916,7 @@ type
 
   { ITiposCapitulosDelta }
   ITiposCapitulosDelta = interface(ITiposCapitulos)
-  ['{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}']
+  ['{3CF19FFB-79CB-4BEB-AB92-BFAC26395C7E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldPOSICIONValue : Integer;
@@ -997,7 +1010,7 @@ type
 
   { IContratosCliente_DetallesDelta }
   IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
-  ['{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}']
+  ['{7F0E3428-95C8-47D6-8D41-D2FF2C661C75}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTRATOValue : Integer;
@@ -1858,6 +1871,10 @@ begin
   StrList := TStringList.Create;
   StrList.OnChange := CONDICIONES_OnChange;
   f_CONDICIONES := NewROStrings(StrList,True);
+
+  StrList := TStringList.Create;
+  StrList.OnChange := CALIDADES_OnChange;
+  f_CALIDADES := NewROStrings(StrList,True);
 end;
 
 destructor TContratosClienteBusinessProcessorRules.Destroy;
@@ -1890,6 +1907,11 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := TStringList(Sender).Text;
 end;
 
+procedure TContratosClienteBusinessProcessorRules.CALIDADES_OnChange(Sender: TObject);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES] := TStringList(Sender).Text;
+end;
+
 function TContratosClienteBusinessProcessorRules.GetIDValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID];
@@ -3301,6 +3323,34 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := Null;
 end;
 
+function TContratosClienteBusinessProcessorRules.GetCALIDADESValue: IROStrings;
+begin
+  result := f_CALIDADES;
+  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetCALIDADESIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldCALIDADESValue: IROStrings;
+begin
+  result := NewROStrings();
+  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCALIDADES];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldCALIDADESIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCALIDADES]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetCALIDADESIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES] := Null;
+end;
+
 
 { TTiposCapitulosBusinessProcessorRules }
 constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm

@@ -191,21 +191,21 @@ object RptContratosCliente: TRptContratosCliente
               'A,'#10'    V_CONTRATOS_CLIENTE.FECHA_CONTRATO,'#10'    V_CONTRATOS_CLIEN' +
               'TE.REFERENCIA,'#10#10'    V_CONTRATOS_CLIENTE.FORMA_PAGO,'#10'    V_CONTRA' +
               'TOS_CLIENTE.PLAZO_ENTREGA,'#10'    V_CONTRATOS_CLIENTE.OBSERVACIONES' +
-              ','#10#10'    V_CONTRATOS_CLIENTE.IMPORTE_NETO, V_CONTRATOS_CLIENTE.IMP' +
+              ','#10'    V_CONTRATOS_CLIENTE.CALIDADES,'#10#10'    V_CONTRATOS_CLIENTE.IM' +
-              'ORTE_PORTE,'#10'    V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIEN' +
+              'PORTE_NETO, V_CONTRATOS_CLIENTE.IMPORTE_PORTE,'#10'    V_CONTRATOS_C' +
-              'TE.IMPORTE_DESCUENTO,'#10'    V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_' +
+              'LIENTE.DESCUENTO, V_CONTRATOS_CLIENTE.IMPORTE_DESCUENTO,'#10'    V_C' +
-              'CONTRATOS_CLIENTE.IVA,'#10'    V_CONTRATOS_CLIENTE.RE, V_CONTRATOS_C' +
+              'ONTRATOS_CLIENTE.BASE_IMPONIBLE, V_CONTRATOS_CLIENTE.IVA,'#10'    V_' +
-              'LIENTE.IMPORTE_RE,'#10'    V_CONTRATOS_CLIENTE.ID_CLIENTE,'#10'    V_CON' +
+              'CONTRATOS_CLIENTE.RE, V_CONTRATOS_CLIENTE.IMPORTE_RE,'#10'    V_CONT' +
-              'TRATOS_CLIENTE.REF_CLIENTE,'#10'    V_CONTRATOS_CLIENTE.NIF_CIF,'#10'   ' +
+              'RATOS_CLIENTE.ID_CLIENTE,'#10'    V_CONTRATOS_CLIENTE.REF_CLIENTE,'#10' ' +
-              ' V_CONTRATOS_CLIENTE.NOMBRE,'#10'    V_CONTRATOS_CLIENTE.CALLE,'#10'    ' +
+              '   V_CONTRATOS_CLIENTE.NIF_CIF,'#10'    V_CONTRATOS_CLIENTE.NOMBRE,'#10 +
-              'V_CONTRATOS_CLIENTE.POBLACION,'#10'    V_CONTRATOS_CLIENTE.PROVINCIA' +
+              '    V_CONTRATOS_CLIENTE.CALLE,'#10'    V_CONTRATOS_CLIENTE.POBLACION' +
-              ','#10'    V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10'    V_CONTRATOS_CLIENTE' +
+              ','#10'    V_CONTRATOS_CLIENTE.PROVINCIA,'#10'    V_CONTRATOS_CLIENTE.COD' +
-              '.TELEFONO,'#10'    V_CONTRATOS_CLIENTE.MOVIL,'#10'    V_CONTRATOS_CLIENT' +
+              'IGO_POSTAL,'#10'    V_CONTRATOS_CLIENTE.TELEFONO,'#10'    V_CONTRATOS_CL' +
-              'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10'    V_CONTRATO' +
+              'IENTE.MOVIL,'#10'    V_CONTRATOS_CLIENTE.IMPORTE_IVA, V_CONTRATOS_CL' +
-              'S_CLIENTE.PERSONA_CONTACTO,'#10'    V_CONTRATOS_CLIENTE.VENDEDOR,'#10'  ' +
+              'IENTE.IMPORTE_TOTAL,'#10'    V_CONTRATOS_CLIENTE.PERSONA_CONTACTO,'#10' ' +
-              '  V_CONTRATOS_CLIENTE.TIPO_CONTRATO,'#10'    V_CONTRATOS_CLIENTE.CON' +
+              '   V_CONTRATOS_CLIENTE.VENDEDOR,'#10'    V_CONTRATOS_CLIENTE.TIPO_CO' +
-              'DICIONES'#10'FROM'#10'    V_CONTRATOS_CLIENTE'#10'WHERE'#10'    V_CONTRATOS_CLIE' +
+              'NTRATO,'#10'    V_CONTRATOS_CLIENTE.CONDICIONES'#10'FROM'#10'    V_CONTRATOS' +
-              'NTE.ID = :ID'#10
+              '_CLIENTE'#10'WHERE'#10'    V_CONTRATOS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -331,10 +331,18 @@ object RptContratosCliente: TRptContratosCliente
               item
                 DatasetField = 'CONDICIONES'
                 TableField = 'CONDICIONES'
+              end
+              item
+                DatasetField = 'CALIDADES'
+                TableField = 'CALIDADES'
               end>
           end>
         Name = 'Informe_Cabecera'
         Fields = <
+          item
+            Name = 'CALIDADES'
+            DataType = datMemo
+          end
           item
             Name = 'ID'
             DataType = datInteger
@@ -1017,7 +1025,7 @@ object RptContratosCliente: TRptContratosCliente
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 41513.574229155090000000
+    ReportOptions.LastChange = 41590.494716782410000000
     ScriptLanguage = 'PascalScript'
     ShowProgress = False
     StoreInDFM = False

Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm

@@ -430,6 +430,10 @@ object srvContratosCliente: TsrvContratosCliente
               item
                 DatasetField = 'CONDICIONES'
                 TableField = 'CONDICIONES'
+              end
+              item
+                DatasetField = 'CALIDADES'
+                TableField = 'CALIDADES'
               end>
           end>
         Name = 'ContratosCliente'
@@ -686,6 +690,12 @@ object srvContratosCliente: TsrvContratosCliente
           item
             Name = 'CONDICIONES'
             DataType = datMemo
+            DictionaryEntry = 'ContratosCliente_CONDICIONES'
+          end
+          item
+            Name = 'CALIDADES'
+            DataType = datMemo
+            DictionaryEntry = 'ContratosCliente_CALIDADES'
           end>
       end
       item
@@ -936,6 +946,11 @@ object srvContratosCliente: TsrvContratosCliente
     Commands = <
       item
         Params = <
+          item
+            Name = 'CALIDADES'
+            DataType = datMemo
+            Value = ''
+          end
           item
             Name = 'ID'
             DataType = datAutoInc
@@ -1154,16 +1169,17 @@ object srvContratosCliente: TsrvContratosCliente
               'MPORTE_DESCUENTO,'#10'     BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
               '_IVA,'#10'     IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
               ' PERSONA_CONTACTO,'#10'     RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
-              'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES)'#10'  VALUES'#10'    (:ID, :I' +
+              'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10'     CALIDADES)'#10'  VAL' +
-              'D_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION,' +
+              'UES'#10'    (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CA' +
-              ' :PROVINCIA,'#10'     :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, ' +
+              'LLE, :POBLACION, :PROVINCIA,'#10'     :CODIGO_POSTAL, :REFERENCIA, :' +
-              ':SITUACION, :FORMA_PAGO,'#10'     :PLAZO_ENTREGA, :OBSERVACIONES, :I' +
+              'FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10'     :PLAZO_ENTREGA, :O' +
-              'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10'     :USUAR' +
+              'BSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMEST' +
-              'IO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENT' +
+              'AMP,'#10'     :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :' +
-              'O,'#10'     :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPO' +
+              'IMPORTE_DESCUENTO,'#10'     :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IM' +
-              'RTE_TOTAL, :ID_FORMA_PAGO,'#10'     :ID_TIENDA, :ID_VENDEDOR, :PERSO' +
+              'PORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10'     :ID_TIENDA, :ID_' +
-              'NA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10'     :TELE' +
+              'VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALE' +
-              'FONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES)'#10#10
+              'NCIA,'#10'     :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CAL' +
+              'IDADES)'#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1189,6 +1205,11 @@ object srvContratosCliente: TsrvContratosCliente
       end
       item
         Params = <
+          item
+            Name = 'CALIDADES'
+            DataType = datMemo
+            Value = ''
+          end
           item
             Name = 'ID'
             DataType = datAutoInc
@@ -1421,8 +1442,8 @@ object srvContratosCliente: TsrvContratosCliente
               'TO = :PERSONA_CONTACTO,'#10'    RE = :RE,'#10'    IMPORTE_RE = :IMPORTE_' +
               'RE,'#10'    RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10'    TELEFO' +
               'NO = :TELEFONO,'#10'    MOVIL = :MOVIL,'#10'    TIPO_CONTRATO = :TIPO_CO' +
-              'NTRATO,'#10'    CONDICIONES = :CONDICIONES'#10'  WHERE'#10'    (ID = :OLD_ID' +
+              'NTRATO,'#10'    CONDICIONES = :CONDICIONES,'#10'    CALIDADES = :CALIDAD' +
-              ')'#10#10
+              'ES'#10'  WHERE'#10'    (ID = :OLD_ID)'#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -2058,6 +2079,15 @@ object srvContratosCliente: TsrvContratosCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'Tipo'
+      end
+      item
+        Name = 'ContratosCliente_CALIDADES'
+        DataType = datMemo
+        DisplayLabel = 'Calidades'
+      end
+      item
+        Name = 'ContratosCliente_CONDICIONES'
+        DataType = datMemo
       end>
     Left = 48
     Top = 152

Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm

@@ -174,7 +174,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
   inherited pgPaginas: TPageControl
     Width = 866
     Height = 308
-    ActivePage = pagCondiciones
+    ActivePage = pagCalidades
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitWidth = 866
@@ -235,57 +235,57 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
             ExplicitWidth = 90
           end
           inherited UpDown1: TUpDown
-            Left = 603
+            Left = 619
             Top = 0
-            ExplicitLeft = 603
+            ExplicitLeft = 619
             ExplicitTop = 0
           end
           inherited ToolButton13: TToolButton
-            Left = 620
+            Left = 636
             Top = 0
-            ExplicitLeft = 620
+            ExplicitLeft = 636
             ExplicitTop = 0
           end
           inherited ToolButton6: TToolButton
-            Left = 628
+            Left = 644
             Top = 0
-            ExplicitLeft = 628
+            ExplicitLeft = 644
             ExplicitTop = 0
           end
           inherited ToolButton7: TToolButton
-            Left = 662
+            Left = 678
             Top = 0
-            ExplicitLeft = 662
+            ExplicitLeft = 678
             ExplicitTop = 0
           end
           inherited ToolButton8: TToolButton
-            Left = 696
+            Left = 712
             Top = 0
-            ExplicitLeft = 696
+            ExplicitLeft = 712
             ExplicitTop = 0
           end
           inherited ToolButton12: TToolButton
-            Left = 730
+            Left = 746
             Top = 0
-            ExplicitLeft = 730
+            ExplicitLeft = 746
             ExplicitTop = 0
           end
           inherited ToolButton9: TToolButton
-            Left = 738
+            Left = 754
             Top = 0
-            ExplicitLeft = 738
+            ExplicitLeft = 754
             ExplicitTop = 0
           end
           inherited ToolButton10: TToolButton
-            Left = 772
+            Left = 788
             Top = 0
-            ExplicitLeft = 772
+            ExplicitLeft = 788
             ExplicitTop = 0
           end
           inherited ToolButton11: TToolButton
-            Left = 806
+            Left = 822
             Top = 0
-            ExplicitLeft = 806
+            ExplicitLeft = 822
             ExplicitTop = 0
           end
         end
@@ -303,7 +303,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
           ExplicitTop = 24
           ExplicitWidth = 858
           inherited TBXToolbar1: TTBXToolbar
-            ExplicitWidth = 665
+            ExplicitWidth = 663
           end
         end
         inherited cxLookupComboBox1: TcxLookupComboBox
@@ -317,6 +317,51 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
         end
       end
     end
+    object pagCalidades: TTabSheet
+      Caption = 'Calidades'
+      ImageIndex = 5
+      object dxLayoutControl2: TdxLayoutControl
+        Left = 0
+        Top = 0
+        Width = 858
+        Height = 280
+        Align = alClient
+        TabOrder = 0
+        TabStop = False
+        AutoContentSizes = [acsWidth, acsHeight]
+        object memCalidades: TcxDBMemo
+          Left = 10
+          Top = 10
+          Align = alClient
+          DataBinding.DataField = 'CALIDADES'
+          DataBinding.DataSource = dsDataTable
+          Properties.ScrollBars = ssVertical
+          Style.BorderColor = clWindowFrame
+          Style.BorderStyle = ebs3D
+          Style.HotTrack = False
+          Style.LookAndFeel.Kind = lfStandard
+          Style.LookAndFeel.NativeStyle = True
+          StyleDisabled.LookAndFeel.Kind = lfStandard
+          StyleDisabled.LookAndFeel.NativeStyle = True
+          StyleFocused.LookAndFeel.Kind = lfStandard
+          StyleFocused.LookAndFeel.NativeStyle = True
+          StyleHot.LookAndFeel.Kind = lfStandard
+          StyleHot.LookAndFeel.NativeStyle = True
+          TabOrder = 0
+          Height = 247
+          Width = 799
+        end
+        object dxLayoutGroup1: TdxLayoutGroup
+          ShowCaption = False
+          Hidden = True
+          ShowBorder = False
+          object dxLayoutItem1: TdxLayoutItem
+            Control = memCalidades
+            ControlOptions.ShowBorder = False
+          end
+        end
+      end
+    end
     object pagCondiciones: TTabSheet
       Caption = 'Condiciones'
       ImageIndex = 4

Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas

@@ -42,6 +42,11 @@ type
     dxLayoutControl1: TdxLayoutControl;
     dxLayoutControl1Item1: TdxLayoutItem;
     memCondiciones: TcxDBMemo;
+    pagCalidades: TTabSheet;
+    dxLayoutControl2: TdxLayoutControl;
+    memCalidades: TcxDBMemo;
+    dxLayoutGroup1: TdxLayoutGroup;
+    dxLayoutItem1: TdxLayoutItem;
 
     procedure FormShow(Sender: TObject);
     procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -23,31 +23,37 @@ const
   CTE_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA';
   CTE_OBSERVACIONES_COCINA = 'OBSERVACIONES_COCINA';
   CTE_CONDICIONES_COCINA = 'CONDICIONES_COCINA';
+  CTE_CALIDADES_COCINA = 'CALIDADES_COCINA';
 
   CTE_FORMA_PAGO_ARMARIO = 'FORMA_PAGO_ARMARIO';
   CTE_PLAZOS_ENTREGA_ARMARIO = 'PLAZOS_ENTREGA_ARMARIO';
   CTE_OBSERVACIONES_ARMARIO = 'OBSERVACIONES_ARMARIO';
   CTE_CONDICIONES_ARMARIO = 'CONDICIONES_ARMARIO';
+  CTE_CALIDADES_ARMARIO = 'CALIDADES_ARMARIO';
 
   CTE_FORMA_PAGO_BANO = 'FORMA_PAGO_BANO';
   CTE_PLAZOS_ENTREGA_BANO = 'PLAZOS_ENTREGA_BANO';
   CTE_OBSERVACIONES_BANO = 'OBSERVACIONES_BANO';
   CTE_CONDICIONES_BANO = 'CONDICIONES_BANO';
+  CTE_CALIDADES_BANO = 'CALIDADES_BANO';
 
   CTE_FORMA_PAGO_ELECTRODOMESTICO = 'FORMA_PAGO_ELECTRODOMESTICO';
   CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO = 'PLAZOS_ENTREGA_ELECTRODOMESTICO';
   CTE_OBSERVACIONES_ELECTRODOMESTICO = 'OBSERVACIONES_ELECTRODOMESTICO';
   CTE_CONDICIONES_ELECTRODOMESTICO = 'CONDICIONES_ELECTRODOMESTICO';
+  CTE_CALIDADES_ELECTRODOMESTICO = 'CALIDADES_ELECTRODOMESTICO';
 
   CTE_FORMA_PAGO_VARIOS = 'FORMA_PAGO_VARIOS';
   CTE_PLAZOS_ENTREGA_VARIOS = 'PLAZOS_ENTREGA_VARIOS';
   CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS';
   CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS';
+  CTE_CALIDADES_VARIOS = 'CALIDADES_VARIOS';
 
   CTE_FORMA_PAGO_OBRA = 'FORMA_PAGO_OBRA';
   CTE_PLAZOS_ENTREGA_OBRA = 'PLAZOS_ENTREGA_OBRA';
   CTE_OBSERVACIONES_OBRA = 'OBSERVACIONES_OBRA';
   CTE_CONDICIONES_OBRA = 'CONDICIONES_OBRA';
+  CTE_CALIDADES_OBRA = 'CALIDADES_OBRA';
 
 type
   TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios);
@@ -895,6 +901,7 @@ begin
         APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA));
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
+        APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA));
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles);
@@ -905,6 +912,7 @@ begin
         APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO));
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO));
+        APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO));
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, APresupuesto.Detalles);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, APresupuesto.Detalles);
       end;
@@ -914,6 +922,7 @@ begin
         APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO));
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO));
+        APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO));        
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, APresupuesto.Detalles);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
       end;
@@ -923,6 +932,7 @@ begin
         APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO));
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO));
+        APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO));
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, APresupuesto.Detalles);
       end;
     teObra:
@@ -931,6 +941,7 @@ begin
         APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA));
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA));
+        APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA));
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, APresupuesto.Detalles);
       end;
     teVarios:
@@ -939,6 +950,7 @@ begin
         APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS));
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS));
+        APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS));
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, APresupuesto.Detalles);
       end;
   end;

Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm

@@ -26,6 +26,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
   object tbl_PresupuestosCliente: TDAMemDataTable
     RemoteUpdatesOptions = []
     Fields = <
+      item
+        Name = 'CALIDADES'
+        DataType = datMemo
+        DisplayLabel = 'Calidades'
+      end
       item
         Name = 'ID'
         DataType = datAutoInc
@@ -49,6 +54,8 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
       item
         Name = 'FECHA_VIGENCIA'
         DataType = datDateTime
+        DisplayLabel = 'PresupuestosCliente_FECHA_VIGENCIA'
+        DictionaryEntry = 'PresupuestosCliente_FECHA_VIGENCIA'
       end
       item
         Name = 'FECHA_DECISION'
@@ -78,6 +85,8 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
       item
         Name = 'ID_DIRECCION'
         DataType = datInteger
+        DisplayLabel = 'PresupuestosCliente_ID_DIRECCION'
+        DictionaryEntry = 'PresupuestosCliente_ID_DIRECCION'
       end
       item
         Name = 'NIF_CIF'
@@ -99,14 +108,20 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         Name = 'PERSONA_CONTACTO'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Persona de contacto'
+        DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO'
       end
       item
         Name = 'FORMA_PAGO'
         DataType = datMemo
+        DisplayLabel = 'PresupuestosCliente_FORMA_PAGO'
+        DictionaryEntry = 'PresupuestosCliente_FORMA_PAGO'
       end
       item
         Name = 'PLAZO_ENTREGA'
         DataType = datMemo
+        DisplayLabel = 'PresupuestosCliente_PLAZO_ENTREGA'
+        DictionaryEntry = 'PresupuestosCliente_PLAZO_ENTREGA'
       end
       item
         Name = 'OBSERVACIONES'
@@ -179,6 +194,8 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
       item
         Name = 'ID_TIPO_IVA'
         DataType = datInteger
+        DisplayLabel = 'PresupuestosCliente_ID_TIPO_IVA'
+        DictionaryEntry = 'PresupuestosCliente_ID_TIPO_IVA'
       end
       item
         Name = 'IVA'
@@ -197,14 +214,20 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
       item
         Name = 'RE'
         DataType = datFloat
+        DisplayLabel = 'PresupuestosCliente_RE'
+        DictionaryEntry = 'PresupuestosCliente_RE'
       end
       item
         Name = 'IMPORTE_RE'
         DataType = datCurrency
+        DisplayLabel = 'PresupuestosCliente_IMPORTE_RE'
+        DictionaryEntry = 'PresupuestosCliente_IMPORTE_RE'
       end
       item
         Name = 'RECARGO_EQUIVALENCIA'
         DataType = datSmallInt
+        DisplayLabel = 'PresupuestosCliente_RECARGO_EQUIVALENCIA'
+        DictionaryEntry = 'PresupuestosCliente_RECARGO_EQUIVALENCIA'
       end
       item
         Name = 'IMPORTE_TOTAL'
@@ -221,33 +244,47 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
       item
         Name = 'ID_TIENDA'
         DataType = datInteger
+        DisplayLabel = 'PresupuestosCliente_ID_TIENDA'
+        DictionaryEntry = 'PresupuestosCliente_ID_TIENDA'
       end
       item
         Name = 'TIENDA'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PresupuestosCliente_TIENDA'
+        DictionaryEntry = 'PresupuestosCliente_TIENDA'
       end
       item
         Name = 'ID_VENDEDOR'
         DataType = datInteger
+        DisplayLabel = 'PresupuestosCliente_ID_VENDEDOR'
+        DictionaryEntry = 'PresupuestosCliente_ID_VENDEDOR'
       end
       item
         Name = 'VENDEDOR'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PresupuestosCliente_VENDEDOR'
+        DictionaryEntry = 'PresupuestosCliente_VENDEDOR'
       end
       item
         Name = 'ID_CONTRATO'
         DataType = datInteger
+        DisplayLabel = 'PresupuestosCliente_ID_CONTRATO'
+        DictionaryEntry = 'PresupuestosCliente_ID_CONTRATO'
       end
       item
         Name = 'REF_CONTRATO'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PresupuestosCliente_REF_CONTRATO'
+        DictionaryEntry = 'PresupuestosCliente_REF_CONTRATO'
       end
       item
         Name = 'NO_VALORADO'
         DataType = datSmallInt
+        DisplayLabel = 'PresupuestosCliente_NO_VALORADO'
+        DictionaryEntry = 'PresupuestosCliente_NO_VALORADO'
       end
       item
         Name = 'TIPO_PRESUPUESTO'

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 = '{01240DD5-A0EB-453D-82E2-811190BCCCB0}';
+  RID_Valores = '{F595E737-38D5-4136-AFD4-5757F25F6EF8}';
-  RID_Propiedades = '{84FE1A88-2F78-4428-8BE5-AB6823809F69}';
+  RID_Propiedades = '{CBC06F9E-0133-4EF7-8E2D-58220BA8DDA9}';
-  RID_ListaAnosPresupuestos = '{F179C1AE-48C3-4E76-87FB-6BB6AA0B9953}';
+  RID_ListaAnosPresupuestos = '{D786DD19-6B5D-423D-B297-0C4013A9C199}';
-  RID_PresupuestosCliente = '{7C99E973-7D22-467E-B0D2-232A872F4AD0}';
+  RID_PresupuestosCliente = '{34EA2D75-66D0-4D4C-8E5E-44EBF0D67C55}';
-  RID_CapitulosPresupuesto = '{96502DDF-3960-4105-B99D-D1F12570194E}';
+  RID_CapitulosPresupuesto = '{1F64878E-DBCB-4B12-929A-DBD3F2E99119}';
-  RID_PresupuestosCliente_Detalles = '{E263EC66-1B4A-4341-B7EF-18026268971D}';
+  RID_PresupuestosCliente_Detalles = '{11B0814E-C750-4649-A479-C9C5FB17ABA4}';
 
   { Data table names }
   nme_Valores = 'Valores';
@@ -57,6 +57,7 @@ const
   idx_ListaAnosPresupuestosANO = 0;
 
   { PresupuestosCliente fields }
+  fld_PresupuestosClienteCALIDADES = 'CALIDADES';
   fld_PresupuestosClienteID = 'ID';
   fld_PresupuestosClienteID_EMPRESA = 'ID_EMPRESA';
   fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO';
@@ -100,47 +101,48 @@ const
   fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO';
 
   { PresupuestosCliente field indexes }
-  idx_PresupuestosClienteID = 0;
+  idx_PresupuestosClienteCALIDADES = 0;
-  idx_PresupuestosClienteID_EMPRESA = 1;
+  idx_PresupuestosClienteID = 1;
-  idx_PresupuestosClienteFECHA_PRESUPUESTO = 2;
+  idx_PresupuestosClienteID_EMPRESA = 2;
-  idx_PresupuestosClienteFECHA_VIGENCIA = 3;
+  idx_PresupuestosClienteFECHA_PRESUPUESTO = 3;
-  idx_PresupuestosClienteFECHA_DECISION = 4;
+  idx_PresupuestosClienteFECHA_VIGENCIA = 4;
-  idx_PresupuestosClienteREFERENCIA = 5;
+  idx_PresupuestosClienteFECHA_DECISION = 5;
-  idx_PresupuestosClienteSITUACION = 6;
+  idx_PresupuestosClienteREFERENCIA = 6;
-  idx_PresupuestosClienteID_CLIENTE = 7;
+  idx_PresupuestosClienteSITUACION = 7;
-  idx_PresupuestosClienteID_DIRECCION = 8;
+  idx_PresupuestosClienteID_CLIENTE = 8;
-  idx_PresupuestosClienteNIF_CIF = 9;
+  idx_PresupuestosClienteID_DIRECCION = 9;
-  idx_PresupuestosClienteNOMBRE = 10;
+  idx_PresupuestosClienteNIF_CIF = 10;
-  idx_PresupuestosClientePERSONA_CONTACTO = 11;
+  idx_PresupuestosClienteNOMBRE = 11;
-  idx_PresupuestosClienteFORMA_PAGO = 12;
+  idx_PresupuestosClientePERSONA_CONTACTO = 12;
-  idx_PresupuestosClientePLAZO_ENTREGA = 13;
+  idx_PresupuestosClienteFORMA_PAGO = 13;
-  idx_PresupuestosClienteOBSERVACIONES = 14;
+  idx_PresupuestosClientePLAZO_ENTREGA = 14;
-  idx_PresupuestosClienteINCIDENCIAS = 15;
+  idx_PresupuestosClienteOBSERVACIONES = 15;
-  idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16;
+  idx_PresupuestosClienteINCIDENCIAS = 16;
-  idx_PresupuestosClienteFECHA_ALTA = 17;
+  idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 17;
-  idx_PresupuestosClienteFECHA_MODIFICACION = 18;
+  idx_PresupuestosClienteFECHA_ALTA = 18;
-  idx_PresupuestosClienteUSUARIO = 19;
+  idx_PresupuestosClienteFECHA_MODIFICACION = 19;
-  idx_PresupuestosClienteIMPORTE_NETO = 20;
+  idx_PresupuestosClienteUSUARIO = 20;
-  idx_PresupuestosClienteIMPORTE_PORTE = 21;
+  idx_PresupuestosClienteIMPORTE_NETO = 21;
-  idx_PresupuestosClienteDESCUENTO = 22;
+  idx_PresupuestosClienteIMPORTE_PORTE = 22;
-  idx_PresupuestosClienteIMPORTE_DESCUENTO = 23;
+  idx_PresupuestosClienteDESCUENTO = 23;
-  idx_PresupuestosClienteBASE_IMPONIBLE = 24;
+  idx_PresupuestosClienteIMPORTE_DESCUENTO = 24;
-  idx_PresupuestosClienteID_TIPO_IVA = 25;
+  idx_PresupuestosClienteBASE_IMPONIBLE = 25;
-  idx_PresupuestosClienteIVA = 26;
+  idx_PresupuestosClienteID_TIPO_IVA = 26;
-  idx_PresupuestosClienteIMPORTE_IVA = 27;
+  idx_PresupuestosClienteIVA = 27;
-  idx_PresupuestosClienteRE = 28;
+  idx_PresupuestosClienteIMPORTE_IVA = 28;
-  idx_PresupuestosClienteIMPORTE_RE = 29;
+  idx_PresupuestosClienteRE = 29;
-  idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 30;
+  idx_PresupuestosClienteIMPORTE_RE = 30;
-  idx_PresupuestosClienteIMPORTE_TOTAL = 31;
+  idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 31;
-  idx_PresupuestosClienteID_FORMA_PAGO = 32;
+  idx_PresupuestosClienteIMPORTE_TOTAL = 32;
-  idx_PresupuestosClienteID_TIENDA = 33;
+  idx_PresupuestosClienteID_FORMA_PAGO = 33;
-  idx_PresupuestosClienteTIENDA = 34;
+  idx_PresupuestosClienteID_TIENDA = 34;
-  idx_PresupuestosClienteID_VENDEDOR = 35;
+  idx_PresupuestosClienteTIENDA = 35;
-  idx_PresupuestosClienteVENDEDOR = 36;
+  idx_PresupuestosClienteID_VENDEDOR = 36;
-  idx_PresupuestosClienteID_CONTRATO = 37;
+  idx_PresupuestosClienteVENDEDOR = 37;
-  idx_PresupuestosClienteREF_CONTRATO = 38;
+  idx_PresupuestosClienteID_CONTRATO = 38;
-  idx_PresupuestosClienteNO_VALORADO = 39;
+  idx_PresupuestosClienteREF_CONTRATO = 39;
-  idx_PresupuestosClienteTIPO_PRESUPUESTO = 40;
+  idx_PresupuestosClienteNO_VALORADO = 40;
+  idx_PresupuestosClienteTIPO_PRESUPUESTO = 41;
 
   { CapitulosPresupuesto fields }
   fld_CapitulosPresupuestoID = 'ID';
@@ -209,7 +211,7 @@ const
 type
   { IValores }
   IValores = interface(IDAStronglyTypedDataTable)
-  ['{C10745AB-25B0-4C44-B0F9-6FB4D71D3575}']
+  ['{6AAE0E7B-A1FC-4518-BCAB-ED352C578B1B}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -316,7 +318,7 @@ type
 
   { IPropiedades }
   IPropiedades = interface(IDAStronglyTypedDataTable)
-  ['{58959861-2906-481E-9128-89F3C54D24D4}']
+  ['{D8C6A56F-07F3-41B3-8C4A-8907BD2C6CD7}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -363,7 +365,7 @@ type
 
   { IListaAnosPresupuestos }
   IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{8C8359FD-8B9C-40FB-AAA7-F99D251D6EBA}']
+  ['{71555714-D8E6-431C-8612-6110C535E9E9}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -398,8 +400,11 @@ type
 
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{24023A22-7BF2-416E-AD04-A496E6F9E4C1}']
+  ['{49DE2369-0531-479D-98D6-A1B1FFA0D767}']
     { Property getters and setters }
+    function GetCALIDADESValue: IROStrings;
+    function GetCALIDADESIsNull: Boolean;
+    procedure SetCALIDADESIsNull(const aValue: Boolean);
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
     function GetIDIsNull: Boolean;
@@ -563,6 +568,8 @@ type
 
 
     { Properties }
+    property CALIDADES: IROStrings read GetCALIDADESValue;
+    property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
     property ID: Integer read GetIDValue write SetIDValue;
     property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
@@ -650,16 +657,21 @@ type
   { TPresupuestosClienteDataTableRules }
   TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
   private
+    f_CALIDADES: IROStrings;
     f_FORMA_PAGO: IROStrings;
     f_PLAZO_ENTREGA: IROStrings;
     f_OBSERVACIONES: IROStrings;
     f_INCIDENCIAS: IROStrings;
+    procedure CALIDADES_OnChange(Sender: TObject);
     procedure FORMA_PAGO_OnChange(Sender: TObject);
     procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
     procedure OBSERVACIONES_OnChange(Sender: TObject);
     procedure INCIDENCIAS_OnChange(Sender: TObject);
   protected
     { Property getters and setters }
+    function GetCALIDADESValue: IROStrings; virtual;
+    function GetCALIDADESIsNull: Boolean; virtual;
+    procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
     function GetIDValue: Integer; virtual;
     procedure SetIDValue(const aValue: Integer); virtual;
     function GetIDIsNull: Boolean; virtual;
@@ -822,6 +834,8 @@ type
     procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
+    property CALIDADES: IROStrings read GetCALIDADESValue;
+    property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
     property ID: Integer read GetIDValue write SetIDValue;
     property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
@@ -913,7 +927,7 @@ type
 
   { ICapitulosPresupuesto }
   ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
-  ['{CC4491CC-4270-451B-9120-A6DBEF668324}']
+  ['{B7A20983-4BA3-4219-A117-B437AAC6979E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1068,7 +1082,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{A94CE8DD-1625-4372-8F27-2F2D25DB2912}']
+  ['{DD320F0F-A644-47A2-AC0F-58C2D86FC696}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1550,6 +1564,10 @@ var
 begin
   inherited;
 
+  StrList := TStringList.Create;
+  StrList.OnChange := CALIDADES_OnChange;
+  f_CALIDADES := NewROStrings(StrList,True);
+
   StrList := TStringList.Create;
   StrList.OnChange := FORMA_PAGO_OnChange;
   f_FORMA_PAGO := NewROStrings(StrList,True);
@@ -1572,6 +1590,11 @@ begin
   inherited;
 end;
 
+procedure TPresupuestosClienteDataTableRules.CALIDADES_OnChange(Sender: TObject);
+begin
+  if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := TStringList(Sender).Text;
+end;
+
 procedure TPresupuestosClienteDataTableRules.FORMA_PAGO_OnChange(Sender: TObject);
 begin
   if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteFORMA_PAGO].AsVariant := TStringList(Sender).Text;
@@ -1592,6 +1615,23 @@ begin
   if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text;
 end;
 
+function TPresupuestosClienteDataTableRules.GetCALIDADESValue: IROStrings;
+begin
+  result := f_CALIDADES;
+  result.Text := DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsString;
+end;
+
+function TPresupuestosClienteDataTableRules.GetCALIDADESIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteCALIDADES].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetCALIDADESIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := Null;
+end;
+
 function TPresupuestosClienteDataTableRules.GetIDValue: Integer;
 begin
   result := DataTable.Fields[idx_PresupuestosClienteID].AsInteger;

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 = '{416F5769-AE40-4A91-AC03-BAEE67591266}';
+  RID_ValoresDelta = '{2B3EF096-6069-48F1-9372-FE2E3B086A6A}';
-  RID_PropiedadesDelta = '{79C29CFD-CEB2-4958-A514-0F08DFA587C1}';
+  RID_PropiedadesDelta = '{EA2F95CA-4260-4E0E-B470-E62AB00CCACC}';
-  RID_ListaAnosPresupuestosDelta = '{5AD64A70-834D-4211-B4E2-CF197FBED98B}';
+  RID_ListaAnosPresupuestosDelta = '{843FE025-D441-4A64-9BA6-7CE3C254BFD2}';
-  RID_PresupuestosClienteDelta = '{A9E95F7E-9B12-460D-A255-24BBF1AA5E58}';
+  RID_PresupuestosClienteDelta = '{42FD0DC8-EB18-4B9C-AD03-82664BA0BCDA}';
-  RID_CapitulosPresupuestoDelta = '{793834E6-6B3C-4618-99AF-A6629F835A46}';
+  RID_CapitulosPresupuestoDelta = '{875DBE7F-AAE9-4CD9-8C77-566DDDC99AD3}';
-  RID_PresupuestosCliente_DetallesDelta = '{625AFBDA-44C7-4EE0-B18E-3803CFAC970C}';
+  RID_PresupuestosCliente_DetallesDelta = '{D4644817-86F3-4A5E-B5D0-69ABAC6EC6FE}';
 
 type
   { IValoresDelta }
   IValoresDelta = interface(IValores)
-  ['{416F5769-AE40-4A91-AC03-BAEE67591266}']
+  ['{2B3EF096-6069-48F1-9372-FE2E3B086A6A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -125,7 +125,7 @@ type
 
   { IPropiedadesDelta }
   IPropiedadesDelta = interface(IPropiedades)
-  ['{79C29CFD-CEB2-4958-A514-0F08DFA587C1}']
+  ['{EA2F95CA-4260-4E0E-B470-E62AB00CCACC}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -171,7 +171,7 @@ type
 
   { IListaAnosPresupuestosDelta }
   IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
-  ['{5AD64A70-834D-4211-B4E2-CF197FBED98B}']
+  ['{843FE025-D441-4A64-9BA6-7CE3C254BFD2}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -205,8 +205,9 @@ type
 
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{A9E95F7E-9B12-460D-A255-24BBF1AA5E58}']
+  ['{42FD0DC8-EB18-4B9C-AD03-82664BA0BCDA}']
     { Property getters and setters }
+    function GetOldCALIDADESValue : IROStrings;
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
     function GetOldFECHA_PRESUPUESTOValue : DateTime;
@@ -250,6 +251,7 @@ type
     function GetOldTIPO_PRESUPUESTOValue : String;
 
     { Properties }
+    property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
     property OldID : Integer read GetOldIDValue;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue;
@@ -296,16 +298,23 @@ type
   { TPresupuestosClienteBusinessProcessorRules }
   TPresupuestosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPresupuestosCliente, IPresupuestosClienteDelta)
   private
+    f_CALIDADES: IROStrings;
     f_FORMA_PAGO: IROStrings;
     f_PLAZO_ENTREGA: IROStrings;
     f_OBSERVACIONES: IROStrings;
     f_INCIDENCIAS: IROStrings;
+    procedure CALIDADES_OnChange(Sender: TObject);
     procedure FORMA_PAGO_OnChange(Sender: TObject);
     procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
     procedure OBSERVACIONES_OnChange(Sender: TObject);
     procedure INCIDENCIAS_OnChange(Sender: TObject);
   protected
     { Property getters and setters }
+    function GetCALIDADESValue: IROStrings; virtual;
+    function GetCALIDADESIsNull: Boolean; virtual;
+    function GetOldCALIDADESValue: IROStrings; virtual;
+    function GetOldCALIDADESIsNull: Boolean; virtual;
+    procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
     function GetIDValue: Integer; virtual;
     function GetIDIsNull: Boolean; virtual;
     function GetOldIDValue: Integer; virtual;
@@ -550,6 +559,10 @@ type
     procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
+    property CALIDADES : IROStrings read GetCALIDADESValue;
+    property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
+    property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
+    property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull;
     property ID : Integer read GetIDValue write SetIDValue;
     property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
     property OldID : Integer read GetOldIDValue;
@@ -723,7 +736,7 @@ type
 
   { ICapitulosPresupuestoDelta }
   ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
-  ['{793834E6-6B3C-4618-99AF-A6629F835A46}']
+  ['{875DBE7F-AAE9-4CD9-8C77-566DDDC99AD3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldPOSICIONValue : Integer;
@@ -877,7 +890,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{625AFBDA-44C7-4EE0-B18E-3803CFAC970C}']
+  ['{D4644817-86F3-4A5E-B5D0-69ABAC6EC6FE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
@@ -1459,6 +1472,10 @@ var
 begin
   inherited;
 
+  StrList := TStringList.Create;
+  StrList.OnChange := CALIDADES_OnChange;
+  f_CALIDADES := NewROStrings(StrList,True);
+
   StrList := TStringList.Create;
   StrList.OnChange := FORMA_PAGO_OnChange;
   f_FORMA_PAGO := NewROStrings(StrList,True);
@@ -1481,6 +1498,11 @@ begin
   inherited;
 end;
 
+procedure TPresupuestosClienteBusinessProcessorRules.CALIDADES_OnChange(Sender: TObject);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := TStringList(Sender).Text;
+end;
+
 procedure TPresupuestosClienteBusinessProcessorRules.FORMA_PAGO_OnChange(Sender: TObject);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFORMA_PAGO] := TStringList(Sender).Text;
@@ -1501,6 +1523,34 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS] := TStringList(Sender).Text;
 end;
 
+function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESValue: IROStrings;
+begin
+  result := f_CALIDADES;
+  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESValue: IROStrings;
+begin
+  result := NewROStrings();
+  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetCALIDADESIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := Null;
+end;
+
 function TPresupuestosClienteBusinessProcessorRules.GetIDValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID];

Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas

@@ -277,6 +277,8 @@ begin
 
   Self.DataTable.FieldByName(fld_PresupuestosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
   Self.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
+  Self.DataTable.FieldByName(fld_PresupuestosClienteCALIDADES).AsString := AppFactuGES.CalidadesDocumentos;
+
 
   AsignarVendedor;  
 end;

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm

@@ -210,29 +210,29 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
               'ESTOS_CLIENTE.FECHA_VIGENCIA,'#10'    V_PRESUPUESTOS_CLIENTE.FECHA_D' +
               'ECISION,'#10'    V_PRESUPUESTOS_CLIENTE.REFERENCIA,'#10#10'    V_PRESUPUES' +
               'TOS_CLIENTE.FORMA_PAGO,'#10'    V_PRESUPUESTOS_CLIENTE.PLAZO_ENTREGA' +
-              ','#10'    V_PRESUPUESTOS_CLIENTE.OBSERVACIONES,'#10#10'    V_PRESUPUESTOS_' +
+              ','#10'    V_PRESUPUESTOS_CLIENTE.OBSERVACIONES,'#10'    V_PRESUPUESTOS_C' +
-              'CLIENTE.IMPORTE_NETO, V_PRESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10'    ' +
+              'LIENTE.CALIDADES,'#10#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO, V_PR' +
-              'V_PRESUPUESTOS_CLIENTE.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE' +
+              'ESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10'    V_PRESUPUESTOS_CLIENTE.DES' +
-              '_DESCUENTO,'#10'    V_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPU' +
+              'CUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10'    V_PRESUPUE' +
-              'ESTOS_CLIENTE.IVA,'#10'    V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS' +
+              'STOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10'    V_P' +
-              '_CLIENTE.IMPORTE_RE,'#10'    V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10'    ' +
+              'RESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS_CLIENTE.IMPORTE_RE,'#10'    V' +
-              'V_PRESUPUESTOS_CLIENTE.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIE' +
+              '_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10'    V_PRESUPUESTOS_CLIENTE.NIF' +
-              'NTE,'#10'    V_PRESUPUESTOS_CLIENTE.NOMBRE,'#10'    V_PRESUPUESTOS_CLIEN' +
+              '_CIF, CONTACTOS.REFERENCIA as REF_CLIENTE,'#10'    V_PRESUPUESTOS_CL' +
-              'TE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10'    COALES' +
+              'IENTE.NOMBRE,'#10'    V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESUPUE' +
-              'CE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10'    C' +
+              'STOS_CLIENTE.IMPORTE_TOTAL,'#10'    COALESCE(CONTACTOS_DIRECCIONES.C' +
-              'OALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS' +
+              'ALLE, CONTACTOS.CALLE) AS CALLE,'#10'    COALESCE(CONTACTOS_DIRECCIO' +
-              ' POBLACION,'#10'    COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTAC' +
+              'NES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10'    COALESCE(C' +
-              'TOS.PROVINCIA) AS PROVINCIA,'#10'    COALESCE(CONTACTOS_DIRECCIONES.' +
+              'ONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCI' +
-              'CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10'    CO' +
+              'A,'#10'    COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.C' +
-              'ALESCE(CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS ' +
+              'ODIGO_POSTAL) AS CODIGO_POSTAL,'#10'    COALESCE(CONTACTOS_DIRECCION' +
-              'TELEFONO,'#10'    COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MO' +
+              'ES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFONO,'#10'    COALESCE(CON' +
-              'VIL_1) AS MOVIL,'#10'    V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10'  ' +
+              'TACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS MOVIL,'#10'    V_PRE' +
-              '  V_PRESUPUESTOS_CLIENTE.VENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VAL' +
+              'SUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10'    V_PRESUPUESTOS_CLIENTE.V' +
-              'ORADO'#10'FROM'#10'    V_PRESUPUESTOS_CLIENTE'#10'    INNER JOIN CONTACTOS O' +
+              'ENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VALORADO'#10'FROM'#10'    V_PRESUPUES' +
-              'N (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10'    LEFT OU' +
+              'TOS_CLIENTE'#10'    INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUP' +
-              'TER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_' +
+              'UESTOS_CLIENTE.ID_CLIENTE)'#10'    LEFT OUTER JOIN CONTACTOS_DIRECCI' +
-              'PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10'    V_PRESUPUESTOS_CLIE' +
+              'ONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DI' +
-              'NTE.ID = :ID'#10
+              'RECCION)'#10'WHERE'#10'    V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -362,6 +362,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
               item
                 DatasetField = 'MOVIL'
                 TableField = 'MOVIL'
+              end
+              item
+                DatasetField = 'CALIDADES'
+                TableField = 'CALIDADES'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -401,6 +405,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
             Name = 'PLAZO_ENTREGA'
             DataType = datMemo
           end
+          item
+            Name = 'CALIDADES'
+            DataType = datMemo
+          end
           item
             Name = 'OBSERVACIONES'
             DataType = datMemo
@@ -876,7 +884,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 41156.501393946760000000
+    ReportOptions.LastChange = 41589.784037662040000000
     ScriptLanguage = 'PascalScript'
     ShowProgress = False
     StoreInDFM = False
@@ -1063,7 +1071,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
     Top = 128
   end
   object IBDatabase1: TIBDatabase
-    DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES_PRODUCCION.FDB'
+    Connected = True
+    DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB'
     Params.Strings = (
       'user_name=sysdba'
       'password=masterkey'
@@ -1074,6 +1083,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
     Top = 296
   end
   object IBTransaction1: TIBTransaction
+    Active = True
     Left = 48
     Top = 352
   end

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm

@@ -328,10 +328,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               item
                 DatasetField = 'TIPO_PRESUPUESTO'
                 TableField = 'TIPO_PRESUPUESTO'
+              end
+              item
+                DatasetField = 'CALIDADES'
+                TableField = 'CALIDADES'
               end>
           end>
         Name = 'PresupuestosCliente'
         Fields = <
+          item
+            Name = 'CALIDADES'
+            DataType = datMemo
+            DisplayLabel = 'Calidades'
+          end
           item
             Name = 'ID'
             DataType = datAutoInc
@@ -353,6 +362,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
           item
             Name = 'FECHA_VIGENCIA'
             DataType = datDateTime
+            DictionaryEntry = 'PresupuestosCliente_FECHA_VIGENCIA'
           end
           item
             Name = 'FECHA_DECISION'
@@ -379,6 +389,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
           item
             Name = 'ID_DIRECCION'
             DataType = datInteger
+            DictionaryEntry = 'PresupuestosCliente_ID_DIRECCION'
           end
           item
             Name = 'NIF_CIF'
@@ -398,14 +409,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'PERSONA_CONTACTO'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO'
           end
           item
             Name = 'FORMA_PAGO'
             DataType = datMemo
+            DictionaryEntry = 'PresupuestosCliente_FORMA_PAGO'
           end
           item
             Name = 'PLAZO_ENTREGA'
             DataType = datMemo
+            DictionaryEntry = 'PresupuestosCliente_PLAZO_ENTREGA'
           end
           item
             Name = 'OBSERVACIONES'
@@ -466,6 +480,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
           item
             Name = 'ID_TIPO_IVA'
             DataType = datInteger
+            DictionaryEntry = 'PresupuestosCliente_ID_TIPO_IVA'
           end
           item
             Name = 'IVA'
@@ -480,14 +495,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
           item
             Name = 'RE'
             DataType = datFloat
+            DictionaryEntry = 'PresupuestosCliente_RE'
           end
           item
             Name = 'IMPORTE_RE'
             DataType = datCurrency
+            DictionaryEntry = 'PresupuestosCliente_IMPORTE_RE'
           end
           item
             Name = 'RECARGO_EQUIVALENCIA'
             DataType = datSmallInt
+            DictionaryEntry = 'PresupuestosCliente_RECARGO_EQUIVALENCIA'
           end
           item
             Name = 'IMPORTE_TOTAL'
@@ -502,33 +520,40 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
           item
             Name = 'ID_TIENDA'
             DataType = datInteger
+            DictionaryEntry = 'PresupuestosCliente_ID_TIENDA'
           end
           item
             Name = 'TIENDA'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'PresupuestosCliente_TIENDA'
           end
           item
             Name = 'ID_VENDEDOR'
             DataType = datInteger
+            DictionaryEntry = 'PresupuestosCliente_ID_VENDEDOR'
           end
           item
             Name = 'VENDEDOR'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'PresupuestosCliente_VENDEDOR'
           end
           item
             Name = 'ID_CONTRATO'
             DataType = datInteger
+            DictionaryEntry = 'PresupuestosCliente_ID_CONTRATO'
           end
           item
             Name = 'REF_CONTRATO'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'PresupuestosCliente_REF_CONTRATO'
           end
           item
             Name = 'NO_VALORADO'
             DataType = datSmallInt
+            DictionaryEntry = 'PresupuestosCliente_NO_VALORADO'
           end
           item
             Name = 'TIPO_PRESUPUESTO'
@@ -850,6 +875,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
     Commands = <
       item
         Params = <
+          item
+            Name = 'CALIDADES'
+            DataType = datMemo
+            Value = ''
+          end
           item
             Name = 'TIPO_PRESUPUESTO'
             DataType = datString
@@ -1035,16 +1065,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'TO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
               '_IVA,'#10'     RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_TOTAL, ' +
               'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10'     ID_CONTRATO, NO_VALO' +
-              'RADO, TIPO_PRESUPUESTO)'#10'  VALUES'#10'    (:ID,'#10'     :FECHA_PRESUPUES' +
+              'RADO, TIPO_PRESUPUESTO, CALIDADES)'#10'  VALUES'#10'    (:ID,'#10'     :FECH' +
-              'TO, :FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA,'#10'     :SITUACI' +
+              'A_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA,'#10'  ' +
-              'ON, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10'     :FORMA_P' +
+              '   :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10'  ' +
-              'AGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10'     :INCIDEN' +
+              '   :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10'  ' +
-              'CIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMPOR' +
+              '   :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_N' +
-              'TE_PORTE,'#10'     :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, ' +
+              'ETO, :IMPORTE_PORTE,'#10'     :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_' +
-              ':ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10'     :RE, :IMPORTE_RE, :RECARG' +
+              'IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10'     :RE, :IMPORTE_' +
-              'O_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :ID_' +
+              'RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_T' +
-              'VENDEDOR,'#10'     :ID_CONTRATO, :NO_VALORADO, :TIPO_PRESUPUESTO)'#10'  ' +
+              'IENDA, :ID_VENDEDOR,'#10'     :ID_CONTRATO, :NO_VALORADO, :TIPO_PRES' +
-              '   '#10#10#10#10#10
+              'UPUESTO, :CALIDADES)'#10'     '#10#10#10#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1072,6 +1102,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
       end
       item
         Params = <
+          item
+            Name = 'CALIDADES'
+            DataType = datMemo
+            Value = ''
+          end
           item
             Name = 'TIPO_PRESUPUESTO'
             DataType = datString
@@ -1270,8 +1305,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'TE_TOTAL = :IMPORTE_TOTAL, '#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 +
               '    ID_TIENDA = :ID_TIENDA,'#10'    ID_VENDEDOR = :ID_VENDEDOR,'#10'    ' +
               'ID_CONTRATO = :ID_CONTRATO,'#10'    NO_VALORADO = :NO_VALORADO,'#10'    ' +
-              'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10 +
+              'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO,'#10'    CALIDADES = :CALIDADES' +
-              #10
+              #10'  WHERE'#10'    (ID = :OLD_ID)'#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -2015,6 +2050,75 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
         Name = 'PresupuestosCliente_Detalles_VISIBLE2'
         DataType = datInteger
         DisplayLabel = #191'Visible?'
+      end
+      item
+        Name = 'PresupuestosCliente_CALIDADES'
+        DataType = datMemo
+        BlobType = dabtBlob
+        DisplayLabel = 'Calidades'
+      end
+      item
+        Name = 'PresupuestosCliente_FECHA_VIGENCIA'
+        DataType = datDateTime
+      end
+      item
+        Name = 'PresupuestosCliente_ID_DIRECCION'
+        DataType = datInteger
+      end
+      item
+        Name = 'PresupuestosCliente_FORMA_PAGO'
+        DataType = datMemo
+      end
+      item
+        Name = 'PresupuestosCliente_PLAZO_ENTREGA'
+        DataType = datMemo
+      end
+      item
+        Name = 'PresupuestosCliente_ID_TIPO_IVA'
+        DataType = datInteger
+      end
+      item
+        Name = 'PresupuestosCliente_RE'
+        DataType = datFloat
+      end
+      item
+        Name = 'PresupuestosCliente_IMPORTE_RE'
+        DataType = datCurrency
+      end
+      item
+        Name = 'PresupuestosCliente_RECARGO_EQUIVALENCIA'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'PresupuestosCliente_ID_TIENDA'
+        DataType = datInteger
+      end
+      item
+        Name = 'PresupuestosCliente_TIENDA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'PresupuestosCliente_ID_VENDEDOR'
+        DataType = datInteger
+      end
+      item
+        Name = 'PresupuestosCliente_VENDEDOR'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'PresupuestosCliente_ID_CONTRATO'
+        DataType = datInteger
+      end
+      item
+        Name = 'PresupuestosCliente_REF_CONTRATO'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'PresupuestosCliente_NO_VALORADO'
+        DataType = datSmallInt
       end>
     Left = 48
     Top = 152

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm

@@ -2,11 +2,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   Left = 332
   Top = 147
   Caption = 'Nuevo presupuesto de cliente'
-  ClientHeight = 676
+  ClientHeight = 801
   ClientWidth = 848
   OnClose = CustomEditorClose
   ExplicitWidth = 856
-  ExplicitHeight = 710
+  ExplicitHeight = 835
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -165,7 +165,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     end
   end
   inherited StatusBar: TJvStatusBar
-    Top = 657
+    Top = 782
     Width = 848
     Panels = <
       item
@@ -176,8 +176,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   end
   inherited pgPaginas: TPageControl
     Width = 842
-    Height = 317
+    Height = 442
-    ActivePage = pagContenido
+    ActivePage = pagCalidades
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitWidth = 842
@@ -191,11 +191,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
+      ExplicitHeight = 289
       inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
         Left = 0
         Top = 0
         Width = 834
-        Height = 289
+        Height = 414
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -213,30 +214,21 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
           Width = 834
           Height = 24
           ExplicitWidth = 834
-          inherited ToolButton14: TToolButton [1]
+          ExplicitHeight = 24
-            Left = 109
+          inherited ToolButton4: TToolButton
-            Top = 0
-            Enabled = True
-            ExplicitLeft = 109
-            ExplicitTop = 0
-          end
-          inherited ToolButton2: TToolButton [2]
-            Left = 143
-          end
-          inherited FontName: TJvFontComboBox [3]
-            Left = 257
-            Top = 0
-            ExplicitLeft = 257
-            ExplicitTop = 0
-          end
-          inherited ToolButton3: TToolButton [4]
-            Left = 402
-            ExplicitLeft = 402
-          end
-          inherited ToolButton4: TToolButton [5]
-            Left = 457
             Wrap = False
-            ExplicitLeft = 457
+          end
+          inherited ToolButton14: TToolButton
+            Left = 334
+            Top = 0
+            ExplicitLeft = 334
+            ExplicitTop = 0
+          end
+          inherited FontName: TJvFontComboBox
+            Left = 368
+            Top = 0
+            ExplicitLeft = 368
+            ExplicitTop = 0
           end
           inherited FontSize: TEdit
             Left = 513
@@ -247,77 +239,78 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
             ExplicitWidth = 58
           end
           inherited UpDown1: TUpDown
-            Left = 571
+            Left = 587
             Top = 0
-            ExplicitLeft = 571
+            ExplicitLeft = 587
             ExplicitTop = 0
           end
           inherited ToolButton13: TToolButton
-            Left = 588
+            Left = 604
             Top = 0
-            ExplicitLeft = 588
+            ExplicitLeft = 604
             ExplicitTop = 0
           end
           inherited ToolButton6: TToolButton
-            Left = 596
+            Left = 612
             Top = 0
-            ExplicitLeft = 596
+            ExplicitLeft = 612
             ExplicitTop = 0
           end
           inherited ToolButton7: TToolButton
-            Left = 630
+            Left = 646
             Top = 0
-            ExplicitLeft = 630
+            ExplicitLeft = 646
             ExplicitTop = 0
           end
           inherited ToolButton8: TToolButton
-            Left = 664
+            Left = 680
             Top = 0
-            ExplicitLeft = 664
+            ExplicitLeft = 680
             ExplicitTop = 0
           end
           inherited ToolButton12: TToolButton
-            Left = 698
+            Left = 714
             Top = 0
-            ExplicitLeft = 698
+            ExplicitLeft = 714
             ExplicitTop = 0
           end
           inherited ToolButton9: TToolButton
-            Left = 706
+            Left = 722
             Top = 0
-            ExplicitLeft = 706
+            ExplicitLeft = 722
             ExplicitTop = 0
           end
           inherited ToolButton10: TToolButton
-            Left = 740
+            Left = 756
             Top = 0
-            ExplicitLeft = 740
+            ExplicitLeft = 756
             ExplicitTop = 0
           end
           inherited ToolButton11: TToolButton
-            Left = 774
+            Left = 790
             Top = 0
-            ExplicitLeft = 774
+            ExplicitLeft = 790
             ExplicitTop = 0
           end
         end
         inherited cxGrid: TcxGrid
           Top = 50
           Width = 834
-          Height = 239
+          Height = 364
+          ExplicitTop = 50
           ExplicitWidth = 834
           ExplicitHeight = 239
         end
         inherited TBXDock1: TTBXDock
           Top = 24
           Width = 834
+          ExplicitTop = 24
           ExplicitWidth = 834
           inherited TBXToolbar1: TTBXToolbar
             ExplicitWidth = 663
           end
         end
         inherited cxLookupComboBox1: TcxLookupComboBox
-          Properties.OnCloseUp = nil
           Style.IsFontAssigned = True
         end
         inherited cxRichEdit1: TcxRichEdit
@@ -328,14 +321,64 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         end
       end
     end
+    object pagCalidades: TTabSheet
+      Caption = 'Calidades'
+      ImageIndex = 4
+      ExplicitHeight = 289
+      object dxLayoutControl1: TdxLayoutControl
+        Left = 0
+        Top = 0
+        Width = 834
+        Height = 414
+        Align = alClient
+        TabOrder = 0
+        TabStop = False
+        AutoContentSizes = [acsWidth, acsHeight]
+        ExplicitHeight = 289
+        object memCalidades: TcxDBMemo
+          Left = 10
+          Top = 10
+          Align = alClient
+          DataBinding.DataField = 'CALIDADES'
+          DataBinding.DataSource = dsDataTable
+          Properties.ScrollBars = ssVertical
+          Style.BorderColor = clWindowFrame
+          Style.BorderStyle = ebs3D
+          Style.HotTrack = False
+          Style.LookAndFeel.Kind = lfStandard
+          Style.LookAndFeel.NativeStyle = True
+          StyleDisabled.LookAndFeel.Kind = lfStandard
+          StyleDisabled.LookAndFeel.NativeStyle = True
+          StyleFocused.LookAndFeel.Kind = lfStandard
+          StyleFocused.LookAndFeel.NativeStyle = True
+          StyleHot.LookAndFeel.Kind = lfStandard
+          StyleHot.LookAndFeel.NativeStyle = True
+          TabOrder = 0
+          Height = 247
+          Width = 799
+        end
+        object dxLayoutGroup1: TdxLayoutGroup
+          ShowCaption = False
+          Hidden = True
+          ShowBorder = False
+          object dxLayoutItem1: TdxLayoutItem
+            AutoAligns = [aaHorizontal]
+            AlignVert = avClient
+            Control = memCalidades
+            ControlOptions.ShowBorder = False
+          end
+        end
+      end
+    end
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
+      ExplicitHeight = 289
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0
         Width = 834
-        Height = 289
+        Height = 414
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -356,13 +399,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         end
         inherited GroupBox1: TGroupBox
           Width = 834
-          Height = 261
+          Height = 386
           ExplicitWidth = 834
           ExplicitHeight = 261
           inherited eIncidencias: TcxDBMemo
             ExplicitWidth = 830
             ExplicitHeight = 244
-            Height = 244
+            Height = 369
             Width = 830
           end
         end
@@ -371,11 +414,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagDocumentos: TTabSheet
       Caption = 'Documentos'
       ImageIndex = 5
+      ExplicitHeight = 289
       inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
         Left = 0
         Top = 0
         Width = 834
-        Height = 289
+        Height = 414
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -393,7 +437,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         end
         inherited ListView1: TListView
           Width = 834
-          Height = 266
+          Height = 391
           ExplicitWidth = 834
           ExplicitHeight = 266
         end
@@ -414,7 +458,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   end
   inline frViewTotales1: TfrViewTotalesPresupuesto [5]
     Left = 0
-    Top = 429
+    Top = 554
     Width = 848
     Height = 228
     Align = alBottom
@@ -434,16 +478,18 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       LookAndFeel = dxLayoutOfficeLookAndFeel1
       ExplicitWidth = 848
       inherited Bevel3: TBevel
-        Left = 310
+        Left = 352
         Top = 57
-        ExplicitLeft = 310
+        Height = 122
+        ExplicitLeft = 352
         ExplicitTop = 57
+        ExplicitHeight = 122
       end
       inherited Bevel4: TBevel
-        Left = 422
+        Left = 464
         Top = 88
         Width = 342
-        ExplicitLeft = 422
+        ExplicitLeft = 464
         ExplicitTop = 88
         ExplicitWidth = 342
       end
@@ -451,20 +497,26 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         Top = 84
         Style.IsFontAssigned = True
         ExplicitTop = 84
+        ExplicitWidth = 93
+        Width = 93
       end
       inherited ImporteIVA: TcxDBCurrencyEdit
-        Left = 493
+        Left = 535
         Top = 108
         Style.IsFontAssigned = True
-        ExplicitLeft = 493
+        ExplicitLeft = 535
         ExplicitTop = 108
+        ExplicitWidth = 137
+        Width = 137
       end
       inherited ImporteTotal: TcxDBCurrencyEdit
-        Left = 423
+        Left = 465
         Top = 162
         Style.IsFontAssigned = True
-        ExplicitLeft = 423
+        ExplicitLeft = 465
         ExplicitTop = 162
+        ExplicitWidth = 137
+        Width = 137
       end
       inherited edtDescuento: TcxDBSpinEdit
         Top = 84
@@ -472,57 +524,69 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         ExplicitTop = 84
       end
       inherited edtIVA: TcxDBSpinEdit
-        Left = 422
+        Left = 464
         Top = 108
         Style.IsFontAssigned = True
-        ExplicitLeft = 422
+        ExplicitLeft = 464
         ExplicitTop = 108
       end
       inherited ImporteBase: TcxDBCurrencyEdit
-        Left = 422
+        Left = 464
         Top = 57
         Style.IsFontAssigned = True
-        ExplicitLeft = 422
+        ExplicitLeft = 464
         ExplicitTop = 57
+        ExplicitWidth = 92
+        Width = 92
       end
       inherited edtRE: TcxDBSpinEdit
-        Left = 422
+        Left = 464
         Top = 135
         Style.IsFontAssigned = True
-        ExplicitLeft = 422
+        ExplicitLeft = 464
         ExplicitTop = 135
       end
       inherited ImporteRE: TcxDBCurrencyEdit
-        Left = 493
+        Left = 535
         Top = 135
         Style.IsFontAssigned = True
-        ExplicitLeft = 493
+        ExplicitLeft = 535
         ExplicitTop = 135
+        ExplicitWidth = 56
+        Width = 56
       end
       inherited eImporteNeto: TcxDBCurrencyEdit
         Top = 57
         Style.IsFontAssigned = True
         ExplicitTop = 57
+        ExplicitWidth = 147
+        Width = 147
       end
       inherited ePorte: TcxDBCurrencyEdit
         Top = 111
         Style.IsFontAssigned = True
         ExplicitTop = 111
+        ExplicitWidth = 147
+        Width = 147
       end
       inherited eIVA: TcxDBLookupComboBox
         Top = 138
         ExplicitTop = 138
+        ExplicitWidth = 81
+        Width = 81
       end
       inherited bTiposIVA: TButton
-        Left = 162
+        Left = 204
         Top = 138
         OnClick = frViewTotales1bTiposIVAClick
-        ExplicitLeft = 162
+        ExplicitLeft = 204
         ExplicitTop = 138
       end
       inherited cbRecargoEquivalencia: TcxDBCheckBox
         Top = 165
         ExplicitTop = 165
+        ExplicitWidth = 219
+        Width = 219
       end
       inherited cbValorado: TcxDBCheckBox
         Left = 11

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas

@@ -20,7 +20,7 @@ uses
   uViewDocumentos,
   uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto,
   cxLabel, uBizTiposIVA, uTiposIVAController, uViewTotalesPresupuesto, DBCtrls,
-  cxGraphics, cxMaskEdit, cxDropDownEdit;
+  cxGraphics, cxMaskEdit, cxDropDownEdit, dxLayoutControl;
 
 type
   TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
@@ -39,6 +39,11 @@ type
     frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente;
     frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente;
     frViewTotales1: TfrViewTotalesPresupuesto;
+    pagCalidades: TTabSheet;
+    dxLayoutControl1: TdxLayoutControl;
+    memCalidades: TcxDBMemo;
+    dxLayoutGroup1: TdxLayoutGroup;
+    dxLayoutItem1: TdxLayoutItem;
 
     procedure FormShow(Sender: TObject);
     procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.dfm

@@ -1,33 +1,25 @@
 inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
-  Width = 566
-  Height = 494
   inherited Panel1: TPanel
-    Width = 556
     TabOrder = 1
     inherited Label3: TLabel
-      Width = 544
+      Width = 429
       Visible = False
     end
   end
   inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
-    Width = 566
     LabelCaption = 'Configuraci'#243'n de los documentos de armario'
     TabOrder = 0
   end
   object Paginas: TPageControl
     Left = 0
     Top = 68
-    Width = 566
+    Width = 451
-    Height = 426
+    Height = 236
     ActivePage = pagNotas
     Align = alClient
     TabOrder = 2
-    ExplicitWidth = 451
-    ExplicitHeight = 236
     object pagNotas: TTabSheet
       Caption = 'Notas'
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       object Label1: TLabel
         Left = 11
         Top = 22
@@ -87,13 +79,11 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
     object pagCapituloFrente: TTabSheet
       Caption = 'Cap'#237'tulo frente'
       ImageIndex = 1
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       inline frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo
         Left = 0
         Top = 0
-        Width = 558
+        Width = 443
-        Height = 398
+        Height = 208
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -108,58 +98,101 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
         ExplicitWidth = 443
         ExplicitHeight = 208
         inherited ToolBar1: TToolBar
-          Width = 558
+          Width = 443
+          Height = 73
           ExplicitWidth = 443
+          ExplicitHeight = 73
+          inherited ToolButton3: TToolButton
+            Wrap = True
+          end
+          inherited ToolButton4: TToolButton
+            Left = 0
+            Top = 22
+            Wrap = False
+            ExplicitLeft = 0
+            ExplicitTop = 22
+          end
+          inherited ToolButton14: TToolButton
+            Left = 56
+            ExplicitLeft = 56
+          end
+          inherited FontName: TJvFontComboBox
+            Left = 90
+            ExplicitLeft = 90
+          end
           inherited FontSize: TEdit
-            Width = 58
+            Left = 235
-            ExplicitWidth = 58
+            Width = 74
+            ExplicitLeft = 235
+            ExplicitWidth = 74
           end
           inherited UpDown1: TUpDown
-            Left = 237
+            Left = 309
-            ExplicitLeft = 237
+            ExplicitLeft = 309
           end
           inherited ToolButton13: TToolButton
-            Left = 254
+            Left = 0
-            ExplicitLeft = 254
+            Wrap = True
+            ExplicitLeft = 0
+            ExplicitHeight = 27
           end
           inherited ToolButton6: TToolButton
-            Left = 262
+            Left = 0
-            ExplicitLeft = 262
+            Top = 49
+            ExplicitLeft = 0
+            ExplicitTop = 49
           end
           inherited ToolButton7: TToolButton
-            Left = 296
+            Left = 34
-            ExplicitLeft = 296
+            Top = 49
+            ExplicitLeft = 34
+            ExplicitTop = 49
           end
           inherited ToolButton8: TToolButton
-            Left = 330
+            Left = 68
-            ExplicitLeft = 330
+            Top = 49
+            ExplicitLeft = 68
+            ExplicitTop = 49
           end
           inherited ToolButton12: TToolButton
-            Left = 364
+            Left = 102
-            ExplicitLeft = 364
+            Top = 49
+            ExplicitLeft = 102
+            ExplicitTop = 49
           end
           inherited ToolButton9: TToolButton
-            Left = 372
+            Left = 110
-            ExplicitLeft = 372
+            Top = 49
+            ExplicitLeft = 110
+            ExplicitTop = 49
           end
           inherited ToolButton10: TToolButton
-            Left = 406
+            Left = 144
-            ExplicitLeft = 406
+            Top = 49
+            ExplicitLeft = 144
+            ExplicitTop = 49
           end
           inherited ToolButton11: TToolButton
-            Left = 440
+            Left = 178
-            ExplicitLeft = 440
+            Top = 49
+            ExplicitLeft = 178
+            ExplicitTop = 49
           end
         end
         inherited cxGrid: TcxGrid
-          Width = 558
+          Top = 99
-          Height = 326
+          Width = 443
+          Height = 109
           ExplicitWidth = 443
           ExplicitHeight = 136
         end
         inherited TBXDock1: TTBXDock
-          Width = 558
+          Top = 73
+          Width = 443
           ExplicitWidth = 443
+          inherited TBXToolbar1: TTBXToolbar
+            ExplicitWidth = 443
+          end
         end
         inherited cxLookupComboBox: TcxLookupComboBox
           Style.IsFontAssigned = True
@@ -169,13 +202,11 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
     object pagCapituloInterior: TTabSheet
       Caption = 'Cap'#237'tulo interior'
       ImageIndex = 2
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       inline frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo
         Left = 0
         Top = 0
-        Width = 558
+        Width = 443
-        Height = 398
+        Height = 208
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -190,69 +221,105 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
         ExplicitWidth = 443
         ExplicitHeight = 208
         inherited ToolBar1: TToolBar
-          Width = 558
+          Width = 443
           ExplicitWidth = 443
+          inherited ToolButton4: TToolButton
+            Wrap = False
+          end
+          inherited ToolButton14: TToolButton
+            Left = 334
+            Top = 0
+            Wrap = True
+            ExplicitLeft = 334
+            ExplicitTop = 0
+          end
+          inherited FontName: TJvFontComboBox
+            Left = 0
+            ExplicitLeft = 0
+          end
           inherited FontSize: TEdit
+            Left = 145
             Width = 58
+            ExplicitLeft = 145
             ExplicitWidth = 58
           end
           inherited UpDown1: TUpDown
-            Left = 237
+            Left = 203
-            ExplicitLeft = 237
+            ExplicitLeft = 203
           end
           inherited ToolButton13: TToolButton
-            Left = 254
+            Left = 220
-            ExplicitLeft = 254
+            ExplicitLeft = 220
           end
           inherited ToolButton6: TToolButton
+            Left = 228
+            ExplicitLeft = 228
+          end
+          inherited ToolButton7: TToolButton
             Left = 262
             ExplicitLeft = 262
           end
-          inherited ToolButton7: TToolButton
+          inherited ToolButton8: TToolButton
             Left = 296
             ExplicitLeft = 296
           end
-          inherited ToolButton8: TToolButton
+          inherited ToolButton12: TToolButton
             Left = 330
             ExplicitLeft = 330
           end
-          inherited ToolButton12: TToolButton
-            Left = 364
-            ExplicitLeft = 364
-          end
           inherited ToolButton9: TToolButton
+            Left = 338
+            ExplicitLeft = 338
+          end
+          inherited ToolButton10: TToolButton
             Left = 372
             ExplicitLeft = 372
           end
-          inherited ToolButton10: TToolButton
+          inherited ToolButton11: TToolButton
             Left = 406
             ExplicitLeft = 406
           end
-          inherited ToolButton11: TToolButton
-            Left = 440
-            ExplicitLeft = 440
-          end
         end
         inherited cxGrid: TcxGrid
-          Width = 558
+          Width = 443
-          Height = 326
+          Height = 136
           ExplicitWidth = 443
           ExplicitHeight = 136
         end
         inherited TBXDock1: TTBXDock
-          Width = 558
+          Width = 443
           ExplicitWidth = 443
+          inherited TBXToolbar1: TTBXToolbar
+            ExplicitWidth = 443
+          end
         end
         inherited cxLookupComboBox: TcxLookupComboBox
           Style.IsFontAssigned = True
         end
       end
     end
+    object pagCalidades: TTabSheet
+      Caption = 'Calidades'
+      ImageIndex = 4
+      object eCalidades: TcxRichEdit
+        Left = 0
+        Top = 0
+        Align = alClient
+        Properties.ScrollBars = ssVertical
+        Lines.Strings = (
+          'eCondiciones')
+        TabOrder = 0
+        Height = 208
+        Width = 443
+      end
+    end
     object pagCondiciones: TTabSheet
       Caption = 'Condiciones'
       ImageIndex = 3
-      ExplicitWidth = 443
+      ExplicitLeft = 0
-      ExplicitHeight = 208
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object eCondiciones: TcxRichEdit
         Left = 0
         Top = 0
@@ -261,10 +328,8 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
         Lines.Strings = (
           'eCondiciones')
         TabOrder = 0
-        ExplicitWidth = 443
+        Height = 208
-        ExplicitHeight = 208
+        Width = 443
-        Height = 398
-        Width = 558
       end
     end
   end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.pas

@@ -25,6 +25,8 @@ type
     frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo;
     pagCondiciones: TTabSheet;
     eCondiciones: TcxRichEdit;
+    pagCalidades: TTabSheet;
+    eCalidades: TcxRichEdit;
   public
     class function GetViewClass : TClass; override;
     class function DarEtiqueta : String; override;
@@ -51,6 +53,10 @@ begin
   ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO);
   eObservaciones.Lines.Clear;
   eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO);
+
+  eCalidades.Lines.Clear;
+  eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_ARMARIO);
+
   eCondiciones.Lines.Clear;
   eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO);
 
@@ -79,6 +85,7 @@ begin
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_ARMARIO, eCalidades.Text);
 
   frViewConfiguracionCapituloFrente.Detalles.DataTable.ApplyUpdates;
   frViewConfiguracionCapituloInterior.Detalles.DataTable.ApplyUpdates;

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.dfm

@@ -1,33 +1,28 @@
 inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
-  Width = 554
-  Height = 486
   inherited Panel1: TPanel
-    Width = 544
     TabOrder = 1
     inherited Label3: TLabel
-      Width = 532
+      Width = 429
       Visible = False
+      ExplicitLeft = 10
+      ExplicitTop = 5
+      ExplicitWidth = 429
     end
   end
   inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
-    Width = 554
     LabelCaption = 'Configuraci'#243'n de los documentos de ba'#241'o'
     TabOrder = 0
   end
   object paginas: TPageControl
     Left = 0
     Top = 68
-    Width = 554
+    Width = 451
-    Height = 418
+    Height = 236
     ActivePage = pagNotas
     Align = alClient
     TabOrder = 2
-    ExplicitWidth = 451
-    ExplicitHeight = 236
     object pagNotas: TTabSheet
       Caption = 'Notas'
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       object Label1: TLabel
         Left = 11
         Top = 16
@@ -83,13 +78,11 @@ inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
     object pagCapitulo: TTabSheet
       Caption = 'Cap'#237'tulo'
       ImageIndex = 1
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
         Left = 0
         Top = 0
-        Width = 546
+        Width = 443
-        Height = 390
+        Height = 208
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -104,69 +97,129 @@ inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
         ExplicitWidth = 443
         ExplicitHeight = 208
         inherited ToolBar1: TToolBar
-          Width = 546
+          Width = 443
+          Height = 73
           ExplicitWidth = 443
+          ExplicitHeight = 73
+          inherited ToolButton3: TToolButton
+            Wrap = True
+          end
+          inherited ToolButton4: TToolButton
+            Left = 0
+            Top = 22
+            Wrap = False
+            ExplicitLeft = 0
+            ExplicitTop = 22
+          end
+          inherited ToolButton14: TToolButton
+            Left = 56
+            ExplicitLeft = 56
+          end
+          inherited FontName: TJvFontComboBox
+            Left = 90
+            ExplicitLeft = 90
+          end
           inherited FontSize: TEdit
-            Width = 58
+            Left = 235
-            ExplicitWidth = 58
+            Width = 90
+            ExplicitLeft = 235
+            ExplicitWidth = 90
           end
-          inherited UpDown1: TUpDown
+          inherited ToolButton13: TToolButton [7]
-            Left = 237
+            Left = 0
-            ExplicitLeft = 237
+            Wrap = True
+            ExplicitLeft = 0
+            ExplicitHeight = 27
           end
-          inherited ToolButton13: TToolButton
+          inherited UpDown1: TUpDown [8]
-            Left = 254
+            Left = 0
-            ExplicitLeft = 254
+            Top = 49
+            ExplicitLeft = 0
+            ExplicitTop = 49
           end
           inherited ToolButton6: TToolButton
-            Left = 262
+            Left = 17
-            ExplicitLeft = 262
+            Top = 49
+            ExplicitLeft = 17
+            ExplicitTop = 49
           end
           inherited ToolButton7: TToolButton
-            Left = 296
+            Left = 51
-            ExplicitLeft = 296
+            Top = 49
+            ExplicitLeft = 51
+            ExplicitTop = 49
           end
           inherited ToolButton8: TToolButton
-            Left = 330
+            Left = 85
-            ExplicitLeft = 330
+            Top = 49
+            ExplicitLeft = 85
+            ExplicitTop = 49
           end
           inherited ToolButton12: TToolButton
-            Left = 364
+            Left = 119
-            ExplicitLeft = 364
+            Top = 49
+            ExplicitLeft = 119
+            ExplicitTop = 49
           end
           inherited ToolButton9: TToolButton
-            Left = 372
+            Left = 127
-            ExplicitLeft = 372
+            Top = 49
+            ExplicitLeft = 127
+            ExplicitTop = 49
           end
           inherited ToolButton10: TToolButton
-            Left = 406
+            Left = 161
-            ExplicitLeft = 406
+            Top = 49
+            ExplicitLeft = 161
+            ExplicitTop = 49
           end
           inherited ToolButton11: TToolButton
-            Left = 440
+            Left = 195
-            ExplicitLeft = 440
+            Top = 49
+            ExplicitLeft = 195
+            ExplicitTop = 49
           end
         end
         inherited cxGrid: TcxGrid
-          Width = 546
+          Top = 99
-          Height = 318
+          Width = 443
+          Height = 109
+          ExplicitTop = 99
           ExplicitWidth = 443
-          ExplicitHeight = 136
+          ExplicitHeight = 109
         end
         inherited TBXDock1: TTBXDock
-          Width = 546
+          Top = 73
+          Width = 443
+          ExplicitTop = 73
           ExplicitWidth = 443
+          inherited TBXToolbar1: TTBXToolbar
+            ExplicitWidth = 443
+          end
         end
         inherited cxLookupComboBox: TcxLookupComboBox
           Style.IsFontAssigned = True
         end
       end
     end
+    object pagCalidades: TTabSheet
+      Caption = 'Calidades'
+      ImageIndex = 3
+      object eCalidades: TcxRichEdit
+        Left = 0
+        Top = 0
+        Align = alClient
+        Properties.ScrollBars = ssVertical
+        Lines.Strings = (
+          'eCondiciones')
+        TabOrder = 0
+        Height = 208
+        Width = 443
+      end
+    end
     object pagCondiciones: TTabSheet
       Caption = 'Condiciones'
       ImageIndex = 2
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       object eCondiciones: TcxRichEdit
         Left = 0
         Top = 0
@@ -175,9 +228,8 @@ inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
         Lines.Strings = (
           'eCondiciones')
         TabOrder = 0
-        ExplicitLeft = 1
+        Height = 208
-        Height = 390
+        Width = 443
-        Width = 546
       end
     end
   end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.pas

@@ -23,6 +23,8 @@ type
     frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
     pagCondiciones: TTabSheet;
     eCondiciones: TcxRichEdit;
+    pagCalidades: TTabSheet;
+    eCalidades: TcxRichEdit;
   public
     class function GetViewClass : TClass; override;
     class function DarEtiqueta : String; override;
@@ -49,6 +51,10 @@ begin
   ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_BANO);
   eObservaciones.Lines.Clear;
   eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO);
+
+  eCalidades.Lines.Clear;
+  eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_BANO);
+
   eCondiciones.Lines.Clear;
   eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO);
 
@@ -73,6 +79,7 @@ begin
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO, ePlazosEntrega.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_BANO, eObservaciones.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_BANO, eCalidades.Text);  
 
   frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
 end;

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.dfm

@@ -1,33 +1,25 @@
 inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
-  Width = 561
-  Height = 490
   inherited Panel1: TPanel
-    Width = 551
     TabOrder = 1
     inherited Label3: TLabel
-      Width = 539
+      Width = 429
       Visible = False
     end
   end
   inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
-    Width = 561
     LabelCaption = 'Configuraci'#243'n de los documentos de cocina'
     TabOrder = 0
   end
   object Paginas: TPageControl
     Left = 0
     Top = 68
-    Width = 561
+    Width = 451
-    Height = 422
+    Height = 236
     ActivePage = pagNotas
     Align = alClient
     TabOrder = 2
-    ExplicitWidth = 684
-    ExplicitHeight = 540
     object pagNotas: TTabSheet
       Caption = 'Notas'
-      ExplicitWidth = 676
-      ExplicitHeight = 512
       object Label1: TLabel
         Left = 11
         Top = 23
@@ -83,13 +75,11 @@ inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
     object pagCapitulo: TTabSheet
       Caption = 'Cap'#237'tulo'
       ImageIndex = 1
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
         Left = 0
         Top = 0
-        Width = 553
+        Width = 443
-        Height = 394
+        Height = 208
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -104,69 +94,131 @@ inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
         ExplicitWidth = 443
         ExplicitHeight = 208
         inherited ToolBar1: TToolBar
-          Width = 553
+          Width = 443
+          Height = 73
           ExplicitWidth = 443
+          ExplicitHeight = 73
+          inherited ToolButton3: TToolButton
+            Wrap = True
+          end
+          inherited ToolButton4: TToolButton
+            Left = 0
+            Top = 22
+            Wrap = False
+            ExplicitLeft = 0
+            ExplicitTop = 22
+          end
+          inherited ToolButton14: TToolButton
+            Left = 56
+            ExplicitLeft = 56
+          end
+          inherited FontName: TJvFontComboBox
+            Left = 90
+            ExplicitLeft = 90
+          end
           inherited FontSize: TEdit
-            Width = 58
+            Left = 235
-            ExplicitWidth = 58
+            Width = 74
+            ExplicitLeft = 235
+            ExplicitWidth = 74
           end
           inherited UpDown1: TUpDown
-            Left = 237
+            Left = 309
-            ExplicitLeft = 237
+            ExplicitLeft = 309
           end
           inherited ToolButton13: TToolButton
-            Left = 254
+            Left = 0
-            ExplicitLeft = 254
+            Wrap = True
+            ExplicitLeft = 0
+            ExplicitHeight = 27
           end
           inherited ToolButton6: TToolButton
-            Left = 262
+            Left = 0
-            ExplicitLeft = 262
+            Top = 49
+            ExplicitLeft = 0
+            ExplicitTop = 49
           end
           inherited ToolButton7: TToolButton
-            Left = 296
+            Left = 34
-            ExplicitLeft = 296
+            Top = 49
+            ExplicitLeft = 34
+            ExplicitTop = 49
           end
           inherited ToolButton8: TToolButton
-            Left = 330
+            Left = 68
-            ExplicitLeft = 330
+            Top = 49
+            ExplicitLeft = 68
+            ExplicitTop = 49
           end
           inherited ToolButton12: TToolButton
-            Left = 364
+            Left = 102
-            ExplicitLeft = 364
+            Top = 49
+            ExplicitLeft = 102
+            ExplicitTop = 49
           end
           inherited ToolButton9: TToolButton
-            Left = 372
+            Left = 110
-            ExplicitLeft = 372
+            Top = 49
+            ExplicitLeft = 110
+            ExplicitTop = 49
           end
           inherited ToolButton10: TToolButton
-            Left = 406
+            Left = 144
-            ExplicitLeft = 406
+            Top = 49
+            ExplicitLeft = 144
+            ExplicitTop = 49
           end
           inherited ToolButton11: TToolButton
-            Left = 440
+            Left = 178
-            ExplicitLeft = 440
+            Top = 49
+            ExplicitLeft = 178
+            ExplicitTop = 49
           end
         end
         inherited cxGrid: TcxGrid
-          Width = 553
+          Top = 99
-          Height = 322
+          Width = 443
+          Height = 109
+          ExplicitTop = 99
           ExplicitWidth = 443
-          ExplicitHeight = 136
+          ExplicitHeight = 109
         end
         inherited TBXDock1: TTBXDock
-          Width = 553
+          Top = 73
+          Width = 443
+          ExplicitTop = 73
           ExplicitWidth = 443
+          inherited TBXToolbar1: TTBXToolbar
+            ExplicitWidth = 443
+          end
         end
         inherited cxLookupComboBox: TcxLookupComboBox
           Style.IsFontAssigned = True
         end
       end
     end
+    object pagCalidades: TTabSheet
+      Caption = 'Calidades'
+      ImageIndex = 3
+      object eCalidades: TcxRichEdit
+        Left = 0
+        Top = 0
+        Align = alClient
+        Properties.ScrollBars = ssVertical
+        Lines.Strings = (
+          'eCondiciones')
+        TabOrder = 0
+        Height = 208
+        Width = 443
+      end
+    end
     object pagCondiciones: TTabSheet
       Caption = 'Condiciones contrato'
       ImageIndex = 2
-      ExplicitWidth = 676
+      ExplicitLeft = 0
-      ExplicitHeight = 512
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object eCondiciones: TcxRichEdit
         Left = 0
         Top = 0
@@ -175,12 +227,8 @@ inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
         Lines.Strings = (
           'eCondiciones')
         TabOrder = 0
-        ExplicitLeft = 11
+        Height = 208
-        ExplicitTop = 392
+        Width = 443
-        ExplicitWidth = 529
-        ExplicitHeight = 57
-        Height = 394
-        Width = 553
       end
     end
   end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.pas

@@ -23,6 +23,8 @@ type
     frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
     pagCondiciones: TTabSheet;
     eCondiciones: TcxRichEdit;
+    pagCalidades: TTabSheet;
+    eCalidades: TcxRichEdit;
   public
     class function GetViewClass : TClass; override;
     class function DarEtiqueta : String; override;
@@ -46,6 +48,10 @@ begin
   ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA);
   eObservaciones.Lines.Clear;
   eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA);
+
+  eCalidades.Lines.Clear;
+  eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_COCINA);
+
   eCondiciones.Lines.Clear;
   eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA);
 
@@ -70,6 +76,7 @@ begin
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_COCINA, eCalidades.Text);  
 
   frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;  
 end;

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.dfm

@@ -1,33 +1,26 @@
 inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico
-  Width = 554
-  Height = 492
   inherited Panel1: TPanel
-    Width = 544
     TabOrder = 1
+    Visible = False
     inherited Label3: TLabel
-      Width = 532
+      Width = 429
       Visible = False
     end
   end
   inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
-    Width = 554
     LabelCaption = 'Configuraci'#243'n de los documentos de electrodom'#233'sticos'
     TabOrder = 0
   end
   object Paginas: TPageControl
     Left = 0
     Top = 68
-    Width = 554
+    Width = 451
-    Height = 424
+    Height = 236
     ActivePage = pagNotas
     Align = alClient
     TabOrder = 2
-    ExplicitWidth = 612
-    ExplicitHeight = 526
     object pagNotas: TTabSheet
       Caption = 'Notas'
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       object Label1: TLabel
         Left = 11
         Top = 20
@@ -83,13 +76,11 @@ inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectro
     object pagCapitulo: TTabSheet
       Caption = 'Cap'#237'tulo'
       ImageIndex = 1
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
         Left = 0
         Top = 0
-        Width = 546
+        Width = 443
-        Height = 396
+        Height = 208
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -104,69 +95,129 @@ inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectro
         ExplicitWidth = 443
         ExplicitHeight = 208
         inherited ToolBar1: TToolBar
-          Width = 546
+          Width = 443
+          Height = 73
           ExplicitWidth = 443
+          ExplicitHeight = 73
+          inherited ToolButton3: TToolButton
+            Wrap = True
+          end
+          inherited ToolButton4: TToolButton
+            Left = 0
+            Top = 22
+            Wrap = False
+            ExplicitLeft = 0
+            ExplicitTop = 22
+          end
+          inherited ToolButton14: TToolButton
+            Left = 56
+            ExplicitLeft = 56
+          end
+          inherited FontName: TJvFontComboBox
+            Left = 90
+            ExplicitLeft = 90
+          end
           inherited FontSize: TEdit
-            Width = 58
+            Left = 235
-            ExplicitWidth = 58
+            Width = 90
+            ExplicitLeft = 235
+            ExplicitWidth = 90
           end
-          inherited UpDown1: TUpDown
+          inherited ToolButton13: TToolButton [7]
-            Left = 237
+            Left = 0
-            ExplicitLeft = 237
+            Wrap = True
+            ExplicitLeft = 0
+            ExplicitHeight = 27
           end
-          inherited ToolButton13: TToolButton
+          inherited UpDown1: TUpDown [8]
-            Left = 254
+            Left = 0
-            ExplicitLeft = 254
+            Top = 49
+            ExplicitLeft = 0
+            ExplicitTop = 49
           end
           inherited ToolButton6: TToolButton
-            Left = 262
+            Left = 17
-            ExplicitLeft = 262
+            Top = 49
+            ExplicitLeft = 17
+            ExplicitTop = 49
           end
           inherited ToolButton7: TToolButton
-            Left = 296
+            Left = 51
-            ExplicitLeft = 296
+            Top = 49
+            ExplicitLeft = 51
+            ExplicitTop = 49
           end
           inherited ToolButton8: TToolButton
-            Left = 330
+            Left = 85
-            ExplicitLeft = 330
+            Top = 49
+            ExplicitLeft = 85
+            ExplicitTop = 49
           end
           inherited ToolButton12: TToolButton
-            Left = 364
+            Left = 119
-            ExplicitLeft = 364
+            Top = 49
+            ExplicitLeft = 119
+            ExplicitTop = 49
           end
           inherited ToolButton9: TToolButton
-            Left = 372
+            Left = 127
-            ExplicitLeft = 372
+            Top = 49
+            ExplicitLeft = 127
+            ExplicitTop = 49
           end
           inherited ToolButton10: TToolButton
-            Left = 406
+            Left = 161
-            ExplicitLeft = 406
+            Top = 49
+            ExplicitLeft = 161
+            ExplicitTop = 49
           end
           inherited ToolButton11: TToolButton
-            Left = 440
+            Left = 195
-            ExplicitLeft = 440
+            Top = 49
+            ExplicitLeft = 195
+            ExplicitTop = 49
           end
         end
         inherited cxGrid: TcxGrid
-          Width = 546
+          Top = 99
-          Height = 324
+          Width = 443
+          Height = 109
+          ExplicitTop = 99
           ExplicitWidth = 443
-          ExplicitHeight = 136
+          ExplicitHeight = 109
         end
         inherited TBXDock1: TTBXDock
-          Width = 546
+          Top = 73
+          Width = 443
+          ExplicitTop = 73
           ExplicitWidth = 443
+          inherited TBXToolbar1: TTBXToolbar
+            ExplicitWidth = 443
+          end
         end
         inherited cxLookupComboBox: TcxLookupComboBox
           Style.IsFontAssigned = True
         end
       end
     end
+    object pagCalidades: TTabSheet
+      Caption = 'Calidades'
+      ImageIndex = 3
+      object eCalidades: TcxRichEdit
+        Left = 0
+        Top = 0
+        Align = alClient
+        Properties.ScrollBars = ssVertical
+        Lines.Strings = (
+          'eCondiciones')
+        TabOrder = 0
+        Height = 208
+        Width = 443
+      end
+    end
     object pagCondiciones: TTabSheet
       Caption = 'Condiciones'
       ImageIndex = 2
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       object eCondiciones: TcxRichEdit
         Left = 0
         Top = 0
@@ -175,10 +226,8 @@ inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectro
         Lines.Strings = (
           'eCondiciones')
         TabOrder = 0
-        ExplicitWidth = 443
+        Height = 208
-        ExplicitHeight = 208
+        Width = 443
-        Height = 396
-        Width = 546
       end
     end
   end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.pas

@@ -23,6 +23,8 @@ type
     frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
     pagCondiciones: TTabSheet;
     eCondiciones: TcxRichEdit;
+    pagCalidades: TTabSheet;
+    eCalidades: TcxRichEdit;
   public
     class function GetViewClass : TClass; override;
     class function DarEtiqueta : String; override;
@@ -49,6 +51,10 @@ begin
   ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO);
   eObservaciones.Lines.Clear;
   eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO);
+
+  eCalidades.Lines.Clear;
+  eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_ELECTRODOMESTICO);
+
   eCondiciones.Lines.Clear;
   eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO);
 
@@ -73,6 +79,7 @@ begin
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO, ePlazosEntrega.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO, eCalidades.Text);
 
   frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;  
 end;

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.dfm

@@ -1,32 +1,25 @@
 inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
-  Width = 557
-  Height = 489
   inherited Panel1: TPanel
-    Width = 547
     TabOrder = 1
+    Visible = False
     inherited Label3: TLabel
-      Width = 535
+      Width = 429
     end
   end
   inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
-    Width = 557
     LabelCaption = 'Configuraci'#243'n de los documentos de obra'
     TabOrder = 0
   end
   object paginas: TPageControl
     Left = 0
     Top = 68
-    Width = 557
+    Width = 451
-    Height = 421
+    Height = 236
     ActivePage = pagNotas
     Align = alClient
     TabOrder = 2
-    ExplicitWidth = 451
-    ExplicitHeight = 236
     object pagNotas: TTabSheet
       Caption = 'Notas'
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       object Label1: TLabel
         Left = 11
         Top = 20
@@ -82,13 +75,11 @@ inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
     object pagCapitulo: TTabSheet
       Caption = 'Cap'#237'tulo'
       ImageIndex = 1
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
         Left = 0
         Top = 0
-        Width = 549
+        Width = 443
-        Height = 393
+        Height = 208
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -103,69 +94,129 @@ inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
         ExplicitWidth = 443
         ExplicitHeight = 208
         inherited ToolBar1: TToolBar
-          Width = 549
+          Width = 443
+          Height = 73
           ExplicitWidth = 443
+          ExplicitHeight = 73
+          inherited ToolButton3: TToolButton
+            Wrap = True
+          end
+          inherited ToolButton4: TToolButton
+            Left = 0
+            Top = 22
+            Wrap = False
+            ExplicitLeft = 0
+            ExplicitTop = 22
+          end
+          inherited ToolButton14: TToolButton
+            Left = 56
+            ExplicitLeft = 56
+          end
+          inherited FontName: TJvFontComboBox
+            Left = 90
+            ExplicitLeft = 90
+          end
           inherited FontSize: TEdit
-            Width = 58
+            Left = 235
-            ExplicitWidth = 58
+            Width = 90
+            ExplicitLeft = 235
+            ExplicitWidth = 90
           end
-          inherited UpDown1: TUpDown
+          inherited ToolButton13: TToolButton [7]
-            Left = 237
+            Left = 0
-            ExplicitLeft = 237
+            Wrap = True
+            ExplicitLeft = 0
+            ExplicitHeight = 27
           end
-          inherited ToolButton13: TToolButton
+          inherited UpDown1: TUpDown [8]
-            Left = 254
+            Left = 0
-            ExplicitLeft = 254
+            Top = 49
+            ExplicitLeft = 0
+            ExplicitTop = 49
           end
           inherited ToolButton6: TToolButton
-            Left = 262
+            Left = 17
-            ExplicitLeft = 262
+            Top = 49
+            ExplicitLeft = 17
+            ExplicitTop = 49
           end
           inherited ToolButton7: TToolButton
-            Left = 296
+            Left = 51
-            ExplicitLeft = 296
+            Top = 49
+            ExplicitLeft = 51
+            ExplicitTop = 49
           end
           inherited ToolButton8: TToolButton
-            Left = 330
+            Left = 85
-            ExplicitLeft = 330
+            Top = 49
+            ExplicitLeft = 85
+            ExplicitTop = 49
           end
           inherited ToolButton12: TToolButton
-            Left = 364
+            Left = 119
-            ExplicitLeft = 364
+            Top = 49
+            ExplicitLeft = 119
+            ExplicitTop = 49
           end
           inherited ToolButton9: TToolButton
-            Left = 372
+            Left = 127
-            ExplicitLeft = 372
+            Top = 49
+            ExplicitLeft = 127
+            ExplicitTop = 49
           end
           inherited ToolButton10: TToolButton
-            Left = 406
+            Left = 161
-            ExplicitLeft = 406
+            Top = 49
+            ExplicitLeft = 161
+            ExplicitTop = 49
           end
           inherited ToolButton11: TToolButton
-            Left = 440
+            Left = 195
-            ExplicitLeft = 440
+            Top = 49
+            ExplicitLeft = 195
+            ExplicitTop = 49
           end
         end
         inherited cxGrid: TcxGrid
-          Width = 549
+          Top = 99
-          Height = 321
+          Width = 443
+          Height = 109
+          ExplicitTop = 99
           ExplicitWidth = 443
-          ExplicitHeight = 136
+          ExplicitHeight = 109
         end
         inherited TBXDock1: TTBXDock
-          Width = 549
+          Top = 73
+          Width = 443
+          ExplicitTop = 73
           ExplicitWidth = 443
+          inherited TBXToolbar1: TTBXToolbar
+            ExplicitWidth = 443
+          end
         end
         inherited cxLookupComboBox: TcxLookupComboBox
           Style.IsFontAssigned = True
         end
       end
     end
+    object pagCalidades: TTabSheet
+      Caption = 'Calidades'
+      ImageIndex = 3
+      object eCalidades: TcxRichEdit
+        Left = 0
+        Top = 0
+        Align = alClient
+        Properties.ScrollBars = ssVertical
+        Lines.Strings = (
+          'eCondiciones')
+        TabOrder = 0
+        Height = 208
+        Width = 443
+      end
+    end
     object pagCondiciones: TTabSheet
       Caption = 'Condiciones'
       ImageIndex = 2
-      ExplicitWidth = 443
-      ExplicitHeight = 208
       object eCondiciones: TcxRichEdit
         Left = 0
         Top = 0
@@ -174,10 +225,8 @@ inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
         Lines.Strings = (
           'eCondiciones')
         TabOrder = 0
-        ExplicitWidth = 443
+        Height = 208
-        ExplicitHeight = 208
+        Width = 443
-        Height = 393
-        Width = 549
       end
     end
   end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocObra.pas

@@ -23,6 +23,8 @@ type
     frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
     pagCondiciones: TTabSheet;
     eCondiciones: TcxRichEdit;
+    pagCalidades: TTabSheet;
+    eCalidades: TcxRichEdit;
   public
     class function GetViewClass : TClass; override;
     class function DarEtiqueta : String; override;
@@ -49,6 +51,10 @@ begin
   ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_OBRA);
   eObservaciones.Lines.Clear;
   eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_OBRA);
+
+  eCalidades.Lines.Clear;
+  eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_OBRA);
+
   eCondiciones.Lines.Clear;
   eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_OBRA);
 
@@ -73,6 +79,7 @@ begin
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA, ePlazosEntrega.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA, eObservaciones.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_OBRA, eCondiciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_OBRA, eCalidades.Text);  
 
   frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;  
 end;

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm

@@ -1,36 +1,25 @@
 inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios
-  Width = 567
-  Height = 499
-  ExplicitWidth = 898
-  ExplicitHeight = 591
   inherited Panel1: TPanel
-    Width = 557
     TabOrder = 1
-    ExplicitWidth = 530
+    Visible = False
     inherited Label3: TLabel
-      Width = 545
+      Width = 429
     end
   end
   inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
-    Width = 567
     LabelCaption = 'Configuraci'#243'n de los documentos de varios'
     TabOrder = 0
-    ExplicitWidth = 540
   end
   object PageControl1: TPageControl
     Left = 0
     Top = 68
-    Width = 567
+    Width = 451
-    Height = 431
+    Height = 236
-    ActivePage = pagNotas
+    ActivePage = pagCalidades
     Align = alClient
     TabOrder = 2
-    ExplicitWidth = 898
-    ExplicitHeight = 523
     object pagNotas: TTabSheet
       Caption = 'Notas'
-      ExplicitWidth = 890
-      ExplicitHeight = 495
       object Label1: TLabel
         Left = 11
         Top = 13
@@ -83,11 +72,24 @@ inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios
         TabOrder = 2
       end
     end
+    object pagCalidades: TTabSheet
+      Caption = 'Calidades'
+      ImageIndex = 2
+      object eCalidades: TcxRichEdit
+        Left = 0
+        Top = 0
+        Align = alClient
+        Properties.ScrollBars = ssVertical
+        Lines.Strings = (
+          'eCondiciones')
+        TabOrder = 0
+        Height = 208
+        Width = 443
+      end
+    end
     object pagCondiciones: TTabSheet
       Caption = 'Condiciones'
       ImageIndex = 1
-      ExplicitWidth = 890
-      ExplicitHeight = 495
       object eCondiciones: TcxRichEdit
         Left = 0
         Top = 0
@@ -96,12 +98,8 @@ inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios
         Lines.Strings = (
           'eCondiciones')
         TabOrder = 0
-        ExplicitLeft = 11
+        Height = 208
-        ExplicitTop = 372
+        Width = 443
-        ExplicitWidth = 529
-        ExplicitHeight = 57
-        Height = 403
-        Width = 559
       end
     end
   end

Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.pas

@@ -20,6 +20,8 @@ type
     eFormaPago: TMemo;
     eObservaciones: TMemo;
     eCondiciones: TcxRichEdit;
+    pagCalidades: TTabSheet;
+    eCalidades: TcxRichEdit;
   public
     class function GetViewClass : TClass; override;
     class function DarEtiqueta : String; override;
@@ -45,6 +47,10 @@ begin
   ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS);
   eObservaciones.Lines.Clear;
   eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_VARIOS);
+
+  eCalidades.Lines.Clear;
+  eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_VARIOS);
+
   eCondiciones.Lines.Clear;
   eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_VARIOS);
 end;
@@ -66,6 +72,7 @@ begin
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS, ePlazosEntrega.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS, eObservaciones.Text);
   AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_VARIOS, eCondiciones.Text);
+  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_VARIOS, eCalidades.Text);
 end;
 
 

Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas

@@ -108,6 +108,7 @@ begin
   AContrato.PERSONA_CONTACTO := APresupuesto.PERSONA_CONTACTO;
   AContrato.DataTable.FieldByName(fld_ContratosClientePLAZO_ENTREGA).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClientePLAZO_ENTREGA).AsVariant;
   AContrato.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsVariant;
+  AContrato.DataTable.FieldByName(fld_ContratosClienteCALIDADES).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteCALIDADES).AsVariant;  
   AContrato.IMPORTE_NETO := APresupuesto.IMPORTE_NETO;
   AContrato.IMPORTE_PORTE := APresupuesto.IMPORTE_PORTE;
   AContrato.DESCUENTO := APresupuesto.DESCUENTO;

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.5.5.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.5.5.0\0"
-              VALUE "CompileDate", "martes, 27 de agosto de 2013 13:55\0"
+              VALUE "CompileDate", "martes, 12 de noviembre de 2013 17:33\0"
          END
     END
     BLOCK "VarFileInfo"