diff --git a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas index 12bfa8aa..3d708247 100644 --- a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas +++ b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas @@ -266,13 +266,9 @@ begin if Assigned(AEditor) then with AEditor do begin - try - Controller := Self; //OJO ORDEN MUY IMPORTANTE - Almacenes := AAlmacenes; - ShowEmbedded; - finally - AEditor := NIL; - end; + Controller := Self; //OJO ORDEN MUY IMPORTANTE + Almacenes := AAlmacenes; + ShowEmbedded; end; end; diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index e9e3fd7d..f044e078 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas @@ -487,12 +487,8 @@ begin if Assigned(AEditor) then with (AEditor as IEditorArticulos) do begin - try - Controller := Self; //OJO ORDEN MUY IMPORTANTE - ShowEmbedded; - finally - AEditor := Nil; - end; + Controller := Self; //OJO ORDEN MUY IMPORTANTE + ShowEmbedded; end; end; diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index 4d5b5f20..a50735b9 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/Source/Modulos/Contactos/Controller/uClientesController.pas @@ -498,14 +498,10 @@ begin if Assigned(AEditor) then with AEditor do begin - try - Contactos := AContactos; - Controller := Self; - MultiSelect := True; - ShowEmbedded; - finally - AEditor := NIL; - end; + Contactos := AContactos; + Controller := Self; + MultiSelect := True; + ShowEmbedded; end; end; diff --git a/Source/Modulos/Contactos/Controller/uEmpleadosController.pas b/Source/Modulos/Contactos/Controller/uEmpleadosController.pas index 1e2a9df0..af4235a7 100644 --- a/Source/Modulos/Contactos/Controller/uEmpleadosController.pas +++ b/Source/Modulos/Contactos/Controller/uEmpleadosController.pas @@ -292,14 +292,10 @@ begin if Assigned(AEditor) then with AEditor do begin - try - Contactos := AContactos; - Controller := Self; - MultiSelect := True; - ShowEmbedded; - finally - AEditor := NIL; - end; + Contactos := AContactos; + Controller := Self; + MultiSelect := True; + ShowEmbedded; end; end; diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.pas b/Source/Modulos/Contactos/Controller/uProveedoresController.pas index 68b61d37..f592b14a 100644 --- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas +++ b/Source/Modulos/Contactos/Controller/uProveedoresController.pas @@ -448,14 +448,10 @@ begin if Assigned(AEditor) then with AEditor do begin - try - Contactos := AContactos; - Controller := Self; - MultiSelect := True; - ShowEmbedded; - finally - AEditor := NIL; - end; + Contactos := AContactos; + Controller := Self; + MultiSelect := True; + ShowEmbedded; end; end; diff --git a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas index 6eda7e8d..85b9c009 100644 --- a/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas +++ b/Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas @@ -618,14 +618,10 @@ begin if Assigned(AEditor) then with AEditor do begin - try Controller := Self; //OJO ORDEN MUY IMPORTANTE Facturas := AFacturas; MultiSelect := True; ShowEmbedded; - finally - AEditor := Nil; - end; end; end; diff --git a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas index 67364df6..d44abab5 100644 Binary files a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas and b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas differ diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas index ab1605e2..9c8473f9 100644 --- a/Source/Modulos/Inventario/Controller/uInventarioController.pas +++ b/Source/Modulos/Inventario/Controller/uInventarioController.pas @@ -585,15 +585,11 @@ begin if Assigned(AEditor) then with AEditor do begin - try - Controller := Self; //OJO ORDEN MUY IMPORTANTE - TipoInventario := pTipoInventario; - Inventario := AInventario; - MultiSelect := False; - ShowEmbedded; - finally - AEditor := NIL; - end; + Controller := Self; //OJO ORDEN MUY IMPORTANTE + TipoInventario := pTipoInventario; + Inventario := AInventario; + MultiSelect := False; + ShowEmbedded; end; end; diff --git a/Source/Modulos/Obras/Controller/uObrasController.pas b/Source/Modulos/Obras/Controller/uObrasController.pas index 55743afb..a959d20c 100644 --- a/Source/Modulos/Obras/Controller/uObrasController.pas +++ b/Source/Modulos/Obras/Controller/uObrasController.pas @@ -416,13 +416,9 @@ begin if Assigned(AEditor) then with AEditor do begin - try - Controller := Self; //OJO ORDEN MUY IMPORTANTE - Obras := AObras; - ShowEmbedded; - finally - AEditor := NIL; - end; + Controller := Self; //OJO ORDEN MUY IMPORTANTE + Obras := AObras; + ShowEmbedded; end; end; diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas index b7ccf5f0..3803aeca 100644 --- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas +++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas @@ -257,14 +257,10 @@ begin if Assigned(AEditor) then with (AEditor as IEditorRemesasCliente) do begin - try - Controller := Self; //OJO ORDEN MUY IMPORTANTE - RemesasCliente := ARemesasCliente; - MultiSelect := True; - ShowEmbedded; - finally - AEditor := NIL; - end; + Controller := Self; //OJO ORDEN MUY IMPORTANTE + RemesasCliente := ARemesasCliente; + MultiSelect := True; + ShowEmbedded; end; end; diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas index 8f571920..bba02c43 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas +++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas @@ -256,14 +256,10 @@ begin if Assigned(AEditor) then with (AEditor as IEditorRemesasProveedor) do begin - try - Controller := Self; //OJO ORDEN MUY IMPORTANTE - RemesasProveedor := ARemesasProveedor; - MultiSelect := True; - ShowEmbedded; - finally - AEditor := Nil; - end; + Controller := Self; //OJO ORDEN MUY IMPORTANTE + RemesasProveedor := ARemesasProveedor; + MultiSelect := True; + ShowEmbedded; end; end;