diff --git a/Output/Debug/Servidor/FactuGES_Server.exe b/Output/Debug/Servidor/FactuGES_Server.exe
index 95ef6604..fdc5af92 100644
Binary files a/Output/Debug/Servidor/FactuGES_Server.exe and b/Output/Debug/Servidor/FactuGES_Server.exe differ
diff --git a/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3 b/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3
index 5acdb85d..d0dfa2ff 100644
--- a/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3
+++ b/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39247,7792022917" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  DatosCliente.Lines.Clear;&#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;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ' + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  BandaDetalles.StartNewPage := False;&#13;&#10;  BandaDetalles.Visible := True;&#13;&#10;  MemPrecio.Style := 'Concepto normal';&#13;&#10;  MemCantidad.Style := 'Concepto normal';&#13;&#10;  MemImpTotal.Style := 'Concepto normal';&#13;&#10;  RichConcepto.Visible := True;&#13;&#10;&#13;&#10;  case &#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; of&#13;&#10;  'Salto': begin&#13;&#10;        BandaDetalles.StartNewPage := True;&#13;&#10;        RichConcepto.Visible := False;&#13;&#10;       end;&#13;&#10;  'Titulo': begin&#13;&#10;       MemPrecio.Style := 'Concepto titulo';&#13;&#10;       MemCantidad.Style := 'Concepto titulo';&#13;&#10;       MemImpTotal.Style := 'Concepto titulo';&#13;&#10;       end;&#13;&#10;  'Concepto': begin&#13;&#10;       MemPrecio.Style := 'Concepto normal';&#13;&#10;       MemCantidad.Style := 'Concepto normal';&#13;&#10;       MemImpTotal.Style := 'Concepto normal';&#13;&#10;       end;&#13;&#10;  'Subtotal': begin&#13;&#10;       MemPrecio.Style := 'Concepto subtotal';&#13;&#10;       MemCantidad.Style := 'Concepto subtotal';&#13;&#10;       MemImpTotal.Style := 'Concepto subtotal';&#13;&#10;       end;&#13;&#10;  'Descuento': begin&#13;&#10;       BandaDetalles.Visible := False;&#13;&#10;       RichConcepto.Color := clNone;&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;&#13;&#10;  RichConcepto.Color := MemImpTotal.Color;&#13;&#10;  RichConcepto.Frame := MemImpTotal.Frame;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo15OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo15.Lines.Clear;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;BASE_IMPONIBLE&#34;&#62;) &#60; 0) then&#13;&#10;       Memo15.Lines.Add('ABONO')&#13;&#10;  else&#13;&#10;     Memo15.Lines.Add('FACTURA')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;RE&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;       Memo20.Lines.Clear;&#13;&#10;       Memo28.Lines.Clear;&#13;&#10;       Memo21.Lines.Clear;&#13;&#10;       Memo29.Lines.Clear;&#13;&#10;  end;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="39248,4758345949" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  DatosCliente.Lines.Clear;&#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;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ' + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  BandaDetalles.StartNewPage := False;&#13;&#10;  BandaDetalles.Visible := True;&#13;&#10;  MemPrecio.Style := 'Concepto normal';&#13;&#10;  MemCantidad.Style := 'Concepto normal';&#13;&#10;  MemImpTotal.Style := 'Concepto normal';&#13;&#10;  RichConcepto.Visible := True;&#13;&#10;&#13;&#10;  case &#60;frxDBDetalles.&#34;TIPO_DETALLE&#34;&#62; of&#13;&#10;  'Salto': begin&#13;&#10;        BandaDetalles.StartNewPage := True;&#13;&#10;        RichConcepto.Visible := False;&#13;&#10;       end;&#13;&#10;  'Titulo': begin&#13;&#10;       MemPrecio.Style := 'Concepto titulo';&#13;&#10;       MemCantidad.Style := 'Concepto titulo';&#13;&#10;       MemImpTotal.Style := 'Concepto titulo';&#13;&#10;       end;&#13;&#10;  'Concepto': begin&#13;&#10;       MemPrecio.Style := 'Concepto normal';&#13;&#10;       MemCantidad.Style := 'Concepto normal';&#13;&#10;       MemImpTotal.Style := 'Concepto normal';&#13;&#10;       end;&#13;&#10;  'Subtotal': begin&#13;&#10;       MemPrecio.Style := 'Concepto subtotal';&#13;&#10;       MemCantidad.Style := 'Concepto subtotal';&#13;&#10;       MemImpTotal.Style := 'Concepto subtotal';&#13;&#10;       end;&#13;&#10;  'Descuento': begin&#13;&#10;       BandaDetalles.Visible := False;&#13;&#10;       RichConcepto.Color := clNone;&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;&#13;&#10;  RichConcepto.Color := MemImpTotal.Color;&#13;&#10;  RichConcepto.Frame := MemImpTotal.Frame;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10;  DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10;  Cadena := '';&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo15OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo15.Lines.Clear;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;BASE_IMPONIBLE&#34;&#62;) &#60; 0) then&#13;&#10;       Memo15.Lines.Add('ABONO')&#13;&#10;  else&#13;&#10;     Memo15.Lines.Add('FACTURA')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo20OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;RE&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;       Memo20.Lines.Clear;&#13;&#10;       Memo28.Lines.Clear;&#13;&#10;       Memo21.Lines.Clear;&#13;&#10;       Memo29.Lines.Clear;&#13;&#10;  end;&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena : String;&#13;&#10;begin&#13;&#10;  if (&#60;frxDBCabecera.&#34;TITULAR&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin&#13;&#10;    Cadena := Memo11.Lines.Text;&#13;&#10;    Memo11.Lines.Clear;&#13;&#10;    Memo11.Lines.Add(&#60;frxDBCabecera.&#34;TITULAR&#34;&#62;);&#13;&#10;    Memo11.Lines.Add(Cadena);&#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band2" Height="254,92913142" Left="0" Top="16" Width="718,1107">
       <TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="402,14193" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Concepto"/>
@@ -31,11 +31,13 @@
       <TfrxShapeView Name="Shape4" Left="372" Top="26,45671" Width="345" Height="98,26778" Color="16250871" Shape="skRoundRectangle"/>
       <TfrxShapeView Name="Shape3" Left="8" Top="26,45671" Width="345" Height="98,26778" Color="16250871" Shape="skRoundRectangle"/>
       <TfrxMemoView Name="Memo26" Left="17,57483" Top="33,82684" Width="113,3859" Height="14,89765" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="FORMA DE PAGO"/>
-      <TfrxMemoView Name="Memo27" Left="17,57483" Top="48,50402" Width="328,59864" Height="69,82684" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FORMA_PAGO&#34;]"/>
+      <TfrxMemoView Name="Memo27" Left="17,57483" Top="48,50402" Width="328,59864" Height="17,82684" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FORMA_PAGO&#34;]"/>
       <TfrxMemoView Name="Memo30" Left="379,7483" Top="33,82684" Width="113,3859" Height="14,89765" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="OBSERVACIONES"/>
       <TfrxMemoView Name="Memo31" Left="379,7483" Top="48,50402" Width="331,24428" Height="69,83" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;OBSERVACIONES&#34;]"/>
       <TfrxMemoView Name="Memo34" Left="3,5906" Top="151,62214" Width="712,28386" Height="18,89765" Visible="False" StretchMode="smActualHeight" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="[frxDBCabecera.&#34;REGISTRO_MERCANTIL&#34;]"/>
       <TfrxLineView Name="Line6" Left="4" Top="0" Width="715" Height="0" Frame.Typ="4"/>
+      <TfrxMemoView Name="Memo1" Left="17,57483" Top="72" Width="113,3859" Height="14,89765" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="DATOS BANCARIOS"/>
+      <TfrxMemoView Name="Memo11" Left="17,57483" Top="87,5" Width="328,59864" Height="25,82684" OnBeforePrint="Memo11OnBeforePrint" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;ENTIDAD&#34;] [frxDBCabecera.&#34;SUCURSAL&#34;] [frxDBCabecera.&#34;DC&#34;] [frxDBCabecera.&#34;CUENTA&#34;]"/>
     </TfrxPageFooter>
     <TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="332" Width="718,1107" OnBeforePrint="BandaDetallesOnBeforePrint" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
       <TfrxMemoView Name="Memo39" Left="565,41732283" Top="0" Width="58,58267717" Height="19,11812" Highlight.Font.Charset="1" Highlight.Font.Color="255" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Color="15790320" Highlight.Condition="&#60;line#&#62; mod 2 = 0" Text=""/>
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 36f26e23..86c94e6a 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index cebad1f2..ac84b32e 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm	
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm	
@@ -93,7 +93,7 @@ object RptFacturasCliente: TRptFacturasCliente
             Name = 'ID'
             DataType = datInteger
             BlobType = dabtUnknown
-            Value = '12'
+            Value = '1'
             ParamType = daptInput
           end>
         Statements = <
@@ -111,16 +111,20 @@ object RptFacturasCliente: TRptFacturasCliente
               'S_CLIENTE.ID_CLIENTE,'#10'    V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS' +
               '_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10'    V_FACTURAS_CLIENT' +
               'E.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENT' +
-              'E.POBLACION,'#10#10'    ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRES' +
-              'A, EMPRESAS.RAZON_SOCIAL,'#10'    EMPRESAS.CALLE as CALLE_EMPRESA, E' +
-              'MPRESAS.POBLACION as POBLACION_EMPRESA,'#10'    EMPRESAS.PROVINCIA a' +
-              's PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMP' +
-              'RESA,'#10'    EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, E' +
-              'MPRESAS.EMAIL_1,'#10'    EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERC' +
-              'ANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPR' +
-              'ESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMA' +
-              'S_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'WHERE V_FACTURAS_C' +
-              'LIENTE.ID = :ID'
+              'E.POBLACION,'#10'    CONTACTOS_DATOS_BANCO.TITULAR,'#10'    CONTACTOS_DA' +
+              'TOS_BANCO.ENTIDAD,'#10'    CONTACTOS_DATOS_BANCO.SUCURSAL,'#10'    CONTA' +
+              'CTOS_DATOS_BANCO.DC,'#10'    CONTACTOS_DATOS_BANCO.CUENTA,'#10'    ID_EM' +
+              'PRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIA' +
+              'L,'#10'    EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as PO' +
+              'BLACION_EMPRESA,'#10'    EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EM' +
+              'PRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10'    EMPRESAS.TELE' +
+              'FONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10'    EM' +
+              'PRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIP' +
+              'O'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID' +
+              '_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_C' +
+              'LIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTAC' +
+              'TOS_DATOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHE' +
+              'RE V_FACTURAS_CLIENTE.ID = :ID'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -258,6 +262,26 @@ object RptFacturasCliente: TRptFacturasCliente
               item
                 DatasetField = 'IMPORTE_RE'
                 TableField = 'IMPORTE_RE'
+              end
+              item
+                DatasetField = 'TITULAR'
+                TableField = 'TITULAR'
+              end
+              item
+                DatasetField = 'ENTIDAD'
+                TableField = 'ENTIDAD'
+              end
+              item
+                DatasetField = 'SUCURSAL'
+                TableField = 'SUCURSAL'
+              end
+              item
+                DatasetField = 'DC'
+                TableField = 'DC'
+              end
+              item
+                DatasetField = 'CUENTA'
+                TableField = 'CUENTA'
               end>
           end>
         Name = 'InformeFacturasCliente'
@@ -387,9 +411,12 @@ object RptFacturasCliente: TRptFacturasCliente
           end
           item
             Name = 'FORMA_PAGO'
-            DataType = datMemo
+            DataType = datString
+            Size = 255
             BlobType = dabtUnknown
-            DictionaryEntry = 'FacturasCliente_FORMA_PAGO'
+            DisplayWidth = 0
+            DisplayLabel = 'Forma de pago'
+            Alignment = taLeftJustify
             InPrimaryKey = False
             Calculated = False
             Lookup = False
@@ -470,6 +497,66 @@ object RptFacturasCliente: TRptFacturasCliente
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'TITULAR'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ENTIDAD'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'SUCURSAL'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'DC'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'CUENTA'
+            DataType = datString
+            Size = 15
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'POBLACION'
             DataType = datString
diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj
index 25e990d8..bd0141d5 100644
--- a/Source/Servidor/FactuGES_Server.bdsproj
+++ b/Source/Servidor/FactuGES_Server.bdsproj
@@ -125,7 +125,7 @@
 			<Directories Name="PackageDCPOutputDir"></Directories>
 			<Directories Name="SearchPath">..\DataAbstract_D10\Lib</Directories>
 			<Directories Name="Packages">rtl;vclx;vcl;dbrtl;vcldb;dbxcds;dbexpress;vclib;ibxpress;indy;dclOfficeXP;VclSmp;dsnap;bdertl;teeui;teedb;tee;vcldbx;vclactnband;dxBarExtItemsD10;dxComnD10;dxBarD10;cxLibraryD10;cxEditorsD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarDBNavD10;dxBarExtDBItemsD10;tbx_d10;tb2k_d10;ccpack10;ccpack10dsg;cxExportD10;cxIntl5D10;adortl;DataAbstract_Core_D10;DataAbstract_DBXDriver_D10;DataAbstract_Scripting_D10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;fqb100;dxLayoutControlcxEditAdaptersD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSDBTeeChartD10;dxPSTeeChartD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;GUISDK_D10;JvAppFrmD10R;JvCoreD10R;Jcl;JclVcl;JvSystemD10R;JvStdCtrlsD10R;JvBandsD10R;JvDBD10R;JvDlgsD10R;JvBDED10R;JvCmpD10R;JvCryptD10R;JvCtrlsD10R;JvCustomD10R;JvDockingD10R;JvDotNetCtrlsD10R;JvEDID10R;JvGlobusD10R;JvHMID10R;JvInterpreterD10R;JvJansD10R;JvManagedThreadsD10R;JvMMD10R;JvNetD10R;JvPageCompsD10R;JvPluginD10R;JvPrintPreviewD10R;JvRuntimeDesignD10R;JvTimeFrameworkD10R;JvUIBD10R;JvValidatorsD10R;JvWizardD10R;JvXPCtrlsD10R;PluginSDK_D10R;PNG_D10;PngComponentsD10;inet;RemObjects_WebBroker_D10;RemObjects_RODX_D10;RemObjects_BPDX_D10;RemObjects_Indy_D10;PascalScript_RO_D10;IndyProtocols;IndyCore;IndySystem;DataAbstract_IDE_D10;fsTee10;fs10;frx10;frxADO10;frxBDE10;frxDB10;frxDBX10;frxe10;frxIBX10;frxTee10;fsADO10;fsBDE10;fsDB10;fsIBX10</Directories>
-			<Directories Name="Conditionals"></Directories>
+			<Directories Name="Conditionals">EUREKALOG;EUREKALOG_VER5</Directories>
 			<Directories Name="DebugSourceDirs"></Directories>
 			<Directories Name="UsePackages">False</Directories>
 		</Directories>
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 58029884..7efa51cd 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -3,6 +3,7 @@ program FactuGES_Server;
 {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
 
 uses
+  ExceptionLog,
   uROComInit,
   Forms,
   uServerMainForm in 'uServerMainForm.pas' {fServerForm},
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index dc204085..aa5f2ed4 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ