diff --git a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
index 327e4e33..89c1c862 100644
--- a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
+++ b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
@@ -99,7 +99,7 @@ begin
ADatosBancarios.DataTable.First;
while not ADatosBancarios.DataTable.EOF do
begin
- Aux := Format('%s %s %s %s', [ADatosBancarios.ENTIDAD,
+ Aux := Format('Nº de cuenta: %s %s %s %s', [ADatosBancarios.ENTIDAD,
ADatosBancarios.SUCURSAL, ADatosBancarios.DC, ADatosBancarios.CUENTA]);
Add(Format('%s=%d', [Aux, ADatosBancarios.ID]));
ADatosBancarios.DataTable.Next;
@@ -130,7 +130,7 @@ begin
ADatosBancarios.DataTable.First;
while not ADatosBancarios.DataTable.EOF do
begin
- Aux := Format('%s - %s', [ADatosBancarios.IBAN, ADatosBancarios.SWIFT]);
+ Aux := Format('IBAN: %s - SWIFT: %s', [ADatosBancarios.IBAN, ADatosBancarios.SWIFT]);
Add(Format('%s=%d', [Aux, ADatosBancarios.ID]));
ADatosBancarios.DataTable.Next;
end;
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index a19b8372..5dbb2378 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -54,7 +54,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1070FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.7.0FactuGESFactuGES1.0.7.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1080FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.8.0FactuGESFactuGES1.0.8.0
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 1cbbd26c..5670cce0 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,0,7,0
-PRODUCTVERSION 1,0,7,0
+FILEVERSION 1,0,8,0
+PRODUCTVERSION 1,0,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", "1.0.7.0\0"
+ VALUE "FileVersion", "1.0.8.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "1.0.7.0\0"
+ VALUE "ProductVersion", "1.0.8.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index f4716e62..857d86ae 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/FacturaCliente.rdx b/Source/Informes/FacturaCliente.rdx
index 796e23cc..832b2f42 100644
Binary files a/Source/Informes/FacturaCliente.rdx and b/Source/Informes/FacturaCliente.rdx differ
diff --git a/Source/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaCliente.fr3
index 17150461..890cdab5 100644
--- a/Source/Informes/InfFacturaCliente.fr3
+++ b/Source/Informes/InfFacturaCliente.fr3
@@ -1,12 +1,13 @@
-
+
+
+
-
@@ -17,12 +18,10 @@
-
-
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
index bf6a288e..8f6e8396 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
@@ -258,7 +258,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
- Caption = 'Observaciones'
+ Caption = 'Descripci'#243'n'
LayoutDirection = ldHorizontal
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = []
diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas
index 6cdb2ece..a32bb74a 100644
--- a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas
+++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas
@@ -325,7 +325,7 @@ begin
AFacturasClienteController.Anadir(AFacturas);
APresupuestosController.RecuperarCliente(AListaPresupuestos);
AFacturas.Cliente := AListaPresupuestos.Cliente;
-
+ AFacturas.OBSERVACIONES.Add('Importe de factura por trabajos realizados según indicaciones de nuestro presupuesto ' + AListaPresupuestos.REFERENCIA + ' con fecha ' + DateToStr(AListaPresupuestos.FECHA_PRESUPUESTO));
AFacturaActual := AFacturas;
end;
@@ -339,7 +339,7 @@ begin
with AFacturaActual.Detalles do
begin
Edit;
- CONCEPTO := 'Presupuesto ' + AListaPresupuestos.REFERENCIA + ' del ' + DateToStr(AListaPresupuestos.FECHA_PRESUPUESTO);
+ CONCEPTO := AListaPresupuestos.PORTADA.Text;
CANTIDAD := 1;
IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los presupuestos por lo tanto el
//importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index c19b48b8..5ccc4752 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 b67b4065..7f3c4256 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse1070FalseFalseFalseFalseFalse308212521.0.7.01.0.7.0jueves, 05 de junio de 2008 20:23FactuGES_Server.dpr
+ FalseTrueFalse/standaloneTrueFalse1080FalseFalseFalseFalseFalse308212521.0.8.01.0.8.0jueves, 12 de junio de 2008 19:15FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 4aeebc53..90e8282a 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,0,7,0
-PRODUCTVERSION 1,0,7,0
+FILEVERSION 1,0,8,0
+PRODUCTVERSION 1,0,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
- VALUE "FileVersion", "1.0.7.0\0"
- VALUE "ProductVersion", "1.0.7.0\0"
- VALUE "CompileDate", "jueves, 12 de junio de 2008 19:15\0"
+ VALUE "FileVersion", "1.0.8.0\0"
+ VALUE "ProductVersion", "1.0.8.0\0"
+ VALUE "CompileDate", "viernes, 13 de junio de 2008 10:34\0"
END
END
BLOCK "VarFileInfo"