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

15
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,21 +49,17 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorDatosBancariosEmpresa', IEditorDatosBancariosEmpresa, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
DatosBancarios := ADatosBancarios;
Controller := Self;
ShowModal;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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

@ -208,21 +208,17 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorEmpresa', IEditorEmpresa, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Empresa := AEmpresa;
Controller := Self;
ShowModal;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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

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

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

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

32
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,23 +205,18 @@ begin
ShowHourglassCursor;
try
RecuperarObjetos(AAlmacen);
AsignarEditor(AEditor);
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
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
@ -235,16 +224,18 @@ function TAlmacenesController.VerLista(AAlmacenes: IBizAlmacen): IBizAlmacen;
var
AEditor : IEditorListaAlmacenes;
begin
AEditor := NIL;
Result := NIL;
CreateEditor('EditorListaAlmacenes', IEditorListaAlmacenes, AEditor);
try
CreateEditor('EditorListaAlmacenes', IEditorListaAlmacenes, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Almacenes := AAlmacenes;
if IsPositiveResult(ShowModal) then
Result := AlmacenSeleccionado;
AEditor.Release;
Release;
end;
finally
AEditor := NIL;
@ -259,17 +250,16 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorAlmacenes', IEditorAlmacenes, AEditor);
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;

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

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

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

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

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

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

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

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

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

@ -221,21 +221,17 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorEmpleado', IEditorEmpleado, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Contacto := AContacto;
Controller := Self;
ShowModal;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
@ -243,7 +239,11 @@ procedure TEmpleadosController.VerTodos(AContactos: IBizContacto);
var
AEditor : IEditorEmpleados;
begin
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorEmpleados', IEditorEmpleados, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Contactos := AContactos;
@ -251,6 +251,10 @@ begin
MultiSelect := True;
ShowEmbedded;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
end.

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

@ -144,21 +144,17 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorGruposCliente', IEditorGruposCliente, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
GruposCliente := AGruposCliente;
ShowModal;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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

@ -144,21 +144,17 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorGruposEmpleado', IEditorGruposEmpleado, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
GruposEmpleado := AGruposEmpleado;
ShowModal;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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

@ -144,21 +144,17 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorGruposProveedor', IEditorGruposProveedor, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
GruposProveedor := AGruposProveedor;
ShowModal;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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

@ -284,21 +284,17 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorProveedor', IEditorProveedor, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Contacto := AContacto;
Controller := Self;
ShowModal;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
@ -306,7 +302,11 @@ procedure TProveedoresController.VerTodos(AContactos: IBizContacto);
var
AEditor : IEditorProveedores;
begin
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorProveedores', IEditorProveedores, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Contactos := AContactos;
@ -314,6 +314,10 @@ begin
MultiSelect := True;
ShowEmbedded;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
end.

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

@ -146,21 +146,17 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorFamilias', IEditorFamilias, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Familias := AFamilias;
ShowModal;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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

@ -180,18 +180,16 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorFormaPago', IEditorFormaPago, AEditor);
with AEditor do
FormaPago := AFormaPago;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
with AEditor do
begin
FormaPago := AFormaPago;
ShowModal;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
@ -203,18 +201,16 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorFormasPago', IEditorFormasPago, AEditor);
with AEditor do
FormasPago := AFormasPago;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
with AEditor do
begin
FormasPago := AFormasPago;
ShowModal;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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

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

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

@ -451,6 +451,7 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorEntradaSalidaArticulos', IEditorEntradaSalidaArticulos, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
@ -458,18 +459,13 @@ begin
Inventario := AInventario;
if Assigned(APedido) then
PedidoProveedor := APedido;
ShowModal;
Result := ResultadoModalOK;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
Result := AEditor.ResultadoModalOK;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
@ -481,23 +477,19 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorDetalleReservas', IEditorDetalleReservas, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
// Controller := Self; //OJO ORDEN MUY IMPORTANTE
// Controller := Self; //OJO ORDEN MUY IMPORTANTE
DetalleReservas := FDataModule.GetDetalleReservas;
Articulo := AArticulo;
// MultiSelect := False;
// MultiSelect := False;
ShowModal;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
@ -509,18 +501,18 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorInventario', IEditorInventario, AEditor);
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;

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

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

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

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

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

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

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

@ -506,21 +506,17 @@ begin
try
RecuperarCliente(ARecibosProveedor);
CreateEditor('EditorReciboProveedor', IEditorReciboProveedor, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Recibo := ARecibosProveedor;
ShowModal;
Release;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
@ -532,17 +528,15 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorRecibosProveedor', IEditorRecibosProveedor, AEditor);
with AEditor do
RecibosProveedor := ARecibosProveedor;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowEmbedded;
with AEditor do
begin
RecibosProveedor := ARecibosProveedor;
ShowEmbedded;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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

@ -121,18 +121,16 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorReferencias', IEditorReferencias, AEditor);
with AEditor do
Referencias := AReferencias;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
with AEditor do
begin
Referencias := AReferencias;
ShowModal;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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

@ -214,18 +214,16 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorTipoIVA', IEditorTipoIVA, AEditor);
with AEditor do
TipoIVA := ATipoIVA;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
with AEditor do
begin
TipoIVA := ATipoIVA;
ShowModal;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
@ -237,18 +235,16 @@ begin
ShowHourglassCursor;
try
CreateEditor('EditorTiposIVA', IEditorTiposIVA, AEditor);
with AEditor do
TiposIVA := ATiposIVA;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
with AEditor do
begin
TiposIVA := ATiposIVA;
ShowModal;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;

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"