diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 3e318998..df675b74 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -1272,12 +1272,13 @@ CREATE TABLE CONTRATOS_CLIENTE (
     ID_CLIENTE            TIPO_ID,
     NIF_CIF               VARCHAR(15),
     NOMBRE                VARCHAR(255),
+	ID_DIRECCION		  TIPO_ID,
     CALLE                 VARCHAR(255),
     POBLACION             VARCHAR(255),
     PROVINCIA             VARCHAR(255),
     CODIGO_POSTAL         VARCHAR(10),
-    TELEFONO							VARCHAR(25),
-    MOVIL									VARCHAR(25),
+    TELEFONO			  VARCHAR(25),
+    MOVIL				  VARCHAR(25),
     REFERENCIA            VARCHAR(255),
     FECHA_CONTRATO        DATE,
     SITUACION             VARCHAR(255),
@@ -3701,6 +3702,7 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
     NOMBRE_COMERCIAL_CLIENTE,
     NIF_CIF,
     NOMBRE,
+	ID_DIRECCION,
     CALLE,
     POBLACION,
     PROVINCIA,
@@ -3746,6 +3748,7 @@ SELECT CONTRATOS_CLIENTE.ID,
   CLIENTES_DATOS.NOMBRE_COMERCIAL,
   CONTRATOS_CLIENTE.NIF_CIF,
   CONTRATOS_CLIENTE.NOMBRE,
+  CONTRATOS_CLIENTE.ID_DIRECCION,
   CONTRATOS_CLIENTE.CALLE,
   CONTRATOS_CLIENTE.POBLACION,
   CONTRATOS_CLIENTE.PROVINCIA,
diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas
index ee898218..93dac15b 100644
--- a/Source/Base/Controladores/uControllerDetallesBase.pas
+++ b/Source/Base/Controladores/uControllerDetallesBase.pas
@@ -52,7 +52,7 @@ type
     procedure Mover(DataTable: TDADataTable; Posicion: Integer; NumPosiciones: Integer);
 
     //Si en los hijos existen campos a tener en cuenta se sobreescribira este metodo
-    procedure validarCampos(DataTable: TDADataTable); virtual;
+    procedure ValidarCampos(DataTable: TDADataTable); virtual;
 
     //Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto
     function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; virtual;
diff --git a/Source/Informes/InfContratoCliente.fr3 b/Source/Informes/InfContratoCliente.fr3
index 8e0735cd..3c7e372a 100644
--- a/Source/Informes/InfContratoCliente.fr3
+++ b/Source/Informes/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40137,4813062269" ScriptLanguage="PascalScript" ScriptText.Text="procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');&#13;&#10;  Set('PresupuestoConCocina', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Rich3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{    &#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));&#13;&#10;     if (&#60;NumCapitulos&#62; = 1) then&#13;&#10;       MasterData1.Visible := False;                                                                   &#13;&#10;  end&#13;&#10;  else&#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;}         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));                                 &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;&#13;&#10;&#13;&#10;//  Memo11.lines.add(&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;);  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo11.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end&#13;&#10;}        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;{    &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;  ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;  AIndice := Pos(',', ACantidad);&#13;&#10;  if AIndice &#62; 0 then                                           &#13;&#10;     AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)]&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)];  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin&#13;&#10;  ATexto := '';                                                       &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;     or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := 'NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;  &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'Cód. cliente: ' + &#60;frxDBCabecera.&#34;REF_CLIENTE&#34;&#62;;  &#13;&#10;  DatosCliente.Lines.Add(ATexto);         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AF' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AI' )&#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'B' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'C' ) then&#13;&#10;  begin&#13;&#10;    Header1.Visible := False;&#13;&#10;    DetailData1.Visible := False;                                                                  &#13;&#10;    DetailData2.Visible := True;&#13;&#10;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'C') then                &#13;&#10;       Set('PresupuestoConCocina', 1);                            &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Header1.Visible := True;                                                          &#13;&#10;    DetailData1.Visible := True;                                                                  &#13;&#10;    DetailData2.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo29OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    Memo29.visible := True;&#13;&#10;    if (&#60;frxDBCabecera.&#34;RE&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;      Memo30.visible := True;  &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo30.visible := False;        &#13;&#10;      Shape10.Top := Shape9.Top;&#13;&#10;      Memo26.Top := Memo30.Top;&#13;&#10;      Memo25.Top := Memo31.Top;&#13;&#10;      Line8.height := Line8.height - Shape10.height;&#13;&#10;    end&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo29.visible := False;&#13;&#10;    Shape10.Top := Shape8.Top;&#13;&#10;    Memo26.Top := Memo29.Top;&#13;&#10;    Memo25.Top := Memo33.Top;&#13;&#10;    Line8.height := Line8.height - Shape10.height;&#13;&#10;    //Si IVA es 0 RE tambien&#13;&#10;    Memo30.Visible := False;&#13;&#10;    Shape9.Visible := False;&#13;&#10;    //Subimos comentarios&#13;&#10;    Memo40.Top := Memo40.Top - Shape9.height;&#13;&#10;    Memo37.Top := Memo37.Top - Shape9.height;                                                              &#13;&#10;    Memo39.Top := Memo39.Top - Shape9.height;&#13;&#10;    Memo28.Top := Memo28.Top - Shape9.height;                                                              &#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo38.Visible := False;&#13;&#10;    Memo27.Visible := False;                                                              &#13;&#10;  end;              &#13;&#10;  &#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo40.Visible := False;&#13;&#10;    Memo37.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;PLAZO_ENTREGA&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo39.Visible := False;&#13;&#10;    Memo28.Visible := False;&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) &#60;&#62; 0) then&#13;&#10;       Memo37.Height := Memo37.Height + (Memo39.Height + Memo28.Height);                                                                        &#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;&#62; = 0)  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc') then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 5;&#13;&#10;    Memo13.Visible := False;&#13;&#10;    Memo20.Visible := False;  &#13;&#10;    Memo21.Visible := False;  &#13;&#10;    Memo11.Visible := False;&#13;&#10;    Memo24.Visible := False;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 40;&#13;&#10;    Memo13.Visible := True;  &#13;&#10;    Memo20.Visible := True;&#13;&#10;    Memo21.Visible := True;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;&#62; = 0) then&#13;&#10;    begin&#13;&#10;      Footer1.Height := 24;    &#13;&#10;      Memo11.Visible := False;&#13;&#10;      Memo24.Visible := False;       &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PaginaCondicionesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;PresupuestoConCocina&#62; = 0) then&#13;&#10;  begin                  &#13;&#10;     PaginaCondiciones.Visible := False;&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;  end;                   &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F2200010C1C000000204E616D653D22507265737570756573746F436F6E436F63696E61220000055374796C650100">
+<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40141,7505865278" ScriptLanguage="PascalScript" ScriptText.Text="procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);&#13;&#10;  Set('Capitulo', '0');&#13;&#10;  Set('NumCapitulos', 0);&#13;&#10;  Set('TextoNumCapitulo', ''' ''');&#13;&#10;  Set('PresupuestoConCocina', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Rich3OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{    &#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin              &#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));&#13;&#10;     if (&#60;NumCapitulos&#62; = 1) then&#13;&#10;       MasterData1.Visible := False;                                                                   &#13;&#10;  end&#13;&#10;  else&#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;}         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo45OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;     Set('Capitulo', (&#60;Capitulo&#62; + 1));                                 &#13;&#10;     Set('TextoNumCapitulo', &#60;Capitulo&#62;);&#13;&#10;&#13;&#10;     if ((&#60;NumCapitulos&#62; = 1) and (&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62; = 'General')) then&#13;&#10;       MasterData1.Visible := False&#13;&#10;     else begin                                     &#13;&#10;       if (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo opcional') then&#13;&#10;       begin&#13;&#10;         Set('TextoNumCapitulo', '''OPCIONAL''');&#13;&#10;       end&#13;&#10;     end                      &#13;&#10;  end&#13;&#10;  else             &#13;&#10;     Set('NumCapitulos', (&#60;NumCapitulos&#62; + 1));&#13;&#10;&#13;&#10;&#13;&#10;//  Memo11.lines.add(&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;);  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo47OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  &#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;    begin&#13;&#10;       Memo11.Visible := False;                                                                                      &#13;&#10;       Memo47.Visible := False;&#13;&#10;    end&#13;&#10;}        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var    &#13;&#10;  ACantidad: String;  &#13;&#10;  AIndice: Integer;&#13;&#10;  AText : String;                                    &#13;&#10;begin&#13;&#10;{    &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Clear;  &#13;&#10;  ACantidad := FloatToStr(&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;);  &#13;&#10;  AIndice := Pos(',', ACantidad);&#13;&#10;  if AIndice &#62; 0 then                                           &#13;&#10;     AText := '[FormatFloat(''#,##0.00'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)]&#13;&#10;  else                     &#13;&#10;     AText := '[FormatFloat(''#,##0.##'',&#60;frxDBDetalles.&#34;CANTIDAD&#34;&#62;)];  &#13;&#10;         &#13;&#10;  frxDBDetallesCANTIDAD.Memo.Add(AText);&#13;&#10;}      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ATexto : string;                                           &#13;&#10;begin&#13;&#10;  ATexto := '';                                                       &#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CALLE&#34;&#62; &#60;&#62; '') then                 &#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;     or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;     ATexto := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;     if ATexto &#60;&#62; '' then&#13;&#10;        ATexto := ATexto + ' ';                                                                                               &#13;&#10;     ATexto := ATexto + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;                                                                          &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;                   &#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  ATexto := '';    &#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') or&#13;&#10;     (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then                                   &#13;&#10;  begin&#13;&#10;     if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then                          &#13;&#10;        ATexto := 'Tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;;&#13;&#10;&#13;&#10;     if (&#60;frxDBCabecera.&#34;MOVIL&#34;&#62; &#60;&#62; '') then&#13;&#10;     begin                 &#13;&#10;       if ATexto &#60;&#62; '' then&#13;&#10;          ATexto := ATexto + ' / ';&#13;&#10;       ATexto := ATexto + 'Móvil: ';            &#13;&#10;       ATexto := ATexto + &#60;frxDBCabecera.&#34;MOVIL&#34;&#62;;&#13;&#10;     end;                        &#13;&#10;     DatosCliente.Lines.Add(ATexto);&#13;&#10;  end;&#13;&#10;      &#13;&#10;  ATexto := '';                                                  &#13;&#10;  if (&#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62; &#60;&#62; '') then&#13;&#10;      ATexto := 'NIF/CIF: ' + &#60;frxDBCabecera.&#34;NIF_CIF&#34;&#62;;&#13;&#10;  &#13;&#10;  if ATexto &#60;&#62; '' then&#13;&#10;       ATexto := ATexto + '  ';    &#13;&#10;  ATexto := ATexto + 'Cód. cliente: ' + &#60;frxDBCabecera.&#34;REF_CLIENTE&#34;&#62;;  &#13;&#10;  DatosCliente.Lines.Add(ATexto);         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AF' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'AI' )&#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'B' ) &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'C' ) then&#13;&#10;  begin&#13;&#10;    Header1.Visible := False;&#13;&#10;    DetailData1.Visible := False;                                                                  &#13;&#10;    DetailData2.Visible := True;&#13;&#10;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;TIPO_ARTICULO&#34;&#62; = 'C') then                &#13;&#10;       Set('PresupuestoConCocina', 1);                            &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Header1.Visible := True;                                                          &#13;&#10;    DetailData1.Visible := True;                                                                  &#13;&#10;    DetailData2.Visible := False;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo29OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;IVA&#34;&#62; &#62; 0) then&#13;&#10;  begin&#13;&#10;    Memo29.visible := True;&#13;&#10;    if (&#60;frxDBCabecera.&#34;RE&#34;&#62; &#62; 0) then&#13;&#10;    begin&#13;&#10;      Memo30.visible := True;  &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo30.visible := False;        &#13;&#10;      Shape10.Top := Shape9.Top;&#13;&#10;      Memo26.Top := Memo30.Top;&#13;&#10;      Memo25.Top := Memo31.Top;&#13;&#10;      Line8.height := Line8.height - Shape10.height;&#13;&#10;    end&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Memo29.visible := False;&#13;&#10;    Shape10.Top := Shape8.Top;&#13;&#10;    Memo26.Top := Memo29.Top;&#13;&#10;    Memo25.Top := Memo33.Top;&#13;&#10;    Line8.height := Line8.height - Shape10.height;&#13;&#10;    //Si IVA es 0 RE tambien&#13;&#10;    Memo30.Visible := False;&#13;&#10;    Shape9.Visible := False;&#13;&#10;    //Subimos comentarios&#13;&#10;    Memo40.Top := Memo40.Top - Shape9.height;&#13;&#10;    Memo37.Top := Memo37.Top - Shape9.height;                                                              &#13;&#10;    Memo39.Top := Memo39.Top - Shape9.height;&#13;&#10;    Memo28.Top := Memo28.Top - Shape9.height;                                                              &#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo38.Visible := False;&#13;&#10;    Memo27.Visible := False;                                                              &#13;&#10;  end;              &#13;&#10;  &#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo40.Visible := False;&#13;&#10;    Memo37.Visible := False;                                                              &#13;&#10;  end;&#13;&#10;&#13;&#10;  if (Length(&#60;frxDBCabecera.&#34;PLAZO_ENTREGA&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;    Memo39.Visible := False;&#13;&#10;    Memo28.Visible := False;&#13;&#10;    if (Length(&#60;frxDBCabecera.&#34;FORMA_PAGO&#34;&#62;) &#60;&#62; 0) then&#13;&#10;       Memo37.Height := Memo37.Height + (Memo39.Height + Memo28.Height);                                                                        &#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;&#62; = 0)  &#13;&#10;  or (&#60;frxDBCapitulos.&#34;TIPO_DETALLE&#34;&#62; = 'Titulo_opc') then&#13;&#10;  begin&#13;&#10;    Footer1.Height := 5;&#13;&#10;    Memo13.Visible := False;&#13;&#10;    Memo20.Visible := False;  &#13;&#10;    Memo21.Visible := False;  &#13;&#10;    Memo11.Visible := False;&#13;&#10;    Memo24.Visible := False;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    Footer1.Height := 40;&#13;&#10;    Memo13.Visible := True;  &#13;&#10;    Memo20.Visible := True;&#13;&#10;    Memo21.Visible := True;&#13;&#10;    if (&#60;frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;&#62; = 0) then&#13;&#10;    begin&#13;&#10;      Footer1.Height := 24;    &#13;&#10;      Memo11.Visible := False;&#13;&#10;      Memo24.Visible := False;       &#13;&#10;    end&#13;&#10;    else&#13;&#10;    begin&#13;&#10;      Memo11.Visible := True;&#13;&#10;      Memo24.Visible := True;&#13;&#10;    end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PaginaCondicionesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;PresupuestoConCocina&#62; = 0) then&#13;&#10;  begin                  &#13;&#10;     PaginaCondiciones.Visible := False;&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; - 1));&#13;&#10;  end;                   &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D2266727844424361706974756C6F732220446174615365744E616D653D2266727844424361706974756C6F732200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C18000000204E616D653D22546578746F4E756D4361706974756C6F2200010C1C000000204E616D653D22507265737570756573746F436F6E436F63696E61220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="13056" Font.Height="-13" Font.Name="Arial" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="" OnBeforePrint="Page1OnBeforePrint">
     <TfrxPageHeader Name="PageHeader2" Height="220" Left="0" Top="16" Width="718,101251175" OnBeforePrint="PageHeader1OnBeforePrint">
@@ -14,19 +14,19 @@
     <TfrxMasterData Name="MasterData1" Height="27" Left="0" Top="296" Width="718,101251175" OnBeforePrint="MasterData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCapitulos" DataSetName="frxDBCapitulos" PrintIfDetailEmpty="True" RowCount="0" Stretched="True">
       <TfrxMemoView Name="Memo45" Left="0" Top="4" Width="715,74057" Height="21" OnBeforePrint="Memo45OnBeforePrint" ShowHint="False" StretchMode="smActualHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" GapX="0" ParentFont="False" Text="[&#60;frxDBCapitulos.&#34;CONCEPTO&#34;&#62;]"/>
     </TfrxMasterData>
-    <TfrxDetailData Name="DetailData1" Font.Charset="1" Font.Color="13056" Font.Height="-7" Font.Name="Arial" Font.Style="0" Height="16" Left="0" ParentFont="False" Top="385" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" PrintIfDetailEmpty="True" RowCount="0" Stretched="True">
+    <TfrxDetailData Name="DetailData1" Font.Charset="1" Font.Color="13056" Font.Height="-7" Font.Name="Arial" Font.Style="0" Height="16" Left="0" ParentFont="False" Top="384" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" PrintIfDetailEmpty="True" RowCount="0" Stretched="True">
       <TfrxMemoView Name="Rich4" Align="baLeft" Left="0" Top="0" Width="468" Height="16" ShowHint="False" StretchMode="smActualHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="15" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
       <TfrxMemoView Name="frxDBDetallesCANTIDAD" Align="baLeft" Left="468" Top="0" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
       <TfrxMemoView Name="Memo35" Align="baLeft" Left="538" Top="0" Width="80" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
       <TfrxMemoView Name="Memo36" Align="baLeft" Left="618" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="14" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaBottom" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
     </TfrxDetailData>
-    <TfrxHeader Name="Header1" Height="22" Left="0" Top="343" Width="718,101251175" ReprintOnNewPage="True">
+    <TfrxHeader Name="Header1" Height="22" Left="0" Top="344" Width="718,101251175" ReprintOnNewPage="True">
       <TfrxMemoView Name="Memo23" Align="baLeft" Left="0" Top="0" Width="468" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
       <TfrxMemoView Name="Memo4" Align="baLeft" Left="468" Top="0" Width="70" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
       <TfrxMemoView Name="Memo8" Align="baLeft" Left="538" Top="0" Width="80" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Importe"/>
       <TfrxMemoView Name="Memo9" Align="baLeft" Left="618" Top="0" Width="100" Height="22" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
     </TfrxHeader>
-    <TfrxFooter Name="Footer1" Height="40" Left="0" Top="458" Width="718,101251175">
+    <TfrxFooter Name="Footer1" Height="40" Left="0" Top="456" Width="718,101251175">
       <TfrxMemoView Name="Memo13" Align="baClient" Left="0" Top="0" Width="718,101251175" Height="40" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
       <TfrxLineView Name="Line2" Align="baClient" Left="0" Top="0" Width="718,101251175" Height="0" ShowHint="False" Frame.Typ="4"/>
       <TfrxMemoView Name="Memo20" Left="612,10125118" Top="2" Width="106" Height="18" OnBeforePrint="Memo20OnBeforePrint" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBCapitulos.&#34;IMPORTE_TOTAL&#34;]"/>
@@ -34,7 +34,7 @@
       <TfrxMemoView Name="Memo11" Left="612,10125118" Top="21" Width="106" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBCapitulos.&#34;IMPORTE_DESCUENTO&#34;]"/>
       <TfrxMemoView Name="Memo24" Left="389" Top="21" Width="222,44094" Height="18" ShowHint="False" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Descuento [frxDBCapitulos.&#34;DESCUENTO&#34;]"/>
     </TfrxFooter>
-    <TfrxReportSummary Name="ReportSummary1" Height="254,58287" Left="0" Top="1595" Width="718,101251175" OnBeforePrint="ReportSummary1OnBeforePrint" Stretched="True">
+    <TfrxReportSummary Name="ReportSummary1" Height="254,58287" Left="0" Top="1592" Width="718,101251175" OnBeforePrint="ReportSummary1OnBeforePrint" Stretched="True">
       <TfrxMemoView Name="Memo41" Left="451" Top="231" Width="264,48819386" Height="20,33859" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="5" HideZeros="True" ParentFont="False" Text="CONFORME CLIENTE"/>
       <TfrxMemoView Name="Memo42" Left="1" Top="231" Width="332,48819386" Height="20,33859" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="5" HAlign="haRight" HideZeros="True" ParentFont="False" Text="CONFORME ACANA HOME S.L."/>
       <TfrxMemoView Name="Memo27" Left="4" Top="26,8" Width="382,48819386" Height="71,33859" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;FORMA_PAGO&#34;]"/>
@@ -57,10 +57,10 @@
       <TfrxMemoView Name="Memo34" Left="619,32256858" Top="11,54329" Width="94,48819386" Height="15,33859" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;BASE_IMPONIBLE&#34;]"/>
       <TfrxLineView Name="Line8" Left="615,54304591" Top="8,96846" Width="0" Height="90,17322835" ShowHint="False" Frame.Typ="1"/>
     </TfrxReportSummary>
-    <TfrxOverlay Name="Overlay1" Height="1016,69357" Left="0" Top="518" Width="718,101251175">
+    <TfrxOverlay Name="Overlay1" Height="1016,69357" Left="0" Top="516" Width="718,101251175">
       <TfrxPictureView Name="Picture6" Align="baBottom" Left="263,9765" Top="534,42585346" Width="451,65354331" Height="482,26771654" ShowHint="False" Center="True" Picture.PropData="04446174610A781300000A544A504547496D61676569130000FFD8FFE000104A46494600010200006400640000FFEC00114475636B79000100040000001E0000FFEE000E41646F62650064C000000001FFDB008400100B0B0B0C0B100C0C10170F0D0F171B141010141B1F17171717171F1E171A1A1A1A171E1E23252725231E2F2F33332F2F40404040404040404040404040404001110F0F1113111512121514111411141A141616141A261A1A1C1A1A2630231E1E1E1E23302B2E2727272E2B35353030353540403F404040404040404040404040FFC0001108028001A103012200021101031101FFC40076000100030101000000000000000000000000020304010701010101000000000000000000000000000001021001000201020405030304010403000000000102031131214112045161718132B1223391A142F0C15213D1E1F162829223141101010101010100000000000000000000000111413121FFDA000C03010002110311003F00F40000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000119B56BBCC421933456226B316F1805A29AF7149DFEDFDD6C4C4C6B1C601D00000000000000000000000000000000000000000000000000000000000000000000000046D6E9ACDBC21243344CE3B446E0C933333ACF1997011A16E1C9D33D33F19FD9500DE235D7A635DF48D5256400000000000000000000000000000000000000000000000000000000000000000000071D4272522DD333A4F982193045A75AF09E71C954E0C91C9AA26278C4EBE80BAC9FE9CBFE3F45B8FB7D275BFE8B9D0D71D010000000000000000000000000000000000000000000000000000000000000000000001C9E1C58AD3ACCCF8F169CF6E9C73E33C1952AC4A9D5D51D3BB6A8EDE9A44DE79F08F45EA50010000000000000000000000000000000000000000000000000000000000000000000000072674E320CFDC5B5BC57FC7FBAA88999D237926759999E7C53C15D7247971469AA2348888DA383A0AC8000000000000000000000000000000000000000000000000000000000000000000000000AF3DBA71CF8CF04D9FB8B6B68AC72FA8452D1DB574ACDBC787E8CEDB8EBD348AF86E8B5211EAAC5A2BAF19DA1254000000000000000000000000000000000000000000000000000000000000000000046D7AD635B4E8A6DDCCFF0008F7905F3311C676576EE291B7DD2CF6BDAD3ADA7545357165F35EFC368F085602A54D3AA26DB6BC575FB88D34A6FE32CE963A75DBA797305B82B3369C96F66872222B1111B43AAC80000000000000000000000000000000000000000000000000000000000000864CB5C71C78CF2804AD68AC6B69D2145FB899E14E1E6AAF7B5E75B228B84CCCF199D6401469FF00F3D3A6236B739F343B7A755BAA768DBD5A44AC57ACD2D359456E6D6D9B4F4884B3E2AC57AAB1A69B8284F1E59C7AE911313BA00ADB4BC5E358498F1E49A5B5E5CE1AF7566BA0000000000000000000000000000000000000000000000000000000000E5AD1589B4ED00865CB18E3C6D3B432CCCCCEB3C665DBDA6F69B4A28B00051662C53938ED58DE5DC5866DF75B857EAD311111A470812D22222348E110E82A33CD75EE7CB7FD213EE274C7EB29DB4AC4DF4E310CF3DC64989E11EA2A38B1FF00B26635D34E65F15A9BC6B1E2BBB7AE94EAFF002FECB6622784EC86B0B476F9358E89DE36F4579B1744EB1F19FD95C4CC4EB1B87ADC32CE6C931A6BA7A18F24D7244CCEBAF09D54C6B1C74400000000000000000000000000000000000000000000000000019FB9BED4F795EC792DD5799E5C8588BB15998998DA37F771AA3169866BCE638FAA2B2ADC18BAA7AADF18DBCD0AD66D68AFEAD911111A47088128E82A00038E4D2931D331C3C1201CDB843A00864AF552639F2F5636E62B469698F094AB1C0056DACEB589F188490C53AE3AFA26AC8000000000000000000000000000000000000000000000000002379D2B33E112C4D79BF159912AC76B3D3689F09D57CF735E51333E6CE0AD386DD76B5A62227846B0B94F6DF09F55CACD00000000000071866759D679B665B74E39F3E1FAB1A558952B36B45639A79EB15B4444691A27DB5784DBD965F1D6F1113CBC037EB983F157DFEAB11A56295E98DA125400000000000000000000000000000000000000000000000000046F1D54B47970626E63C95E8BCC72E4956220D918B1E9A74C69E3FF005150EDA7EC98F35C8531D69AF4F34D59000000000010C978A575E7CA014F717D66291B4719F5524CCCCEB3B88D3476D68D26BCF5D5730AFEDED79B4EB3331A73F112C68015000000000000000000000000000000000000000000000000000051DC535AC5E396FE8BD1B4C45666DB69C41897E2CFA4456FB46D2A0469BA2626358E303144CD78C4E9E89C67C91CF5F55D4C6B1457B9ACFCA34F3DD744C5A3589D604741C074715DF3D2BB7DD3E409DAD158D67664C9926F3ACEDCA0BDED79D6D3EC8A2C80028D78A934A693BCF19578316B3D76DB94342A5001000000000000000000000000000000000000000000000000000067EE2FACF4472DD6E4BF4566DFA7AB1CCCCF19DC58008A0006FC21B3153A2BA739E32ABB7C7FCE7FF56854AA3B99989AE93A4F1D957FB7247F2959DCEF5F75084766D6B6F333EAE00A0254A5AF3A54115F8B07F2BFFF001598F1569E76F158A9AE3A020000000000000000000000000000000000000000000000000000E3AAF2E4E8AF9CEC0A73DFAADD31B57EAA811A00013C54EBB69CA37462266748E332D78E914AE9CF9FA8952DB843A0A8CDDCCFDD11E4A57773F38F4528D400022359D3C5B6948A5748F7964C7F92BEB0DA44A00A800000000000000000000000000000000000000000002ACB9A293D31C6C0B471D000000071932DFAEFAF28D96F7193F847BB3A2C001405B871F5DB59F8C02CC18F48EB9DE765CE3AAC80032F73F923D3FBAA5BDCFCE3D3FBAA46A000278635C95FEB66C64C1F963DDAD6250010000000000000000000000000000000000000000001C64CBAFF00B2DAF8B628CF8F58EB8DE378162786FD748F18E12B18A97B52758F786AA64ADE386FCE02C4DCB5A2B1ACCE90866C9D11C379D996D6B5A75B4EB218D78EFD75EAD348D78399727457CE76658BDE2348B4C47A96B4DA7599D6764D31C99999D67790050088999D23704A949BDBA63DE5AEB58AC456368731E38A574E7CE5354A00200032F71F93D952DEE3F27B2A46A0002DEDBF24FA353376DF399F26954A00200000000000000000000000000000000000000000000033E5C1FCA9EF1FF0A3CE1B947718EB1F7C70999E308B2A9B5AD6E369D74E0E00A0000003460C7A475CEF3B7A21871F54F54FC63F76912BA02A0000003267FCB3EDF456B33FE59F6FA2B4680017F6DBDBD9A1476DFCBD97AB3400000000000000000000000000000000000000000000000064CF6EAC931CA3835B366C568B4DA23589E322C5202280009E3A4DEDA72E72834E1BE28AC444E93BCEBE2156C44444446D0EB8EAB2000000000C99FF002DBDBE8AD667FCB6F6FA2B468001A7B6F84FAAE558234C71E7AAC565D1CD4074000000000000000000000000000000000000000000001C99888D676819B365EA9E9AFC63F705733ACCCCF3E2E023402EC18BAA7AAD1C236F305734B562266384ED28B72AB76F4B718FB67F631359E2D6AED330B2BDC5E3E5F77ECE5B064AF2D63C95CF0E13B8AD35EE293F2FB67F55B1313B4EBE8C2EC4CC4EB1C24D4C6E192B9F2473D7D56D7B8ACFCA34FDD4C5C235B56DC6B3AA423267FCB6F6FA2B4F37E4B208D00035E0FC55F7FAB364B755E6796BC1A6BF6E189F0AEBFB320913A5A695B5A37DA3DFFEC9F6F33379D79C2BD7EC88F3E29F6FF93D81A8054000000000000000000000000000000000000000000559EDA534E76E0CADB7A56F1A5A3D19B261B538EF5F1458AC1DAD66D3158DE454B1E39BCF946ED711111A46D08E3A452BA47BCA6ACD0001C9889DE35740556C18E7969E885BB69FE33ED2D006B1DB15EBBC70F1841BD0B62A5B78D27C6131758E2662758E12BB166BCDA2B3F76BFAA37C16AF18E30976D1F74CF847D410CDF92C82593F25BD65114023706BB7DB866279574FD991B32CE98EDE8C65482DEDFF0027B2BD274D794ECB3B6FC93E82D6A0159000000000000000000000000000000000000000119BD227A666224BDA2959B4F26399999999DE4591B461762D359D62744D317DFB789E349D27C3925871746B33F29FA258ED36A45A7794D50000000000000000462958B4DA384CEFE0900C593E76F59452C9F92DEB28A34254F9D7D6114F0FE5AFF5C817F713A63D3C6623FBB2B6DE95BFCA3653930445666BCB90911CDC2294FF0018E3EE976D1C6D3ECA6D69B4CCCEF2D3DBD74C7AF8871680A800000000000000000000000000000000000002BCD93A2BC3E53B029CF93AADD31B57EAA811A1DAD66F68AC6F2E444CCE91BCB5E2C714AF9CEF2254EB1D31111CB83A0A8000000000000000000C593E76F59456DF1649B5A62386B2AA6262749E128D0BBB68FBE67C214B476D1C2D3EC255E02A2BB61C76E5A4F92711111111B43A00000000000000000000000000000000000000003933158999DA18EF79BDA6D3ED09E7C9D56E98DA3EAA91600B70639B4F54FC63F7915660C5D31D56DE76F25CE3AAC80000000000000000000038E5A95B7CA3575D066CD48A56B15DB59D656E08D31C79F14E6226349E3003A000000000000000000000000000000000000000000AF364E8AF0F94EC9CCC56266784431DEF37B4DA7F416220446B3A422A58E937B457F596C888AC691C2211C58FA2BA739DD354A00200000000000000000000033F733C6B1EA8E1BDFAE2BAEB13C8EE275C9A7843983F2C796A8BC5B93374E488FE31F24B1E58C9AE91A4432CCEB333E3C5A3B68FB667C641700A800000000000000000000000000000000000038EAACD93A2BA47CA415E7C9D53D11B46FEAA411A1A3063D3EF9DE765787175CEB3F18FDDA84AE80A8000000000000000000000000C99BF2DBFAE461E1369F0ACA39275C96F594F0FC327A7FCA2F1535E08D3143236E3E14AFA410A900A80000000000000000000000000000000000380E5AD15ACDA76863B5A6D69B4EF29E6C9D76D227ED8568B04A959BDA2B08B5E1C7D15E3F29DC5A9D6B1588AC6D0E82B2000000000000000000000000000C57F9DBD653A70C379F1988549757FF5C57CE67F646916E63C7F3AFAC36912802A0000000000000000000000000000000000A73E4D23A2379DFD13C978A566D3ED0C933369D678CC8B1C04F1D26F6D39739454F063D67AE768D9A5C88888D236875590000000000000000000000000001C75C9DA418404693C3C72D7FAE4D8CBDBC6B93D2356A54A0020000000000000000000000000000000E3AA3B8C9A7D91EE0AB2E4EBB7947084011A7622666223796BC78E295D39F3957831E91D73BCECBD528008000000000000000000000000000237F85BD25246FF000B7A4831008D2EEDA3EEB4F8434A8EDBF97B2F56680000000000000000000000000000000E02392F14ACCF3E5EAC733333ACEF29E5C9D76D7946C822C16E0C7D76D67E31FBA14A4DEDD30D75AC56B158DA02BAE82A00000000000000000000000000000008E4F85BD27E892193F1DBD2418C0469A7B6F84FAAE5783F147BFD562B200000000000000000000000000000028EE32691D11BCEEB325FA2BAF3E4C733AF191600BF063FE76FFD515662C7D15E3F29DD602B20000000000000000000000000000000002197F1DBD13432FE3B7A033E28ACCDA6D1AE9132AD2ADBA62DE71A7EA8A34D98A34C75F4D7F54D1A70A563CA1256400000000000000000000000000071D53DC5F488AC73DFD014E5C9D76F28D9012A566F68AC734692C38FAEDC7E31BB56CE56B15AC563924AC80000000000000000000000000000000000008DE35ADA3C6252727871906112C9D1D53D13AC3948D6F58F38469B5D05640000000000000000000000000011B5A2B59B4ED0C76B4DA66D3BCACCF7EAB74C6D5FAAA458EC44CCE91C65AB1638A47FE53BCA383174FDD6DE768F05CA5A00200000000000000000000000000000000000008658B5A9315DE53432C5E69A5379065B562BC35D679CC6CEE28D7257D4C98FFD73A6BAEB1AEAEE08D724796A8D3580AC8000000000000000000000000AF2E4E8AF9CEC9B265BF5DB5E51C20220BB062EAFBADB728F147162EB9D67E31BB54469C2116D7405400000000000000000000000000000000000000015E59BC57EC8D66782C018675D78EFCF55BDB47DF33E4AF2CF564B4F9FD16F6DFCBD9178D002A00000000000000000000000E4CC444CCED00ABB8BE95E98DE77F4538E937B69CB9C9F765C93A73FDA1AA948A5748FD517C762B158D2234887415000000000000000000000000000000000000000000046F6E9A4CF8470495E6899C768806469EDBE13EACCD78634C5545AB00540000000000000000000001565D6F318ABCF8CCF92D7348DF9CEE08D2914AE91EF298000000000000000000000000000000000000000000000008DED15ACDA7924ABB8FC7EE0CD33ACCCF8B65234A563C2218E235988F1E0DA916BA02A0000000000000000000000000000000000000000000000000000000000000000000000000AB3C6B8E7CB8AD432CC463B6BE1F5066C51AE4AC79EBFA3632F6F1AE4F486A16800800000000000000000000000000000000000000000000000000000000000000000000000029EE35FF5FBF15CE4C44C693B4829EDA385A7D97A35AD6B1A56348480000000000000000000000001FFD9" HightQuality="False"/>
     </TfrxOverlay>
-    <TfrxDetailData Name="DetailData2" Height="17" Left="0" Top="421" Width="718,101251175" OnBeforePrint="DetailData2OnBeforePrint" Columns="2" ColumnWidth="360" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
+    <TfrxDetailData Name="DetailData2" Height="17" Left="0" Top="420" Width="718,101251175" OnBeforePrint="DetailData2OnBeforePrint" Columns="2" ColumnWidth="360" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
       <TfrxMemoView Name="Memo10" Align="baLeft" Left="0" Top="0" Width="170" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapY="3" ParentFont="False" VAlign="vaCenter" Text="[frxDBDetalles.&#34;PROPIEDAD&#34;]"/>
       <TfrxMemoView Name="Rich1" Align="baLeft" Left="170" Top="0" Width="188" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="13056" Font.Height="-11" Font.Name="DejaVu Sans Mono" Font.Style="0" Frame.Typ="13" Frame.RightLine.Style="fsDot" GapX="5" GapY="3" ParentFont="False" VAlign="vaCenter" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
       <TfrxLineView Name="Line1" Align="baRight" Left="718,101251175" Top="1" Width="0" Height="16" ShowHint="False" StretchMode="smMaxHeight" Frame.Typ="1"/>
diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
index 1ff4794f..5c7e2d70 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas	
+++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas	
@@ -35,7 +35,6 @@ type
     procedure VerTodos(AContratos: IBizContratoCliente;
       const AVerModal : Boolean = False; const AWindowCaption: String = '';
       const AHeaderText: String = '');
-    procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
     function Nuevo : IBizContratoCliente;
     function Anadir(AContrato : IBizContratoCliente) : Boolean;
     function Eliminar(const ID : Integer): Boolean; overload;
@@ -49,8 +48,6 @@ type
     function ExtraerSeleccionados(AContrato: IBizContratoCliente) : IBizContratoCliente;
     function ElegirContratos(AContrato: IBizContratoCliente; AMensaje: String; AMultiSelect: Boolean): IBizContratoCliente;
 
-    procedure QuitarDireccionEnvio(AContrato: IBizContratoCliente);
-
     procedure RecalcularImportes(AContrato : IBizContratoCliente);
     function EsModificable(AContrato : IBizContratoCliente): Boolean;
     function EsEliminable(AContrato : IBizContratoCliente): Boolean;
@@ -116,10 +113,8 @@ type
     procedure VerTodos(AContratos: IBizContratoCliente;
       const AVerModal : Boolean = False; const AWindowCaption: String = '';
       const AHeaderText: String = '');
-    procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
     function Duplicar(AContrato: IBizContratoCliente): IBizContratoCliente;
 
-    procedure QuitarDireccionEnvio(AContrato: IBizContratoCliente);
     function ExtraerSeleccionados(AContrato: IBizContratoCliente) : IBizContratoCliente;
     function ElegirContratos(AContrato: IBizContratoCliente; AMensaje: String; AMultiSelect: Boolean): IBizContratoCliente;
 
@@ -456,29 +451,6 @@ begin
     end;
 end;
 
-procedure TContratosClienteController.VerDireccionEntrega(
-  AContrato: IBizContratoCliente);
-{var
-  AEditor : IEditorDireccionEntregaContratoCliente;}
-begin
-{
-  AEditor := NIL;
-    //RecuperarObjetos(AContrato); <- No descomentar. No hace falta
-    CreateEditor('EditorDireccionEntregaContratoCliente', IEditorDireccionEntregaContratoCliente, AEditor);
-    if Assigned(AEditor) then
-       with (AEditor as IEditorDireccionEntregaContratoCliente) do
-       begin
-          try
-            Presupuesto := AContrato;
-            ShowModal;
-          finally
-            AEditor.Release;
-            AEditor := NIL;
-          end;
-       end;
-}    
-end;
-
 procedure TContratosClienteController.VerTodos(AContratos: IBizContratoCliente;
   const AVerModal : Boolean = False; const AWindowCaption: String = '';
   const AHeaderText: String = '');
@@ -882,40 +854,6 @@ begin
   Result := AContrato;
 end;
 
-procedure TContratosClienteController.QuitarDireccionEnvio(
-  AContrato: IBizContratoCliente);
-{var
-  bEnEdicion : Boolean;}
-begin
-{
-  if not Assigned(AContrato) then
-    raise Exception.Create ('Contrato no asignado (QuitarDireccionEnvio)');
-
-  if AContrato.DataTable.Active then
-    AContrato.DataTable.Active := True;
-
-  bEnEdicion := (AContrato.DataTable.State in dsEditModes);
-  if not bEnEdicion then
-    AContrato.Edit;
-
-  ShowHourglassCursor;
-  AContrato.Edit;
-  try
-    AContrato.DataTable.FieldByName(fld_ContratosClienteCALLE).Clear;
-    AContrato.DataTable.FieldByName(fld_ContratosClientePOBLACION).Clear;
-    AContrato.DataTable.FieldByName(fld_ContratosClienteCODIGO_POSTAL).Clear;
-    AContrato.DataTable.FieldByName(fld_ContratosClientePROVINCIA).Clear;
-    AContrato.DataTable.FieldByName(fld_ContratosClienteTELEFONO).Clear;
-    AContrato.DataTable.FieldByName(fld_ContratosClientePERSONA_CONTACTO).Clear;
-
-    if not bEnEdicion then
-      AContrato.Post;
-  finally
-    HideHourglassCursor;
-  end;
-}  
-end;
-
 procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false);
 var
   AReportController : IContratosClienteReportController;
diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas
index 78b4ad02..3cc67117 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas	
+++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas	
@@ -59,9 +59,10 @@ end;
 
 function TContratosClienteReportController.ExportToPDF(const AID: Integer;
   const AFileName: String): Boolean;
-var
-  AStream: Binary;
+{var
+  AStream: Binary;}
 begin
+  Result := False;
 {
   Result := False;
   if EsCadenaVacia(AFileName) then
@@ -116,12 +117,12 @@ begin
 end;
 
 procedure TContratosClienteReportController.Print(const AListaID : TIntegerList);
-var
+{var
   AStream: Binary;
-  AEditor : IEditorContratosClientePreview;
+  AEditor : IEditorContratosClientePreview;}
 begin
-  AEditor := NIL;
-{
+{  AEditor := NIL;
+
   ShowHourglassCursor;
   try
     AStream := FDataModule.GetRptPresupuestos(AListaID);
diff --git a/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
index 577c85e0..3f8990e1 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas	
+++ b/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas	
@@ -24,10 +24,7 @@ type
   private
     //Propiedad temporal hasta que exista el controlador independiente de propiedades y capitulos, valores, etc
     FDetallesPresupuestoCliente: IDetallesPresupuestoClienteController;
-
     FDataModule : IDataModuleContratosCliente;
-    function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
-
   protected
     procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; override;
     procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override;
@@ -130,11 +127,6 @@ begin
   FDetallesPresupuestoCliente:= TDetallesPresupuestoClienteController.Create;  
 end;
 
-function TDetallesContratoClienteController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
-begin
-  Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
-end;
-
 function TDetallesContratoClienteController.DarPropiedades: IBizPropiedades;
 begin
   Result := FDetallesPresupuestoCliente.DarPropiedades;
@@ -207,7 +199,7 @@ begin
     while ADataTable.DataTable.Locate(CAMPO_POSICION, AuxPosicion, []) do
     begin
       if (ADataTable.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO) then
-         AuxTipoArticulo := ADataTable.DataTable.FieldByName(fld_CapitulosPresupuestoTIPO_ARTICULO).AsString
+         AuxTipoArticulo := ADataTable.DataTable.FieldByName(fld_TiposCapitulosTIPO_ARTICULO).AsString
       else if (ADataTable.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL) then
          AuxTipoArticulo := ''
       else if (ADataTable.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_CONCEPTO) then
@@ -215,7 +207,7 @@ begin
          begin
            if not ADataTable.DataTable.Editing then
               ADataTable.DataTable.Edit;
-           ADataTable.DataTable.FieldByName(fld_CapitulosPresupuestoTIPO_ARTICULO).AsString := AuxTipoArticulo;
+           ADataTable.DataTable.FieldByName(fld_TiposCapitulosTIPO_ARTICULO).AsString := AuxTipoArticulo;
            ADataTable.DataTable.Post;
          end;
 
diff --git a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj
index add048fd..160b9273 100644
--- a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj	
+++ b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj	
@@ -49,18 +49,18 @@
     <DelphiCompile Include="ContratosCliente_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\adortl.dcp" />
-    <DCCReference Include="..\ContratosCliente_model.dcp" />
-    <DCCReference Include="..\cxLibraryD11.dcp" />
-    <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\dbrtl.dcp" />
-    <DCCReference Include="..\dsnap.dcp" />
-    <DCCReference Include="..\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\dxThemeD11.dcp" />
-    <DCCReference Include="..\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\rtl.dcp" />
-    <DCCReference Include="..\vcl.dcp" />
-    <DCCReference Include="..\vcldb.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\ContratosCliente_model.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
     <DCCReference Include="uDataModuleContratosCliente.pas" />
   </ItemGroup>
 </Project>
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
index 8a8f549c..abe85de5 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm	
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm	
@@ -49,17 +49,28 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
         Name = 'NOMBRE_CLIENTE'
         DataType = datString
         Size = 255
+        DisplayLabel = 'ContratosCliente_NOMBRE_CLIENTE'
+        DictionaryEntry = 'ContratosCliente_NOMBRE_CLIENTE'
+      end
+      item
+        Name = 'REF_CLIENTE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Ref. Cliente'
+        DictionaryEntry = 'ContratosCliente_REF_CLIENTE'
       end
       item
         Name = 'NOMBRE_COMERCIAL_CLIENTE'
         DataType = datString
         Size = 255
+        DisplayLabel = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
+        DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
       end
       item
         Name = 'NIF_CIF'
         DataType = datString
         Size = 15
-        DisplayLabel = 'ContratosCliente_NIF_CIF'
+        DisplayLabel = 'NIF/CIF'
         ServerAutoRefresh = True
         DictionaryEntry = 'ContratosCliente_NIF_CIF'
       end
@@ -71,25 +82,53 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
         ServerAutoRefresh = True
         DictionaryEntry = 'ContratosCliente_NOMBRE'
       end
+      item
+        Name = 'ID_DIRECCION'
+        DataType = datInteger
+        DisplayLabel = 'ContratosCliente_ID_DIRECCION'
+        DictionaryEntry = 'ContratosCliente_ID_DIRECCION'
+      end
       item
         Name = 'CALLE'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Calle'
+        DictionaryEntry = 'ContratosCliente_CALLE'
       end
       item
         Name = 'POBLACION'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Poblaci'#243'n'
+        DictionaryEntry = 'ContratosCliente_POBLACION'
       end
       item
         Name = 'PROVINCIA'
         DataType = datString
         Size = 255
+        DisplayLabel = 'ContratosCliente_PROVINCIA'
+        DictionaryEntry = 'ContratosCliente_PROVINCIA'
       end
       item
         Name = 'CODIGO_POSTAL'
         DataType = datString
         Size = 10
+        DisplayLabel = 'C'#243'd. postal'
+        DictionaryEntry = 'ContratosCliente_CODIGO_POSTAL'
+      end
+      item
+        Name = 'TELEFONO'
+        DataType = datString
+        Size = 25
+        DisplayLabel = 'Tel'#233'fono'
+        DictionaryEntry = 'ContratosCliente_TELEFONO'
+      end
+      item
+        Name = 'MOVIL'
+        DataType = datString
+        Size = 25
+        DisplayLabel = 'M'#243'vil'
+        DictionaryEntry = 'ContratosCliente_MOVIL'
       end
       item
         Name = 'REFERENCIA'
@@ -101,6 +140,8 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
       item
         Name = 'FECHA_CONTRATO'
         DataType = datDateTime
+        DisplayLabel = 'Fecha contrato'
+        DictionaryEntry = 'ContratosCliente_FECHA_CONTRATO'
       end
       item
         Name = 'SITUACION'
@@ -112,10 +153,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
       item
         Name = 'FORMA_PAGO'
         DataType = datMemo
+        DisplayLabel = 'ContratosCliente_FORMA_PAGO'
+        DictionaryEntry = 'ContratosCliente_FORMA_PAGO'
       end
       item
         Name = 'PLAZO_ENTREGA'
         DataType = datMemo
+        DisplayLabel = 'ContratosCliente_PLAZO_ENTREGA'
+        DictionaryEntry = 'ContratosCliente_PLAZO_ENTREGA'
       end
       item
         Name = 'OBSERVACIONES'
@@ -152,18 +197,26 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
       item
         Name = 'RECARGO_EQUIVALENCIA'
         DataType = datSmallInt
+        DisplayLabel = 'ContratosCliente_RECARGO_EQUIVALENCIA'
+        DictionaryEntry = 'ContratosCliente_RECARGO_EQUIVALENCIA'
       end
       item
         Name = 'RE'
         DataType = datFloat
+        DisplayLabel = 'ContratosCliente_RE'
+        DictionaryEntry = 'ContratosCliente_RE'
       end
       item
         Name = 'IMPORTE_RE'
         DataType = datCurrency
+        DisplayLabel = 'Importe RE'
+        DictionaryEntry = 'ContratosCliente_IMPORTE_RE'
       end
       item
         Name = 'ID_TIPO_IVA'
         DataType = datInteger
+        DisplayLabel = 'ContratosCliente_ID_TIPO_IVA'
+        DictionaryEntry = 'ContratosCliente_ID_TIPO_IVA'
       end
       item
         Name = 'IVA'
@@ -196,11 +249,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
       item
         Name = 'ID_TIENDA'
         DataType = datInteger
+        DisplayLabel = 'ContratosCliente_ID_TIENDA'
+        DictionaryEntry = 'ContratosCliente_ID_TIENDA'
       end
       item
         Name = 'TIENDA'
         DataType = datString
         Size = 255
+        DisplayLabel = 'ContratosCliente_TIENDA'
+        DictionaryEntry = 'ContratosCliente_TIENDA'
       end
       item
         Name = 'BASE_IMPONIBLE'
@@ -239,16 +296,22 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
       item
         Name = 'ID_VENDEDOR'
         DataType = datInteger
+        DisplayLabel = 'ContratosCliente_ID_VENDEDOR'
+        DictionaryEntry = 'ContratosCliente_ID_VENDEDOR'
       end
       item
         Name = 'VENDEDOR'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Vendedor'
+        DictionaryEntry = 'ContratosCliente_VENDEDOR'
       end
       item
         Name = 'PERSONA_CONTACTO'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Persona de contacto'
+        DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -448,7 +511,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
     Left = 544
     Top = 152
   end
-  object tbl_CapitulosPresupuesto: TDAMemDataTable
+  object tbl_TiposCapitulos: TDAMemDataTable
     RemoteUpdatesOptions = []
     Fields = <
       item
@@ -483,14 +546,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
     RemoteDataAdapter = rda_ContratosCliente
-    LogicalName = 'CapitulosPresupuesto'
+    LogicalName = 'TiposCapitulos'
     IndexDefs = <>
     Left = 352
     Top = 312
   end
-  object ds_CapitulosPresupuesto: TDADataSource
-    DataSet = tbl_CapitulosPresupuesto.Dataset
-    DataTable = tbl_CapitulosPresupuesto
+  object ds_TiposCapitulos: TDADataSource
+    DataSet = tbl_TiposCapitulos.Dataset
+    DataTable = tbl_TiposCapitulos
     Left = 352
     Top = 256
   end
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
index 4c0e3111..c02a781d 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas	
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas	
@@ -29,8 +29,8 @@ type
     ds_Propiedades: TDADataSource;
     tbl_Valores: TDAMemDataTable;
     ds_Valores: TDADataSource;
-    tbl_CapitulosPresupuesto: TDAMemDataTable;
-    ds_CapitulosPresupuesto: TDADataSource;
+    tbl_TiposCapitulos: TDAMemDataTable;
+    ds_TiposCapitulos: TDADataSource;
     procedure DAClientDataModuleCreate(Sender: TObject);
 
   private
@@ -220,20 +220,20 @@ end;
 
 function TDataModuleContratosCliente.GetItems: IBizContratoCliente;
 var
-  APresupuesto: TDAMemDataTable;
+  AContrato: TDAMemDataTable;
 begin
   ShowHourglassCursor;
   try
-    APresupuesto := CloneDataTable(tbl_ContratosCliente);
-    AsignarClaseNegocio(APresupuesto);
+    AContrato := CloneDataTable(tbl_ContratosCliente);
+    AsignarClaseNegocio(AContrato);
 
     // EL CAMPO REFERENCIA TIENEN QUE SER AUTOREFRESH!!!!!
-    APresupuesto.FieldByName(fld_ContratosClienteREFERENCIA).ServerAutoRefresh := TRUE;
+    AContrato.FieldByName(fld_ContratosClienteREFERENCIA).ServerAutoRefresh := TRUE;
 
-    with TBizContratoCliente(APresupuesto.BusinessEventsObj) do
+    with TBizContratoCliente(AContrato.BusinessEventsObj) do
          Detalles := _GetDetalles;
 
-    Result := (APresupuesto as IBizContratoCliente);
+    Result := (AContrato as IBizContratoCliente);
 
   finally
     HideHourglassCursor;
diff --git a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dpk b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dpk
index 8c1e2c75..d0e79815 100644
--- a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dpk	
+++ b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dpk	
@@ -33,13 +33,16 @@ requires
   adortl,
   Base,
   Contactos_model,
-  Contactos_controller;  
-
+  Contactos_controller,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11;
 
 contains
   uBizDetallesContratoCliente in 'uBizDetallesContratoCliente.pas',
   uBizContratosCliente in 'uBizContratosCliente.pas',
   uIDataModuleContratosCliente in 'Data\uIDataModuleContratosCliente.pas',
-  uIDataModuleContratosClienteReport in 'Data\uIDataModuleContratosClienteReport.pas';
+  uIDataModuleContratosClienteReport in 'Data\uIDataModuleContratosClienteReport.pas',
+  schContratosClienteClient_Intf in 'schContratosClienteClient_Intf.pas',
+  schContratosClienteServer_Intf in 'schContratosClienteServer_Intf.pas';
 
 end.
diff --git a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj
index 2fa9bb61..3aab6d3b 100644
--- a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj	
+++ b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj	
@@ -43,6 +43,8 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
       <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">ContratosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -52,28 +54,23 @@
     <DelphiCompile Include="ContratosCliente_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\adortl.dcp" />
-    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="..\Contactos_c.dcp" />
-    <DCCReference Include="..\Contactos_co.dcp" />
-    <DCCReference Include="..\Contactos_con.dcp" />
-    <DCCReference Include="..\Contactos_cont.dcp" />
-    <DCCReference Include="..\Contactos_contr.dcp" />
-    <DCCReference Include="..\Contactos_contro.dcp" />
-    <DCCReference Include="..\Contactos_control.dcp" />
-    <DCCReference Include="..\Contactos_controll.dcp" />
-    <DCCReference Include="..\Contactos_controlle.dcp" />
-    <DCCReference Include="..\Contactos_model.dcp" />
-    <DCCReference Include="..\Contactos_modelcontainsuBizDetallesContratoClientein.dcp" />
-    <DCCReference Include="..\dbrtl.dcp" />
-    <DCCReference Include="..\dsnap.dcp" />
-    <DCCReference Include="..\rtl.dcp" />
-    <DCCReference Include="..\vcl.dcp" />
-    <DCCReference Include="..\vcldb.dcp" />
+    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
     <DCCReference Include="Data\uIDataModuleContratosCliente.pas" />
     <DCCReference Include="Data\uIDataModuleContratosClienteReport.pas" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="schContratosClienteClient_Intf.pas" />
+    <DCCReference Include="schContratosClienteServer_Intf.pas" />
     <DCCReference Include="uBizContratosCliente.pas" />
     <DCCReference Include="uBizDetallesContratoCliente.pas" />
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vcldb.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
index bde75f64..4dfb2815 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas	
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas	
@@ -9,19 +9,19 @@ 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 = '{6425EDD9-EBD4-43FD-8545-FFEF34A8562A}';
-  RID_Propiedades = '{0F975252-35A0-4D39-846F-4A63EE7B4E60}';
-  RID_ListaAnosContratos = '{24E43FF1-C21B-46BB-B88C-17E3A68E3CA3}';
-  RID_ContratosCliente = '{1866BCD5-3262-49D3-804C-401D7D3FCBE0}';
-  RID_CapitulosPresupuesto = '{F8960438-1112-4E2B-8C4F-546552C38E66}';
-  RID_ContratosCliente_Detalles = '{D7437C8C-E8C5-4877-A3BD-BAC0DB86C2DA}';
+  RID_Valores = '{F657CD6D-DF69-43EA-A3E2-A241DCF09084}';
+  RID_Propiedades = '{9906A858-2BEF-45E9-99AD-FA2D7942CD73}';
+  RID_ListaAnosContratos = '{10A0FC78-53FA-448C-B4BB-98D991B18186}';
+  RID_ContratosCliente = '{E1ADD649-C673-4258-A5F9-7C7898C5D92B}';
+  RID_TiposCapitulos = '{D5F98509-6827-480B-85D3-BF0BA0C64998}';
+  RID_ContratosCliente_Detalles = '{008EBBD7-35BC-43B8-8CBA-26F4B279CFD6}';
 
   { Data table names }
   nme_Valores = 'Valores';
   nme_Propiedades = 'Propiedades';
   nme_ListaAnosContratos = 'ListaAnosContratos';
   nme_ContratosCliente = 'ContratosCliente';
-  nme_CapitulosPresupuesto = 'CapitulosPresupuesto';
+  nme_TiposCapitulos = 'TiposCapitulos';
   nme_ContratosCliente_Detalles = 'ContratosCliente_Detalles';
 
   { Valores fields }
@@ -55,13 +55,17 @@ const
   fld_ContratosClienteID_EMPRESA = 'ID_EMPRESA';
   fld_ContratosClienteID_CLIENTE = 'ID_CLIENTE';
   fld_ContratosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
+  fld_ContratosClienteREF_CLIENTE = 'REF_CLIENTE';
   fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
   fld_ContratosClienteNIF_CIF = 'NIF_CIF';
   fld_ContratosClienteNOMBRE = 'NOMBRE';
+  fld_ContratosClienteID_DIRECCION = 'ID_DIRECCION';
   fld_ContratosClienteCALLE = 'CALLE';
   fld_ContratosClientePOBLACION = 'POBLACION';
   fld_ContratosClientePROVINCIA = 'PROVINCIA';
   fld_ContratosClienteCODIGO_POSTAL = 'CODIGO_POSTAL';
+  fld_ContratosClienteTELEFONO = 'TELEFONO';
+  fld_ContratosClienteMOVIL = 'MOVIL';
   fld_ContratosClienteREFERENCIA = 'REFERENCIA';
   fld_ContratosClienteFECHA_CONTRATO = 'FECHA_CONTRATO';
   fld_ContratosClienteSITUACION = 'SITUACION';
@@ -97,58 +101,62 @@ const
   idx_ContratosClienteID_EMPRESA = 1;
   idx_ContratosClienteID_CLIENTE = 2;
   idx_ContratosClienteNOMBRE_CLIENTE = 3;
-  idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 4;
-  idx_ContratosClienteNIF_CIF = 5;
-  idx_ContratosClienteNOMBRE = 6;
-  idx_ContratosClienteCALLE = 7;
-  idx_ContratosClientePOBLACION = 8;
-  idx_ContratosClientePROVINCIA = 9;
-  idx_ContratosClienteCODIGO_POSTAL = 10;
-  idx_ContratosClienteREFERENCIA = 11;
-  idx_ContratosClienteFECHA_CONTRATO = 12;
-  idx_ContratosClienteSITUACION = 13;
-  idx_ContratosClienteFORMA_PAGO = 14;
-  idx_ContratosClientePLAZO_ENTREGA = 15;
-  idx_ContratosClienteOBSERVACIONES = 16;
-  idx_ContratosClienteINCIDENCIAS = 17;
-  idx_ContratosClienteINCIDENCIAS_ACTIVAS = 18;
-  idx_ContratosClienteFECHA_ALTA = 19;
-  idx_ContratosClienteFECHA_MODIFICACION = 20;
-  idx_ContratosClienteUSUARIO = 21;
-  idx_ContratosClienteRECARGO_EQUIVALENCIA = 22;
-  idx_ContratosClienteRE = 23;
-  idx_ContratosClienteIMPORTE_RE = 24;
-  idx_ContratosClienteID_TIPO_IVA = 25;
-  idx_ContratosClienteIVA = 26;
-  idx_ContratosClienteIMPORTE_IVA = 27;
-  idx_ContratosClienteIMPORTE_NETO = 28;
-  idx_ContratosClienteIMPORTE_PORTE = 29;
-  idx_ContratosClienteID_TIENDA = 30;
-  idx_ContratosClienteTIENDA = 31;
-  idx_ContratosClienteBASE_IMPONIBLE = 32;
-  idx_ContratosClienteDESCUENTO = 33;
-  idx_ContratosClienteIMPORTE_DESCUENTO = 34;
-  idx_ContratosClienteIMPORTE_TOTAL = 35;
-  idx_ContratosClienteID_FORMA_PAGO = 36;
-  idx_ContratosClienteID_VENDEDOR = 37;
-  idx_ContratosClienteVENDEDOR = 38;
-  idx_ContratosClientePERSONA_CONTACTO = 39;
+  idx_ContratosClienteREF_CLIENTE = 4;
+  idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 5;
+  idx_ContratosClienteNIF_CIF = 6;
+  idx_ContratosClienteNOMBRE = 7;
+  idx_ContratosClienteID_DIRECCION = 8;
+  idx_ContratosClienteCALLE = 9;
+  idx_ContratosClientePOBLACION = 10;
+  idx_ContratosClientePROVINCIA = 11;
+  idx_ContratosClienteCODIGO_POSTAL = 12;
+  idx_ContratosClienteTELEFONO = 13;
+  idx_ContratosClienteMOVIL = 14;
+  idx_ContratosClienteREFERENCIA = 15;
+  idx_ContratosClienteFECHA_CONTRATO = 16;
+  idx_ContratosClienteSITUACION = 17;
+  idx_ContratosClienteFORMA_PAGO = 18;
+  idx_ContratosClientePLAZO_ENTREGA = 19;
+  idx_ContratosClienteOBSERVACIONES = 20;
+  idx_ContratosClienteINCIDENCIAS = 21;
+  idx_ContratosClienteINCIDENCIAS_ACTIVAS = 22;
+  idx_ContratosClienteFECHA_ALTA = 23;
+  idx_ContratosClienteFECHA_MODIFICACION = 24;
+  idx_ContratosClienteUSUARIO = 25;
+  idx_ContratosClienteRECARGO_EQUIVALENCIA = 26;
+  idx_ContratosClienteRE = 27;
+  idx_ContratosClienteIMPORTE_RE = 28;
+  idx_ContratosClienteID_TIPO_IVA = 29;
+  idx_ContratosClienteIVA = 30;
+  idx_ContratosClienteIMPORTE_IVA = 31;
+  idx_ContratosClienteIMPORTE_NETO = 32;
+  idx_ContratosClienteIMPORTE_PORTE = 33;
+  idx_ContratosClienteID_TIENDA = 34;
+  idx_ContratosClienteTIENDA = 35;
+  idx_ContratosClienteBASE_IMPONIBLE = 36;
+  idx_ContratosClienteDESCUENTO = 37;
+  idx_ContratosClienteIMPORTE_DESCUENTO = 38;
+  idx_ContratosClienteIMPORTE_TOTAL = 39;
+  idx_ContratosClienteID_FORMA_PAGO = 40;
+  idx_ContratosClienteID_VENDEDOR = 41;
+  idx_ContratosClienteVENDEDOR = 42;
+  idx_ContratosClientePERSONA_CONTACTO = 43;
 
-  { CapitulosPresupuesto fields }
-  fld_CapitulosPresupuestoID = 'ID';
-  fld_CapitulosPresupuestoPOSICION = 'POSICION';
-  fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE';
-  fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO';
-  fld_CapitulosPresupuestoID_ARTICULO = 'ID_ARTICULO';
-  fld_CapitulosPresupuestoCONCEPTO = 'CONCEPTO';
+  { TiposCapitulos fields }
+  fld_TiposCapitulosID = 'ID';
+  fld_TiposCapitulosPOSICION = 'POSICION';
+  fld_TiposCapitulosTIPO_DETALLE = 'TIPO_DETALLE';
+  fld_TiposCapitulosTIPO_ARTICULO = 'TIPO_ARTICULO';
+  fld_TiposCapitulosID_ARTICULO = 'ID_ARTICULO';
+  fld_TiposCapitulosCONCEPTO = 'CONCEPTO';
 
-  { CapitulosPresupuesto field indexes }
-  idx_CapitulosPresupuestoID = 0;
-  idx_CapitulosPresupuestoPOSICION = 1;
-  idx_CapitulosPresupuestoTIPO_DETALLE = 2;
-  idx_CapitulosPresupuestoTIPO_ARTICULO = 3;
-  idx_CapitulosPresupuestoID_ARTICULO = 4;
-  idx_CapitulosPresupuestoCONCEPTO = 5;
+  { TiposCapitulos field indexes }
+  idx_TiposCapitulosID = 0;
+  idx_TiposCapitulosPOSICION = 1;
+  idx_TiposCapitulosTIPO_DETALLE = 2;
+  idx_TiposCapitulosTIPO_ARTICULO = 3;
+  idx_TiposCapitulosID_ARTICULO = 4;
+  idx_TiposCapitulosCONCEPTO = 5;
 
   { ContratosCliente_Detalles fields }
   fld_ContratosCliente_DetallesID = 'ID';
@@ -187,7 +195,7 @@ const
 type
   { IValores }
   IValores = interface(IDAStronglyTypedDataTable)
-  ['{654B9338-5C3E-46DC-9D3B-FEE5C1362851}']
+  ['{A5848FC2-A766-4CF4-8F3D-EBE5A95319D5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -246,7 +254,7 @@ type
 
   { IPropiedades }
   IPropiedades = interface(IDAStronglyTypedDataTable)
-  ['{EE7E48A1-556F-4CCD-A5C0-310C33E76C05}']
+  ['{801022BE-B0EE-4FBA-B321-93EA0FEB0A3F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -305,7 +313,7 @@ type
 
   { IListaAnosContratos }
   IListaAnosContratos = interface(IDAStronglyTypedDataTable)
-  ['{BDEFFDA8-85EB-4B16-9E08-C3CD397B2F70}']
+  ['{86E1F5A6-C2DF-472D-9F60-FEDBE12CD3D6}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -340,7 +348,7 @@ type
 
   { IContratosCliente }
   IContratosCliente = interface(IDAStronglyTypedDataTable)
-  ['{71B11240-6256-418D-82D7-5586D8A10591}']
+  ['{A7B4A2D4-BCA1-4C5C-AD2E-20C4F3BC13CA}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -358,6 +366,10 @@ type
     procedure SetNOMBRE_CLIENTEValue(const aValue: String);
     function GetNOMBRE_CLIENTEIsNull: Boolean;
     procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+    function GetREF_CLIENTEValue: String;
+    procedure SetREF_CLIENTEValue(const aValue: String);
+    function GetREF_CLIENTEIsNull: Boolean;
+    procedure SetREF_CLIENTEIsNull(const aValue: Boolean);
     function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
     procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
     function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
@@ -370,6 +382,10 @@ type
     procedure SetNOMBREValue(const aValue: String);
     function GetNOMBREIsNull: Boolean;
     procedure SetNOMBREIsNull(const aValue: Boolean);
+    function GetID_DIRECCIONValue: Integer;
+    procedure SetID_DIRECCIONValue(const aValue: Integer);
+    function GetID_DIRECCIONIsNull: Boolean;
+    procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
     function GetCALLEValue: String;
     procedure SetCALLEValue(const aValue: String);
     function GetCALLEIsNull: Boolean;
@@ -386,6 +402,14 @@ type
     procedure SetCODIGO_POSTALValue(const aValue: String);
     function GetCODIGO_POSTALIsNull: Boolean;
     procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
+    function GetTELEFONOValue: String;
+    procedure SetTELEFONOValue(const aValue: String);
+    function GetTELEFONOIsNull: Boolean;
+    procedure SetTELEFONOIsNull(const aValue: Boolean);
+    function GetMOVILValue: String;
+    procedure SetMOVILValue(const aValue: String);
+    function GetMOVILIsNull: Boolean;
+    procedure SetMOVILIsNull(const aValue: Boolean);
     function GetREFERENCIAValue: String;
     procedure SetREFERENCIAValue(const aValue: String);
     function GetREFERENCIAIsNull: Boolean;
@@ -509,12 +533,16 @@ type
     property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+    property REF_CLIENTE: String read GetREF_CLIENTEValue write SetREF_CLIENTEValue;
+    property REF_CLIENTEIsNull: Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull;
     property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
     property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
     property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
     property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
     property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
     property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+    property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+    property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
     property CALLE: String read GetCALLEValue write SetCALLEValue;
     property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
     property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@@ -523,6 +551,10 @@ type
     property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
     property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
     property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+    property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
+    property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
+    property MOVIL: String read GetMOVILValue write SetMOVILValue;
+    property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
@@ -612,6 +644,10 @@ type
     procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
     function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
     procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetREF_CLIENTEValue: String; virtual;
+    procedure SetREF_CLIENTEValue(const aValue: String); virtual;
+    function GetREF_CLIENTEIsNull: Boolean; virtual;
+    procedure SetREF_CLIENTEIsNull(const aValue: Boolean); virtual;
     function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
     procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
     function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
@@ -624,6 +660,10 @@ type
     procedure SetNOMBREValue(const aValue: String); virtual;
     function GetNOMBREIsNull: Boolean; virtual;
     procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+    function GetID_DIRECCIONValue: Integer; virtual;
+    procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
+    function GetID_DIRECCIONIsNull: Boolean; virtual;
+    procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
     function GetCALLEValue: String; virtual;
     procedure SetCALLEValue(const aValue: String); virtual;
     function GetCALLEIsNull: Boolean; virtual;
@@ -640,6 +680,14 @@ type
     procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
     function GetCODIGO_POSTALIsNull: Boolean; virtual;
     procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+    function GetTELEFONOValue: String; virtual;
+    procedure SetTELEFONOValue(const aValue: String); virtual;
+    function GetTELEFONOIsNull: Boolean; virtual;
+    procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
+    function GetMOVILValue: String; virtual;
+    procedure SetMOVILValue(const aValue: String); virtual;
+    function GetMOVILIsNull: Boolean; virtual;
+    procedure SetMOVILIsNull(const aValue: Boolean); virtual;
     function GetREFERENCIAValue: String; virtual;
     procedure SetREFERENCIAValue(const aValue: String); virtual;
     function GetREFERENCIAIsNull: Boolean; virtual;
@@ -762,12 +810,16 @@ type
     property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
     property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
     property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+    property REF_CLIENTE: String read GetREF_CLIENTEValue write SetREF_CLIENTEValue;
+    property REF_CLIENTEIsNull: Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull;
     property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
     property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
     property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
     property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
     property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
     property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+    property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+    property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
     property CALLE: String read GetCALLEValue write SetCALLEValue;
     property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
     property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@@ -776,6 +828,10 @@ type
     property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
     property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
     property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+    property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
+    property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
+    property MOVIL: String read GetMOVILValue write SetMOVILValue;
+    property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
     property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
@@ -844,9 +900,9 @@ type
   {
   No tocar es la lista de distintos capitulos existentes
   }
-  { ICapitulosPresupuesto }
-  ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
-  ['{2187AEED-477B-45C3-BBBF-270822AF8DF1}']
+  { ITiposCapitulos }
+  ITiposCapitulos = interface(IDAStronglyTypedDataTable)
+  ['{70CCE7F6-9235-4BA4-9F7E-4DAF2B1C6DD9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -889,8 +945,8 @@ type
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
   end;
 
-  { TCapitulosPresupuestoDataTableRules }
-  TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
+  { TTiposCapitulosDataTableRules }
+  TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
   private
   protected
     { Property getters and setters }
@@ -941,7 +997,7 @@ type
 
   { IContratosCliente_Detalles }
   IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{AE19F002-20B5-4F2A-9EDE-C17C3DA772EA}']
+  ['{BFB8ADB9-FD43-4885-A66C-5CD57A89BE87}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1462,6 +1518,27 @@ begin
     DataTable.Fields[idx_ContratosClienteNOMBRE_CLIENTE].AsVariant := Null;
 end;
 
+function TContratosClienteDataTableRules.GetREF_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_ContratosClienteREF_CLIENTE].AsString;
+end;
+
+procedure TContratosClienteDataTableRules.SetREF_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ContratosClienteREF_CLIENTE].AsString := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetREF_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteREF_CLIENTE].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetREF_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteREF_CLIENTE].AsVariant := Null;
+end;
+
 function TContratosClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
 begin
   result := DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsString;
@@ -1525,6 +1602,27 @@ begin
     DataTable.Fields[idx_ContratosClienteNOMBRE].AsVariant := Null;
 end;
 
+function TContratosClienteDataTableRules.GetID_DIRECCIONValue: Integer;
+begin
+  result := DataTable.Fields[idx_ContratosClienteID_DIRECCION].AsInteger;
+end;
+
+procedure TContratosClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ContratosClienteID_DIRECCION].AsInteger := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetID_DIRECCIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteID_DIRECCION].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteID_DIRECCION].AsVariant := Null;
+end;
+
 function TContratosClienteDataTableRules.GetCALLEValue: String;
 begin
   result := DataTable.Fields[idx_ContratosClienteCALLE].AsString;
@@ -1609,6 +1707,48 @@ begin
     DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL].AsVariant := Null;
 end;
 
+function TContratosClienteDataTableRules.GetTELEFONOValue: String;
+begin
+  result := DataTable.Fields[idx_ContratosClienteTELEFONO].AsString;
+end;
+
+procedure TContratosClienteDataTableRules.SetTELEFONOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ContratosClienteTELEFONO].AsString := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetTELEFONOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteTELEFONO].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetTELEFONOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteTELEFONO].AsVariant := Null;
+end;
+
+function TContratosClienteDataTableRules.GetMOVILValue: String;
+begin
+  result := DataTable.Fields[idx_ContratosClienteMOVIL].AsString;
+end;
+
+procedure TContratosClienteDataTableRules.SetMOVILValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ContratosClienteMOVIL].AsString := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetMOVILIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteMOVIL].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetMOVILIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteMOVIL].AsVariant := Null;
+end;
+
 function TContratosClienteDataTableRules.GetREFERENCIAValue: String;
 begin
   result := DataTable.Fields[idx_ContratosClienteREFERENCIA].AsString;
@@ -2203,141 +2343,141 @@ begin
 end;
 
 
-{ TCapitulosPresupuestoDataTableRules }
-constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable);
+{ TTiposCapitulosDataTableRules }
+constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);
 begin
   inherited;
 end;
 
-destructor TCapitulosPresupuestoDataTableRules.Destroy;
+destructor TTiposCapitulosDataTableRules.Destroy;
 begin
   inherited;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetIDValue: Integer;
+function TTiposCapitulosDataTableRules.GetIDValue: Integer;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoID].AsInteger;
+  result := DataTable.Fields[idx_TiposCapitulosID].AsInteger;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetIDValue(const aValue: Integer);
+procedure TTiposCapitulosDataTableRules.SetIDValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_CapitulosPresupuestoID].AsInteger := aValue;
+  DataTable.Fields[idx_TiposCapitulosID].AsInteger := aValue;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetIDIsNull: boolean;
+function TTiposCapitulosDataTableRules.GetIDIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoID].IsNull;
+  result := DataTable.Fields[idx_TiposCapitulosID].IsNull;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetIDIsNull(const aValue: Boolean);
+procedure TTiposCapitulosDataTableRules.SetIDIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_CapitulosPresupuestoID].AsVariant := Null;
+    DataTable.Fields[idx_TiposCapitulosID].AsVariant := Null;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetPOSICIONValue: Integer;
+function TTiposCapitulosDataTableRules.GetPOSICIONValue: Integer;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsInteger;
+  result := DataTable.Fields[idx_TiposCapitulosPOSICION].AsInteger;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetPOSICIONValue(const aValue: Integer);
+procedure TTiposCapitulosDataTableRules.SetPOSICIONValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsInteger := aValue;
+  DataTable.Fields[idx_TiposCapitulosPOSICION].AsInteger := aValue;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetPOSICIONIsNull: boolean;
+function TTiposCapitulosDataTableRules.GetPOSICIONIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoPOSICION].IsNull;
+  result := DataTable.Fields[idx_TiposCapitulosPOSICION].IsNull;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetPOSICIONIsNull(const aValue: Boolean);
+procedure TTiposCapitulosDataTableRules.SetPOSICIONIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsVariant := Null;
+    DataTable.Fields[idx_TiposCapitulosPOSICION].AsVariant := Null;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetTIPO_DETALLEValue: String;
+function TTiposCapitulosDataTableRules.GetTIPO_DETALLEValue: String;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsString;
+  result := DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].AsString;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetTIPO_DETALLEValue(const aValue: String);
+procedure TTiposCapitulosDataTableRules.SetTIPO_DETALLEValue(const aValue: String);
 begin
-  DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsString := aValue;
+  DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].AsString := aValue;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetTIPO_DETALLEIsNull: boolean;
+function TTiposCapitulosDataTableRules.GetTIPO_DETALLEIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].IsNull;
+  result := DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].IsNull;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
+procedure TTiposCapitulosDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsVariant := Null;
+    DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].AsVariant := Null;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetTIPO_ARTICULOValue: String;
+function TTiposCapitulosDataTableRules.GetTIPO_ARTICULOValue: String;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsString;
+  result := DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].AsString;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetTIPO_ARTICULOValue(const aValue: String);
+procedure TTiposCapitulosDataTableRules.SetTIPO_ARTICULOValue(const aValue: String);
 begin
-  DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsString := aValue;
+  DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].AsString := aValue;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetTIPO_ARTICULOIsNull: boolean;
+function TTiposCapitulosDataTableRules.GetTIPO_ARTICULOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].IsNull;
+  result := DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].IsNull;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
+procedure TTiposCapitulosDataTableRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null;
+    DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].AsVariant := Null;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOValue: Integer;
+function TTiposCapitulosDataTableRules.GetID_ARTICULOValue: Integer;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger;
+  result := DataTable.Fields[idx_TiposCapitulosID_ARTICULO].AsInteger;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
+procedure TTiposCapitulosDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger := aValue;
+  DataTable.Fields[idx_TiposCapitulosID_ARTICULO].AsInteger := aValue;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOIsNull: boolean;
+function TTiposCapitulosDataTableRules.GetID_ARTICULOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].IsNull;
+  result := DataTable.Fields[idx_TiposCapitulosID_ARTICULO].IsNull;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+procedure TTiposCapitulosDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsVariant := Null;
+    DataTable.Fields[idx_TiposCapitulosID_ARTICULO].AsVariant := Null;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetCONCEPTOValue: String;
+function TTiposCapitulosDataTableRules.GetCONCEPTOValue: String;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString;
+  result := DataTable.Fields[idx_TiposCapitulosCONCEPTO].AsString;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOValue(const aValue: String);
+procedure TTiposCapitulosDataTableRules.SetCONCEPTOValue(const aValue: String);
 begin
-  DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString := aValue;
+  DataTable.Fields[idx_TiposCapitulosCONCEPTO].AsString := aValue;
 end;
 
-function TCapitulosPresupuestoDataTableRules.GetCONCEPTOIsNull: boolean;
+function TTiposCapitulosDataTableRules.GetCONCEPTOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].IsNull;
+  result := DataTable.Fields[idx_TiposCapitulosCONCEPTO].IsNull;
 end;
 
-procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
+procedure TTiposCapitulosDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsVariant := Null;
+    DataTable.Fields[idx_TiposCapitulosCONCEPTO].AsVariant := Null;
 end;
 
 
@@ -2673,7 +2813,7 @@ initialization
   RegisterDataTableRules(RID_Propiedades, TPropiedadesDataTableRules);
   RegisterDataTableRules(RID_ListaAnosContratos, TListaAnosContratosDataTableRules);
   RegisterDataTableRules(RID_ContratosCliente, TContratosClienteDataTableRules);
-  RegisterDataTableRules(RID_CapitulosPresupuesto, TCapitulosPresupuestoDataTableRules);
+  RegisterDataTableRules(RID_TiposCapitulos, TTiposCapitulosDataTableRules);
   RegisterDataTableRules(RID_ContratosCliente_Detalles, TContratosCliente_DetallesDataTableRules);
 
 end.
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
index 8b73b264..31911636 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas	
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_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 = '{25248564-22B0-47BB-86D0-2444C6EA27E9}';
-  RID_PropiedadesDelta = '{D4DB0BBC-EA97-4F0E-8A48-AA33A949DBF3}';
-  RID_ListaAnosContratosDelta = '{18D72479-5821-401B-B8A5-43F927D23F4D}';
-  RID_ContratosClienteDelta = '{6AD4B6BE-88CF-47E6-AABC-520CC5BFC3BE}';
-  RID_CapitulosPresupuestoDelta = '{0669B7DF-4A6B-4517-BB0E-2934956BB2B0}';
-  RID_ContratosCliente_DetallesDelta = '{BC3F0D8A-48F1-47D0-86FB-AB210406B3CD}';
+  RID_ValoresDelta = '{A9F29618-E25A-4076-9A31-ED37100D8ABE}';
+  RID_PropiedadesDelta = '{B42E866C-3C13-49E7-96DB-0C6C971567CB}';
+  RID_ListaAnosContratosDelta = '{3A22DAAB-ED1B-4604-A896-E9C0A5898288}';
+  RID_ContratosClienteDelta = '{260D24A7-5771-4ACD-AA15-55EE6FD44FE6}';
+  RID_TiposCapitulosDelta = '{2C1FE27B-5690-4555-B7D2-5C92C9B1EFFA}';
+  RID_ContratosCliente_DetallesDelta = '{EA7927D3-F427-40C6-9394-546BD299BA21}';
 
 type
   { IValoresDelta }
   IValoresDelta = interface(IValores)
-  ['{25248564-22B0-47BB-86D0-2444C6EA27E9}']
+  ['{A9F29618-E25A-4076-9A31-ED37100D8ABE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PROPIEDADValue : Integer;
@@ -77,7 +77,7 @@ type
 
   { IPropiedadesDelta }
   IPropiedadesDelta = interface(IPropiedades)
-  ['{D4DB0BBC-EA97-4F0E-8A48-AA33A949DBF3}']
+  ['{B42E866C-3C13-49E7-96DB-0C6C971567CB}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -135,7 +135,7 @@ type
 
   { IListaAnosContratosDelta }
   IListaAnosContratosDelta = interface(IListaAnosContratos)
-  ['{18D72479-5821-401B-B8A5-43F927D23F4D}']
+  ['{3A22DAAB-ED1B-4604-A896-E9C0A5898288}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -169,19 +169,23 @@ type
 
   { IContratosClienteDelta }
   IContratosClienteDelta = interface(IContratosCliente)
-  ['{6AD4B6BE-88CF-47E6-AABC-520CC5BFC3BE}']
+  ['{260D24A7-5771-4ACD-AA15-55EE6FD44FE6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
     function GetOldNOMBRE_CLIENTEValue : String;
+    function GetOldREF_CLIENTEValue : String;
     function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
     function GetOldNIF_CIFValue : String;
     function GetOldNOMBREValue : String;
+    function GetOldID_DIRECCIONValue : Integer;
     function GetOldCALLEValue : String;
     function GetOldPOBLACIONValue : String;
     function GetOldPROVINCIAValue : String;
     function GetOldCODIGO_POSTALValue : String;
+    function GetOldTELEFONOValue : String;
+    function GetOldMOVILValue : String;
     function GetOldREFERENCIAValue : String;
     function GetOldFECHA_CONTRATOValue : DateTime;
     function GetOldSITUACIONValue : String;
@@ -217,13 +221,17 @@ type
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+    property OldREF_CLIENTE : String read GetOldREF_CLIENTEValue;
     property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
     property OldNIF_CIF : String read GetOldNIF_CIFValue;
     property OldNOMBRE : String read GetOldNOMBREValue;
+    property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
     property OldCALLE : String read GetOldCALLEValue;
     property OldPOBLACION : String read GetOldPOBLACIONValue;
     property OldPROVINCIA : String read GetOldPROVINCIAValue;
     property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+    property OldTELEFONO : String read GetOldTELEFONOValue;
+    property OldMOVIL : String read GetOldMOVILValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
@@ -292,6 +300,12 @@ type
     function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
     procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
     procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetREF_CLIENTEValue: String; virtual;
+    function GetREF_CLIENTEIsNull: Boolean; virtual;
+    function GetOldREF_CLIENTEValue: String; virtual;
+    function GetOldREF_CLIENTEIsNull: Boolean; virtual;
+    procedure SetREF_CLIENTEValue(const aValue: String); virtual;
+    procedure SetREF_CLIENTEIsNull(const aValue: Boolean); virtual;
     function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
     function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
     function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
@@ -310,6 +324,12 @@ type
     function GetOldNOMBREIsNull: Boolean; virtual;
     procedure SetNOMBREValue(const aValue: String); virtual;
     procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+    function GetID_DIRECCIONValue: Integer; virtual;
+    function GetID_DIRECCIONIsNull: Boolean; virtual;
+    function GetOldID_DIRECCIONValue: Integer; virtual;
+    function GetOldID_DIRECCIONIsNull: Boolean; virtual;
+    procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
+    procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
     function GetCALLEValue: String; virtual;
     function GetCALLEIsNull: Boolean; virtual;
     function GetOldCALLEValue: String; virtual;
@@ -334,6 +354,18 @@ type
     function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
     procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
     procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+    function GetTELEFONOValue: String; virtual;
+    function GetTELEFONOIsNull: Boolean; virtual;
+    function GetOldTELEFONOValue: String; virtual;
+    function GetOldTELEFONOIsNull: Boolean; virtual;
+    procedure SetTELEFONOValue(const aValue: String); virtual;
+    procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
+    function GetMOVILValue: String; virtual;
+    function GetMOVILIsNull: Boolean; virtual;
+    function GetOldMOVILValue: String; virtual;
+    function GetOldMOVILIsNull: Boolean; virtual;
+    procedure SetMOVILValue(const aValue: String); virtual;
+    procedure SetMOVILIsNull(const aValue: Boolean); virtual;
     function GetREFERENCIAValue: String; virtual;
     function GetREFERENCIAIsNull: Boolean; virtual;
     function GetOldREFERENCIAValue: String; virtual;
@@ -522,6 +554,10 @@ type
     property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
     property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
     property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
+    property REF_CLIENTE : String read GetREF_CLIENTEValue write SetREF_CLIENTEValue;
+    property REF_CLIENTEIsNull : Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull;
+    property OldREF_CLIENTE : String read GetOldREF_CLIENTEValue;
+    property OldREF_CLIENTEIsNull : Boolean read GetOldREF_CLIENTEIsNull;
     property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
     property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
     property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
@@ -534,6 +570,10 @@ type
     property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
     property OldNOMBRE : String read GetOldNOMBREValue;
     property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
+    property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+    property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
+    property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
+    property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
     property CALLE : String read GetCALLEValue write SetCALLEValue;
     property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
     property OldCALLE : String read GetOldCALLEValue;
@@ -550,6 +590,14 @@ type
     property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
     property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
     property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
+    property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
+    property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
+    property OldTELEFONO : String read GetOldTELEFONOValue;
+    property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
+    property MOVIL : String read GetMOVILValue write SetMOVILValue;
+    property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
+    property OldMOVIL : String read GetOldMOVILValue;
+    property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
     property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
     property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
@@ -673,9 +721,9 @@ type
 
   end;
 
-  { ICapitulosPresupuestoDelta }
-  ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
-  ['{0669B7DF-4A6B-4517-BB0E-2934956BB2B0}']
+  { ITiposCapitulosDelta }
+  ITiposCapitulosDelta = interface(ITiposCapitulos)
+  ['{2C1FE27B-5690-4555-B7D2-5C92C9B1EFFA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldPOSICIONValue : Integer;
@@ -693,8 +741,8 @@ type
     property OldCONCEPTO : String read GetOldCONCEPTOValue;
   end;
 
-  { TCapitulosPresupuestoBusinessProcessorRules }
-  TCapitulosPresupuestoBusinessProcessorRules = class(TDABusinessProcessorRules, ICapitulosPresupuesto, ICapitulosPresupuestoDelta)
+  { TTiposCapitulosBusinessProcessorRules }
+  TTiposCapitulosBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposCapitulos, ITiposCapitulosDelta)
   private
   protected
     { Property getters and setters }
@@ -769,7 +817,7 @@ type
 
   { IContratosCliente_DetallesDelta }
   IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
-  ['{BC3F0D8A-48F1-47D0-86FB-AB210406B3CD}']
+  ['{EA7927D3-F427-40C6-9394-546BD299BA21}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTRATOValue : Integer;
@@ -1400,6 +1448,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_CLIENTE] := Null;
 end;
 
+function TContratosClienteBusinessProcessorRules.GetREF_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREF_CLIENTE];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetREF_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREF_CLIENTE]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldREF_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREF_CLIENTE];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldREF_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREF_CLIENTE]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetREF_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREF_CLIENTE] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetREF_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREF_CLIENTE] := Null;
+end;
+
 function TContratosClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE];
@@ -1493,6 +1572,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE] := Null;
 end;
 
+function TContratosClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_DIRECCION];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_DIRECCION]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION] := Null;
+end;
+
 function TContratosClienteBusinessProcessorRules.GetCALLEValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALLE];
@@ -1617,6 +1727,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCODIGO_POSTAL] := Null;
 end;
 
+function TContratosClienteBusinessProcessorRules.GetTELEFONOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTELEFONO];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTELEFONO]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldTELEFONOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteTELEFONO];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteTELEFONO]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTELEFONO] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTELEFONO] := Null;
+end;
+
+function TContratosClienteBusinessProcessorRules.GetMOVILValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteMOVIL];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetMOVILIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteMOVIL]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldMOVILValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteMOVIL];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteMOVIL]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetMOVILValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteMOVIL] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteMOVIL] := Null;
+end;
+
 function TContratosClienteBusinessProcessorRules.GetREFERENCIAValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA];
@@ -2505,201 +2677,201 @@ begin
 end;
 
 
-{ TCapitulosPresupuestoBusinessProcessorRules }
-constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+{ TTiposCapitulosBusinessProcessorRules }
+constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 begin
   inherited;
 end;
 
-destructor TCapitulosPresupuestoBusinessProcessorRules.Destroy;
+destructor TTiposCapitulosBusinessProcessorRules.Destroy;
 begin
   inherited;
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetIDValue: Integer;
+function TTiposCapitulosBusinessProcessorRules.GetIDValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetIDIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetIDIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID]);
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldIDValue: Integer;
+function TTiposCapitulosBusinessProcessorRules.GetOldIDValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldIDIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetOldIDIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID]);
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetIDValue(const aValue: Integer);
+procedure TTiposCapitulosBusinessProcessorRules.SetIDValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID] := aValue;
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+procedure TTiposCapitulosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID] := Null;
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetPOSICIONValue: Integer;
+function TTiposCapitulosBusinessProcessorRules.GetPOSICIONValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetPOSICIONIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetPOSICIONIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION]);
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldPOSICIONValue: Integer;
+function TTiposCapitulosBusinessProcessorRules.GetOldPOSICIONValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPOSICION];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosPOSICION];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPOSICION]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosPOSICION]);
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
+procedure TTiposCapitulosBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION] := aValue;
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean);
+procedure TTiposCapitulosBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION] := Null;
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_DETALLEValue: String;
+function TTiposCapitulosBusinessProcessorRules.GetTIPO_DETALLEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE]);
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_DETALLEValue: String;
+function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_DETALLEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_DETALLE];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_DETALLE];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_DETALLE]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_DETALLE]);
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String);
+procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE] := aValue;
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
+procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE] := Null;
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_ARTICULOValue: String;
+function TTiposCapitulosBusinessProcessorRules.GetTIPO_ARTICULOValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_ARTICULOIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetTIPO_ARTICULOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO]);
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_ARTICULOValue: String;
+function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_ARTICULOValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_ARTICULO];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_ARTICULOIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_ARTICULOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_ARTICULO]);
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_ARTICULOValue(const aValue: String);
+procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_ARTICULOValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO] := aValue;
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
+procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO] := Null;
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOValue: Integer;
+function TTiposCapitulosBusinessProcessorRules.GetID_ARTICULOValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO]);
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
+function TTiposCapitulosBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID_ARTICULO];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID_ARTICULO]);
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
+procedure TTiposCapitulosBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO] := aValue;
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+procedure TTiposCapitulosBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO] := Null;
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOValue: String;
+function TTiposCapitulosBusinessProcessorRules.GetCONCEPTOValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO]);
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOValue: String;
+function TTiposCapitulosBusinessProcessorRules.GetOldCONCEPTOValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosCONCEPTO];
 end;
 
-function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
+function TTiposCapitulosBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosCONCEPTO]);
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
+procedure TTiposCapitulosBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO] := aValue;
 end;
 
-procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
+procedure TTiposCapitulosBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO] := Null;
 end;
 
 
@@ -3185,7 +3357,7 @@ initialization
   RegisterBusinessProcessorRules(RID_PropiedadesDelta, TPropiedadesBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_ListaAnosContratosDelta, TListaAnosContratosBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_ContratosClienteDelta, TContratosClienteBusinessProcessorRules);
-  RegisterBusinessProcessorRules(RID_CapitulosPresupuestoDelta, TCapitulosPresupuestoBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_TiposCapitulosDelta, TTiposCapitulosBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_ContratosCliente_DetallesDelta, TContratosCliente_DetallesBusinessProcessorRules);
 
 end.
diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
index 73e0e9db..a492a612 100644
--- a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas	
+++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas	
@@ -330,6 +330,12 @@ begin
     ID_CLIENTE := FCliente.ID;
     NOMBRE := FCliente.NOMBRE;
     NIF_CIF := FCliente.NIF_CIF;
+    CALLE := FCliente.CALLE;
+    CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
+    PROVINCIA := FCliente.PROVINCIA;
+    POBLACION := FCliente.POBLACION;
+    TELEFONO := FCliente.TELEFONO_1;
+    MOVIL := FCliente.MOVIL_1;
 
     if FCliente.ID_FORMA_PAGO > 0 then
        ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
index 960f1bc5..3d86288c 100644
--- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm	
+++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm	
@@ -200,9 +200,11 @@ object RptContratosCliente: TRptContratosCliente
               ' V_CONTRATOS_CLIENTE.NOMBRE,'#10'    V_CONTRATOS_CLIENTE.CALLE,'#10'    ' +
               'V_CONTRATOS_CLIENTE.POBLACION,'#10'    V_CONTRATOS_CLIENTE.PROVINCIA' +
               ','#10'    V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10'    V_CONTRATOS_CLIENTE' +
-              '.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10'    V_CONTRATOS' +
-              '_CLIENTE.PERSONA_CONTACTO,'#10'    V_CONTRATOS_CLIENTE.VENDEDOR'#10'FROM' +
-              #10'    V_CONTRATOS_CLIENTE'#10'WHERE'#10'    V_CONTRATOS_CLIENTE.ID = :ID'#10
+              '.TELEFONO,'#10'    V_CONTRATOS_CLIENTE.MOVIL,'#10'    V_CONTRATOS_CLIENT' +
+              'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10'    V_CONTRATO' +
+              'S_CLIENTE.PERSONA_CONTACTO,'#10'    V_CONTRATOS_CLIENTE.VENDEDOR'#10'FRO' +
+              'M'#10'    V_CONTRATOS_CLIENTE'#10'WHERE'#10'    V_CONTRATOS_CLIENTE.ID = :ID' +
+              #10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -312,6 +314,14 @@ object RptContratosCliente: TRptContratosCliente
               item
                 DatasetField = 'REF_CLIENTE'
                 TableField = 'REF_CLIENTE'
+              end
+              item
+                DatasetField = 'TELEFONO'
+                TableField = 'TELEFONO'
+              end
+              item
+                DatasetField = 'MOVIL'
+                TableField = 'MOVIL'
               end>
           end>
         Name = 'Informe_Cabecera'
@@ -416,6 +426,16 @@ object RptContratosCliente: TRptContratosCliente
             DataType = datString
             Size = 10
           end
+          item
+            Name = 'TELEFONO'
+            DataType = datString
+            Size = 25
+          end
+          item
+            Name = 'MOVIL'
+            DataType = datString
+            Size = 25
+          end
           item
             Name = 'IMPORTE_IVA'
             DataType = datCurrency
@@ -885,21 +905,51 @@ object RptContratosCliente: TRptContratosCliente
         Name = 'ID_CLIENTE'
         DataType = datInteger
       end
-      item
-        Name = 'NIF_CIF'
-        DataType = datString
-        Size = 15
-      end
       item
         Name = 'REF_CLIENTE'
         DataType = datString
         Size = 255
       end
+      item
+        Name = 'NIF_CIF'
+        DataType = datString
+        Size = 15
+      end
       item
         Name = 'NOMBRE'
         DataType = datString
         Size = 255
       end
+      item
+        Name = 'CALLE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'POBLACION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'PROVINCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CODIGO_POSTAL'
+        DataType = datString
+        Size = 10
+      end
+      item
+        Name = 'TELEFONO'
+        DataType = datString
+        Size = 25
+      end
+      item
+        Name = 'MOVIL'
+        DataType = datString
+        Size = 25
+      end
       item
         Name = 'IMPORTE_IVA'
         DataType = datCurrency
diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
index 36a76b27..b721e2c6 100644
--- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas	
+++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas	
@@ -533,6 +533,7 @@ begin
 
     frxReport.LoadFromFile(AInforme, True);
     frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
+    frxReport.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
     frxReport.PrepareReport(False);
   finally
     FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
index 4c31c66f..d7e6b94b 100644
--- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm	
+++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm	
@@ -295,6 +295,22 @@ object srvContratosCliente: TsrvContratosCliente
               item
                 DatasetField = 'PERSONA_CONTACTO'
                 TableField = 'PERSONA_CONTACTO'
+              end
+              item
+                DatasetField = 'REF_CLIENTE'
+                TableField = 'REF_CLIENTE'
+              end
+              item
+                DatasetField = 'TELEFONO'
+                TableField = 'TELEFONO'
+              end
+              item
+                DatasetField = 'MOVIL'
+                TableField = 'MOVIL'
+              end
+              item
+                DatasetField = 'ID_DIRECCION'
+                TableField = 'ID_DIRECCION'
               end>
           end>
         Name = 'ContratosCliente'
@@ -321,11 +337,19 @@ object srvContratosCliente: TsrvContratosCliente
             Name = 'NOMBRE_CLIENTE'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'ContratosCliente_NOMBRE_CLIENTE'
+          end
+          item
+            Name = 'REF_CLIENTE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'ContratosCliente_REF_CLIENTE'
           end
           item
             Name = 'NOMBRE_COMERCIAL_CLIENTE'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
           end
           item
             Name = 'NIF_CIF'
@@ -341,25 +365,46 @@ object srvContratosCliente: TsrvContratosCliente
             ServerAutoRefresh = True
             DictionaryEntry = 'ContratosCliente_NOMBRE'
           end
+          item
+            Name = 'ID_DIRECCION'
+            DataType = datInteger
+            DictionaryEntry = 'ContratosCliente_ID_DIRECCION'
+          end
           item
             Name = 'CALLE'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'ContratosCliente_CALLE'
           end
           item
             Name = 'POBLACION'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'ContratosCliente_POBLACION'
           end
           item
             Name = 'PROVINCIA'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'ContratosCliente_PROVINCIA'
           end
           item
             Name = 'CODIGO_POSTAL'
             DataType = datString
             Size = 10
+            DictionaryEntry = 'ContratosCliente_CODIGO_POSTAL'
+          end
+          item
+            Name = 'TELEFONO'
+            DataType = datString
+            Size = 25
+            DictionaryEntry = 'ContratosCliente_TELEFONO'
+          end
+          item
+            Name = 'MOVIL'
+            DataType = datString
+            Size = 25
+            DictionaryEntry = 'ContratosCliente_MOVIL'
           end
           item
             Name = 'REFERENCIA'
@@ -370,6 +415,7 @@ object srvContratosCliente: TsrvContratosCliente
           item
             Name = 'FECHA_CONTRATO'
             DataType = datDateTime
+            DictionaryEntry = 'ContratosCliente_FECHA_CONTRATO'
           end
           item
             Name = 'SITUACION'
@@ -380,10 +426,12 @@ object srvContratosCliente: TsrvContratosCliente
           item
             Name = 'FORMA_PAGO'
             DataType = datMemo
+            DictionaryEntry = 'ContratosCliente_FORMA_PAGO'
           end
           item
             Name = 'PLAZO_ENTREGA'
             DataType = datMemo
+            DictionaryEntry = 'ContratosCliente_PLAZO_ENTREGA'
           end
           item
             Name = 'OBSERVACIONES'
@@ -419,18 +467,22 @@ object srvContratosCliente: TsrvContratosCliente
           item
             Name = 'RECARGO_EQUIVALENCIA'
             DataType = datSmallInt
+            DictionaryEntry = 'ContratosCliente_RECARGO_EQUIVALENCIA'
           end
           item
             Name = 'RE'
             DataType = datFloat
+            DictionaryEntry = 'ContratosCliente_RE'
           end
           item
             Name = 'IMPORTE_RE'
             DataType = datCurrency
+            DictionaryEntry = 'ContratosCliente_IMPORTE_RE'
           end
           item
             Name = 'ID_TIPO_IVA'
             DataType = datInteger
+            DictionaryEntry = 'ContratosCliente_ID_TIPO_IVA'
           end
           item
             Name = 'IVA'
@@ -455,11 +507,13 @@ object srvContratosCliente: TsrvContratosCliente
           item
             Name = 'ID_TIENDA'
             DataType = datInteger
+            DictionaryEntry = 'ContratosCliente_ID_TIENDA'
           end
           item
             Name = 'TIENDA'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'ContratosCliente_TIENDA'
           end
           item
             Name = 'BASE_IMPONIBLE'
@@ -489,16 +543,19 @@ object srvContratosCliente: TsrvContratosCliente
           item
             Name = 'ID_VENDEDOR'
             DataType = datInteger
+            DictionaryEntry = 'ContratosCliente_ID_VENDEDOR'
           end
           item
             Name = 'VENDEDOR'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'ContratosCliente_VENDEDOR'
           end
           item
             Name = 'PERSONA_CONTACTO'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO'
           end>
       end
       item
@@ -537,7 +594,7 @@ object srvContratosCliente: TsrvContratosCliente
                 TableField = 'CONCEPTO'
               end>
           end>
-        Name = 'CapitulosPresupuesto'
+        Name = 'TiposCapitulos'
         Description = 'No tocar es la lista de distintos capitulos existentes'
         Fields = <
           item
@@ -734,8 +791,7 @@ object srvContratosCliente: TsrvContratosCliente
         Params = <
           item
             Name = 'ID'
-            DataType = datAutoInc
-            GeneratorName = 'GEN_CONTRATOS_CLI_ID'
+            DataType = datInteger
             Value = ''
           end
           item
@@ -755,6 +811,11 @@ object srvContratosCliente: TsrvContratosCliente
             Size = 255
             Value = ''
           end
+          item
+            Name = 'ID_DIRECCION'
+            DataType = datInteger
+            Value = ''
+          end
           item
             Name = 'CALLE'
             DataType = datString
@@ -907,6 +968,18 @@ object srvContratosCliente: TsrvContratosCliente
             Name = 'RECARGO_EQUIVALENCIA'
             DataType = datSmallInt
             Value = ''
+          end
+          item
+            Name = 'TELEFONO'
+            DataType = datString
+            Size = 25
+            Value = ''
+          end
+          item
+            Name = 'MOVIL'
+            DataType = datString
+            Size = 25
+            Value = ''
           end>
         Statements = <
           item
@@ -915,21 +988,22 @@ object srvContratosCliente: TsrvContratosCliente
             TargetTable = 'CONTRATOS_CLIENTE'
             SQL = 
               'INSERT'#10'  INTO CONTRATOS_CLIENTE'#10'    (ID, ID_CLIENTE, NIF_CIF, NO' +
-              'MBRE, CALLE, POBLACION, PROVINCIA,'#10'     CODIGO_POSTAL, REFERENCI' +
-              'A, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10'     PLAZO_ENTREGA, OB' +
-              'SERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,'#10'     ' +
-              'USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUEN' +
-              'TO,'#10'     BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE_IVA,'#10'     IMP' +
-              'ORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR, PERSONA_CONTA' +
-              'CTO,'#10'     RE, IMPORTE_RE, RECARGO_EQUIVALENCIA)'#10'  VALUES'#10'    (:I' +
-              'D, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :CALLE, :POBLACION, :PROVINCI' +
-              'A,'#10'     :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION' +
-              ', :FORMA_PAGO,'#10'     :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS' +
-              ', :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10'     :USUARIO, :IMPOR' +
-              'TE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10'     :B' +
-              'ASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL,' +
-              ' :ID_FORMA_PAGO,'#10'     :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACT' +
-              'O, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA)'#10#10
+              'MBRE, ID_DIRECCION, CALLE, POBLACION, PROVINCIA,'#10'     CODIGO_POS' +
+              'TAL, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10'     PLA' +
+              'ZO_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
+              'HA_ALTA,'#10'     USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, I' +
+              '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)'#10'  VALUES'#10'    (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE' +
+              ', :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10'     :CODIGO_PO' +
+              'STAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10'   ' +
+              '  :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACT' +
+              'IVAS, CURRENT_TIMESTAMP,'#10'     :USUARIO, :IMPORTE_NETO, :IMPORTE_' +
+              'PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10'     :BASE_IMPONIBLE, :ID' +
+              '_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' ' +
+              '    :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_R' +
+              'E, :RECARGO_EQUIVALENCIA,'#10'     :TELEFONO, :MOVIL)'#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -977,6 +1051,11 @@ object srvContratosCliente: TsrvContratosCliente
             Size = 255
             Value = ''
           end
+          item
+            Name = 'ID_DIRECCION'
+            DataType = datInteger
+            Value = ''
+          end
           item
             Name = 'CALLE'
             DataType = datString
@@ -1130,6 +1209,18 @@ object srvContratosCliente: TsrvContratosCliente
             DataType = datSmallInt
             Value = ''
           end
+          item
+            Name = 'TELEFONO'
+            DataType = datString
+            Size = 25
+            Value = ''
+          end
+          item
+            Name = 'MOVIL'
+            DataType = datString
+            Size = 25
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -1137,27 +1228,27 @@ object srvContratosCliente: TsrvContratosCliente
         Statements = <
           item
             Connection = 'IBX'
-            Default = True
             TargetTable = 'CONTRATOS_CLIENTE'
             SQL = 
               'UPDATE CONTRATOS_CLIENTE'#10'  SET '#10'    ID = :ID,'#10'    ID_CLIENTE = :' +
-              'ID_CLIENTE,'#10'    NIF_CIF = :NIF_CIF,'#10'    NOMBRE = :NOMBRE,'#10'    CA' +
-              'LLE = :CALLE,'#10'    POBLACION = :POBLACION,'#10'    PROVINCIA = :PROVI' +
-              'NCIA,'#10'    CODIGO_POSTAL = :CODIGO_POSTAL,'#10'    REFERENCIA = :REFE' +
-              'RENCIA,'#10'    FECHA_CONTRATO = :FECHA_CONTRATO,'#10'    SITUACION = :S' +
-              'ITUACION,'#10'    FORMA_PAGO = :FORMA_PAGO,'#10'    PLAZO_ENTREGA = :PLA' +
-              'ZO_ENTREGA,'#10'    OBSERVACIONES = :OBSERVACIONES,'#10'    INCIDENCIAS ' +
-              '= :INCIDENCIAS,'#10'    INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10 +
-              '    FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10'    USUARIO = :USUAR' +
-              'IO,'#10'    IMPORTE_NETO = :IMPORTE_NETO,'#10'    IMPORTE_PORTE = :IMPOR' +
-              'TE_PORTE,'#10'    DESCUENTO = :DESCUENTO,'#10'    IMPORTE_DESCUENTO = :I' +
-              'MPORTE_DESCUENTO,'#10'    BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10'    ID_T' +
-              'IPO_IVA = :ID_TIPO_IVA,'#10'    IVA = :IVA,'#10'    IMPORTE_IVA = :IMPOR' +
-              'TE_IVA,'#10'    IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10'    ID_FORMA_PAGO = ' +
-              ':ID_FORMA_PAGO,'#10'    ID_TIENDA = :ID_TIENDA,'#10'    ID_VENDEDOR = :I' +
-              'D_VENDEDOR,'#10'    PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10'    RE = :' +
-              'RE,'#10'    IMPORTE_RE = :IMPORTE_RE,'#10'    RECARGO_EQUIVALENCIA = :RE' +
-              'CARGO_EQUIVALENCIA'#10#10'  WHERE'#10'    (ID = :OLD_ID)'#10#10
+              'ID_CLIENTE,'#10'    NIF_CIF = :NIF_CIF,'#10'    NOMBRE = :NOMBRE,'#10'    ID' +
+              '_DIRECCION = :ID_DIRECCION,'#10'    CALLE = :CALLE,'#10'    POBLACION = ' +
+              ':POBLACION,'#10'    PROVINCIA = :PROVINCIA,'#10'    CODIGO_POSTAL = :COD' +
+              'IGO_POSTAL,'#10'    REFERENCIA = :REFERENCIA,'#10'    FECHA_CONTRATO = :' +
+              'FECHA_CONTRATO,'#10'    SITUACION = :SITUACION,'#10'    FORMA_PAGO = :FO' +
+              'RMA_PAGO,'#10'    PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10'    OBSERVACIONES ' +
+              '= :OBSERVACIONES,'#10'    INCIDENCIAS = :INCIDENCIAS,'#10'    INCIDENCIA' +
+              'S_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10'    FECHA_MODIFICACION = CURRE' +
+              'NT_TIMESTAMP,'#10'    USUARIO = :USUARIO,'#10'    IMPORTE_NETO = :IMPORT' +
+              'E_NETO,'#10'    IMPORTE_PORTE = :IMPORTE_PORTE,'#10'    DESCUENTO = :DES' +
+              'CUENTO,'#10'    IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10'    BASE_IMP' +
+              'ONIBLE = :BASE_IMPONIBLE,'#10'    ID_TIPO_IVA = :ID_TIPO_IVA,'#10'    IV' +
+              'A = :IVA,'#10'    IMPORTE_IVA = :IMPORTE_IVA,'#10'    IMPORTE_TOTAL = :I' +
+              'MPORTE_TOTAL,'#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10'    ID_TIENDA ' +
+              '= :ID_TIENDA,'#10'    ID_VENDEDOR = :ID_VENDEDOR,'#10'    PERSONA_CONTAC' +
+              'TO = :PERSONA_CONTACTO,'#10'    RE = :RE,'#10'    IMPORTE_RE = :IMPORTE_' +
+              'RE,'#10'    RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10'    TELEFO' +
+              'NO = :TELEFONO,'#10'    MOVIL = :MOVIL'#10'  WHERE'#10'    (ID = :OLD_ID)'#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1444,13 +1535,10 @@ object srvContratosCliente: TsrvContratosCliente
         DataType = datInteger
         DisplayLabel = 'ID_EMPRESA'
       end
-      item
-        Name = 'ContratosCliente_FECHA_PRESUPUESTO'
-        DataType = datDateTime
-      end
       item
         Name = 'ContratosCliente_FECHA_DECISION'
         DataType = datDateTime
+        DisplayLabel = 'Fecha decisi'#243'n'
       end
       item
         Name = 'ContratosCliente_REFERENCIA'
@@ -1473,30 +1561,7 @@ object srvContratosCliente: TsrvContratosCliente
         Name = 'ContratosCliente_NIF_CIF'
         DataType = datString
         Size = 15
-      end
-      item
-        Name = 'ContratosCliente_NOMBRE'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'ContratosCliente_REFERENCIA_CLIENTE'
-        DataType = datString
-        Size = 255
-        DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE'
-      end
-      item
-        Name = 'ContratosCliente_CLIENTE_FINAL'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'ContratosCliente_PORTADA'
-        DataType = datMemo
-      end
-      item
-        Name = 'ContratosCliente_MEMORIA'
-        DataType = datMemo
+        DisplayLabel = 'NIF/CIF'
       end
       item
         Name = 'ContratosCliente_OBSERVACIONES'
@@ -1618,12 +1683,12 @@ object srvContratosCliente: TsrvContratosCliente
         Name = 'ContratosCliente_Detalles_CONCEPTO'
         DataType = datString
         Size = 2000
-        DisplayLabel = 'CONCEPTO'
+        DisplayLabel = 'Concepto'
       end
       item
         Name = 'ContratosCliente_Detalles_CANTIDAD'
         DataType = datFloat
-        DisplayLabel = 'CANTIDAD'
+        DisplayLabel = 'Cantidad'
         Alignment = taRightJustify
       end
       item
@@ -1665,17 +1730,129 @@ object srvContratosCliente: TsrvContratosCliente
         Name = 'ContratosCliente_Detalles_REFERENCIA'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Referencia'
       end
       item
         Name = 'ContratosCliente_Detalles_REFERENCIA_PROVEEDOR'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Ref. proveedor'
       end
       item
         Name = 'ContratosCliente_Detalles_UNIDAD_MEDIDA'
         DataType = datString
         Size = 255
         DisplayLabel = 'Unidad de medida'
+      end
+      item
+        Name = 'ContratosCliente_CALLE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Calle'
+      end
+      item
+        Name = 'ContratosCliente_POBLACION'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Poblaci'#243'n'
+      end
+      item
+        Name = 'ContratosCliente_PROVINCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'ContratosCliente_CODIGO_POSTAL'
+        DataType = datString
+        Size = 10
+        DisplayLabel = 'C'#243'd. postal'
+      end
+      item
+        Name = 'ContratosCliente_TELEFONO'
+        DataType = datString
+        Size = 25
+        DisplayLabel = 'Tel'#233'fono'
+      end
+      item
+        Name = 'ContratosCliente_MOVIL'
+        DataType = datString
+        Size = 25
+        DisplayLabel = 'M'#243'vil'
+      end
+      item
+        Name = 'ContratosCliente_FECHA_CONTRATO'
+        DataType = datDateTime
+        DisplayLabel = 'Fecha contrato'
+      end
+      item
+        Name = 'ContratosCliente_FORMA_PAGO'
+        DataType = datMemo
+      end
+      item
+        Name = 'ContratosCliente_RECARGO_EQUIVALENCIA'
+        DataType = datSmallInt
+      end
+      item
+        Name = 'ContratosCliente_RE'
+        DataType = datFloat
+      end
+      item
+        Name = 'ContratosCliente_IMPORTE_RE'
+        DataType = datCurrency
+        DisplayLabel = 'Importe RE'
+      end
+      item
+        Name = 'ContratosCliente_ID_TIPO_IVA'
+        DataType = datInteger
+      end
+      item
+        Name = 'ContratosCliente_ID_TIENDA'
+        DataType = datInteger
+      end
+      item
+        Name = 'ContratosCliente_TIENDA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'ContratosCliente_ID_VENDEDOR'
+        DataType = datInteger
+      end
+      item
+        Name = 'ContratosCliente_VENDEDOR'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Vendedor'
+      end
+      item
+        Name = 'ContratosCliente_REF_CLIENTE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Ref. Cliente'
+      end
+      item
+        Name = 'ContratosCliente_NOMBRE_CLIENTE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'ContratosCliente_NOMBRE'
+        DataType = datString
+        Size = 255
+        ServerAutoRefresh = True
+      end
+      item
+        Name = 'ContratosCliente_PLAZO_ENTREGA'
+        DataType = datMemo
+      end
+      item
+        Name = 'ContratosCliente_ID_DIRECCION'
+        DataType = datInteger
       end>
     Left = 48
     Top = 152
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
index efc05342..641518ac 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm	
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm	
@@ -1,23 +1,25 @@
 inherited frViewContratoCliente: TfrViewContratoCliente
-  Width = 1019
-  Height = 392
+  Width = 810
+  Height = 449
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
-  ExplicitWidth = 1019
-  ExplicitHeight = 392
+  ExplicitWidth = 810
+  ExplicitHeight = 449
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 1019
-    Height = 392
+    Width = 810
+    Height = 449
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitWidth = 939
+    ExplicitHeight = 392
     DesignSize = (
-      1019
-      392)
+      810
+      449)
     object edtFechaContrato: TcxDBDateEdit
       Left = 104
       Top = 55
@@ -31,23 +33,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Style.Color = clInfoBk
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       Style.Shadow = False
       Style.ButtonStyle = bts3D
       Style.ButtonTransparency = ebtNone
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 1
       Width = 260
     end
     object memObservaciones: TcxDBMemo
-      Left = 490
-      Top = 259
+      Left = 374
+      Top = 289
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
       DataBinding.DataSource = DADataSource
@@ -57,16 +55,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 9
       Height = 200
       Width = 507
@@ -85,18 +79,14 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.Color = clMenuBar
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 0
       Width = 122
     end
@@ -119,23 +109,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 3
       Width = 122
     end
     object bFormasPago: TButton
-      Left = 328
+      Left = 212
       Top = 109
       Width = 132
       Height = 21
@@ -161,23 +147,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 2
       Width = 260
     end
     inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
-      Left = 490
+      Left = 374
       Top = 28
-      Width = 507
-      Height = 195
+      Width = 127
+      Height = 225
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -11
@@ -186,58 +168,52 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       ParentFont = False
       TabOrder = 8
       ReadOnly = False
-      ExplicitLeft = 490
+      ExplicitLeft = 374
       ExplicitTop = 28
-      ExplicitWidth = 507
-      ExplicitHeight = 195
+      ExplicitWidth = 127
+      ExplicitHeight = 225
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 507
-        Height = 195
-        ExplicitWidth = 507
-        ExplicitHeight = 195
+        Width = 127
+        Height = 225
+        ExplicitWidth = 127
+        ExplicitHeight = 225
         inherited edtlNombre: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 224
           Width = 224
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          Left = 394
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 394
+          Left = 301
+          ExplicitLeft = 301
         end
-        inherited Button3: TBitBtn
-          Left = 305
-          ExplicitLeft = 305
+        inherited bVerFichaCliente: TBitBtn
+          Left = 212
+          ExplicitLeft = 212
         end
         inherited edtPersonaContacto: TcxDBTextEdit
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 283
           Width = 283
         end
         inherited edtDireccion: TcxMemo
-          Style.LookAndFeel.SkinName = ''
-          StyleDisabled.LookAndFeel.SkinName = ''
-          StyleFocused.LookAndFeel.SkinName = ''
-          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 121
           Width = 121
         end
-        inherited Button4: TButton
-          Left = 474
-          ExplicitLeft = 474
+        inherited bElegirDireccion: TButton
+          Left = 381
+          ExplicitLeft = 381
         end
-        inherited Button5: TButton
-          Left = 474
-          ExplicitLeft = 474
+        inherited bElegirPersonaContacto: TButton
+          Left = 381
+          ExplicitLeft = 381
+        end
+        inherited edtTelefonos: TcxTextEdit
+          Left = 226
+          ExplicitLeft = 226
+          ExplicitWidth = 193
+          Width = 193
+        end
+        inherited edtReferencia: TcxDBTextEdit
+          ExplicitWidth = 103
+          Width = 103
         end
       end
     end
@@ -253,23 +229,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 6
       Height = 100
       Width = 396
     end
     object memPlazoEntrega: TcxDBMemo
       Left = 22
-      Top = 300
+      Top = 328
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'PLAZO_ENTREGA'
       DataBinding.DataSource = DADataSource
@@ -279,16 +251,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 7
       Height = 100
       Width = 396
@@ -312,18 +280,14 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       Style.ButtonStyle = bts3D
       Style.PopupBorderStyle = epbsFrame3D
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 5
       Width = 27
     end
@@ -417,6 +381,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
         end
       end
       object dxLayoutControl1Group3: TdxLayoutGroup
+        AutoAligns = [aaVertical]
+        AlignHorz = ahClient
         ShowCaption = False
         Hidden = True
         ShowBorder = False
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.dfm b/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.dfm
index 740a931d..ab799a71 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.dfm	
+++ b/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.dfm	
@@ -1,13 +1,13 @@
 inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteContrato
-  Width = 539
-  Height = 200
-  ExplicitWidth = 539
-  ExplicitHeight = 200
+  Width = 447
+  Height = 224
+  ExplicitWidth = 447
+  ExplicitHeight = 224
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 539
-    Height = 200
+    Width = 447
+    Height = 224
     Margins.Left = 0
     Margins.Top = 0
     Margins.Right = 0
@@ -18,16 +18,15 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     DesignSize = (
-      539
-      200)
+      447
+      224)
     object edtlNombre: TcxDBTextEdit
-      Left = 63
+      Left = 71
       Top = 41
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'NOMBRE'
       DataBinding.DataSource = dsCliente
-      Enabled = False
       ParentFont = False
       Properties.ReadOnly = True
       Properties.UseLeftAlignmentOnEditing = False
@@ -35,26 +34,21 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 2
       Height = 21
       Width = 224
     end
     object edtNIFCIF: TcxDBTextEdit
-      Left = 426
+      Left = 334
       Top = 41
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'NIF_CIF'
       DataBinding.DataSource = dsCliente
-      Enabled = False
       ParentFont = False
       Properties.ReadOnly = True
       Properties.UseLeftAlignmentOnEditing = False
@@ -62,19 +56,15 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
       TabOrder = 3
       Height = 21
       Width = 103
     end
-    object Button1: TBitBtn
+    object bElegirCliente: TBitBtn
       Left = 10
       Top = 10
       Width = 115
@@ -118,7 +108,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
         FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
         E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
     end
-    object Button2: TBitBtn
+    object bNuevoCliente: TBitBtn
       Left = 131
       Top = 10
       Width = 143
@@ -162,14 +152,14 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
         FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
         FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
     end
-    object Button3: TBitBtn
-      Left = 337
-      Top = 158
+    object bVerFichaCliente: TBitBtn
+      Left = 245
+      Top = 185
       Width = 192
       Height = 25
       Action = actVerContacto
       Caption = 'Ver ficha completa del cliente...'
-      TabOrder = 8
+      TabOrder = 10
       Glyph.Data = {
         36040000424D3604000000000000360000002800000010000000100000000100
         2000000000000004000000000000000000000000000000000000FF00FF00FF00
@@ -207,8 +197,8 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
         FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
     end
     object edtPersonaContacto: TcxDBTextEdit
-      Left = 63
-      Top = 129
+      Left = 71
+      Top = 156
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
       DataBinding.DataField = 'PERSONA_CONTACTO'
@@ -218,56 +208,88 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 6
+      TabOrder = 8
       Height = 21
       Width = 283
     end
     object edtDireccion: TcxMemo
-      Left = 63
+      Left = 71
+      Top = 95
+      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
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 6
+      Height = 53
+      Width = 437
+    end
+    object bElegirDireccion: TButton
+      Left = 414
+      Top = 95
+      Width = 23
+      Height = 25
+      Action = actElegirDireccion
+      TabOrder = 7
+    end
+    object bElegirPersonaContacto: TButton
+      Left = 414
+      Top = 154
+      Width = 23
+      Height = 25
+      Action = actElegirPersonaContacto
+      TabOrder = 9
+    end
+    object edtTelefonos: TcxTextEdit
+      Left = 239
       Top = 68
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
-      Style.LookAndFeel.SkinName = ''
       StyleDisabled.LookAndFeel.Kind = lfStandard
       StyleDisabled.LookAndFeel.NativeStyle = True
-      StyleDisabled.LookAndFeel.SkinName = ''
       StyleDisabled.TextColor = clWindowText
       StyleFocused.LookAndFeel.Kind = lfStandard
       StyleFocused.LookAndFeel.NativeStyle = True
-      StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 4
-      Height = 53
-      Width = 437
-    end
-    object Button4: TButton
-      Left = 506
-      Top = 68
-      Width = 23
-      Height = 25
-      Action = actElegirDireccion
       TabOrder = 5
+      Width = 193
     end
-    object Button5: TButton
-      Left = 506
-      Top = 127
-      Width = 23
-      Height = 25
-      Action = actElegirPersonaContacto
-      TabOrder = 7
+    object edtReferencia: TcxDBTextEdit
+      Left = 71
+      Top = 68
+      Anchors = [akLeft, akTop, akRight]
+      AutoSize = False
+      DataBinding.DataField = 'REFERENCIA'
+      DataBinding.DataSource = dsCliente
+      ParentFont = False
+      Properties.ReadOnly = True
+      Properties.UseLeftAlignmentOnEditing = False
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 4
+      Height = 21
+      Width = 103
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
@@ -276,25 +298,25 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
       object dxLayoutControl1Group1: TdxLayoutGroup
         ShowCaption = False
         Hidden = True
-        LayoutDirection = ldHorizontal
         ShowBorder = False
-        object dxLayoutControl1Item7: TdxLayoutItem
-          Caption = 'Button1'
+        object dxLayoutControl1Group6: TdxLayoutGroup
           ShowCaption = False
-          Control = Button1
-          ControlOptions.ShowBorder = False
+          Hidden = True
+          LayoutDirection = ldHorizontal
+          ShowBorder = False
+          object dxLayoutControl1Item7: TdxLayoutItem
+            Caption = 'Button1'
+            ShowCaption = False
+            Control = bElegirCliente
+            ControlOptions.ShowBorder = False
+          end
+          object dxLayoutControl1Item8: TdxLayoutItem
+            Caption = 'Button2'
+            ShowCaption = False
+            Control = bNuevoCliente
+            ControlOptions.ShowBorder = False
+          end
         end
-        object dxLayoutControl1Item8: TdxLayoutItem
-          Caption = 'Button2'
-          ShowCaption = False
-          Control = Button2
-          ControlOptions.ShowBorder = False
-        end
-      end
-      object dxLayoutControl1Group2: TdxLayoutGroup
-        ShowCaption = False
-        Hidden = True
-        ShowBorder = False
         object dxLayoutControl1Group4: TdxLayoutGroup
           ShowCaption = False
           Hidden = True
@@ -315,6 +337,31 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
             ControlOptions.ShowBorder = False
           end
         end
+        object dxLayoutControl1Group7: TdxLayoutGroup
+          ShowCaption = False
+          Hidden = True
+          LayoutDirection = ldHorizontal
+          ShowBorder = False
+          object dxLayoutControl1Item11: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Referencia:'
+            Control = edtReferencia
+            ControlOptions.ShowBorder = False
+          end
+          object dxLayoutControl1Item10: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Tel'#233'fonos:'
+            Control = edtTelefonos
+            ControlOptions.ShowBorder = False
+          end
+        end
+      end
+      object dxLayoutControl1Group2: TdxLayoutGroup
+        ShowCaption = False
+        Hidden = True
+        ShowBorder = False
         object dxLayoutControl1Group3: TdxLayoutGroup
           ShowCaption = False
           Hidden = True
@@ -334,7 +381,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
             AlignHorz = ahRight
             Caption = 'Button4'
             ShowCaption = False
-            Control = Button4
+            Control = bElegirDireccion
             ControlOptions.ShowBorder = False
           end
         end
@@ -355,7 +402,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
             AutoAligns = [aaVertical]
             AlignHorz = ahRight
             ShowCaption = False
-            Control = Button5
+            Control = bElegirPersonaContacto
             ControlOptions.ShowBorder = False
           end
         end
@@ -365,7 +412,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
         AlignHorz = ahRight
         Caption = 'Button3'
         ShowCaption = False
-        Control = Button3
+        Control = bVerFichaCliente
         ControlOptions.ShowBorder = False
       end
     end
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas b/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas
index 563a5242..4b502c76 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas	
+++ b/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas	
@@ -34,11 +34,11 @@ type
       write SetOnClienteChanged;
 
     procedure ElegirPersonaContacto;
-    procedure ElegirDireccionCliente;
+    procedure ElegirDireccionParaContrato;
     procedure ElegirCliente;
     procedure VerFichaCliente;
     procedure AnadirNuevoCliente;
-    procedure RefrescarDireccion;
+    procedure RefrescarDireccion;   
   end;
 
   TfrViewDatosYSeleccionClienteContrato = class(TfrViewBase, IViewDatosYSeleccionClienteContrato)
@@ -54,11 +54,11 @@ type
     edtlNombre: TcxDBTextEdit;
     dxLayoutControl1Item2: TdxLayoutItem;
     edtNIFCIF: TcxDBTextEdit;
-    Button1: TBitBtn;
+    bElegirCliente: TBitBtn;
     dxLayoutControl1Item7: TdxLayoutItem;
-    Button2: TBitBtn;
+    bNuevoCliente: TBitBtn;
     dxLayoutControl1Item8: TdxLayoutItem;
-    Button3: TBitBtn;
+    bVerFichaCliente: TBitBtn;
     dxLayoutControl1Item9: TdxLayoutItem;
     dxLayoutControl1Group1: TdxLayoutGroup;
     dxLayoutControl1Group2: TdxLayoutGroup;
@@ -67,15 +67,21 @@ type
     actElegirPersonaContacto: TAction;
     dxLayoutControl1Item3: TdxLayoutItem;
     edtPersonaContacto: TcxDBTextEdit;
-    dxLayoutControl1Group4: TdxLayoutGroup;
     dxLayoutControl1Item4: TdxLayoutItem;
     edtDireccion: TcxMemo;
-    Button4: TButton;
+    bElegirDireccion: TButton;
     dxLayoutControl1Item5: TdxLayoutItem;
     dxLayoutControl1Group3: TdxLayoutGroup;
     dxLayoutControl1Item6: TdxLayoutItem;
-    Button5: TButton;
+    bElegirPersonaContacto: TButton;
     dxLayoutControl1Group5: TdxLayoutGroup;
+    dxLayoutControl1Item10: TdxLayoutItem;
+    edtTelefonos: TcxTextEdit;
+    dxLayoutControl1Item11: TdxLayoutItem;
+    edtReferencia: TcxDBTextEdit;
+    dxLayoutControl1Group6: TdxLayoutGroup;
+    dxLayoutControl1Group4: TdxLayoutGroup;
+    dxLayoutControl1Group7: TdxLayoutGroup;
     procedure actElegirContactoExecute(Sender: TObject);
     procedure actAnadirContactoExecute(Sender: TObject);
     procedure actVerContactoUpdate(Sender: TObject);
@@ -92,12 +98,13 @@ type
   private
     FOnClienteChanged : TNotifyEvent;
     FMsgElegirCliente: String;
+    procedure EscribirTextoTelefonos;
   protected
     FClientesController : IClientesController;
     FDireccionesController : IDireccionesContactoController;
     FContrato : IBizContratoCliente;
     FCliente : IBizCliente;
-    FDireccion : IBizDireccionesContacto;
+
     function GetCliente: IBizCliente; virtual;
     procedure SetCliente(Value: IBizCliente); virtual;
     function GetOnClienteChanged : TNotifyEvent;
@@ -112,11 +119,11 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure ElegirPersonaContacto;
-    procedure ElegirDireccionCliente;
+    procedure ElegirDireccionParaContrato;
     procedure ElegirCliente;
     procedure VerFichaCliente;
     procedure AnadirNuevoCliente;
-    procedure RefrescarDireccion;
+    procedure RefrescarDireccion;   
     property Contrato: IBizContratoCliente read GetContrato write SetContrato;
     property Cliente: IBizCliente read GetCliente write SetCliente;
     property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
@@ -140,15 +147,17 @@ procedure TfrViewDatosYSeleccionClienteContrato.actElegirDireccionExecute(
   Sender: TObject);
 begin
   inherited;
-  ElegirDireccionCliente;
+  ElegirDireccionParaContrato;
+  RefrescarDireccion;
 end;
 
 procedure TfrViewDatosYSeleccionClienteContrato.actElegirDireccionUpdate(
   Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Enabled := Assigned(FCliente.Direcciones) and
-      (FCliente.Direcciones.Active) and (FCliente.Direcciones.RecordCount > 0);
+  (Sender as TAction).Enabled := Assigned(FCliente) and
+      Assigned(FCliente.Direcciones) and (FCliente.Direcciones.Active)
+      and (FCliente.Direcciones.RecordCount > 0);
 end;
 
 procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoExecute(
@@ -156,14 +165,16 @@ procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoExecute(
 begin
   inherited;
   ElegirPersonaContacto;
+  RefrescarDireccion;  
 end;
 
 procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoUpdate(
   Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Enabled := Assigned(FCliente.Personal) and
-  (FCliente.Personal.Active) and (FCliente.Personal.RecordCount > 0);
+  (Sender as TAction).Enabled := Assigned(FCliente) and
+    Assigned(FCliente.Personal) and (FCliente.Personal.Active)
+    and (FCliente.Personal.RecordCount > 0);
 end;
 
 procedure TfrViewDatosYSeleccionClienteContrato.actAnadirContactoExecute(
@@ -198,22 +209,20 @@ end;
 constructor TfrViewDatosYSeleccionClienteContrato.Create(AOwner: TComponent);
 begin
   inherited;
-  FMsgElegirCliente := 'Elija el cliente al que se le realizará el Contrato.';
+  FMsgElegirCliente := 'Elija el cliente al que se le realizará el contrato.';
   FClientesController := TClientesController.Create;
   FDireccionesController := TDireccionesContactoController.Create;
-  FDireccion := FDireccionesController.Nuevo;
 
   edtlNombre.Enabled := False;
   edtNIFCIF.Enabled := False;
   edtDireccion.Enabled := False;
   edtPersonaContacto.Enabled := False;
-
-  Button5.Visible := False;
+  edtReferencia.Enabled := False;
+  edtTelefonos.Enabled := False;
 end;
 
 destructor TfrViewDatosYSeleccionClienteContrato.Destroy;
 begin
-  FDireccion := NIL;
   FClientesController := NIL;
   FDireccionesController := NIL;
   inherited;
@@ -223,7 +232,7 @@ procedure TfrViewDatosYSeleccionClienteContrato.edtDireccionPropertiesButtonClic
   Sender: TObject; AButtonIndex: Integer);
 begin
   inherited;
-  ElegirDireccionCliente;
+  ElegirDireccionParaContrato;
 end;
 
 procedure TfrViewDatosYSeleccionClienteContrato.edtPersonaContactoPropertiesButtonClick(
@@ -246,27 +255,40 @@ begin
   ACliente := Nil;
 end;
 
-procedure TfrViewDatosYSeleccionClienteContrato.ElegirDireccionCliente;
+procedure TfrViewDatosYSeleccionClienteContrato.ElegirDireccionParaContrato;
 var
   ADireccion : IBizDireccionesContacto;
 begin
-  inherited;
-
-  ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, ' ');
+  if FCliente.Direcciones.RecordCount > 0 then
+    ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'El cliente dispone de varias direcciones. Seleccione la que quiere utilizar.')
+  else begin
+    ADireccion := FDireccionesController.Nuevo;
+    FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion);
+  end;
 
   if Assigned(ADireccion) then
   begin
-    FDireccion := ADireccion;
-    EscribirTextoDireccion;
-
-    if FDireccion.IDIsNull then
+    FContrato.Edit;
+    
+    if ADireccion.IDIsNull then   // Se ha elegido la dirección de razón social
     begin
-//      FContrato.ClearField('ID_DIRECCION');
+      FContrato.ClearField('ID_DIRECCION');
       FContrato.ClearField('IMPORTE_PORTE');
     end
     else begin
-//      FContrato.ID_DIRECCION := FDireccion.ID;
-      FContrato.IMPORTE_PORTE := FDireccion.PORTE;
+      FContrato.ID_DIRECCION := ADireccion.ID;
+      FContrato.IMPORTE_PORTE := ADireccion.PORTE;
+    end;
+
+    with FContrato do
+    begin
+      CALLE := ADireccion.CALLE;
+      POBLACION := ADireccion.POBLACION;
+      CODIGO_POSTAL := ADireccion.CODIGO_POSTAL;
+      PROVINCIA := ADireccion.PROVINCIA;
+      PERSONA_CONTACTO := ADireccion.PERSONA_CONTACTO;
+      TELEFONO := ADireccion.TELEFONO;
+      MOVIL := ADireccion.MOVIL;
     end;
   end;
 end;
@@ -277,10 +299,14 @@ var
 begin
   inherited;
   APersona := FClientesController.ElegirPersonaContacto(FCliente.Personal, 'El cliente dispone de personas de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.');
-  if Assigned(APersona) then
-  begin
-    FContrato.Edit;
-    FContrato.PERSONA_CONTACTO := APersona.NOMBRE;
+  try
+    if Assigned(APersona) then
+    begin
+      FContrato.Edit;
+      FContrato.PERSONA_CONTACTO := APersona.NOMBRE;
+    end;
+  finally
+    APersona := NIL;
   end;
 end;
 
@@ -290,18 +316,10 @@ var
 begin
   ACadena := '';
 
-  //Siempre asignaremos la direccion y persona de contacto ya sea de las direcciones del contacto o la ID_Direccion=0 que es la principal de la ficha
-  FContrato.Edit;
-  FContrato.CALLE := FDireccion.CALLE;
-  FContrato.POBLACION := FDireccion.POBLACION;
-  FContrato.PROVINCIA := FDireccion.PROVINCIA;
-  FContrato.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
-  FContrato.PERSONA_CONTACTO := FDireccion.PERSONA_CONTACTO;
-
-  if Assigned(FDireccion) then
+  if Assigned(FContrato) then
     ACadena := Format('%s %s %s %s',
-      [FDireccion.CALLE, FDireccion.POBLACION,
-      FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]);
+      [FContrato.CALLE, FContrato.POBLACION,
+      FContrato.CODIGO_POSTAL, FContrato.PROVINCIA]);
 
   edtDireccion.Text := ACadena;
 end;
@@ -319,8 +337,12 @@ begin
 end;
 
 procedure TfrViewDatosYSeleccionClienteContrato.SetCliente(Value: IBizCliente);
+var
+  ADireccion : IBizDireccionesContacto;
 begin
+  ADireccion := NIL;
   FCliente := Value;
+
   if Assigned(FCliente) then
   begin
     dsCliente.DataTable := FCliente.DataTable;
@@ -332,17 +354,13 @@ begin
     if FCliente.ID > 0 then
        edtPersonaContacto.Enabled := True;
 
-    if FCliente.Direcciones.RecordCount > 0 then
-      ElegirDireccionCliente
-    else begin
-      FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
-      EscribirTextoDireccion;
-    end;
+    ElegirDireccionParaContrato;
+    EscribirTextoDireccion;
+    EscribirTextoTelefonos;
   end
   else begin
     dsCliente.DataTable := NIL;
     FCliente := NIL;
-    FDireccion := NIL;
     edtPersonaContacto.Enabled := False;
   end;
 
@@ -360,41 +378,37 @@ begin
   Result := FOnClienteChanged;
 end;
 
+procedure TfrViewDatosYSeleccionClienteContrato.RefrescarDireccion;
+begin
+  EscribirTextoDireccion;
+  EscribirTextoTelefonos;
+end;
+
 function TfrViewDatosYSeleccionClienteContrato.GetContrato: IBizContratoCliente;
 begin
   Result := FContrato;
 end;
 
-procedure TfrViewDatosYSeleccionClienteContrato.RefrescarDireccion;
+procedure TfrViewDatosYSeleccionClienteContrato.EscribirTextoTelefonos;
+var
+  ACadena : String;
 begin
-//  FDireccion := FDireccionesController.Nuevo;
+  ACadena := '';
 
-//  if (not FContrato.ID_DIRECCIONIsNull) and
-//    (FDireccionesController.Localizar(FCliente.Direcciones, FContrato.ID_DIRECCION)) then
-//      FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
-//  else
-//  FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
+  if not FContrato.TELEFONOIsNull then
+    ACadena := FContrato.TELEFONO;
 
-//  EscribirTextoDireccion;
-
-  FDireccion.Active := True;
-  FDireccion.DataTable.Insert;
-  try
-    with FDireccion do
-    begin
-      NOMBRE := FContrato.NOMBRE;
-      CALLE := FContrato.CALLE;
-      POBLACION := FContrato.POBLACION;
-      PROVINCIA := FContrato.PROVINCIA;
-      CODIGO_POSTAL := FContrato.CODIGO_POSTAL;
-      PERSONA_CONTACTO := FContrato.PERSONA_CONTACTO;
-    end;
-  finally
-    FDireccion.DataTable.Post;
+  if not FContrato.MOVILIsNull then
+  begin
+    if ACadena <> '' then
+      ACadena := ACadena + ' / ';
+    ACadena := ACadena + FContrato.MOVIL;
   end;
-  EscribirTextoDireccion;
+
+  edtTelefonos.Text := ACadena;
 end;
 
+
 procedure TfrViewDatosYSeleccionClienteContrato.SetOnClienteChanged(
   const Value: TNotifyEvent);
 begin
@@ -415,16 +429,21 @@ begin
     if not FCliente.DataTable.Active then
       FCliente.DataTable.Active := True;
 
-    //Solo podremos establecer persona de contacto si se ha asignado un cliente
+    // ¿Hay cliente en el contrato?
     if FCliente.ID > 0 then
-       edtPersonaContacto.Enabled := True;
-
-    RefrescarDireccion;
+    begin
+      edtPersonaContacto.Enabled := True;
+      RefrescarDireccion;
+    end
+    else begin
+      edtPersonaContacto.Enabled := False;
+      edtDireccion.Lines.Clear;
+      edtTelefonos.Text := '';
+    end;
   end
   else begin
     dsContrato.DataTable := NIL;
     FCliente := NIL;
-    FDireccion := NIL;
   end;
 end;
 
@@ -442,7 +461,7 @@ end;
 procedure TfrViewDatosYSeleccionClienteContrato.VerFichaCliente;
 begin
   if not Assigned(Cliente) then
-    ShowErrorMessage('No se ha indicado un cliente', 'El Contrato no tiene ningún cliente asociado a mostrar.')
+    ShowErrorMessage('No se ha indicado un cliente', 'El contrato no tiene ningún cliente asociado a mostrar.')
   else begin
     FClientesController.Ver(Cliente);
   end;
diff --git a/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas b/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas
index a2aedde7..318b5973 100644
--- a/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas	
+++ b/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas	
@@ -185,9 +185,7 @@ end;
 function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente) : Boolean; overload;
 var
   ARespuesta : Integer;
-
 begin
-  Result := False;
   AFactura := NIL;
 
   if not Assigned(AContrato) then