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

Controladores: repaso 2º a la visualización de editores => vista modal -> hacer release / vista embebida -> no hacer release.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@756 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-11-11 18:56:14 +00:00
parent 452c3b55ba
commit 5a4aa82dd9
11 changed files with 33 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
View File

@ -266,13 +266,9 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
try Controller := Self; //OJO ORDEN MUY IMPORTANTE
Controller := Self; //OJO ORDEN MUY IMPORTANTE Almacenes := AAlmacenes;
Almacenes := AAlmacenes; ShowEmbedded;
ShowEmbedded;
finally
AEditor := NIL;
end;
end; end;
end; end;

8
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -487,12 +487,8 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorArticulos) do with (AEditor as IEditorArticulos) do
begin begin
try Controller := Self; //OJO ORDEN MUY IMPORTANTE
Controller := Self; //OJO ORDEN MUY IMPORTANTE ShowEmbedded;
ShowEmbedded;
finally
AEditor := Nil;
end;
end; end;
end; end;

12
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -498,14 +498,10 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
try Contactos := AContactos;
Contactos := AContactos; Controller := Self;
Controller := Self; MultiSelect := True;
MultiSelect := True; ShowEmbedded;
ShowEmbedded;
finally
AEditor := NIL;
end;
end; end;
end; end;

12
Source/Modulos/Contactos/Controller/uEmpleadosController.pas
View File

@ -292,14 +292,10 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
try Contactos := AContactos;
Contactos := AContactos; Controller := Self;
Controller := Self; MultiSelect := True;
MultiSelect := True; ShowEmbedded;
ShowEmbedded;
finally
AEditor := NIL;
end;
end; end;
end; end;

12
Source/Modulos/Contactos/Controller/uProveedoresController.pas
View File

@ -448,14 +448,10 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
try Contactos := AContactos;
Contactos := AContactos; Controller := Self;
Controller := Self; MultiSelect := True;
MultiSelect := True; ShowEmbedded;
ShowEmbedded;
finally
AEditor := NIL;
end;
end; end;
end; end;

4
Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
View File

@ -618,14 +618,10 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
try
Controller := Self; //OJO ORDEN MUY IMPORTANTE Controller := Self; //OJO ORDEN MUY IMPORTANTE
Facturas := AFacturas; Facturas := AFacturas;
MultiSelect := True; MultiSelect := True;
ShowEmbedded; ShowEmbedded;
finally
AEditor := Nil;
end;
end; end;
end; end;

BIN
Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
View File

Binary file not shown.

14
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -585,15 +585,11 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
try Controller := Self; //OJO ORDEN MUY IMPORTANTE
Controller := Self; //OJO ORDEN MUY IMPORTANTE TipoInventario := pTipoInventario;
TipoInventario := pTipoInventario; Inventario := AInventario;
Inventario := AInventario; MultiSelect := False;
MultiSelect := False; ShowEmbedded;
ShowEmbedded;
finally
AEditor := NIL;
end;
end; end;
end; end;

10
Source/Modulos/Obras/Controller/uObrasController.pas
View File

@ -416,13 +416,9 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
try Controller := Self; //OJO ORDEN MUY IMPORTANTE
Controller := Self; //OJO ORDEN MUY IMPORTANTE Obras := AObras;
Obras := AObras; ShowEmbedded;
ShowEmbedded;
finally
AEditor := NIL;
end;
end; end;
end; end;

12
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

@ -257,14 +257,10 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorRemesasCliente) do with (AEditor as IEditorRemesasCliente) do
begin begin
try Controller := Self; //OJO ORDEN MUY IMPORTANTE
Controller := Self; //OJO ORDEN MUY IMPORTANTE RemesasCliente := ARemesasCliente;
RemesasCliente := ARemesasCliente; MultiSelect := True;
MultiSelect := True; ShowEmbedded;
ShowEmbedded;
finally
AEditor := NIL;
end;
end; end;
end; end;

12
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
View File

@ -256,14 +256,10 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorRemesasProveedor) do with (AEditor as IEditorRemesasProveedor) do
begin begin
try Controller := Self; //OJO ORDEN MUY IMPORTANTE
Controller := Self; //OJO ORDEN MUY IMPORTANTE RemesasProveedor := ARemesasProveedor;
RemesasProveedor := ARemesasProveedor; MultiSelect := True;
MultiSelect := True; ShowEmbedded;
ShowEmbedded;
finally
AEditor := Nil;
end;
end; end;
end; end;