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

General -> mostrar el reloj de arena cuando se prepara un informe para previsualizarlo.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@947 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-06-02 11:06:34 +00:00
parent 1f6db0edf6
commit 14cffb023d
12 changed files with 258 additions and 176 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -70,19 +70,25 @@ var
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetEtiquetas(AID, withRefCliente);
ShowHourglassCursor;
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); AStream := FDataModule.GetEtiquetas(AID, withRefCliente);
if Assigned(AEditor) then try
try CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
AEditor.LoadFromStream(AStream); if Assigned(AEditor) then
AEditor.Preview; try
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
end; finally
AEditor.Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;
@ -92,19 +98,25 @@ var
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetEtiquetas(AID, withRefCliente);
ShowHourglassCursor;
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); AStream := FDataModule.GetEtiquetas(AID, withRefCliente);
if Assigned(AEditor) then try
try CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
AEditor.LoadFromStream(AStream); if Assigned(AEditor) then
AEditor.Print; try
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Print;
end; finally
AEditor.Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;
@ -162,24 +174,30 @@ var
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetRptAlbaranes(AListaID);
ShowHourglassCursor;
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); AStream := FDataModule.GetRptAlbaranes(AListaID);
if Assigned(AEditor) then try
begin CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
try if Assigned(AEditor) then
AEditor.Controller := Self; begin
AEditor.ListaID := AListaID; try
AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Controller := Self;
AEditor.LoadFromStream(AStream); AEditor.ListaID := AListaID;
AEditor.Preview; AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
finally
AEditor.Release;
end;
end; end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end; end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;
@ -189,6 +207,7 @@ var
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptAlbaranes(AListaID); AStream := FDataModule.GetRptAlbaranes(AListaID);

33
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas
View File

@ -116,24 +116,29 @@ var
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(AListaID); ShowHourglassCursor;
try try
CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor); AStream := FDataModule.GetReport(AListaID);
if Assigned(AEditor) then try
begin CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor);
try if Assigned(AEditor) then
AEditor.Controller := Self; begin
AEditor.ListaID := AListaID; try
AEditor.Title := 'Albarán de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Controller := Self;
AEditor.LoadFromStream(AStream); AEditor.ListaID := AListaID;
AEditor.Preview; AEditor.Title := 'Albarán de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
AEditor := Nil; finally
AEditor.Release;
AEditor := Nil;
end;
end; end;
finally
FreeANDNil(AStream)
end; end;
finally finally
FreeANDNil(AStream) HideHourglassCursor;
end; end;
end; end;

32
Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
View File

@ -59,23 +59,28 @@ var
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(ListaID); ShowHourglassCursor;
try try
CreateEditor('EditorEtiquetasContactosPreview', IEditorEtiquetasContactosPreview, AEditor); AStream := FDataModule.GetReport(ListaID);
if Assigned(AEditor) then try
begin CreateEditor('EditorEtiquetasContactosPreview', IEditorEtiquetasContactosPreview, AEditor);
try if Assigned(AEditor) then
AEditor.Controller := Self; begin
AEditor.ListaID := ListaID; try
AEditor.LoadFromStream(AStream); AEditor.Controller := Self;
AEditor.Preview; AEditor.ListaID := ListaID;
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
finally
AEditor.Release;
end;
end; end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end; end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;
@ -85,6 +90,7 @@ var
AEditor : IEditorEtiquetasContactosPreview; AEditor : IEditorEtiquetasContactosPreview;
begin begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(ListaID); AStream := FDataModule.GetReport(ListaID);

31
Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
View File

@ -59,23 +59,28 @@ var
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(ListaID); ShowHourglassCursor;
try try
CreateEditor('EditorFichasEmpleadoPreview', IEditorFichasEmpleadoPreview, AEditor); AStream := FDataModule.GetReport(ListaID);
if Assigned(AEditor) then try
begin CreateEditor('EditorFichasEmpleadoPreview', IEditorFichasEmpleadoPreview, AEditor);
try if Assigned(AEditor) then
AEditor.Controller := Self; begin
AEditor.ListaID := ListaID; try
AEditor.LoadFromStream(AStream); AEditor.Controller := Self;
AEditor.Preview; AEditor.ListaID := ListaID;
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
finally
AEditor.Release;
end;
end; end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end; end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;

32
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
View File

@ -114,21 +114,26 @@ var
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetRptFacturas(AListaID, VerSello, VerCopia); ShowHourglassCursor;
try try
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor); AStream := FDataModule.GetRptFacturas(AListaID, VerSello, VerCopia);
if Assigned(AEditor) then try
try CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
AEditor.Controller := Self; if Assigned(AEditor) then
AEditor.ListaID := AListaID; try
AEditor.LoadFromStream(AStream); AEditor.Controller := Self;
AEditor.Preview; AEditor.ListaID := AListaID;
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
end; finally
AEditor.Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;
@ -138,6 +143,7 @@ var
AEditor : IEditorFacturasClientePreview; AEditor : IEditorFacturasClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptFacturas(AListaID, VerSello, VerCopia); AStream := FDataModule.GetRptFacturas(AListaID, VerSello, VerCopia);

27
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas
View File

@ -60,19 +60,24 @@ var
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(AFacturaID); ShowHourglassCursor;
try try
CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor); AStream := FDataModule.GetReport(AFacturaID);
if Assigned(AEditor) then try
try CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor);
AEditor.LoadFromStream(AStream); if Assigned(AEditor) then
AEditor.Preview; try
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
end; finally
AEditor.Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;

37
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas
View File

@ -126,26 +126,31 @@ var
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor); ShowHourglassCursor;
try try
CreateEditor('EditorPedidosProveedorPreview', IEditorPedidosProveedorPreview, AEditor); AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor);
if Assigned(AEditor) then try
begin CreateEditor('EditorPedidosProveedorPreview', IEditorPedidosProveedorPreview, AEditor);
try if Assigned(AEditor) then
AEditor.Controller := Self; begin
AEditor.ListaID := AListaID; try
AEditor.VerPrecios := VerPrecios; AEditor.Controller := Self;
AEditor.VerRefProveedor := VerRefProveedor; AEditor.ListaID := AListaID;
AEditor.Title := 'Pedido a proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.VerPrecios := VerPrecios;
AEditor.LoadFromStream(AStream); AEditor.VerRefProveedor := VerRefProveedor;
AEditor.Preview; AEditor.Title := 'Pedido a proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
AEditor := Nil; finally
AEditor.Release;
AEditor := Nil;
end;
end; end;
finally
FreeANDNil(AStream)
end; end;
finally finally
FreeANDNil(AStream) HideHourglassCursor;
end; end;
end; end;

35
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
View File

@ -116,6 +116,7 @@ var
begin begin
Result := False; Result := False;
AFile := AFileName; AFile := AFileName;
if EsCadenaVacia(AFile) and (not PreguntarFicheroWordExportar(AFile)) then if EsCadenaVacia(AFile) and (not PreguntarFicheroWordExportar(AFile)) then
Exit; Exit;
@ -140,24 +141,29 @@ var
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetRptPresupuestos(AListaID); ShowHourglassCursor;
try try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); AStream := FDataModule.GetRptPresupuestos(AListaID);
if Assigned(AEditor) then try
begin CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
try if Assigned(AEditor) then
AEditor.Controller := Self; begin
AEditor.ListaID := AListaID; try
AEditor.Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Controller := Self;
AEditor.LoadFromStream(AStream); AEditor.ListaID := AListaID;
AEditor.Preview; AEditor.Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE;
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
finally
AEditor.Release;
end;
end; end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end; end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;
@ -167,6 +173,7 @@ var
AEditor : IEditorPresupuestosClientePreview; AEditor : IEditorPresupuestosClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPresupuestos(AListaID); AStream := FDataModule.GetRptPresupuestos(AListaID);

32
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas
View File

@ -60,23 +60,28 @@ var
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(ListaID); ShowHourglassCursor;
try try
CreateEditor('EditorRecibosClientePreview', IEditorRecibosClientePreview, AEditor); AStream := FDataModule.GetReport(ListaID);
if Assigned(AEditor) then try
begin CreateEditor('EditorRecibosClientePreview', IEditorRecibosClientePreview, AEditor);
try if Assigned(AEditor) then
AEditor.Controller := Self; begin
AEditor.ListaID := ListaID; try
AEditor.LoadFromStream(AStream); AEditor.Controller := Self;
AEditor.Preview; AEditor.ListaID := ListaID;
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
finally
AEditor.Release;
end;
end; end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end; end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;
@ -86,6 +91,7 @@ var
AEditor : IEditorRecibosClientePreview; AEditor : IEditorRecibosClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(ListaID); AStream := FDataModule.GetReport(ListaID);

28
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas
View File

@ -59,19 +59,24 @@ var
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(ID); ShowHourglassCursor;
try try
CreateEditor('EditorRecibosProveedorPreview', IEditorRecibosProveedorPreview, AEditor); AStream := FDataModule.GetReport(ID);
if Assigned(AEditor) then try
try CreateEditor('EditorRecibosProveedorPreview', IEditorRecibosProveedorPreview, AEditor);
AEditor.LoadFromStream(AStream); if Assigned(AEditor) then
AEditor.Preview; try
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
end; finally
AEditor.Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;
@ -81,6 +86,7 @@ var
AEditor : IEditorRecibosProveedorPreview; AEditor : IEditorRecibosProveedorPreview;
begin begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(ID); AStream := FDataModule.GetReport(ID);

29
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas
View File

@ -58,19 +58,25 @@ var
AEditor : IEditorRemesasClientePreview; AEditor : IEditorRemesasClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(ID);
ShowHourglassCursor;
try try
CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor); AStream := FDataModule.GetReport(ID);
if Assigned(AEditor) then try
try CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
AEditor.LoadFromStream(AStream); if Assigned(AEditor) then
AEditor.Preview; try
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
end; finally
AEditor.Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;
@ -80,6 +86,7 @@ var
AEditor : IEditorRemesasClientePreview; AEditor : IEditorRemesasClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(ID); AStream := FDataModule.GetReport(ID);

27
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas
View File

@ -59,19 +59,24 @@ var
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(ID); ShowHourglassCursor;
try try
CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor); AStream := FDataModule.GetReport(ID);
if Assigned(AEditor) then try
try CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor);
AEditor.LoadFromStream(AStream); if Assigned(AEditor) then
AEditor.Preview; try
finally AEditor.LoadFromStream(AStream);
AEditor.Release; AEditor.Preview;
end; finally
AEditor.Release;
end;
finally
FreeAndNil(AStream);
AEditor := Nil;
end;
finally finally
FreeAndNil(AStream); HideHourglassCursor;
AEditor := Nil;
end; end;
end; end;