diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index f14fc2a..76d1404 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">7</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.3.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.3.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.3.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.3.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index ba8cc98..ee40393 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 4,3,7,0
-PRODUCTVERSION 4,3,7,0
+FILEVERSION 4,3,8,0
+PRODUCTVERSION 4,3,8,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "4.3.7.0\0"
+              VALUE "FileVersion", "4.3.8.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "4.3.7.0\0"
+              VALUE "ProductVersion", "4.3.8.0\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 4376871..f1926b8 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/4/InfAlbaranProveedor.fr3 b/Source/Informes/4/InfAlbaranProveedor.fr3
index 8200ed8..bd71623 100644
--- a/Source/Informes/4/InfAlbaranProveedor.fr3
+++ b/Source/Informes/4/InfAlbaranProveedor.fr3
@@ -1,24 +1,23 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" 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="41673,539715706" ScriptLanguage="PascalScript" ScriptText.Text="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 := &#60;frxDBCabecera.&#34;NOMBRE_CLIENTE_FINAL&#34;&#62;;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;    &#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     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;&#13;&#10;  Memo24.Lines.Clear;&#13;&#10;//  Memo24.Lines.Add(DireccionEnvio.Lines);&#13;&#10;Memo24.Memo.Text := DireccionEnvio.Memo.Text;                                                                     &#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 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;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ImprimirPrecio&#62; then&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := True;  &#13;&#10;     line5.Visible := True;  &#13;&#10;     eImporteTotal.Visible := True;  &#13;&#10;     lImporteTotal.Visible := True;  &#13;&#10;     ImporteUnidad.Visible := True;  &#13;&#10;     ImporteTotal.Visible := True;&#13;&#10;     bi1.visible := True;&#13;&#10;     bi2.visible := True;&#13;&#10;     iva1.visible := True;&#13;&#10;     iva2.visible := True;&#13;&#10;     RecargoEquivalencia.Visible := True;&#13;&#10;     ImporteRE.Visible := True;&#13;&#10;     Total.Visible := True;&#13;&#10;     TotalImporte.Visible := True;&#13;&#10;     Memo41.Visible := True;&#13;&#10;     PreciosTecnico.Visible := False;                                                                           &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := False;  &#13;&#10;     line5.Visible := False;  &#13;&#10;     eImporteTotal.Visible := False;  &#13;&#10;     lImporteTotal.Visible := False;  &#13;&#10;     ImporteUnidad.Visible := False;  &#13;&#10;     ImporteTotal.Visible := False;&#13;&#10;     bi1.visible := False;&#13;&#10;     bi2.visible := False;&#13;&#10;     iva1.visible := False;&#13;&#10;     iva2.visible := False;         &#13;&#10;     RecargoEquivalencia.Visible := False;&#13;&#10;     ImporteRE.Visible := False;&#13;&#10;     Total.Visible := False;&#13;&#10;     TotalImporte.Visible := False;&#13;&#10;     Memo41.Visible := False;         &#13;&#10;     eConcepto.Width := eConcepto.Width + ImporteTotal.Width + ImporteUnidad.Width;&#13;&#10;     Concepto.Width := Concepto.Width + ImporteTotal.Width + ImporteUnidad.Width;&#13;&#10;     Memo8.Width := Memo8.Width+12;         &#13;&#10;     MemoCampo2.left := eImporteTotal.left+20;&#13;&#10;     lImporteUnidad.Height := line8.height;                                                                                                                 &#13;&#10;  end  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{    &#13;&#10;  if (&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62; &#60;&#62; '') or (&#60;frxDBCabecera.&#34;INCIDENCIAS&#34;&#62; &#60;&#62; '') then&#13;&#10;    Page2.Visible := true&#13;&#10;  else&#13;&#10;    Page2.Visible := false;&#13;&#10;}        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo37OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerIncidencias&#62;) and (&#60;frxDBCabecera.&#34;INCIDENCIAS&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin              &#13;&#10;    Memo37.Visible := true;  &#13;&#10;    Memo36.Visible := true;          &#13;&#10;  end                &#13;&#10;  else&#13;&#10;  begin              &#13;&#10;    Memo37.Visible := false;&#13;&#10;    Memo36.Visible := false;                  &#13;&#10;  end;                  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo34OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerObservaciones&#62;) and (&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin              &#13;&#10;    Memo34.Visible := true;  &#13;&#10;    Memo35.Visible := true;        &#13;&#10;  end                &#13;&#10;  else&#13;&#10;  begin              &#13;&#10;    Memo34.Visible := false;&#13;&#10;    Memo35.Visible := false;        &#13;&#10;  end;                  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure iva1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_RE&#34;&#62;) = 0) then           &#13;&#10;  begin&#13;&#10;     Total.Top := RecargoEquivalencia.Top;&#13;&#10;     RecargoEquivalencia.Visible := False;&#13;&#10;     TotalImporte.Top := ImporteRE.Top;&#13;&#10;     ImporteRE.Visible := False;                                               &#13;&#10;  end;  &#13;&#10;  &#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_IVA&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;     Total.Top := IVA1.Top;&#13;&#10;     IVA1.Visible := False;&#13;&#10;     TotalImporte.Top := IVA2.Top;&#13;&#10;     IVA2.Visible := False;                                               &#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E612200010C12000000204E616D653D2256657250726563696F732200010C18000000204E616D653D225665724F62736572766163696F6E65732200010C16000000204E616D653D22566572496E636964656E63696173220000055374796C650100">
+<TfrxReport Version="4.7.71" 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="41691,6342396065" ScriptLanguage="PascalScript" ScriptText.Text="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 := &#60;frxDBCabecera.&#34;NOMBRE_CLIENTE_FINAL&#34;&#62;;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;    &#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     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;&#13;&#10;  Memo24.Lines.Clear;&#13;&#10;//  Memo24.Lines.Add(DireccionEnvio.Lines);&#13;&#10;Memo24.Memo.Text := DireccionEnvio.Memo.Text;                                                                     &#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 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;end;&#13;&#10;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;ImprimirPrecio&#62; then&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := True;  &#13;&#10;     line5.Visible := True;  &#13;&#10;     eImporteTotal.Visible := True;  &#13;&#10;     lImporteTotal.Visible := True;  &#13;&#10;     ImporteUnidad.Visible := True;  &#13;&#10;     ImporteTotal.Visible := True;&#13;&#10;     bi1.visible := True;&#13;&#10;     bi2.visible := True;&#13;&#10;     iva1.visible := True;&#13;&#10;     iva2.visible := True;&#13;&#10;     RecargoEquivalencia.Visible := True;&#13;&#10;     ImporteRE.Visible := True;&#13;&#10;     Total.Visible := True;&#13;&#10;     TotalImporte.Visible := True;&#13;&#10;     Memo41.Visible := True;&#13;&#10;     PreciosTecnico.Visible := False;                                                                           &#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin              &#13;&#10;     eImporteUnidad.Visible := False;  &#13;&#10;     line5.Visible := False;  &#13;&#10;     eImporteTotal.Visible := False;  &#13;&#10;     lImporteTotal.Visible := False;  &#13;&#10;     ImporteUnidad.Visible := False;  &#13;&#10;     ImporteTotal.Visible := False;&#13;&#10;     bi1.visible := False;&#13;&#10;     bi2.visible := False;&#13;&#10;     iva1.visible := False;&#13;&#10;     iva2.visible := False;         &#13;&#10;     RecargoEquivalencia.Visible := False;&#13;&#10;     ImporteRE.Visible := False;&#13;&#10;     Total.Visible := False;&#13;&#10;     TotalImporte.Visible := False;&#13;&#10;     Memo41.Visible := False;         &#13;&#10;     eConcepto.Width := eConcepto.Width + ImporteTotal.Width + ImporteUnidad.Width;&#13;&#10;     Concepto.Width := Concepto.Width + ImporteTotal.Width + ImporteUnidad.Width;&#13;&#10;     Memo8.Width := Memo8.Width+12;         &#13;&#10;     MemoCampo2.left := eImporteTotal.left+20;&#13;&#10;     lImporteUnidad.Height := line8.height;                                                                                                                 &#13;&#10;  end  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Page2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{    &#13;&#10;  if (&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62; &#60;&#62; '') or (&#60;frxDBCabecera.&#34;INCIDENCIAS&#34;&#62; &#60;&#62; '') then&#13;&#10;    Page2.Visible := true&#13;&#10;  else&#13;&#10;    Page2.Visible := false;&#13;&#10;}        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo37OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerIncidencias&#62;) and (&#60;frxDBCabecera.&#34;INCIDENCIAS&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin              &#13;&#10;    Memo37.Visible := true;  &#13;&#10;    Memo36.Visible := true;          &#13;&#10;  end                &#13;&#10;  else&#13;&#10;  begin              &#13;&#10;    Memo37.Visible := false;&#13;&#10;    Memo36.Visible := false;                  &#13;&#10;  end;                  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo34OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;VerObservaciones&#62;) and (&#60;frxDBCabecera.&#34;OBSERVACIONES&#34;&#62; &#60;&#62; '') then&#13;&#10;  begin              &#13;&#10;    Memo34.Visible := true;  &#13;&#10;    Memo35.Visible := true;        &#13;&#10;  end                &#13;&#10;  else&#13;&#10;  begin              &#13;&#10;    Memo34.Visible := false;&#13;&#10;    Memo35.Visible := false;        &#13;&#10;  end;                  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure iva1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_RE&#34;&#62;) = 0) then           &#13;&#10;  begin&#13;&#10;     Total.Top := RecargoEquivalencia.Top;&#13;&#10;     RecargoEquivalencia.Visible := False;&#13;&#10;     TotalImporte.Top := ImporteRE.Top;&#13;&#10;     ImporteRE.Visible := False;                                               &#13;&#10;  end;  &#13;&#10;  &#13;&#10;  if (StrToFloat(&#60;frxDBCabecera.&#34;IMPORTE_IVA&#34;&#62;) = 0) then&#13;&#10;  begin&#13;&#10;     Total.Top := IVA1.Top;&#13;&#10;     IVA1.Visible := False;&#13;&#10;     TotalImporte.Top := IVA2.Top;&#13;&#10;     IVA2.Visible := False;                                               &#13;&#10;  end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E612200010C12000000204E616D653D2256657250726563696F732200010C18000000204E616D653D225665724F62736572766163696F6E65732200010C16000000204E616D653D22566572496E636964656E63696173220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <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="372" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
       <TfrxRichView Name="Concepto" ShiftMode="smWhenOverlapped" Left="121,5" Top="1,5" Width="347,5436" Height="18" ShowHint="False" 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="116" Height="18" ShowHint="False" 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="Memo14" Left="12" Top="1,5" Width="105" Height="18" ShowHint="False" 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="471,0436" Top="2" Width="56,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" 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;]"/>
       <TfrxMemoView Name="ImporteUnidad" Left="533" Top="2" Width="85,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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;IMPORTE_UNIDAD&#34;]"/>
       <TfrxMemoView Name="ImporteTotal" Left="624" Top="2" Width="92,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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;IMPORTE_TOTAL&#34;]"/>
     </TfrxMasterData>
     <TfrxPageFooter Name="PageFooter1" Height="500" Left="0" Top="456" Width="718,1107">
-      <TfrxLineView Name="Line4" Align="baCenter" Left="-0,94465" Top="81" Width="720" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
+      <TfrxLineView Name="Line4" Left="11" Top="81" Width="720" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
       <TfrxMemoView Name="Memo33" Left="2" Top="428" Width="710" Height="29" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haCenter" HideZeros="True" LineSpacing="4" ParentFont="False" Text="Keiblair S.L. CIF: B86425030   C/ Sur, 4 - Polígono San Millán  28950 Moraleja de Enmedio (Madrid)&#13;&#10;Teléfonos: 615 274 002 - e-mail: faber.sat@luisleonrepresentaciones.com"/>
-      <TfrxMemoView Name="Memo34" Left="3" Top="164" Width="349,29159" Height="17,60637" OnBeforePrint="Memo34OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="OBSERVACIONES:"/>
-      <TfrxMemoView Name="Memo35" Left="3" Top="184" Width="707,61441" Height="121,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;OBSERVACIONES&#34;]"/>
-      <TfrxMemoView Name="Memo36" Left="3" Top="107" Width="707,61441" Height="52,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;INCIDENCIAS&#34;]"/>
-      <TfrxMemoView Name="Memo37" Left="3" Top="85" Width="349,29159" Height="17,60637" OnBeforePrint="Memo37OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="INCIDENCIAS:"/>
-      <TfrxLineView Name="Line6" Align="baCenter" Left="-0,94465" Top="163" Width="720" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
-      <TfrxLineView Name="Line7" Align="baCenter" Left="-0,94465" Top="309" Width="720" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
-      <TfrxMemoView Name="Memo38" Left="6" Top="309" Width="710" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="El usuario renuncia a presupuesto previo por escrito, autorizando la reparación del aparato. La reparación realizada tiene garantía por 3 meses."/>
+      <TfrxMemoView Name="Memo34" Left="12" Top="164" Width="340,29159" Height="17,60637" OnBeforePrint="Memo34OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="OBSERVACIONES:"/>
+      <TfrxMemoView Name="Memo35" Left="12" Top="184" Width="698,61441" Height="121,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;OBSERVACIONES&#34;]"/>
+      <TfrxMemoView Name="Memo36" Left="12" Top="107" Width="698,61441" Height="52,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;INCIDENCIAS&#34;]"/>
+      <TfrxMemoView Name="Memo37" Left="12" Top="85" Width="340,29159" Height="17,60637" OnBeforePrint="Memo37OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="INCIDENCIAS:"/>
+      <TfrxLineView Name="Line7" Left="10,05535" Top="309" Width="709" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
+      <TfrxMemoView Name="Memo38" Left="12" Top="309" Width="704" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="El usuario renuncia a presupuesto previo por escrito, autorizando la reparación del aparato. La reparación realizada tiene garantía por 3 meses."/>
       <TfrxMemoView Name="Memo39" Left="99" Top="331" Width="139,29159" Height="17,60637" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="FIRMA DEL USUARIO"/>
       <TfrxMemoView Name="Memo40" Left="497" Top="331" Width="139,29159" Height="17,60637" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="FIRMA DEL TÉCNICO"/>
       <TfrxMemoView Name="TotalImporte" Left="621" Top="61" Width="98" Height="20" 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="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
@@ -30,29 +29,30 @@
       <TfrxMemoView Name="RecargoEquivalencia" Left="471" Top="41" Width="150" Height="20" ShowHint="False" DisplayFormat.FormatStr="## %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;RE&#34;] RE"/>
       <TfrxMemoView Name="ImporteRE" Left="621" Top="41" Width="98" Height="20" 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" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_RE&#34;]"/>
       <TfrxMemoView Name="Memo41" Left="475" Top="83" Width="241" Height="20" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="Precios aplicados de acuerdo con la legislación vigente"/>
-      <TfrxLineView Name="Line9" Align="baCenter" Left="-0,94465" Top="0" Width="720" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
-      <TfrxMemoView Name="Memo45" Left="2" Top="3" Width="113,81107" Height="75,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Serial Nº:&#13;&#10;&#13;&#10;Date:&#13;&#10;&#13;&#10;Product Code:&#13;&#10;"/>
+      <TfrxLineView Name="Line9" Left="9,05535" Top="0" Width="710" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
+      <TfrxMemoView Name="Memo45" Left="12" Top="3" Width="103,81107" Height="75,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Serial Nº:&#13;&#10;&#13;&#10;Date:&#13;&#10;&#13;&#10;Product Code:"/>
       <TfrxMemoView Name="PreciosTecnico" Left="471" Top="1" Width="168" Height="80" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Disp. de Servicio:&#13;&#10;&#13;&#10;Horas / Mano de Obra:&#13;&#10;&#13;&#10;IVA:&#13;&#10;&#13;&#10;Total:"/>
+      <TfrxLineView Name="Line6" Left="9,55535" Top="163" Width="711" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
     </TfrxPageFooter>
     <TfrxPageHeader Name="PageHeader1" Height="296" Left="0" Top="16" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
-      <TfrxShapeView Name="Shape2" Left="0" Top="90,67718" Width="717,73228346" Height="53,7953" ShowHint="False" Frame.Color="8421504"/>
-      <TfrxMemoView Name="Memo7" Left="3,55906" Top="94,48825" Width="60,69295" Height="18,89765" ShowHint="False" 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="67,5906" Top="94,48825" Width="37,26778" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
-      <TfrxShapeView Name="Shape1" Left="0" Top="144,18897638" Width="717,73228346" Height="119,18109016" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
-      <TfrxMemoView Name="Memo10" Left="3,68491" Top="145,04731" Width="162,29159" Height="17,60637" ShowHint="False" 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="Memo5" Left="111,07885" Top="94,48825" Width="64,69295" Height="18,9" OnBeforePrint="Memo5OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nº parte:"/>
-      <TfrxMemoView Name="Memo4" Left="3,55906" Top="119,11812" Width="64,69295" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Proveedor:"/>
-      <TfrxMemoView Name="Memo11" Left="71,5906" Top="119,11812" Width="216,61441" Height="18,67718" ShowHint="False" 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="179,55133" Top="94,48825" Width="93,92115" Height="18,9" ShowHint="False" 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;]"/>
+      <TfrxShapeView Name="Shape2" Left="10" Top="90,67718" Width="707,73228346" Height="53,7953" ShowHint="False" Frame.Color="8421504"/>
+      <TfrxMemoView Name="Memo7" Left="12,55906" Top="94,48825" Width="60,69295" Height="18,89765" ShowHint="False" 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="76,5906" Top="94,48825" Width="37,26778" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
+      <TfrxShapeView Name="Shape1" Left="10" Top="144,18897638" Width="707,73228346" Height="119,18109016" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
+      <TfrxMemoView Name="Memo10" Left="12,55906" Top="145,04731" Width="162,29159" Height="17,60637" ShowHint="False" 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="Memo5" Left="120,07885" Top="94,48825" Width="64,69295" Height="18,9" OnBeforePrint="Memo5OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nº parte:"/>
+      <TfrxMemoView Name="Memo4" Left="12,55906" Top="119,11812" Width="64,69295" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Proveedor:"/>
+      <TfrxMemoView Name="Memo11" Left="80,5906" Top="119,11812" Width="216,61441" Height="18,67718" ShowHint="False" 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="188,55133" Top="94,48825" Width="93,92115" Height="18,9" ShowHint="False" 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="70,37013" Top="171,82684" Width="636,37044" Height="89,06624" OnBeforePrint="DireccionEnvioOnBeforePrint" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
       <TfrxMemoView Name="eConcepto" Align="baLeft" Left="120" Top="270" Width="350" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" 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" Align="baLeft" Left="470" Top="270" Width="59,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
       <TfrxLineView Name="Line1" Left="718,5" Top="275" Width="0" Height="580" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxMemoView Name="Memo13" Left="0" Top="270" Width="120" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
+      <TfrxMemoView Name="Memo13" Left="10" Top="270" Width="110" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
       <TfrxLineView Name="Line5" Left="529,41653543" Top="270" Width="0" Height="275" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxMemoView Name="Memo1" Left="290,1577" Top="94,48825" Width="89,81107" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha de aviso:"/>
-      <TfrxMemoView Name="Memo6" Left="377,7483" Top="94,48825" Width="93,92115" Height="18,9" ShowHint="False" 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;]"/>
-      <TfrxLineView Name="Line2" Left="0" Top="275" Width="0" Height="580" ShowHint="False" Frame.Color="8421504" Frame.Typ="1" Frame.Width="0,1"/>
+      <TfrxMemoView Name="Memo1" Left="300" Top="94,48825" Width="89,81107" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha de aviso:"/>
+      <TfrxMemoView Name="Memo6" Left="392,7483" Top="94,48825" Width="78,92115" Height="18,9" ShowHint="False" 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;]"/>
+      <TfrxLineView Name="Line2" Left="10" Top="275" Width="0" Height="580" ShowHint="False" Frame.Color="8421504" Frame.Typ="1" Frame.Width="0,1"/>
       <TfrxMemoView Name="eImporteUnidad" Left="530" Top="270" Width="90,71653543" Height="26,45669291" OnBeforePrint="eImporteUnidadOnBeforePrint" ShowHint="False" 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="Importe coste"/>
       <TfrxMemoView Name="eImporteTotal" Left="621" Top="270" Width="96,71653543" Height="26,45669291" ShowHint="False" 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="Importe total"/>
       <TfrxLineView Name="lImporteTotal" Left="621" Top="270" Width="0" Height="355" ShowHint="False" Frame.Color="8421504" Frame.Typ="1" Frame.Width="0,1"/>
@@ -63,11 +63,11 @@
       <TfrxMemoView Name="Memo32" Left="605,5906" Top="95" Width="97,92115" Height="18,9" ShowHint="False" 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_SERVICIO&#34;]"/>
       <TfrxLineView Name="lImporteUnidad" Align="baLeft" Left="470" Top="270" Width="0" Height="355" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
       <TfrxLineView Name="Line8" Left="120" Top="270" Width="0" Height="353" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
-      <TfrxMemoView Name="Memo42" Left="291" Top="119,11812" Width="89,81107" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Garantía SI/NO:"/>
+      <TfrxMemoView Name="Memo42" Left="300" Top="119,11812" Width="89,81107" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Garantía SI/NO:"/>
       <TfrxMemoView Name="Memo43" Left="476" Top="119,11812" Width="99,81107" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha de compra:"/>
-      <TfrxMemoView Name="Memo44" Left="291" Top="146" Width="89,81107" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Tienda:"/>
+      <TfrxMemoView Name="Memo44" Left="300" Top="146" Width="89,81107" Height="18,9" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Tienda:"/>
     </TfrxPageHeader>
-    <TfrxLineView Name="Line3" Align="baLeft" Left="0" Top="418,69299638" Width="0" Height="380" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
+    <TfrxLineView Name="Line3" Left="10" Top="418,69299638" Width="0" Height="380" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
   </TfrxReportPage>
   <TfrxReportPage Name="Page2" Visible="False" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="" OnBeforePrint="Page2OnBeforePrint">
     <TfrxShapeView Name="Shape6" Left="1" Top="596" Width="717,73228346" Height="384,18109016" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index e317360..2143ec7 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 9e222d7..e3fefb6 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">7</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">4.3.7.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">4.3.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 07 de febrero de 2014 13:34</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">8</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">4.3.8.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">4.3.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 20 de febrero de 2014 23:32</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
 	</ProjectExtensions>
@@ -48,18 +48,18 @@
 		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
 		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
 		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
 			<Form>srvEmpresas</Form>
+			<DesignClass>TDARemoteService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>srvProvinciasPoblaciones_Impl</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
 		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
 		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvUsuarios</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Base\schBase_Intf.pas"/>
 		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
@@ -68,55 +68,55 @@
 		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
 		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptAlbaranesCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
 			<DesignClass>TDataModule</DesignClass>
 			<Form>RptWordAlbaranCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvAlbaranesCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptAlbaranesProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
 			<DesignClass>TDataModule</DesignClass>
 			<Form>RptWordAlbaranProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvAlbaranesProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
 			<Form>srvAlmacenes</Form>
+			<DesignClass>TDARemoteService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
 		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
 			<Form>srvArticulos</Form>
+			<DesignClass>TDARemoteService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
 		<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptComisiones</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvComisiones</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
@@ -126,153 +126,153 @@
 		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
 		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
 		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptEtiquetasContacto</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptFichasEmpleado</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
 			<Form>srvContactos</Form>
+			<DesignClass>TDARemoteService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvFabricantes</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptFacturasCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
 			<DesignClass>TDataModule</DesignClass>
 			<Form>RptWordFacturaCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvFacturasCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
 		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptFacturasProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvFacturasProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas"/>
 		<DCCReference Include="..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptFacturasProforma</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvFacturasProforma</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvFamilias</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvFormasPago</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvGestorDocumentos</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvGestorInformes</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvHistoricoMovimientos</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
 			<Form>srvImpresiones</Form>
+			<DesignClass>TDARemoteService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
 			<Form>srvInfMargenArticulo</Form>
+			<DesignClass>TDARemoteService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvInfVentasArticulo</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvInformes</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvInventario</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
 		<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvObras</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptPedidosProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
 			<DesignClass>TDataModule</DesignClass>
 			<Form>RptWordPedidoProveedor</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvPedidosProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
 		<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptPedidosCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvPedidosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptPresupuestosCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
 			<DesignClass>TDataModule</DesignClass>
@@ -283,60 +283,60 @@
 			<Form>RptWordPresupuestoCliente</Form>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvPresupuestosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptRecibosCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvRecibosCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptRecibosProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvRecibosProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvReferencias</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvRegistroCorreos</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptRemesasCliente</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvRemesasCliente</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
 		<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>RptRemesasProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvRemesasProveedor</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/>
@@ -347,63 +347,63 @@
 		<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/>
 		<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/>
 		<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvTiendaWeb</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvTiposIVA</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvTiposDocumento</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
 		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvUnidadesMedida</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
 		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
 		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
 			<Form>srvConfiguracion</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="Configuracion\uConexionBD.pas">
-			<DesignClass>TFrame</DesignClass>
 			<Form>frConexionBD</Form>
+			<DesignClass>TFrame</DesignClass>
 		</DCCReference>
 		<DCCReference Include="Configuracion\uConexionOSC.pas">
-			<DesignClass>TFrame</DesignClass>
 			<Form>frConexionOSC</Form>
+			<DesignClass>TFrame</DesignClass>
 		</DCCReference>
 		<DCCReference Include="Configuracion\uConfGeneral.pas">
-			<DesignClass>TFrame</DesignClass>
 			<Form>frConfGeneral</Form>
+			<DesignClass>TFrame</DesignClass>
 		</DCCReference>
 		<DCCReference Include="Configuracion\uConfiguracion.pas">
-			<DesignClass>TForm</DesignClass>
 			<Form>fConfiguracion</Form>
+			<DesignClass>TForm</DesignClass>
 		</DCCReference>
 		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<DesignClass>TFrame</DesignClass>
 			<Form>FrameConfiguracion</Form>
+			<DesignClass>TFrame</DesignClass>
 		</DCCReference>
 		<DCCReference Include="srvLogin_Impl.pas">
-			<DesignClass>TDARemoteService</DesignClass>
 			<Form>srvLogin</Form>
+			<DesignClass>TDARemoteService</DesignClass>
 		</DCCReference>
 		<DCCReference Include="uAcercaDe.pas">
 			<Form>fAcercaDe</Form>
 		</DCCReference>
 		<DCCReference Include="uDataModuleServer.pas">
-			<DesignClass>TDataModule</DesignClass>
 			<Form>dmServer</Form>
+			<DesignClass>TDataModule</DesignClass>
 		</DCCReference>
 		<DCCReference Include="uServerMainForm.pas">
 			<Form>fServerForm</Form>
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 75c5a8e..fd6b7e7 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 4,3,7,0
-PRODUCTVERSION 4,3,7,0
+FILEVERSION 4,3,8,0
+PRODUCTVERSION 4,3,8,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0A04E4"
          BEGIN
-              VALUE "FileVersion", "4.3.7.0\0"
-              VALUE "ProductVersion", "4.3.7.0\0"
-              VALUE "CompileDate", "jueves, 20 de febrero de 2014 23:32\0"
+              VALUE "FileVersion", "4.3.8.0\0"
+              VALUE "ProductVersion", "4.3.8.0\0"
+              VALUE "CompileDate", "viernes, 21 de febrero de 2014 15:16\0"
          END
     END
     BLOCK "VarFileInfo"