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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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