diff --git a/Source/Informes/3/AlbaranCliente.rdx b/Source/Informes/3/AlbaranCliente.rdx
new file mode 100644
index 00000000..4e846e1f
Binary files /dev/null and b/Source/Informes/3/AlbaranCliente.rdx differ
diff --git a/Source/Informes/3/Presupuesto.rdx b/Source/Informes/3/Presupuesto.rdx
index 384b1c10..f4d7725c 100644
Binary files a/Source/Informes/3/Presupuesto.rdx and b/Source/Informes/3/Presupuesto.rdx differ
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas
index ccb1fd19..236c6c22 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas	
@@ -155,14 +155,17 @@ begin
     ReplaceBookmark('ImporteTotal', FieldByName('IMPORTETOTAL').DisplayText);
 }
 
-    ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
-    ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').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);
-    ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
+    if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
+    begin
+      ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
+      ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').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);
+      ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
+    end;
   end;
 end;
 
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
index d561be8f..d00eeac8 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
@@ -116,9 +116,8 @@ begin
   FWordApp.SaveActiveDocAs(FNombreFichero);
     
   try
-    if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
-        if not RellenarPortada then
-           RaiseError('Se producido un error al generar la portada del informe en MS Word.');
+    if not RellenarPortada then
+      RaiseError('Se producido un error al generar la portada del informe en MS Word.');
 
     if not RellenarCabecera then
       RaiseError('Se producido un error al generar la cabecera del informe en MS Word.');
@@ -319,17 +318,14 @@ begin
       ReplaceBookmark('TelefonoEmpresaPortada', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
       ReplaceBookmark('FaxEmpresaPortada', tbl_Empresa.FieldByName('FAX').AsString);
       ReplaceBookmark('CorreoEmpresaPortada', tbl_Empresa.FieldByName('EMAIL_1').AsString);
-    end;
-    
-    ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
-    ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').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);
 
-    if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
-    begin
+      ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
+      ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').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);
       ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
       ReplaceBookmark('NombreEmpresaFirma', tbl_Empresa.FieldByName('NOMBRE').AsString);
@@ -445,17 +441,22 @@ begin
 
   with FDocumento, tbl_Cabecera do
   begin
-    ReplaceBookmark('CodigoPresupuestoPortada', FieldByName('REFERENCIA').AsString);
-    ReplaceBookmark('FechaPresupuestoPortada', FieldByName('FECHA_PRESUPUESTO').AsString);
-    ReplaceBookmark('NombreClientePortada', FieldByName('NOMBRE').AsString);
-    if not EsCadenaVacia(FieldByName('PERSONA_CONTACTO').AsString) then
-      ReplaceBookmark('PersonaContactoClientePortada', 'A la atención de: ' + FieldByName('PERSONA_CONTACTO').AsString);
+
+    if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
+    begin
+      ReplaceBookmark('CodigoPresupuestoPortada', FieldByName('REFERENCIA').AsString);
+      ReplaceBookmark('FechaPresupuestoPortada', FieldByName('FECHA_PRESUPUESTO').AsString);
+      ReplaceBookmark('NombreClientePortada', FieldByName('NOMBRE').AsString);
+      if not EsCadenaVacia(FieldByName('PERSONA_CONTACTO').AsString) then
+        ReplaceBookmark('PersonaContactoClientePortada', 'A la atención de: ' + FieldByName('PERSONA_CONTACTO').AsString);
+    end;
 
     Texto := FieldByName('PORTADA').AsString;
     NombreFichero := DarFicheroTemporal;
     EscribirEnFichero(NombreFichero, Texto);
     FWordApp.InsertFile(NombreFichero, 'TextoPortada');
     SysUtils.DeleteFile(NombreFichero);
+
   end;
   Result := True;
 end;