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

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

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

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

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

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

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

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

@ -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,41 +205,38 @@ begin
ShowHourglassCursor;
try
RecuperarObjetos(AAlmacen);
AsignarEditor(AEditor);
with (AEditor as IEditorAlmacen) do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Almacen := AAlmacen;
end;
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
AEditor := NIL;
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end;
function TAlmacenesController.VerLista(AAlmacenes: IBizAlmacen): IBizAlmacen;
var
AEditor : IEditorListaAlmacenes;
begin
AEditor := NIL;
Result := NIL;
CreateEditor('EditorListaAlmacenes', IEditorListaAlmacenes, AEditor);
try
with AEditor do
begin
Almacenes := AAlmacenes;
if IsPositiveResult(ShowModal) then
Result := AlmacenSeleccionado;
AEditor.Release;
end;
CreateEditor('EditorListaAlmacenes', IEditorListaAlmacenes, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Almacenes := AAlmacenes;
if IsPositiveResult(ShowModal) then
Result := AlmacenSeleccionado;
Release;
end;
finally
AEditor := NIL;
end;
@ -259,17 +250,16 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorAlmacenes', IEditorAlmacenes, AEditor);
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Almacenes := AAlmacenes;
end;
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;

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

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

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

@ -296,22 +296,18 @@ begin
// RecuperarObjetos(ARemesaCliente);
CreateEditor('EditorComision', IEditorComision, AEditor);
with (AEditor as IEditorComision) do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Comision := AComision;
end;
if Assigned(AEditor) then
with (AEditor as IEditorComision) do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Comision := AComision;
ShowModal;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end;
procedure TComisionesController.VerTodos(AComision: IBizComisiones);
@ -322,21 +318,17 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorComisiones', IEditorComisiones, AEditor);
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Comisiones := AComision;
end;
if Assigned(AEditor) then
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Comisiones := AComision;
ShowEmbedded;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowEmbedded;
finally
AEditor := NIL;
end;
end;
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);
var
AEditor : IEditorCliente;
AItem : IBizCliente;
begin
AEditor := NIL;
AEditor := NIL;
ShowHourglassCursor;
try
AItem := (FDataModule as IDataModuleClientes).GetItem(AContacto.ID);
AItem.DataTable.Active := True;
CreateEditor('EditorCliente', IEditorCliente, AEditor);
with AEditor do
begin
Contacto := AItem;
Controller := Self;
end;
if Assigned(AEditor) then
with AEditor do
begin
Contacto := AContacto;
Controller := Self;
ShowModal;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.Show;
//AEditor.Release;
finally
AEditor := NIL;
end;
end;
procedure TClientesController.VerTodos(AContactos: IBizContacto);
var
AEditor : IEditorClientes;
begin
CreateEditor('EditorClientes', IEditorClientes, AEditor);
with AEditor do
begin
Contactos := AContactos;
Controller := Self;
MultiSelect := True;
ShowEmbedded;
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorClientes', IEditorClientes, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Contactos := AContactos;
Controller := Self;
MultiSelect := True;
ShowEmbedded;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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