Informes musaeda 2

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1131 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Informes/1/InformeIVAComparativo.fr3

@@ -1,5 +1,5 @@
 <?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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41737,4780466088" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42450,5900417477" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -7,8 +7,7 @@
       <TfrxShapeView Name="Shape5" Left="513" Top="4" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
       <TfrxMemoView Name="NombreCliente" Left="521,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO COMPARATIVO DE IVA REPERCUTIDO - SOPORTADO"/>
       <TfrxMemoView Name="Memo3" Left="521,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
-      <TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="130" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
+      <TfrxMemoView Name="DatosEmpresa" Left="82" Top="37" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL S.L.&#13;&#10;CIF: B81747396&#13;&#10;C/ Hierro, 33 1ª Plta Oficina 10. 28045  Madrid&#13;&#10;Telf: 91-507-56-92 / 63&#13;&#10;Fax: 91-785-96-35&#13;&#10;e-mail: tecsitel@tecsitel.com"/>
-      <TfrxMemoView Name="DatosEmpresa" Left="82" Top="37" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL S.L.&#13;&#10;CIF: B81747396&#13;&#10;C/ Buendía, 25&#13;&#10;28053 MADRID&#13;&#10;Telf.: 91 507 56 92/63  Fax: 91 785 96 35&#13;&#10;tecsitel@tecsitel.com"/>
     </TfrxPageHeader>
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="664" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>

Source/Informes/2/InformeIVAComparativo.fr3

@@ -1,5 +1,5 @@
 <?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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41737,4934834028" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42450,6666910417" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -7,8 +7,7 @@
       <TfrxShapeView Name="Shape5" Left="513" Top="4" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
       <TfrxMemoView Name="NombreCliente" Left="521,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO COMPARATIVO DE IVA REPERCUTIDO - SOPORTADO"/>
       <TfrxMemoView Name="Memo3" Left="521,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
-      <TfrxMemoView Name="DatosEmpresa" Left="83" Top="38" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL MANTENIMIENTO S.L.&#13;&#10;CIF: B83122168&#13;&#10;C/ Buendía, 25&#13;&#10;28053 MADRID&#13;&#10;Telf.: 91 507 56 92/63  Fax: 91 785 96 35&#13;&#10;tecsitel@tecsitel.com"/>
+      <TfrxMemoView Name="DatosEmpresa" Left="83" Top="38" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL MANTENIMIENTO S.L.&#13;&#10;CIF: B83122168&#13;&#10;C/ Hierro, 33 1ª Plta Oficina 10. 28045  Madrid&#13;&#10;Telf: 91-507-56-92 / 63&#13;&#10;Fax: 91-785-96-35&#13;&#10;e-mail: tecsitel@tecsitel.com"/>
-      <TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="130" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
     </TfrxPageHeader>
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="664" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>

Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas

@@ -135,16 +135,23 @@ begin
   
   with FDocumento, tbl_Cabecera do
   begin
-    ReplaceBookmark('CodigoAlbaranCab', FieldByName('REFERENCIA').AsString);
+    if BookmarkExists('CodigoAlbaranCab') then
-    ReplaceBookmark('Referencia_Cliente', FieldByName('REFERENCIA_CLIENTE').AsString);    
+       ReplaceBookmark('CodigoAlbaranCab', FieldByName('REFERENCIA').AsString);
-    ReplaceBookmark('FechaAlbaranCab', FieldByName('FECHA_ALBARAN').AsString);
+    if BookmarkExists('Referencia_Cliente') then
+       ReplaceBookmark('Referencia_Cliente', FieldByName('REFERENCIA_CLIENTE').AsString);
+    if BookmarkExists('FechaAlbaranCab') then
+       ReplaceBookmark('FechaAlbaranCab', FieldByName('FECHA_ALBARAN').AsString);
 
-    ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString);
+    if BookmarkExists('NombreClienteCab') then
-    ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString);
+       ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString);
-    ReplaceBookmark('PoblacionClienteCab',
+    if BookmarkExists('DireccionClienteCab') then
+       ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString);
+    if BookmarkExists('PoblacionClienteCab') then
+       ReplaceBookmark('PoblacionClienteCab',
        FieldByName('CODIGO_POSTAL').AsString + ' ' +
        FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString);
-    ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString);
+    if BookmarkExists('ContactoClienteCab') then
+       ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString);
 
 {P571
     ReplaceBookmark('BaseImponible', FieldByName('BASEIMPONIBLE').DisplayText);
@@ -159,18 +166,21 @@ begin
     ReplaceBookmark('ImporteTotal', FieldByName('IMPORTETOTAL').DisplayText);
 }
 
-    if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
+    if BookmarkExists('NombreEmpresa') then
-    begin
+       ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
-      ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
+    if BookmarkExists('CifEmpresa') then
-      ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
+       ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
-      ReplaceBookmark('DireccionEmpresa',
+    if BookmarkExists('DireccionEmpresa') then
+       ReplaceBookmark('DireccionEmpresa',
         Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
         tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
-      ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
+    if BookmarkExists('TelefonoEmpresa') then
-      ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
+       ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
-      ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
+    if BookmarkExists('FaxEmpresa') then
+       ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
+    if BookmarkExists('CorreoEmpresa') then
+       ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
     end;
-  end;
 end;
 
 procedure TRptWordAlbaranCliente.RellenarDatosDetalle;

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

@@ -1,8 +1,8 @@
 object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
   OldCreateOrder = False
   OnCreate = DataModuleCreate
-  Height = 262
+  Height = 375
-  Width = 344
+  Width = 392
   object schReport: TDASchema
     ConnectionManager = dmServer.ConnectionManager
     DataDictionary = DataDictionary

Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas

@@ -261,15 +261,28 @@ begin
        FDesBonificacion := Null;
     FImpBonificacion := FieldByName('IMPORTE_BONIFICACION').AsFloat;
 
-    ReplaceBookmark('CodigoPresupuestoCab', FieldByName('REFERENCIA').AsString);
+    if BookmarkExists('CodigoPresupuestoCab') then
-    ReplaceBookmark('FechaPresupuestoCab', FieldByName('FECHA_PRESUPUESTO').AsString);
+       ReplaceBookmark('CodigoPresupuestoCab', FieldByName('REFERENCIA').AsString);
-    ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString);
+
-    ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString);
+    if BookmarkExists('FechaPresupuestoCab') then
-    ReplaceBookmark('PoblacionClienteCab',
+       ReplaceBookmark('FechaPresupuestoCab', FieldByName('FECHA_PRESUPUESTO').AsString);
+
+    if BookmarkExists('NombreClienteCab') then
+       ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString);
+
+    if BookmarkExists('DireccionClienteCab') then
+       ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString);
+
+    if BookmarkExists('PoblacionClienteCab') then
+       ReplaceBookmark('PoblacionClienteCab',
        FieldByName('CODIGO_POSTAL').AsString + ' ' +
        FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString);
-    ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString);
+
-    ReplaceBookmark('NombreClienteFirma', FieldByName('NOMBRE').AsString);
+    if BookmarkExists('ContactoClienteCab') then
+       ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString);
+
+    if BookmarkExists('NombreClienteFirma') then
+       ReplaceBookmark('NombreClienteFirma', FieldByName('NOMBRE').AsString);
 
     //Solo para la empresa de tecsitel se debe elegir uno u otra firma
     //esto es un poco parche pero bueno
@@ -320,28 +333,28 @@ begin
     SysUtils.DeleteFile(NombreFichero);
 
 
-    if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
+    if BookmarkExists('NombreEmpresa') then
-    begin
+       ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
-      ReplaceBookmark('NombreEmpresaPortada', tbl_Empresa.FieldByName('NOMBRE').AsString);
+
-      ReplaceBookmark('DireccionEmpresaPortada',
+    if BookmarkExists('CifEmpresa') then
+       ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
+
+    if BookmarkExists('DireccionEmpresa') then
+       ReplaceBookmark('DireccionEmpresa',
         Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
         tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
-      ReplaceBookmark('TelefonoEmpresaPortada', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
-      ReplaceBookmark('FaxEmpresaPortada', tbl_Empresa.FieldByName('FAX').AsString);
-      ReplaceBookmark('CorreoEmpresaPortada', tbl_Empresa.FieldByName('EMAIL_1').AsString);
 
-      ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
+    if BookmarkExists('TelefonoEmpresa') then
-      ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
+       ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
-      ReplaceBookmark('DireccionEmpresa',
-        Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
-        tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
-      ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
 
-      ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
+    if BookmarkExists('FaxEmpresa') then
-      ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
+       ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
-      ReplaceBookmark('NombreEmpresaFirma', tbl_Empresa.FieldByName('NOMBRE').AsString);
-    end;
 
+    if BookmarkExists('CorreoEmpresa') then
+       ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
+
+    if BookmarkExists('NombreEmpresaFirma') then
+       ReplaceBookmark('NombreEmpresaFirma', tbl_Empresa.FieldByName('NOMBRE').AsString);
   end;
   Result := True;
 end;
@@ -454,25 +467,54 @@ begin
 
   with FDocumento, tbl_Cabecera do
   begin
-    ReplaceBookmark('CodigoPresupuestoPortada', FieldByName('REFERENCIA').AsString);
+    if BookmarkExists('CodigoPresupuestoPortada') then
-    ReplaceBookmark('FechaPresupuestoPortada', FieldByName('FECHA_PRESUPUESTO').AsString);
+       ReplaceBookmark('CodigoPresupuestoPortada', FieldByName('REFERENCIA').AsString);
-    ReplaceBookmark('NombreClientePortada', FieldByName('NOMBRE').AsString);
 
-    if FDocumento.BookmarkExists('DireccionClientePortada') then
+    if BookmarkExists('FechaPresupuestoPortada') then
+       ReplaceBookmark('FechaPresupuestoPortada', FieldByName('FECHA_PRESUPUESTO').AsString);
+
+    if BookmarkExists('NombreClientePortada') then
+       ReplaceBookmark('NombreClientePortada', FieldByName('NOMBRE').AsString);
+
+    if BookmarkExists('DireccionClientePortada') then
        ReplaceBookmark('DireccionClientePortada', FieldByName('CALLE').AsString);
-    if FDocumento.BookmarkExists('PoblacionClientePortada') then
+
+    if BookmarkExists('PoblacionClientePortada') then
        ReplaceBookmark('PoblacionClientePortada',
            FieldByName('CODIGO_POSTAL').AsString + ' ' +
            FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString);
 
     if not EsCadenaVacia(FieldByName('PERSONA_CONTACTO').AsString) then
-      ReplaceBookmark('PersonaContactoClientePortada', 'A la atención de: ' + FieldByName('PERSONA_CONTACTO').AsString);
+       if BookmarkExists('PersonaContactoClientePortada') then
+          ReplaceBookmark('PersonaContactoClientePortada', 'A la atención de: ' + FieldByName('PERSONA_CONTACTO').AsString);
+{
+    if BookmarkExists('TextoPortada') then
+    begin
+      Texto := FieldByName('PORTADA').AsString;
+      NombreFichero := DarFicheroTemporal;
+      EscribirEnFichero(NombreFichero, Texto);
+//      FDocumento.Bookmark['TextoPortada'].Select;
+//      ReplaceBookmark('TextoPortada', FieldByName('PORTADA').AsString);
+//      FWordApp.InsertFile(NombreFichero, 'TextoPortada');
+      SysUtils.DeleteFile(NombreFichero);
+    end;
+}
+    if BookmarkExists('NombreEmpresaPortada') then
+       ReplaceBookmark('NombreEmpresaPortada', tbl_Empresa.FieldByName('NOMBRE').AsString);
 
-    Texto := FieldByName('PORTADA').AsString;
+    if BookmarkExists('DireccionEmpresaPortada') then
-    NombreFichero := DarFicheroTemporal;
+       ReplaceBookmark('DireccionEmpresaPortada',
-    EscribirEnFichero(NombreFichero, Texto);
+        Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
-    FWordApp.InsertFile(NombreFichero, 'TextoPortada');
+        tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
-    SysUtils.DeleteFile(NombreFichero);
+
+    if BookmarkExists('TelefonoEmpresaPortada') then
+       ReplaceBookmark('TelefonoEmpresaPortada', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
+
+    if BookmarkExists('FaxEmpresaPortada') then
+       ReplaceBookmark('FaxEmpresaPortada', tbl_Empresa.FieldByName('FAX').AsString);
+
+    if BookmarkExists('CorreoEmpresaPortada') then
+       ReplaceBookmark('CorreoEmpresaPortada', tbl_Empresa.FieldByName('EMAIL_1').AsString);
 
   end;
   Result := True;

Source/Servidor/FactuGES_Server.dproj

@@ -38,6 +38,28 @@
 <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">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">3</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">2.1.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 07 de marzo de 2016 13:00</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></BorlandProject></BorlandProject>
   </ProjectExtensions>