Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@509 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-08-07 15:50:46 +00:00
parent 5d2c1aab9a
commit 136f08d376
7 changed files with 302 additions and 297 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 1,2,0,0
PRODUCTVERSION 1,2,0,0
FILEVERSION 1,2,1,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"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

9
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -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(

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -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>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 1,2,0,0
PRODUCTVERSION 1,2,0,0
FILEVERSION 1,2,1,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 "ProductVersion", "1.2.0.0\0"
VALUE "CompileDate", "miércoles, 06 de agosto de 2008 17:51\0"
VALUE "FileVersion", "1.2.1.0\0"
VALUE "ProductVersion", "1.2.1.0\0"
VALUE "CompileDate", "jueves, 07 de agosto de 2008 16:35\0"
END
END
BLOCK "VarFileInfo"