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

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

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas

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

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas

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

Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas

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

Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas

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

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas

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

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas

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

Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas

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

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas

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

Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas

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

Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas

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

Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas

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

Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas

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