Estoy empezando a utilizar tanto Delphi como Firebird. Mi problema es el siguiente: Estoy trabajando con RAD 10 Seattle y usando una DB Firebird 3.0. En una forma tengo declarados
Código Delphi
[-]
type
TFormaConceptos = class(TForm)
TFDConnection_Sotsec: TFDConnection;
DataSource1: TDataSource;
ConceptosTable: TFDQuery;
DBEd_Cod: TDBEdit;
DBMemo1: TDBMemo;
.
.
.
DBEdit7: TDBEdit;
DataSource2: TDataSource;
CategoriasTable: TFDQuery;
etc....
tengo un procedure
Código Delphi
[-]
procedure TFormaConceptos.BitBtn3Click(Sender: TObject);
var
encontrado:Boolean;
begin
if DBEd_Cod.text<>'' then
begin
ConceptosTable.Open;
encontrado:= false;
ConceptosTable.First;
while (not(encontrado)) and (not(EoF)) do
begin
if ConceptosTable.FieldValues['CVE_CPTO'] <> DBEd_Cod.Text then
begin
ConceptosTable.Insert;
ConceptosTable.FieldValues['CONCEPTO']:=DBMemo1.Text ;
y hasta aquì todo muy bien.
El problema es cuando quiero usar la otra Tabla(CategoriasTable)
Código Delphi
[-]
Procedure ValidaCat(CatID:String);
var
Id:string;
encontrado : Boolean;
begin
Id:= CatID;
if Id <> '' then
begin
CategoriasTable.Active;
encontrado:= false;
CategoriasTable.First;
.
.
.
Con sus respectivos end.
EL detalle es que no me reconoce el nombre de CategoriasTable... me marca
Cita:
[dcc32 Error] Cap_Conceptos.pas(122): E2003 Undeclared identifier: 'CategoriasTable'
|
que me falta declarar para que pueda trabajar con las 2 tablas. De antemano les agradezco su ayuda.