diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 53dbaa11..3e8070df 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\TrueFalse1990FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.9.9.0FactuGESFactuGES1.9.9.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2010FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.1.0FactuGESFactuGES2.0.1.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index b9f3ef37..5056b7f0 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 1,9,9,0
-PRODUCTVERSION 1,9,9,0
+FILEVERSION 2,0,0,0
+PRODUCTVERSION 2,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "1.9.9.0\0"
+ VALUE "FileVersion", "2.0.0.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "1.9.9.0\0"
+ VALUE "ProductVersion", "2.0.0.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 758db55f..5750befd 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
index d00eeac8..087cd7ae 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
@@ -39,6 +39,8 @@ type
ListaCapitulos : array[1..1000] of TCapitulo;
FVerSello: Integer;
FVerISO: Integer;
+ FTablaInicioContenido: Table;
+
procedure InsertarConceptos(Tabla : Table);
function Generar : Boolean;
function RellenarPortada : boolean; virtual;
@@ -114,7 +116,8 @@ begin
FDocumento := TWordDoc.CreateNewDoc(FWordApp, FPlantilla);
FWordApp.SaveActiveDocAs(FNombreFichero);
-
+ FTablaInicioContenido := FDocumento.Document.Tables.Item(2);
+
try
if not RellenarPortada then
RaiseError('Se producido un error al generar la portada del informe en MS Word.');
@@ -349,11 +352,11 @@ begin
FieldByName('IMPORTE_UNIDAD').DisplayFormat := DISPLAY_EUROS4;
FieldByName('IMPORTE_TOTAL').DisplayFormat := DISPLAY_EUROS4;
-
+
GoToSection(3);
{ Copiar la tabla de conceptos al portapapeles }
- Document.Tables.Item(2).Select;
+ FTablaInicioContenido.Select;
FWordApp.Application.Selection.Cut;
while not Eof do
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
index 0c65a737..6aff4e70 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
@@ -205,9 +205,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitHeight = 338
inherited ToolBar1: TToolBar
Width = 750
- Height = 51
+ Height = 46
ExplicitWidth = 750
- ExplicitHeight = 51
+ ExplicitHeight = 46
inherited ToolButton3: TToolButton
Wrap = False
end
@@ -220,18 +220,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited ToolButton14: TToolButton
Left = 334
Top = 0
+ Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
- Left = 399
- Top = 0
- ExplicitLeft = 399
- ExplicitTop = 0
+ Left = 0
+ ExplicitLeft = 0
end
inherited FontName: TJvFontComboBox
- Left = 544
- Top = 0
+ Left = 145
ExplicitLeft = 544
ExplicitTop = 0
end
@@ -292,6 +290,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 77
Width = 750
Height = 261
+ ExplicitTop = 77
ExplicitWidth = 750
ExplicitHeight = 239
end
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
index 5d7b3056..20763779 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
@@ -228,6 +228,10 @@ begin
raise Exception.Create('No hay ningún presupuesto asignado');
pgPaginas.ActivePage := pagGeneral;
+ //Para AZACAN NO HAY PORTADA EN PRESUPUESTOS
+ if (AppFactuGES.EmpresaActiva.ID = 3) then
+ pagPortada.TabVisible := false;
+
Presupuesto.DataTable.Active := True;
end;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index bf8dd0bc..d737eeb2 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 bcdcde58..8ea1937d 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,9 +35,7 @@
Delphi.Personality
-FalseTrueFalse/standaloneTrueFalse1990FalseFalseFalseFalseFalse308212521.9.9.01.9.9.0viernes, 01 de marzo de 2013 12:41
-
-
+FalseTrueFalse/standaloneTrueFalse2010FalseFalseFalseFalseFalse308212522.0.1.02.0.1.0lunes, 15 de abril de 2013 12:04
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 15d010ea..415139ee 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 1,9,9,0
-PRODUCTVERSION 1,9,9,0
+FILEVERSION 2,0,0,0
+PRODUCTVERSION 2,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
- VALUE "FileVersion", "1.9.9.0\0"
- VALUE "ProductVersion", "1.9.9.0\0"
- VALUE "CompileDate", "miércoles, 10 de abril de 2013 16:04\0"
+ VALUE "FileVersion", "2.0.0.0\0"
+ VALUE "ProductVersion", "2.0.0.0\0"
+ VALUE "CompileDate", "lunes, 15 de abril de 2013 12:04\0"
END
END
BLOCK "VarFileInfo"