diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB
index e733ad49..8ab70038 100644
Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ
diff --git a/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3 b/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3
index 701d3fa9..8e49e4c9 100644
--- a/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3
+++ b/Output/Debug/Servidor/Informes/InfAlbaranCliente.fr3
@@ -1,41 +1,47 @@
 <?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.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39260,4759488889" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + ' (tlf: ' + &#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; + ' )';&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo2.Lines.Clear;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10;     Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN')&#13;&#10;  else&#13;&#10;     Memo2.Lines.Add('ALBARÁN DE CLIENTE')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10;  begin&#13;&#10;     Memo5.Lines.Clear;&#13;&#10;     Memo5.Lines.Add('Nº orden:');&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo9OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10;  begin&#13;&#10;     Memo9.Lines.Clear;&#13;&#10;     Memo9.Lines.Add('Fecha orden:');&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C650100">
+<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39283,4523129977" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;&#13;&#10;  ACadena := '';&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Memo2.Lines.Clear;&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10;     Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN')&#13;&#10;  else&#13;&#10;     Memo2.Lines.Add('ALBARÁN DE CLIENTE')&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10;  begin&#13;&#10;     Memo5.Lines.Clear;&#13;&#10;     Memo5.Lines.Add('Nº orden:');&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo9OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_TOTAL&#34;&#62;) &#60; 0) then&#13;&#10;  begin&#13;&#10;     Memo9.Lines.Clear;&#13;&#10;     Memo9.Lines.Add('Fecha orden:');&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C650100">
   <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
-    <TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="404,40971" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
+    <TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="476,22078" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
       <TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="137,5" Top="1,5" Width="580,5436" Height="18" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
       <TfrxMemoView Name="Memo14" Left="1" Top="1,5" Width="75" Height="18" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;REFERENCIA_PROVEEDOR&#34;] "/>
       <TfrxMemoView Name="MemoCampo2" Left="78" Top="1,5" Width="56,03148874" Height="18" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
     </TfrxMasterData>
-    <TfrxPageFooter Name="PageFooter1" Height="72,87953" Left="0" Top="487,55937" Width="718,1107">
+    <TfrxPageFooter Name="PageFooter1" Height="72,87953" Left="0" Top="559,37044" Width="718,1107">
       <TfrxLineView Name="Line4" Align="baCenter" Left="-0,94465" Top="4" Width="720" Height="0" Frame.Color="8421504" Frame.Typ="4"/>
     </TfrxPageFooter>
-    <TfrxPageHeader Name="PageHeader1" Height="323,14968685" Left="0" Top="18,89765" Width="718,1107">
-      <TfrxMemoView Name="Memo23" Left="134,72047" Top="297,20872" Width="583,7" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
-      <TfrxMemoView Name="Memo8" Left="76" Top="297,20872" Width="60,71653543" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
-      <TfrxMemoView Name="Memo13" Left="0" Top="297,20872" Width="76,2" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
+    <TfrxPageHeader Name="PageHeader1" Height="394,96075685" Left="0" Top="18,89765" Width="718,1107">
+      <TfrxMemoView Name="Memo23" Left="134,72047" Top="369,01979" Width="583,7" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
+      <TfrxMemoView Name="Memo8" Left="76" Top="369,01979" Width="60,71653543" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
+      <TfrxMemoView Name="Memo13" Left="0" Top="369,01979" Width="76,2" Height="26,45669291" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
       <TfrxShapeView Name="Shape2" Left="0" Top="90,67718" Width="717,73228346" Height="77,7953" Frame.Color="8421504"/>
       <TfrxMemoView Name="Memo2" Left="267,65337" Top="37,35436" Width="442,42548" Height="38,89765" OnBeforePrint="Memo2OnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text=""/>
       <TfrxMemoView Name="NombreEmpresa" Left="0" Top="22,67718" Width="414,07885" Height="26,89765" OnBeforePrint="NombreEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
       <TfrxMemoView Name="Memo7" Left="3,55906" Top="94,48825" Width="60,69295" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Página nº:"/>
       <TfrxMemoView Name="Memo12" Left="65,82684" Top="94,48825" Width="84,03154" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[&#60;Page#&#62;] / [&#60;TotalPages#&#62;]"/>
-      <TfrxShapeView Name="Shape1" Left="0" Top="168,18897638" Width="717,73228346" Height="119,18109016" Color="16777215" Frame.Color="8421504"/>
-      <TfrxMemoView Name="Memo10" Left="3,68491" Top="174,04731" Width="349,29159" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="DIRECCIÓN DESTINO:"/>
+      <TfrxShapeView Name="Shape1" Left="0" Top="168,18897638" Width="717,73228346" Height="172,09451016" Color="16777215" Frame.Color="8421504"/>
+      <TfrxMemoView Name="Memo10" Left="79,27551" Top="272,31509" Width="156,53556" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Dirección destino:"/>
       <TfrxMemoView Name="DatosEmpresa" Left="0" Top="54,67718" Width="414,07885" Height="26,89765" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
       <TfrxMemoView Name="Memo5" Left="226,55133" Top="94,48825" Width="64,47248" Height="18,9" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nº albarán:"/>
       <TfrxMemoView Name="Memo4" Left="3,55906" Top="119,11812" Width="106,48825" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nombre de cliente:"/>
       <TfrxMemoView Name="Memo11" Left="113,82684" Top="119,11812" Width="335,81107" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;NOMBRE&#34;]"/>
       <TfrxMemoView Name="Memo3" Left="294,80334" Top="94,48825" Width="90,14162" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
-      <TfrxMemoView Name="DireccionEnvio" Left="87,37013" Top="197,82684" Width="619,37044" Height="80,06624" OnBeforePrint="DireccionEnvioOnBeforePrint" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
-      <TfrxLineView Name="Line1" Left="718,5" Top="296,69299638" Width="0" Height="680" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxLineView Name="Line2" Left="0" Top="296,69299638" Width="0" Height="680" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxLineView Name="Line3" Left="76,2" Top="296,69299638" Width="0" Height="680" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxLineView Name="Line5" Left="136,44094488" Top="296,69299638" Width="0" Height="680" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxMemoView Name="DireccionEnvio" Left="242,33086" Top="273,41744" Width="460,63018" Height="64,94812" OnBeforePrint="DireccionEnvioOnBeforePrint" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
+      <TfrxLineView Name="Line1" Left="718,5" Top="368,50406638" Width="0" Height="611,96846" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxLineView Name="Line2" Left="0" Top="368,50406638" Width="0" Height="611,96846" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxLineView Name="Line3" Left="76,2" Top="368,50406638" Width="0" Height="611,96846" Frame.Color="8421504" Frame.Typ="1"/>
+      <TfrxLineView Name="Line5" Left="136,44094488" Top="368,50406638" Width="0" Height="611,96846" Frame.Color="8421504" Frame.Typ="1"/>
       <TfrxMemoView Name="Memo1" Left="3,77953" Top="143,1812" Width="110,26778" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nombre comercial:"/>
       <TfrxMemoView Name="Memo6" Left="113,3859" Top="143,1812" Width="592,81911" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;NOMBRE_COMERCIAL&#34;]"/>
       <TfrxMemoView Name="Memo9" Left="453,5436" Top="94,48825" Width="83,81107" Height="18,9" OnBeforePrint="Memo9OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha albarán:"/>
-      <TfrxMemoView Name="Memo15" Left="601,60668" Top="94,48825" Width="105,25974" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_ALBARAN&#34;]"/>
+      <TfrxMemoView Name="Memo15" Left="601,60668" Top="94,48825" Width="105,25974" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_ALBARAN&#34;]"/>
       <TfrxMemoView Name="Memo16" Left="453,5436" Top="117,16543" Width="144,28355" Height="18,9" OnBeforePrint="Memo9OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha prevista de entrega:"/>
-      <TfrxMemoView Name="Memo17" Left="601,60668" Top="117,16543" Width="105,25974" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_PREVISTA_ENVIO&#34;]"/>
+      <TfrxMemoView Name="Memo17" Left="601,60668" Top="117,16543" Width="105,25974" Height="18,9" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_PREVISTA_ENVIO&#34;]"/>
+      <TfrxMemoView Name="Memo18" Left="79,37013" Top="181,41744" Width="156,53556" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Ref. del cliente:"/>
+      <TfrxMemoView Name="Memo19" Left="79,37013" Top="211,65368" Width="156,53556" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Persona de contacto:"/>
+      <TfrxMemoView Name="Memo20" Left="241,88992" Top="181,41744" Width="462,67749" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;]"/>
+      <TfrxMemoView Name="Memo21" Left="241,88992" Top="211,65368" Width="923,78015" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;PERSONA_CONTACTO&#34;]"/>
+      <TfrxMemoView Name="Memo22" Left="79,37013" Top="241,88992" Width="156,53556" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Teléfonos de contacto:"/>
+      <TfrxMemoView Name="Memo24" Left="241,88992" Top="241,88992" Width="462,67749" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;TELEFONO&#34;]"/>
     </TfrxPageHeader>
   </TfrxReportPage>
 </TfrxReport>
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index b4a321df..491be901 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm	
@@ -1126,9 +1126,23 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Por defecto'
     ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 39275.730592685180000000
+    ReportOptions.LastChange = 39283.452312997690000000
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
+      ''
+      'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
+      'var'
+      '  Cadena: String;'
+      'begin'
+      '  DatosEmpresa.Lines.Clear;'
+      '  if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
+      '       Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
+      '  if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
+      
+        '       Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
+        '">;'
+      '  DatosEmpresa.Lines.Add(Cadena);'
+      'end;'
       ''
       'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
       'begin'
@@ -1136,6 +1150,37 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
       '  NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
       'end;'
       ''
+      'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
+      'var'
+      '  ACadena : String;'
+      'begin'
+      '  ACadena := '#39#39';'
+      '  DireccionEnvio.Lines.Clear;'
+      ''
+      '  ACadena := '#39#39';'
+      ''
+      '  DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
+      '  if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
+      '     ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
+      '  if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
+      '     ACadena := ACadena + <frxDBCabecera."POBLACION">;'
+      ''
+      '  if (ACadena <> '#39#39') then'
+      '       DireccionEnvio.Lines.Add(ACadena);'
+      ''
+      '  if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
+      '       DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
+      'end;'
+      ''
+      'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  Memo2.Lines.Clear;'
+      '  if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
+      '     Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39')'
+      '  else'
+      '     Memo2.Lines.Add('#39'ALBAR'#193'N DE CLIENTE'#39')'
+      'end;'
+      ''
       'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
       'begin'
       '  if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
@@ -1154,41 +1199,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
       '  end;'
       'end;'
       ''
-      'procedure TelefonosEmpresaOnBeforePrint(Sender: TfrxComponent);'
-      'var'
-      '  Cadena: String;'
-      'begin'
-      '  TelefonosEmpresa.Lines.Clear;'
-      ''
-      '  if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
-      '       Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
-      '  if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
-      
-        '       Cadena := Cadena + '#39' / FAX: '#39' + <frxDBCabecera."FAX_EMPRE' +
-        'SA">;'
-      '  TelefonosEmpresa.Lines.Add(Cadena);'
-      'end;'
-      ''
-      'procedure DireccionEmpresaOnBeforePrint(Sender: TfrxComponent);'
-      'var'
-      '  Cadena: String;'
-      'begin'
-      '  DireccionEmpresa.Lines.Clear;'
-      ''
-      '  if (<frxDBCabecera."CALLE_EMPRESA"> <> '#39#39') then'
-      
-        '     DireccionEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">)' +
-        ';'
-      ''
-      '  if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
-      '       Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
-      '  if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
-      
-        '       Cadena := Cadena + '#39' / FAX: '#39' + <frxDBCabecera."FAX_EMPRE' +
-        'SA">;'
-      ''
-      'end;'
-      ''
       'begin'
       ''
       'end.')