diff --git a/Resources/banda-lateral.jpg b/Resources/banda-lateral.jpg
new file mode 100644
index 00000000..8d8196ef
Binary files /dev/null and b/Resources/banda-lateral.jpg differ
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 502db4c0..77d21520 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2100FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.0.0FactuGESFactuGES2.1.0.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2110FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.1.0FactuGESFactuGES2.1.1.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 706ae68a..c44d8a3f 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 2,1,0,0
-PRODUCTVERSION 2,1,0,0
+FILEVERSION 2,1,1,0
+PRODUCTVERSION 2,1,1,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.1.0.0\0"
+ VALUE "FileVersion", "2.1.1.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "2.1.0.0\0"
+ VALUE "ProductVersion", "2.1.1.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index ee360fe5..ba7b8a57 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/3/Presupuesto.rdx b/Source/Informes/3/Presupuesto.rdx
index 50a80916..cb61e2e9 100644
Binary files a/Source/Informes/3/Presupuesto.rdx and b/Source/Informes/3/Presupuesto.rdx differ
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
index e54ed101..f0d39b60 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
@@ -107,8 +107,8 @@ begin
FWordApp := TWordApp.Create (False, False);
with FWordApp do
begin
- Visible := False;
- ScreenUpdating := False;
+ Visible := false;
+ ScreenUpdating := false;
end;
FDocumento := TWordDoc.CreateNewDoc(FWordApp, FPlantilla);
@@ -309,6 +309,7 @@ begin
FWordApp.InsertFile(NombreFichero, 'Notas');
SysUtils.DeleteFile(NombreFichero);
+
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
begin
ReplaceBookmark('NombreEmpresaPortada', tbl_Empresa.FieldByName('NOMBRE').AsString);
@@ -439,17 +440,28 @@ begin
end;
---------------------------- }
+
+
with FDocumento, tbl_Cabecera do
begin
- if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
- begin
+//Solicitan que Azacan tenga nuevamente portada
+// 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 FDocumento.BookmarkExists('DireccionClientePortada') then
+ ReplaceBookmark('DireccionClientePortada', FieldByName('CALLE').AsString);
+ if FDocumento.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);
- end;
+// end;
Texto := FieldByName('PORTADA').AsString;
NombreFichero := DarFicheroTemporal;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 016a36e0..f70ea063 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 76adc7b5..2a48575d 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse2100FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.0.0FactuGES Servidor2.1.0.0martes, 23 de junio de 2015 17:48
+ FalseTrueFalse/standaloneTrueFalse2110FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.1.0FactuGES Servidor2.1.1.0jueves, 20 de agosto de 2015 17:07
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index cae1b1b9..a9b47307 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
-FILEVERSION 2,1,0,0
-PRODUCTVERSION 2,1,0,0
+FILEVERSION 2,1,1,0
+PRODUCTVERSION 2,1,1,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.1.0.0\0"
+ VALUE "FileVersion", "2.1.1.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
- VALUE "ProductVersion", "2.1.0.0\0"
- VALUE "CompileDate", "jueves, 20 de agosto de 2015 13:19\0"
+ VALUE "ProductVersion", "2.1.1.0\0"
+ VALUE "CompileDate", "jueves, 22 de octubre de 2015 11:01\0"
END
END
BLOCK "VarFileInfo"