From 0b9db1a2dcfb0e27a1d469a873fa7bb9b9b57fa7 Mon Sep 17 00:00:00 2001 From: david Date: Sun, 18 Nov 2007 15:10:09 +0000 Subject: [PATCH] Rellenar los campos ID_EMPRESA y USUARIO con sus valores. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@136 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../uAlbaranesProveedorController.pas | 9 +++++---- .../Model/uBizAlbaranesProveedor.pas | 8 +++++--- .../Views/uEditorAlbaranProveedor.pas | 4 ++-- .../Views/uEditorAlbaranesDevProveedor.pas | 4 ++-- .../Views/uEditorAlbaranesProveedor.pas | 4 ++-- .../uFacturasProveedorController.pas | 9 +++++---- .../Model/uBizFacturasProveedor.pas | 9 +++++---- .../Views/uEditorFacturaProveedor.pas | 5 +++-- .../Views/uEditorFacturasProveedor.pas | 5 +++-- .../uPedidosProveedorController.pas | 9 +++++---- .../Model/uBizPedidosProveedor.pas | 8 +++++--- .../Views/uEditorPedidoProveedor.pas | 6 ++++-- .../Views/uEditorPedidosProveedor.pas | 5 +++-- .../uRecibosProveedorController.pas | 4 ++-- .../Views/uEditorRecibosProveedor.pas | Bin 5498 -> 5512 bytes .../Views/uEditorRemesaProveedor.pas | 3 ++- .../Views/uEditorRemesasProveedor.pas | 3 ++- 17 files changed, 55 insertions(+), 40 deletions(-) diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index cbc72e1a..ac920bf8 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas @@ -129,7 +129,7 @@ uses uBizDetallesAlbaranProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios, schAlbaranesProveedorClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranProveedor, uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor, - schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf, + schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf, uFactuGES_App, uBizPedidosProveedor, uPedidosProveedorController, // schInventarioClient_Intf, uArticulosController, uBizArticulos, uControllerDetallesBase, Classes, @@ -525,8 +525,8 @@ begin Result.Edit; with Result do begin - ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; -// USUARIO := dmUsuarios.LoginInfo.Usuario; + ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + USUARIO := AppFactuGES.UsuarioActivo.UserName; FECHA_ALBARAN := DateOf(Now); INCIDENCIAS_ACTIVAS := 0; REFERENCIA := ''; @@ -589,7 +589,7 @@ begin en MODIFICACIÓN como en INSERCIÓN. } AAlbaran.Edit; try -// AAlbaran.USUARIO := dmUsuarios.LoginInfo.Usuario; + AAlbaran.USUARIO := AppFactuGES.UsuarioActivo.UserName; if Assigned(AAlbaran.Proveedor) and (AAlbaran.ID_PROVEEDOR <> AAlbaran.Proveedor.ID) then @@ -1072,3 +1072,4 @@ begin end; end. + \ No newline at end of file diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas index 7d32d4db..2e4bacf7 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas @@ -86,7 +86,7 @@ implementation uses SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, - uDataTableUtils, DateUtils, uDateUtils, DB; + uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App; { TBizAlbaranProveedor } @@ -178,11 +178,12 @@ end; procedure TBizAlbaranProveedor.IniciarValoresAlbaranNuevo; begin - ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; -// USUARIO := dmUsuarios.LoginInfo.Usuario; + ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + USUARIO := AppFactuGES.UsuarioActivo.UserName; FECHA_ALBARAN := DateOf(Date); INCIDENCIAS_ACTIVAS := 0; TIPO := CTE_TIPO_ALBARAN; + // OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL ID_ALMACEN := 2; end; @@ -295,3 +296,4 @@ finalization end. + \ No newline at end of file diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas index d6b2f7fb..91c55193 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas @@ -80,7 +80,7 @@ implementation uses uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uProveedoresController, - uBizDireccionesContacto, uDialogUtils, uDataTableUtils; + uBizDireccionesContacto, uDialogUtils, uDataTableUtils, uFactuGES_App; {$R *.dfm} @@ -267,7 +267,7 @@ begin end; inherited PonerTitulos(FTitulo); - Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')'; + Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')'; end; procedure TfEditorAlbaranProveedor.PrevisualizarInterno; diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas index 54ad1ebf..f5b00e19 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas @@ -27,7 +27,7 @@ implementation {$R *.dfm} uses - uDataModuleUsuarios, uViewAlbaranesDevProveedor; + uDataModuleUsuarios, uViewAlbaranesDevProveedor, uFactuGES_App; { TfEditorAlbaranesDevProveedor } @@ -47,7 +47,7 @@ procedure TfEditorAlbaranesDevProveedor.PonerTitulos(const ATitulo: string); var FTitulo : String; begin - FTitulo := 'Lista de órdenes de devolución de proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE; + FTitulo := 'Lista de órdenes de devolución de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE; inherited PonerTitulos(FTitulo); end; diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas index 8966d2a4..e42d6b08 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas @@ -59,7 +59,7 @@ type implementation uses - uDataModuleAlbaranesProveedor, uDataModuleUsuarios, + uDataModuleAlbaranesProveedor, uDataModuleUsuarios, uFactuGES_App, // uGenerarFacturasProvAlbProvUtils, uGenerarAlbaranesProvUtils, uEditorBase, schAlbaranesProveedorClient_Intf, uGridUtils, uDBSelectionListUtils; @@ -273,7 +273,7 @@ var FTitulo : String; begin if (ATitulo = '') then - FTitulo := 'Lista de albaranes de proveedor - ' // + dmUsuarios.EmpresaActual.NOMBRE + FTitulo := 'Lista de albaranes de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE else FTitulo := ATitulo; diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 4e4b6ad8..37ed1606 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -111,7 +111,7 @@ implementation uses Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasProveedorClient_Intf, - uBizContactos, uIEditorFacturasProveedor, uIEditorFacturaProveedor, + uBizContactos, uIEditorFacturasProveedor, uIEditorFacturaProveedor, uFactuGES_App, uDataModuleFacturasProveedor, uBizDetallesFacturaProveedor, uControllerDetallesBase, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes, uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController, @@ -534,8 +534,8 @@ begin Result.Edit; with Result do begin - ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; -// USUARIO := dmUsuarios.LoginInfo.Usuario; + ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + USUARIO := AppFactuGES.UsuarioActivo.UserName; REFERENCIA := ''; //Para que se asigne una nueva SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente FECHA_FACTURA := DateOf(Now); @@ -588,7 +588,7 @@ begin en MODIFICACIÓN como en INSERCIÓN. } AFactura.Edit; try -// AFactura.USUARIO := dmUsuarios.LoginInfo.Usuario; + AFactura.USUARIO := AppFactuGES.UsuarioActivo.UserName; if Assigned(AFactura.Proveedor) and (AFactura.ID_Proveedor <> AFactura.Proveedor.ID) then @@ -1058,3 +1058,4 @@ begin end; end. + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index 04c9c822..97aff7d0 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -90,7 +90,7 @@ implementation uses SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios, - Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, Dialogs; + Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, uFactuGES_App; { TBizFacturaProveedor } @@ -236,12 +236,12 @@ end; procedure TBizFacturaProveedor.IniciarValoresFacturaNueva; begin - ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; -// USUARIO := dmUsuarios.LoginInfo.Usuario; + ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + USUARIO := AppFactuGES.UsuarioActivo.UserName; FECHA_FACTURA := DateOf(Now); ID_PROVEEDOR := ID_NULO; TIPO := CTE_TIPO_FACTURA; -// IVA := dmUsuarios.EmpresaActual.IVA; + IVA := AppFactuGES.EmpresaActiva.IVA; RE := 0; SITUACION := CTE_PENDIENTE; end; @@ -324,3 +324,4 @@ finalization end. + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index 055d9021..79ccef81 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas @@ -75,7 +75,7 @@ implementation {$R *.dfm} uses - cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, + cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, uFactuGES_App, uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils; // uGenerarAlbaranesProvFacProvUtils; @@ -343,7 +343,7 @@ begin inherited PonerTitulos(FTitulo); - Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')'; + Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')'; end; procedure TfEditorFacturaProveedor.PrevisualizarInterno; @@ -414,3 +414,4 @@ begin end; end. + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas index e035b068..126d167c 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas @@ -63,7 +63,7 @@ implementation uses uDataModuleFacturasProveedor, uDataModuleUsuarios, - uGridUtils, uDBSelectionListUtils, + uGridUtils, uDBSelectionListUtils, uFactuGES_App, uAlbaranesProveedorController, uBizAlbaranesProveedor, uEditorBase; @@ -322,7 +322,7 @@ procedure TfEditorFacturasProveedor.PonerTitulos(const ATitulo: string); var FTitulo : String; begin - FTitulo := 'Lista de facturas de proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE; + FTitulo := 'Lista de facturas de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE; inherited PonerTitulos(FTitulo); end; @@ -381,3 +381,4 @@ begin end; end. + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas index 61c2a4ef..78d39556 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas @@ -115,7 +115,7 @@ implementation uses uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils, - uIEditorPedidosProveedor, uDataModulePedidosProveedor, + uIEditorPedidosProveedor, uDataModulePedidosProveedor, uFactuGES_App, uBizDetallesPedidoProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios, schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController, uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor, @@ -279,8 +279,8 @@ begin with Result do begin REFERENCIA := ''; - ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; -// USUARIO := dmUsuarios.LoginInfo.Usuario; + ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + USUARIO := AppFactuGES.UsuarioActivo.UserName; FECHA_PEDIDO := DateOf(Now); SITUACION := SITUACION_PEDIDO_PENDIENTE; FECHA_ENVIO := 0; @@ -331,7 +331,7 @@ begin en MODIFICACIÓN como en INSERCIÓN. } APedido.Edit; try -// APedido.USUARIO := dmUsuarios.LoginInfo.Usuario; + APedido.USUARIO := AppFactuGES.UsuarioActivo.UserName; if Assigned(APedido.Proveedor) and (APedido.ID_PROVEEDOR <> APedido.Proveedor.ID) then @@ -779,3 +779,4 @@ begin end; end. + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas index 9bf00a0d..73ab73e3 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas @@ -91,7 +91,7 @@ implementation uses SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, - uDataTableUtils, DateUtils, uDateUtils, DB; + uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App; { TBizPedidoProveedor } @@ -194,14 +194,15 @@ end; procedure TBizPedidoProveedor.IniciarValoresPedidoNuevo; begin - ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; -// USUARIO := dmUsuarios.LoginInfo.Usuario; + ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; + USUARIO := AppFactuGES.UsuarioActivo.UserName; FECHA_PEDIDO := DateOf(Date); SITUACION := SITUACION_PEDIDO_PENDIENTE; INCIDENCIAS_ACTIVAS := 0; // ID_PEDIDO_CLIENTE := 0; REF_PED_CLIENTE := ''; + // OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL ID_ALMACEN := 2; end; @@ -329,3 +330,4 @@ finalization end. + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas index 37fcc3e3..fd6b7b15 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas @@ -72,7 +72,8 @@ type implementation uses - uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uGridUtils, uDialogUtils; + uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uGridUtils, uDialogUtils, + uFactuGES_App; {$R *.dfm} @@ -237,7 +238,7 @@ begin inherited PonerTitulos(FTitulo); - Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')'; + Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')'; end; procedure TfEditorPedidoProveedor.PrevisualizarInterno; @@ -297,3 +298,4 @@ begin end; end. + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas index 2b1db2d2..74a802ff 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas @@ -58,7 +58,7 @@ type implementation uses - uDataModulePedidosProveedor, uDataModuleUsuarios, uEditorDBBase, + uDataModulePedidosProveedor, uDataModuleUsuarios, uFactuGES_App, uEditorDBBase, // uInventarioController, uBizInventario, uDialogUtils, uGridUtils, uDBSelectionListUtils; // uAlbaranesProveedorController, uBizAlbaranesProveedor, @@ -273,7 +273,7 @@ procedure TfEditorPedidosProveedor.PonerTitulos(const ATitulo: string); var FTitulo : String; begin - FTitulo := 'Lista de pedidos a proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE; + FTitulo := 'Lista de pedidos a proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE; inherited PonerTitulos(FTitulo); end; @@ -332,3 +332,4 @@ begin end; end. + \ No newline at end of file diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas index 65e7622d..49328ac0 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas @@ -138,7 +138,7 @@ implementation uses Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs, - uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, + uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, uRecibosProveedorReportController, uBizContactos, schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor, @@ -471,7 +471,7 @@ begin en MODIFICACIÓN como en INSERCIÓN. } ARecibosProveedor.Edit; try -// ARecibosProveedor.USUARIO := dmUsuarios.LoginInfo.Usuario; + ARecibosProveedor.USUARIO := AppFactuGES.UsuarioActivo.UserName; Result := True; finally ARecibosProveedor.Post; diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas index 100ab9f76b01c91fc8972444f40ab57b52eb7f22..0e852754b3df9784db2414ecc006bdc3abb1815d 100644 GIT binary patch delta 62 zcmeyR)uFxN3pbBjVsc5TyK8W~V?n{@kK9`9G78!XKsHQV&o#H8D784zF}WnOEOE1y Kumckl0|NlfVHDN? delta 49 zcmeCs{-w3y3-@Mb9(8tkYXyCM1#N|t+|c6E#G=gnVm;T~f}+&oM91Wk(!`w2Zo&>s E0H0$Ji2wiq diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas index 0d812638..d301fad6 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas @@ -174,7 +174,7 @@ begin inherited PonerTitulos(FTitulo); - Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')'; + Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')'; end; procedure TfEditorRemesaProveedor.PrevisualizarInterno; @@ -340,3 +340,4 @@ end; end. + \ No newline at end of file diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas index 7c8bf6e2..e510d72c 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas @@ -152,7 +152,7 @@ procedure TfEditorRemesasProveedor.PonerTitulos(const ATitulo: string); var FTitulo : String; begin - FTitulo := 'Lista de remesas de pago - ' + dmUsuarios.EmpresaActual.NOMBRE; + FTitulo := 'Lista de remesas de pago - ' + AppFactuGES.EmpresaActiva.NOMBRE; inherited PonerTitulos(FTitulo); end; @@ -305,3 +305,4 @@ end; end. + \ No newline at end of file