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

Rellenar los campos ID_EMPRESA y USUARIO con sus valores.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@136 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-11-18 15:10:09 +00:00
parent bbae3dd97a
commit 0b9db1a2dc
17 changed files with 55 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -129,7 +129,7 @@ uses
uBizDetallesAlbaranProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios, uBizDetallesAlbaranProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios,
schAlbaranesProveedorClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranProveedor, schAlbaranesProveedorClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranProveedor,
uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor, uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor,
schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf, schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf, uFactuGES_App,
uBizPedidosProveedor, uPedidosProveedorController, uBizPedidosProveedor, uPedidosProveedorController,
// schInventarioClient_Intf, // schInventarioClient_Intf,
uArticulosController, uBizArticulos, uControllerDetallesBase, Classes, uArticulosController, uBizArticulos, uControllerDetallesBase, Classes,
@ -525,8 +525,8 @@ begin
Result.Edit; Result.Edit;
with Result do with Result do
begin begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_ALBARAN := DateOf(Now); FECHA_ALBARAN := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
REFERENCIA := ''; REFERENCIA := '';
@ -589,7 +589,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
AAlbaran.Edit; AAlbaran.Edit;
try try
// AAlbaran.USUARIO := dmUsuarios.LoginInfo.Usuario; AAlbaran.USUARIO := AppFactuGES.UsuarioActivo.UserName;
if Assigned(AAlbaran.Proveedor) if Assigned(AAlbaran.Proveedor)
and (AAlbaran.ID_PROVEEDOR <> AAlbaran.Proveedor.ID) then and (AAlbaran.ID_PROVEEDOR <> AAlbaran.Proveedor.ID) then
@ -1072,3 +1072,4 @@ begin
end; end;
end. end.

8
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
View File

@ -86,7 +86,7 @@ implementation
uses uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
uDataTableUtils, DateUtils, uDateUtils, DB; uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App;
{ TBizAlbaranProveedor } { TBizAlbaranProveedor }
@ -178,11 +178,12 @@ end;
procedure TBizAlbaranProveedor.IniciarValoresAlbaranNuevo; procedure TBizAlbaranProveedor.IniciarValoresAlbaranNuevo;
begin begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_ALBARAN := DateOf(Date); FECHA_ALBARAN := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
TIPO := CTE_TIPO_ALBARAN; TIPO := CTE_TIPO_ALBARAN;
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// ALMACÉN PUESTO A CAPÓN Y PROVISIONAL // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
ID_ALMACEN := 2; ID_ALMACEN := 2;
end; end;
@ -295,3 +296,4 @@ finalization
end. end.

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -80,7 +80,7 @@ implementation
uses uses
uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uProveedoresController, uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uProveedoresController,
uBizDireccionesContacto, uDialogUtils, uDataTableUtils; uBizDireccionesContacto, uDialogUtils, uDataTableUtils, uFactuGES_App;
{$R *.dfm} {$R *.dfm}
@ -267,7 +267,7 @@ begin
end; end;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')'; Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end; end;
procedure TfEditorAlbaranProveedor.PrevisualizarInterno; procedure TfEditorAlbaranProveedor.PrevisualizarInterno;

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas
View File

@ -27,7 +27,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uDataModuleUsuarios, uViewAlbaranesDevProveedor; uDataModuleUsuarios, uViewAlbaranesDevProveedor, uFactuGES_App;
{ TfEditorAlbaranesDevProveedor } { TfEditorAlbaranesDevProveedor }
@ -47,7 +47,7 @@ procedure TfEditorAlbaranesDevProveedor.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin 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); inherited PonerTitulos(FTitulo);
end; end;

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -59,7 +59,7 @@ type
implementation implementation
uses uses
uDataModuleAlbaranesProveedor, uDataModuleUsuarios, uDataModuleAlbaranesProveedor, uDataModuleUsuarios, uFactuGES_App,
// uGenerarFacturasProvAlbProvUtils, uGenerarAlbaranesProvUtils, // uGenerarFacturasProvAlbProvUtils, uGenerarAlbaranesProvUtils,
uEditorBase, schAlbaranesProveedorClient_Intf, uEditorBase, schAlbaranesProveedorClient_Intf,
uGridUtils, uDBSelectionListUtils; uGridUtils, uDBSelectionListUtils;
@ -273,7 +273,7 @@ var
FTitulo : String; FTitulo : String;
begin begin
if (ATitulo = '') then if (ATitulo = '') then
FTitulo := 'Lista de albaranes de proveedor - ' // + dmUsuarios.EmpresaActual.NOMBRE FTitulo := 'Lista de albaranes de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE
else else
FTitulo := ATitulo; FTitulo := ATitulo;

9
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -111,7 +111,7 @@ implementation
uses uses
Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasProveedorClient_Intf, Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasProveedorClient_Intf,
uBizContactos, uIEditorFacturasProveedor, uIEditorFacturaProveedor, uBizContactos, uIEditorFacturasProveedor, uIEditorFacturaProveedor, uFactuGES_App,
uDataModuleFacturasProveedor, uBizDetallesFacturaProveedor, uControllerDetallesBase, uDataModuleFacturasProveedor, uBizDetallesFacturaProveedor, uControllerDetallesBase,
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uROTypes,
uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController, uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController,
@ -534,8 +534,8 @@ begin
Result.Edit; Result.Edit;
with Result do with Result do
begin begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
REFERENCIA := ''; //Para que se asigne una nueva REFERENCIA := ''; //Para que se asigne una nueva
SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
@ -588,7 +588,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
AFactura.Edit; AFactura.Edit;
try try
// AFactura.USUARIO := dmUsuarios.LoginInfo.Usuario; AFactura.USUARIO := AppFactuGES.UsuarioActivo.UserName;
if Assigned(AFactura.Proveedor) if Assigned(AFactura.Proveedor)
and (AFactura.ID_Proveedor <> AFactura.Proveedor.ID) then and (AFactura.ID_Proveedor <> AFactura.Proveedor.ID) then
@ -1058,3 +1058,4 @@ begin
end; end;
end. end.

9
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -90,7 +90,7 @@ implementation
uses uses
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios, SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios,
Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, Dialogs; Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, uFactuGES_App;
{ TBizFacturaProveedor } { TBizFacturaProveedor }
@ -236,12 +236,12 @@ end;
procedure TBizFacturaProveedor.IniciarValoresFacturaNueva; procedure TBizFacturaProveedor.IniciarValoresFacturaNueva;
begin begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
ID_PROVEEDOR := ID_NULO; ID_PROVEEDOR := ID_NULO;
TIPO := CTE_TIPO_FACTURA; TIPO := CTE_TIPO_FACTURA;
// IVA := dmUsuarios.EmpresaActual.IVA; IVA := AppFactuGES.EmpresaActiva.IVA;
RE := 0; RE := 0;
SITUACION := CTE_PENDIENTE; SITUACION := CTE_PENDIENTE;
end; end;
@ -324,3 +324,4 @@ finalization
end. end.

5
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -75,7 +75,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, uFactuGES_App,
uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils; uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils;
// uGenerarAlbaranesProvFacProvUtils; // uGenerarAlbaranesProvFacProvUtils;
@ -343,7 +343,7 @@ begin
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')'; Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end; end;
procedure TfEditorFacturaProveedor.PrevisualizarInterno; procedure TfEditorFacturaProveedor.PrevisualizarInterno;
@ -414,3 +414,4 @@ begin
end; end;
end. end.

5
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -63,7 +63,7 @@ implementation
uses uses
uDataModuleFacturasProveedor, uDataModuleUsuarios, uDataModuleFacturasProveedor, uDataModuleUsuarios,
uGridUtils, uDBSelectionListUtils, uGridUtils, uDBSelectionListUtils, uFactuGES_App,
uAlbaranesProveedorController, uBizAlbaranesProveedor, uAlbaranesProveedorController, uBizAlbaranesProveedor,
uEditorBase; uEditorBase;
@ -322,7 +322,7 @@ procedure TfEditorFacturasProveedor.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Lista de facturas de proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE; FTitulo := 'Lista de facturas de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;
@ -381,3 +381,4 @@ begin
end; end;
end. end.

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

@ -115,7 +115,7 @@ implementation
uses uses
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils, uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorPedidosProveedor, uDataModulePedidosProveedor, uIEditorPedidosProveedor, uDataModulePedidosProveedor, uFactuGES_App,
uBizDetallesPedidoProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios, uBizDetallesPedidoProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios,
schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController, schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController,
uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor, uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor,
@ -279,8 +279,8 @@ begin
with Result do with Result do
begin begin
REFERENCIA := ''; REFERENCIA := '';
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PEDIDO := DateOf(Now); FECHA_PEDIDO := DateOf(Now);
SITUACION := SITUACION_PEDIDO_PENDIENTE; SITUACION := SITUACION_PEDIDO_PENDIENTE;
FECHA_ENVIO := 0; FECHA_ENVIO := 0;
@ -331,7 +331,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
APedido.Edit; APedido.Edit;
try try
// APedido.USUARIO := dmUsuarios.LoginInfo.Usuario; APedido.USUARIO := AppFactuGES.UsuarioActivo.UserName;
if Assigned(APedido.Proveedor) if Assigned(APedido.Proveedor)
and (APedido.ID_PROVEEDOR <> APedido.Proveedor.ID) then and (APedido.ID_PROVEEDOR <> APedido.Proveedor.ID) then
@ -779,3 +779,4 @@ begin
end; end;
end. end.

8
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
View File

@ -91,7 +91,7 @@ implementation
uses uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
uDataTableUtils, DateUtils, uDateUtils, DB; uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App;
{ TBizPedidoProveedor } { TBizPedidoProveedor }
@ -194,14 +194,15 @@ end;
procedure TBizPedidoProveedor.IniciarValoresPedidoNuevo; procedure TBizPedidoProveedor.IniciarValoresPedidoNuevo;
begin begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PEDIDO := DateOf(Date); FECHA_PEDIDO := DateOf(Date);
SITUACION := SITUACION_PEDIDO_PENDIENTE; SITUACION := SITUACION_PEDIDO_PENDIENTE;
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
// ID_PEDIDO_CLIENTE := 0; // ID_PEDIDO_CLIENTE := 0;
REF_PED_CLIENTE := ''; REF_PED_CLIENTE := '';
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// ALMACÉN PUESTO A CAPÓN Y PROVISIONAL // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
ID_ALMACEN := 2; ID_ALMACEN := 2;
end; end;
@ -329,3 +330,4 @@ finalization
end. end.

6
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
View File

@ -72,7 +72,8 @@ type
implementation implementation
uses uses
uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uGridUtils, uDialogUtils; uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uGridUtils, uDialogUtils,
uFactuGES_App;
{$R *.dfm} {$R *.dfm}
@ -237,7 +238,7 @@ begin
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')'; Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end; end;
procedure TfEditorPedidoProveedor.PrevisualizarInterno; procedure TfEditorPedidoProveedor.PrevisualizarInterno;
@ -297,3 +298,4 @@ begin
end; end;
end. end.

5
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -58,7 +58,7 @@ type
implementation implementation
uses uses
uDataModulePedidosProveedor, uDataModuleUsuarios, uEditorDBBase, uDataModulePedidosProveedor, uDataModuleUsuarios, uFactuGES_App, uEditorDBBase,
// uInventarioController, uBizInventario, // uInventarioController, uBizInventario,
uDialogUtils, uGridUtils, uDBSelectionListUtils; uDialogUtils, uGridUtils, uDBSelectionListUtils;
// uAlbaranesProveedorController, uBizAlbaranesProveedor, // uAlbaranesProveedorController, uBizAlbaranesProveedor,
@ -273,7 +273,7 @@ procedure TfEditorPedidosProveedor.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Lista de pedidos a proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE; FTitulo := 'Lista de pedidos a proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;
@ -332,3 +332,4 @@ begin
end; end;
end. end.

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

@ -138,7 +138,7 @@ implementation
uses uses
Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs, Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs,
uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
uRecibosProveedorReportController, uBizContactos, uRecibosProveedorReportController, uBizContactos,
schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor, schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor,
@ -471,7 +471,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
ARecibosProveedor.Edit; ARecibosProveedor.Edit;
try try
// ARecibosProveedor.USUARIO := dmUsuarios.LoginInfo.Usuario; ARecibosProveedor.USUARIO := AppFactuGES.UsuarioActivo.UserName;
Result := True; Result := True;
finally finally
ARecibosProveedor.Post; ARecibosProveedor.Post;

BIN
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas
View File

Binary file not shown.

3
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas
View File

@ -174,7 +174,7 @@ begin
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')'; Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end; end;
procedure TfEditorRemesaProveedor.PrevisualizarInterno; procedure TfEditorRemesaProveedor.PrevisualizarInterno;
@ -340,3 +340,4 @@ end;
end. end.

3
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas
View File

@ -152,7 +152,7 @@ procedure TfEditorRemesasProveedor.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Lista de remesas de pago - ' + dmUsuarios.EmpresaActual.NOMBRE; FTitulo := 'Lista de remesas de pago - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;
@ -305,3 +305,4 @@ end;
end. end.