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

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

@ -70,6 +70,9 @@ var
AEditor : IEditorAlbaranesClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetEtiquetas(AID, withRefCliente);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
@ -84,6 +87,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TAlbaranesClienteReportController.EtiquetasPrint(const AID: integer; const withRefCliente: Boolean);
@ -92,6 +98,9 @@ var
AEditor : IEditorAlbaranesClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetEtiquetas(AID, withRefCliente);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
@ -106,6 +115,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
function TAlbaranesClienteReportController.ExportToPDF(const AID: Integer;
@ -162,6 +174,9 @@ var
AEditor : IEditorAlbaranesClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetRptAlbaranes(AListaID);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
@ -181,6 +196,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList);
@ -189,6 +207,7 @@ var
AEditor : IEditorAlbaranesClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetRptAlbaranes(AListaID);

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

@ -116,6 +116,8 @@ var
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(AListaID);
try
CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor);
@ -135,6 +137,9 @@ begin
finally
FreeANDNil(AStream)
end;
finally
HideHourglassCursor;
end;
end;
procedure TAlbaranesProveedorReportController.Print(

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

@ -59,6 +59,8 @@ var
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ListaID);
try
CreateEditor('EditorEtiquetasContactosPreview', IEditorEtiquetasContactosPreview, AEditor);
@ -77,6 +79,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TEtiquetasContactosReportController.Print(const ListaID : TIntegerList);
@ -85,6 +90,7 @@ var
AEditor : IEditorEtiquetasContactosPreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ListaID);

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

@ -59,6 +59,8 @@ var
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ListaID);
try
CreateEditor('EditorFichasEmpleadoPreview', IEditorFichasEmpleadoPreview, AEditor);
@ -77,6 +79,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TFichasEmpleadoReportController.Print(const ListaID : TIntegerList);

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

@ -114,6 +114,8 @@ var
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetRptFacturas(AListaID, VerSello, VerCopia);
try
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
@ -130,6 +132,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TFacturasClienteReportController.Print(const AListaID : TIntegerList; const VerSello: Boolean = True; const VerCopia: Boolean = True);
@ -138,6 +143,7 @@ var
AEditor : IEditorFacturasClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetRptFacturas(AListaID, VerSello, VerCopia);

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

@ -60,6 +60,8 @@ var
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(AFacturaID);
try
CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor);
@ -74,6 +76,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TFacturasProveedorReportController.Print(const AFacturaID : String);

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

@ -126,6 +126,8 @@ var
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor);
try
CreateEditor('EditorPedidosProveedorPreview', IEditorPedidosProveedorPreview, AEditor);
@ -147,6 +149,9 @@ begin
finally
FreeANDNil(AStream)
end;
finally
HideHourglassCursor;
end;
end;
procedure TPedidosProveedorReportController.Print(const AListaID : TIntegerList;

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

@ -116,6 +116,7 @@ var
begin
Result := False;
AFile := AFileName;
if EsCadenaVacia(AFile) and (not PreguntarFicheroWordExportar(AFile)) then
Exit;
@ -140,6 +141,8 @@ var
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPresupuestos(AListaID);
try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
@ -159,6 +162,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList);
@ -167,6 +173,7 @@ var
AEditor : IEditorPresupuestosClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPresupuestos(AListaID);

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

@ -60,6 +60,8 @@ var
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ListaID);
try
CreateEditor('EditorRecibosClientePreview', IEditorRecibosClientePreview, AEditor);
@ -78,6 +80,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TRecibosClienteReportController.Print(const ListaID : TIntegerList);
@ -86,6 +91,7 @@ var
AEditor : IEditorRecibosClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ListaID);

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

@ -59,6 +59,8 @@ var
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ID);
try
CreateEditor('EditorRecibosProveedorPreview', IEditorRecibosProveedorPreview, AEditor);
@ -73,6 +75,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TRecibosProveedorReportController.Print(const ID : integer);
@ -81,6 +86,7 @@ var
AEditor : IEditorRecibosProveedorPreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ID);

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

@ -58,6 +58,9 @@ var
AEditor : IEditorRemesasClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ID);
try
CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
@ -72,6 +75,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TRemesasClienteReportController.Print(const ID : String);
@ -80,6 +86,7 @@ var
AEditor : IEditorRemesasClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ID);

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

@ -59,6 +59,8 @@ var
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ID);
try
CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor);
@ -73,6 +75,9 @@ begin
FreeAndNil(AStream);
AEditor := Nil;
end;
finally
HideHourglassCursor;
end;
end;
procedure TRemesasProveedorReportController.Print(const ID : String);