Cambios en la forma de ver los editores para que libere bien, creo que tambien he arriglado error al crear clientes nuevos

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

Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas

@@ -41,8 +41,7 @@ begin
   inherited;
 end;
 
-procedure TDatosBancariosEmpresaController.Ver(
+procedure TDatosBancariosEmpresaController.Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
-  ADatosBancarios : IBizEmpresasDatosBancarios);
 var
   AEditor : IEditorDatosBancariosEmpresa;
 begin
@@ -50,21 +49,17 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorDatosBancariosEmpresa', IEditorDatosBancariosEmpresa, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          DatosBancarios := ADatosBancarios;
          Controller := Self;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas

@@ -208,21 +208,17 @@ begin
   ShowHourglassCursor;
   try
 	CreateEditor('EditorEmpresa', IEditorEmpresa, AEditor);
+  if Assigned(AEditor) then
      with AEditor do
      begin
        Empresa := AEmpresa;
        Controller := Self;
+       ShowModal;
+       Release;
      end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

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

@@ -586,21 +586,16 @@ begin
   try
     //RecuperarObjetos(AAlbaran); <- No descomentar. No hace falta
     CreateEditor('EditorDireccionEntregaAlbaranCliente', IEditorDireccionEntregaAlbaranCliente, AEditor);
-
+    if Assigned(AEditor) then
        with (AEditor as IEditorDireccionEntregaAlbaranCliente) do
        begin
          Albaran := AAlbaran;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

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

@@ -651,21 +651,16 @@ begin
   try
     //RecuperarObjetos(AAlbaran); <- No descomentar. No hace falta
     CreateEditor('EditorDireccionEntregaAlbaranProveedor', IEditorDireccionEntregaAlbaranProveedor, AEditor);
-
+    if Assigned(AEditor) then
        with (AEditor as IEditorDireccionEntregaAlbaranProveedor) do
        begin
          Albaran := AAlbaran;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/Modulos/Almacenes/Controller/uAlmacenesController.pas

@@ -43,7 +43,6 @@ type
     //este controller
     procedure AsignarDataModule; virtual;
     procedure RecuperarObjetos(AAlmacen: IBizAlmacen); virtual;
-    procedure AsignarEditor(out AEditor: IEditorDBItem); virtual;
 
     procedure ValidarObjetos; virtual;
 //    procedure AsignarCodigo(AAlmacen: IBizAlmacen); virtual;
@@ -95,11 +94,6 @@ begin
   FDataModule := TDataModuleAlmacenes.Create(Nil);
 end;
 
-procedure TAlmacenesController.AsignarEditor(out AEditor: IEditorDBItem);
-begin
-  CreateEditor('EditorAlmacen', IEditorAlmacen, AEditor);
-end;
-
 {procedure TAlmacenesController.AssignarID(AAlmacen: IBizAlmacen; ADataModule : IDataModuleAlmacenes);
 var
   NuevoIDCabecera : Integer;
@@ -211,23 +205,18 @@ begin
   ShowHourglassCursor;
   try
     RecuperarObjetos(AAlmacen);
-    AsignarEditor(AEditor);
+    CreateEditor('EditorAlmacen', IEditorAlmacen, AEditor);
-
+    if Assigned(AEditor) then
        with (AEditor as IEditorAlmacen) do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Almacen := AAlmacen;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -235,16 +224,18 @@ function TAlmacenesController.VerLista(AAlmacenes: IBizAlmacen): IBizAlmacen;
 var
   AEditor : IEditorListaAlmacenes;
 begin
+  AEditor := NIL;
   Result := NIL;
 
-  CreateEditor('EditorListaAlmacenes', IEditorListaAlmacenes, AEditor);
   try
+    CreateEditor('EditorListaAlmacenes', IEditorListaAlmacenes, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Almacenes := AAlmacenes;
          if IsPositiveResult(ShowModal) then
             Result := AlmacenSeleccionado;
-	    AEditor.Release;
+         Release;
       end;
   finally
     AEditor := NIL;
@@ -259,17 +250,16 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorAlmacenes', IEditorAlmacenes, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Almacenes := AAlmacenes;
+         ShowEmbedded;
        end;
   finally
     HideHourglassCursor;
   end;
-
-  if Assigned(AEditor) then
-    AEditor.ShowEmbedded;
 end;
 
 function TAlmacenesController._Vacio: IBizAlmacen;

Source/Modulos/Articulos/Controller/uArticulosController.pas

@@ -388,21 +388,17 @@ begin
     RecuperarObjetos(AArticulo);
 
     CreateEditor('EditorArticulo', IEditorArticulo, AEditor);
+    if Assigned(AEditor) then
        with (AEditor as IEditorArticulo) do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Articulo := AArticulo;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -432,17 +428,16 @@ begin
     RecuperarObjetos(AArticulos);
 
     CreateEditor('EditorArticulos', IEditorArticulos, AEditor);
+    if Assigned(AEditor) then
        with (AEditor as IEditorArticulos) do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Articulos := AArticulos;
+         ShowEmbedded;
        end;
   finally
     HideHourglassCursor;
   end;
-
-  if Assigned(AEditor) then
-    AEditor.ShowEmbedded;
 end;
 
 function TArticulosController._Vacio: IBizArticulo;

Source/Modulos/Comisiones/Controller/uComisionesController.pas

@@ -296,21 +296,17 @@ begin
 //    RecuperarObjetos(ARemesaCliente);
 
     CreateEditor('EditorComision', IEditorComision, AEditor);
+    if Assigned(AEditor) then
        with (AEditor as IEditorComision) do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Comision := AComision;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -322,20 +318,16 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorComisiones', IEditorComisiones, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Comisiones := AComision;
+         ShowEmbedded;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowEmbedded;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/Modulos/Contactos/Controller/uClientesController.pas

@@ -352,30 +352,22 @@ end;
 procedure TClientesController.Ver(AContacto: IBizContacto);
 var
   AEditor : IEditorCliente;
-  AItem : IBizCliente;
 begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
-    AItem := (FDataModule as IDataModuleClientes).GetItem(AContacto.ID);
-    AItem.DataTable.Active := True;
-
     CreateEditor('EditorCliente', IEditorCliente, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
-      Contacto := AItem;
+         Contacto := AContacto;
          Controller := Self;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-  
-  if Assigned(AEditor) then
-    try
-      AEditor.Show;
-      //AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -383,7 +375,11 @@ procedure TClientesController.VerTodos(AContactos: IBizContacto);
 var
   AEditor : IEditorClientes;
 begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
     CreateEditor('EditorClientes', IEditorClientes, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Contactos := AContactos;
@@ -391,6 +387,10 @@ begin
          MultiSelect := True;
          ShowEmbedded;
       end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
 end;
 
 end.

Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas

@@ -104,21 +104,18 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorDireccion', IEditorEditorDireccion, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Direccion := ADireccion;
          Controller := Self;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-  
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
+
 end.

Source/Modulos/Contactos/Controller/uEmpleadosController.pas

@@ -221,21 +221,17 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorEmpleado', IEditorEmpleado, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Contacto := AContacto;
          Controller := Self;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -243,7 +239,11 @@ procedure TEmpleadosController.VerTodos(AContactos: IBizContacto);
 var
   AEditor : IEditorEmpleados;
 begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
     CreateEditor('EditorEmpleados', IEditorEmpleados, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Contactos := AContactos;
@@ -251,6 +251,10 @@ begin
          MultiSelect := True;
          ShowEmbedded;
        end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
 end;
 
 end.

Source/Modulos/Contactos/Controller/uGruposClienteController.pas

@@ -144,21 +144,17 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorGruposCliente', IEditorGruposCliente, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          GruposCliente := AGruposCliente;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/Modulos/Contactos/Controller/uGruposEmpleadoController.pas

@@ -144,21 +144,17 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorGruposEmpleado', IEditorGruposEmpleado, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          GruposEmpleado := AGruposEmpleado;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/Modulos/Contactos/Controller/uGruposProveedorController.pas

@@ -144,21 +144,17 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorGruposProveedor', IEditorGruposProveedor, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          GruposProveedor := AGruposProveedor;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/Modulos/Contactos/Controller/uProveedoresController.pas

@@ -284,21 +284,17 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorProveedor', IEditorProveedor, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Contacto := AContacto;
          Controller := Self;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -306,7 +302,11 @@ procedure TProveedoresController.VerTodos(AContactos: IBizContacto);
 var
   AEditor : IEditorProveedores;
 begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
     CreateEditor('EditorProveedores', IEditorProveedores, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Contactos := AContactos;
@@ -314,6 +314,10 @@ begin
          MultiSelect := True;
          ShowEmbedded;
        end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
 end;
 
 end.

Source/Modulos/Familias/Controller/uFamiliasController.pas

@@ -146,21 +146,17 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorFamilias', IEditorFamilias, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Familias := AFamilias;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas

@@ -180,18 +180,16 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorFormaPago', IEditorFormaPago, AEditor);
-    with AEditor do
-      FormaPago := AFormaPago;
-  finally
-    HideHourglassCursor;
-  end;
-
     if Assigned(AEditor) then
-    try
+       with AEditor do
-      AEditor.ShowModal;
+       begin
-      AEditor.Release;
+         FormaPago := AFormaPago;
+         ShowModal;
+         Release;
+       end;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -203,18 +201,16 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorFormasPago', IEditorFormasPago, AEditor);
-    with AEditor do
-      FormasPago := AFormasPago;
-  finally
-    HideHourglassCursor;
-  end;
-
     if Assigned(AEditor) then
-    try
+       with AEditor do
-      AEditor.ShowModal;
+       begin
-      AEditor.Release;
+         FormasPago := AFormasPago;
+         ShowModal;
+         Release;
+       end;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas

@@ -122,23 +122,19 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorEntradaSalidaArticulos', IEditorEntradaSalidaArticulos, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Articulos := AArticulos;
          HistoricoMovimientos := AHistoricoMovimientos;
+         ShowModal;
+         Result := ResultadoModalOK;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      Result := AEditor.ResultadoModalOK;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;}
 
@@ -150,18 +146,18 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorHistoricoMovimientos', IEditorHistoricoMovimientos, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          HistoricoMovimientos := AHistoricoMovimientos;
          MultiSelect := False;
+         ShowEmbedded;
        end;
   finally
+    AEditor := Nil;
     HideHourglassCursor;
   end;
-
-  if Assigned(AEditor) then
-    AEditor.ShowEmbedded;
 end;
 
 function THistoricoMovimientosController._Vacio: IBizHistoricoMovimientos;

Source/Modulos/Inventario/Controller/uInventarioController.pas

@@ -451,6 +451,7 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorEntradaSalidaArticulos', IEditorEntradaSalidaArticulos, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
@@ -458,18 +459,13 @@ begin
          Inventario := AInventario;
          if Assigned(APedido) then
             PedidoProveedor := APedido;
+         ShowModal;
+         Result := ResultadoModalOK;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      Result := AEditor.ResultadoModalOK;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -481,23 +477,19 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorDetalleReservas', IEditorDetalleReservas, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
    //      Controller := Self; //OJO ORDEN MUY IMPORTANTE
          DetalleReservas := FDataModule.GetDetalleReservas;
          Articulo := AArticulo;
    //      MultiSelect := False;
+         ShowModal;
+         Release;
       end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -509,18 +501,18 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorInventario', IEditorInventario, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Inventario := AInventario;
          MultiSelect := False;
+         ShowEmbedded;
        end;
   finally
+    AEditor := NIL;
     HideHourglassCursor;
   end;
-
-  if Assigned(AEditor) then
-    AEditor.ShowEmbedded;
 end;
 
 function TInventarioController._Vacio: IBizInventario;

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

@@ -435,21 +435,16 @@ begin
   try
     //RecuperarObjetos(APedido); <- No descomentar. No hace falta
     CreateEditor('EditorDireccionEntregaPedidoProveedor', IEditorDireccionEntregaPedidoProveedor, AEditor);
-
+    if Assigned(AEditor) then
        with (AEditor as IEditorDireccionEntregaPedidoProveedor) do
        begin
          Pedido := APedido;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

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

@@ -373,21 +373,16 @@ begin
   try
     //RecuperarObjetos(APresupuesto); <- No descomentar. No hace falta
     CreateEditor('EditorDireccionEntregaPresupuestoCliente', IEditorDireccionEntregaPresupuestoCliente, AEditor);
-
+    if Assigned(AEditor) then
        with (AEditor as IEditorDireccionEntregaPresupuestoCliente) do
        begin
          Presupuesto := APresupuesto;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 }    
 end;

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

@@ -528,21 +528,17 @@ begin
   try
     RecuperarCliente(ARecibosCliente);
     CreateEditor('EditorReciboCliente', IEditorReciboCliente, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Recibo := ARecibosCliente;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

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

@@ -506,21 +506,17 @@ begin
   try
     RecuperarCliente(ARecibosProveedor);
     CreateEditor('EditorReciboProveedor', IEditorReciboProveedor, AEditor);
+    if Assigned(AEditor) then
        with AEditor do
        begin
          Controller := Self; //OJO ORDEN MUY IMPORTANTE
          Recibo := ARecibosProveedor;
+         ShowModal;
+         Release;
        end;
-  finally
-    HideHourglassCursor;
-  end;
-
-  if Assigned(AEditor) then
-    try
-      AEditor.ShowModal;
-      AEditor.Release;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -532,17 +528,15 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorRecibosProveedor', IEditorRecibosProveedor, AEditor);
-    with AEditor do
-      RecibosProveedor := ARecibosProveedor;
-  finally
-    HideHourglassCursor;
-  end;
-
     if Assigned(AEditor) then
-    try
+       with AEditor do
-      AEditor.ShowEmbedded;
+       begin
+         RecibosProveedor := ARecibosProveedor;
+         ShowEmbedded;
+       end;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/Modulos/Referencias/Controller/uReferenciasController.pas

@@ -121,18 +121,16 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorReferencias', IEditorReferencias, AEditor);
-    with AEditor do
-      Referencias := AReferencias;
-  finally
-    HideHourglassCursor;
-  end;
-
     if Assigned(AEditor) then
-    try
+       with AEditor do
-      AEditor.ShowModal;
+       begin
-      AEditor.Release;
+         Referencias := AReferencias;
+         ShowModal;
+         Release;
+       end;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas

@@ -214,18 +214,16 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorTipoIVA', IEditorTipoIVA, AEditor);
-    with AEditor do
-      TipoIVA := ATipoIVA;
-  finally
-    HideHourglassCursor;
-  end;
-
     if Assigned(AEditor) then
-    try
+       with AEditor do
-      AEditor.ShowModal;
+       begin
-      AEditor.Release;
+         TipoIVA := ATipoIVA;
+         ShowModal;
+         Release;
+       end;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 
@@ -237,18 +235,16 @@ begin
   ShowHourglassCursor;
   try
     CreateEditor('EditorTiposIVA', IEditorTiposIVA, AEditor);
-    with AEditor do
-      TiposIVA := ATiposIVA;
-  finally
-    HideHourglassCursor;
-  end;
-
     if Assigned(AEditor) then
-    try
+       with AEditor do
-      AEditor.ShowModal;
+       begin
-      AEditor.Release;
+         TiposIVA := ATiposIVA;
+         ShowModal;
+         Release;
+       end;
   finally
     AEditor := NIL;
+    HideHourglassCursor;
   end;
 end;
 

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "3.0.0.0\0"
               VALUE "ProductVersion", "3.0.0.0\0"
-              VALUE "CompileDate", "domingo, 18 de noviembre de 2007 18:14\0"
+              VALUE "CompileDate", "domingo, 18 de noviembre de 2007 19:38\0"
          END
     END
     BLOCK "VarFileInfo"