diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index e1ddf2e2..81ec4e70 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -53,58 +53,58 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
TForm
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 1ed25578..ff9389b0 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\TrueFalse1280FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.2.8.0FactuGESFactuGES1.2.8.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1300FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.3.0.0FactuGESFactuGES1.3.0.0
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index a84bccf8..aacd1482 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,2,8,0
-PRODUCTVERSION 1,2,8,0
+FILEVERSION 1,3,0,0
+PRODUCTVERSION 1,3,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.2.8.0\0"
+ VALUE "FileVersion", "1.3.0.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "1.2.8.0\0"
+ VALUE "ProductVersion", "1.3.0.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index cc559f7e..b0ca1d4f 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas
index c1bd7d02..449d1ae4 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas
@@ -26,7 +26,7 @@ implementation
{$R *.dfm}
uses
- uAlbaranesClienteReportController;
+ uAlbaranesClienteReportController, uDialogUtils;
procedure TfEditorAlbaranesClientePreview.actExportarRTFExecute(
Sender: TObject);
@@ -39,6 +39,8 @@ begin
for I := 0 to ListaID.Count - 1 do
(Controller as IAlbaranesClienteReportController).ExportToWord(ListaID[I]);
+
+ ShowInfoMessage('El albar n se ha exportado correctamente.');
end;
end.
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas
index 0aa892a3..0dae11ca 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas
@@ -32,7 +32,7 @@ implementation
{$R *.dfm}
uses
- uFacturasClienteReportController, uIntegerListUtils;
+ uFacturasClienteReportController, uIntegerListUtils, uDialogUtils;
procedure TfEditorFacturasClientePreview.actExportarRTFExecute(Sender: TObject);
var
@@ -44,6 +44,8 @@ begin
for I := 0 to ListaID.Count - 1 do
(Controller as IFacturasClienteReportController).ExportToWord(ListaID[I]);
+
+ ShowInfoMessage('La factura se ha exportado correctamente.');
end;
end.
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas
index 6c7fb801..20c9d5ff 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas
@@ -28,7 +28,7 @@ implementation
{$R *.dfm}
uses
- uPedidosProveedorReportController;
+ uPedidosProveedorReportController, uDialogUtils;
procedure TfEditorPedidosProveedorPreview.actExportarRTFExecute(
Sender: TObject);
@@ -41,6 +41,8 @@ begin
for I := 0 to ListaID.Count - 1 do
(Controller as IPedidosProveedorReportController).ExportToWord(ListaID[I]);
+
+ ShowInfoMessage('El pedido se ha exportado correctamente.');
end;
end.
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
index 297f36ed..3228b4fc 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
@@ -24,7 +24,7 @@ implementation
{$R *.dfm}
uses
- uPresupuestosClienteReportController, uIntegerListUtils;
+ uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils;
procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(
Sender: TObject);
@@ -37,6 +37,8 @@ begin
for I := 0 to ListaID.Count - 1 do
(Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I]);
+
+ ShowInfoMessage('El presupuesto se ha exportado correctamente.');
end;
end.
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index d4d09001..34bba0f7 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 a5603748..3257eaee 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse1280FalseFalseFalseFalseFalse308212521.2.8.01.2.8.0jueves, 04 de septiembre de 2008 16:37FactuGES_Server.dpr
+ FalseTrueFalse/standaloneTrueFalse1300FalseFalseFalseFalseFalse308212521.3.0.01.3.0.0viernes, 05 de septiembre de 2008 19:22FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index d7b364ea..29719549 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,2,8,0
-PRODUCTVERSION 1,2,8,0
+FILEVERSION 1,3,0,0
+PRODUCTVERSION 1,3,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
- VALUE "FileVersion", "1.2.8.0\0"
- VALUE "ProductVersion", "1.2.8.0\0"
- VALUE "CompileDate", "lunes, 08 de septiembre de 2008 16:32\0"
+ VALUE "FileVersion", "1.3.0.0\0"
+ VALUE "ProductVersion", "1.3.0.0\0"
+ VALUE "CompileDate", "lunes, 08 de septiembre de 2008 17:18\0"
END
END
BLOCK "VarFileInfo"