Presupuestos de cliente -> Confirmar al usuario que se han generado los certificados de trabajos cuando he terminado bien el proceso.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@509 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 1,2,0,0
+FILEVERSION 1,2,1,0
-PRODUCTVERSION 1,2,0,0
+PRODUCTVERSION 1,2,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", "1.2.0.0\0"
+              VALUE "FileVersion", "1.2.1.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "1.2.0.0\0"
+              VALUE "ProductVersion", "1.2.1.0\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas

@@ -110,6 +110,7 @@ procedure TfEditorPresupuestosCliente.actGenerarCertificadoExecute(
 var
   APresupuestos: IBizPresupuestoCliente;
   AllItems: Boolean;
+  ATexto : String;
 begin
   APresupuestos := Nil;
   AllItems := False;
@@ -121,13 +122,17 @@ begin
   begin
     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords);
     APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
+    ATexto := 'Se han generado los certificados de trabajos.';
   end
-  else
+  else begin
     APresupuestos := Presupuestos;
+    ATexto := 'Se ha generado el certificado de trabajos.';
+  end;
 
 
   if Assigned(APresupuestos) then
-     FController.GenerarCertificados(APresupuestos, AllItems)
+     if FController.GenerarCertificados(APresupuestos, AllItems) then
+       ShowInfoMessage('Generar certificado de trabajo', ATexto)
 end;
 
 procedure TfEditorPresupuestosCliente.actGenerarCertificadoUpdate(

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 1,2,0,0
+FILEVERSION 1,2,1,0
-PRODUCTVERSION 1,2,0,0
+PRODUCTVERSION 1,2,1,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0A04E4"
          BEGIN
-              VALUE "FileVersion", "1.2.0.0\0"
+              VALUE "FileVersion", "1.2.1.0\0"
-              VALUE "ProductVersion", "1.2.0.0\0"
+              VALUE "ProductVersion", "1.2.1.0\0"
-              VALUE "CompileDate", "miércoles, 06 de agosto de 2008 17:51\0"
+              VALUE "CompileDate", "jueves, 07 de agosto de 2008 16:35\0"
          END
     END
     BLOCK "VarFileInfo"