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

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@143 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2007-11-18 18:42:04 +00:00
parent c5014e11f1
commit f632f134a3
26 changed files with 349 additions and 444 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
View File

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

22
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -208,22 +208,18 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorEmpresa', IEditorEmpresa, AEditor); CreateEditor('EditorEmpresa', IEditorEmpresa, AEditor);
with AEditor do if Assigned(AEditor) then
begin with AEditor do
Empresa := AEmpresa; begin
Controller := Self; Empresa := AEmpresa;
end; Controller := Self;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
procedure TEmpresasController.VerTodos(AEmpresas: IBizEmpresa); procedure TEmpresasController.VerTodos(AEmpresas: IBizEmpresa);

21
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

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

21
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

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

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

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

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

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

42
Source/Modulos/Comisiones/Controller/uComisionesController.pas
View File

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

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

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

19
Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
View File

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

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

@ -220,36 +220,40 @@ begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorEmpleado', IEditorEmpleado, AEditor); CreateEditor('EditorEmpleado', IEditorEmpleado, AEditor);
with AEditor do if Assigned(AEditor) then
begin with AEditor do
Contacto := AContacto; begin
Controller := Self; Contacto := AContacto;
end; Controller := Self;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
procedure TEmpleadosController.VerTodos(AContactos: IBizContacto); procedure TEmpleadosController.VerTodos(AContactos: IBizContacto);
var var
AEditor : IEditorEmpleados; AEditor : IEditorEmpleados;
begin begin
CreateEditor('EditorEmpleados', IEditorEmpleados, AEditor); AEditor := NIL;
with AEditor do ShowHourglassCursor;
begin try
Contactos := AContactos; CreateEditor('EditorEmpleados', IEditorEmpleados, AEditor);
Controller := Self; if Assigned(AEditor) then
MultiSelect := True; with AEditor do
ShowEmbedded; begin
Contactos := AContactos;
Controller := Self;
MultiSelect := True;
ShowEmbedded;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end; end;
end; end;

22
Source/Modulos/Contactos/Controller/uGruposClienteController.pas
View File

@ -144,22 +144,18 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorGruposCliente', IEditorGruposCliente, AEditor); CreateEditor('EditorGruposCliente', IEditorGruposCliente, AEditor);
with AEditor do if Assigned(AEditor) then
begin with AEditor do
Controller := Self; //OJO ORDEN MUY IMPORTANTE begin
GruposCliente := AGruposCliente; Controller := Self; //OJO ORDEN MUY IMPORTANTE
end; GruposCliente := AGruposCliente;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
function TGruposClienteController.Eliminar(AGrupoCliente: IBizGrupoCliente): Boolean; function TGruposClienteController.Eliminar(AGrupoCliente: IBizGrupoCliente): Boolean;

22
Source/Modulos/Contactos/Controller/uGruposEmpleadoController.pas
View File

@ -144,22 +144,18 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorGruposEmpleado', IEditorGruposEmpleado, AEditor); CreateEditor('EditorGruposEmpleado', IEditorGruposEmpleado, AEditor);
with AEditor do if Assigned(AEditor) then
begin with AEditor do
Controller := Self; //OJO ORDEN MUY IMPORTANTE begin
GruposEmpleado := AGruposEmpleado; Controller := Self; //OJO ORDEN MUY IMPORTANTE
end; GruposEmpleado := AGruposEmpleado;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
function TGruposEmpleadoController.Eliminar(AGrupoEmpleado: IBizGrupoEmpleado): Boolean; function TGruposEmpleadoController.Eliminar(AGrupoEmpleado: IBizGrupoEmpleado): Boolean;

22
Source/Modulos/Contactos/Controller/uGruposProveedorController.pas
View File

@ -144,22 +144,18 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorGruposProveedor', IEditorGruposProveedor, AEditor); CreateEditor('EditorGruposProveedor', IEditorGruposProveedor, AEditor);
with AEditor do if Assigned(AEditor) then
begin with AEditor do
Controller := Self; //OJO ORDEN MUY IMPORTANTE begin
GruposProveedor := AGruposProveedor; Controller := Self; //OJO ORDEN MUY IMPORTANTE
end; GruposProveedor := AGruposProveedor;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
function TGruposProveedorController.Eliminar(AGrupoProveedor: IBizGrupoProveedor): Boolean; function TGruposProveedorController.Eliminar(AGrupoProveedor: IBizGrupoProveedor): Boolean;

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

@ -283,36 +283,40 @@ begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorProveedor', IEditorProveedor, AEditor); CreateEditor('EditorProveedor', IEditorProveedor, AEditor);
with AEditor do if Assigned(AEditor) then
begin with AEditor do
Contacto := AContacto; begin
Controller := Self; Contacto := AContacto;
end; Controller := Self;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
procedure TProveedoresController.VerTodos(AContactos: IBizContacto); procedure TProveedoresController.VerTodos(AContactos: IBizContacto);
var var
AEditor : IEditorProveedores; AEditor : IEditorProveedores;
begin begin
CreateEditor('EditorProveedores', IEditorProveedores, AEditor); AEditor := NIL;
with AEditor do ShowHourglassCursor;
begin try
Contactos := AContactos; CreateEditor('EditorProveedores', IEditorProveedores, AEditor);
Controller := Self; if Assigned(AEditor) then
MultiSelect := True; with AEditor do
ShowEmbedded; begin
Contactos := AContactos;
Controller := Self;
MultiSelect := True;
ShowEmbedded;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end; end;
end; end;

22
Source/Modulos/Familias/Controller/uFamiliasController.pas
View File

@ -146,22 +146,18 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorFamilias', IEditorFamilias, AEditor); CreateEditor('EditorFamilias', IEditorFamilias, AEditor);
with AEditor do if Assigned(AEditor) then
begin with AEditor do
Controller := Self; //OJO ORDEN MUY IMPORTANTE begin
Familias := AFamilias; Controller := Self; //OJO ORDEN MUY IMPORTANTE
end; Familias := AFamilias;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
function TFamiliasController.Eliminar(AFamilia: IBizFamilia): Boolean; function TFamiliasController.Eliminar(AFamilia: IBizFamilia): Boolean;

36
Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
View File

@ -180,19 +180,17 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorFormaPago', IEditorFormaPago, AEditor); CreateEditor('EditorFormaPago', IEditorFormaPago, AEditor);
with AEditor do if Assigned(AEditor) then
FormaPago := AFormaPago; with AEditor do
begin
FormaPago := AFormaPago;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
procedure TFormasPagoController.VerTodos(AFormasPago: IBizFormaPago); procedure TFormasPagoController.VerTodos(AFormasPago: IBizFormaPago);
@ -203,19 +201,17 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorFormasPago', IEditorFormasPago, AEditor); CreateEditor('EditorFormasPago', IEditorFormasPago, AEditor);
with AEditor do if Assigned(AEditor) then
FormasPago := AFormasPago; with AEditor do
begin
FormasPago := AFormasPago;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
function TFormasPagoController.Eliminar(AFormaPago: IBizFormaPago): Boolean; function TFormasPagoController.Eliminar(AFormaPago: IBizFormaPago): Boolean;

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

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

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

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

21
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

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

21
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

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

22
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

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

38
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -506,22 +506,18 @@ begin
try try
RecuperarCliente(ARecibosProveedor); RecuperarCliente(ARecibosProveedor);
CreateEditor('EditorReciboProveedor', IEditorReciboProveedor, AEditor); CreateEditor('EditorReciboProveedor', IEditorReciboProveedor, AEditor);
with AEditor do if Assigned(AEditor) then
begin with AEditor do
Controller := Self; //OJO ORDEN MUY IMPORTANTE begin
Recibo := ARecibosProveedor; Controller := Self; //OJO ORDEN MUY IMPORTANTE
end; Recibo := ARecibosProveedor;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
procedure TRecibosProveedorController.VerTodos(ARecibosProveedor: IBizRecibosProveedor); procedure TRecibosProveedorController.VerTodos(ARecibosProveedor: IBizRecibosProveedor);
@ -532,18 +528,16 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorRecibosProveedor', IEditorRecibosProveedor, AEditor); CreateEditor('EditorRecibosProveedor', IEditorRecibosProveedor, AEditor);
with AEditor do if Assigned(AEditor) then
RecibosProveedor := ARecibosProveedor; with AEditor do
begin
RecibosProveedor := ARecibosProveedor;
ShowEmbedded;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowEmbedded;
finally
AEditor := NIL;
end;
end; end;
function TRecibosProveedorController.ElegirRecibos(ARecibos: IBizRecibosProveedor; AMensaje: String; function TRecibosProveedorController.ElegirRecibos(ARecibos: IBizRecibosProveedor; AMensaje: String;

18
Source/Modulos/Referencias/Controller/uReferenciasController.pas
View File

@ -121,19 +121,17 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorReferencias', IEditorReferencias, AEditor); CreateEditor('EditorReferencias', IEditorReferencias, AEditor);
with AEditor do if Assigned(AEditor) then
Referencias := AReferencias; with AEditor do
begin
Referencias := AReferencias;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
procedure TReferenciasController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); procedure TReferenciasController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);

36
Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas
View File

@ -214,19 +214,17 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorTipoIVA', IEditorTipoIVA, AEditor); CreateEditor('EditorTipoIVA', IEditorTipoIVA, AEditor);
with AEditor do if Assigned(AEditor) then
TipoIVA := ATipoIVA; with AEditor do
begin
TipoIVA := ATipoIVA;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
procedure TTiposIVAController.VerTodos(ATiposIVA: IBizTipoIVA); procedure TTiposIVAController.VerTodos(ATiposIVA: IBizTipoIVA);
@ -237,19 +235,17 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
CreateEditor('EditorTiposIVA', IEditorTiposIVA, AEditor); CreateEditor('EditorTiposIVA', IEditorTiposIVA, AEditor);
with AEditor do if Assigned(AEditor) then
TiposIVA := ATiposIVA; with AEditor do
begin
TiposIVA := ATiposIVA;
ShowModal;
Release;
end;
finally finally
AEditor := NIL;
HideHourglassCursor; HideHourglassCursor;
end; end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end; end;
function TTiposIVAController.Eliminar(ATipoIVA: IBizTipoIVA): Boolean; function TTiposIVAController.Eliminar(ATipoIVA: IBizTipoIVA): Boolean;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "3.0.0.0\0" VALUE "FileVersion", "3.0.0.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"