Uso de 2 Tablas en Delphi

[Hyepiz]

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

[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.

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[roman]

Hola, bienvenido al ClubDelphi. Mira cómo luce tu código ahora que lo he colocado entre etiquetas [delphi] [/delphi]. Te invito a usarlas en ocasiones posteriores.

En cuanto a tu duda actual, habría que ver dónde tienes declarado el componente CategoriasTable, pero lo que puedo notar es que ValidaCat es un procedimiento suelto y no un método de tu formulario. Si CategoriasTable está en el formulario, entonces sólo los métodos del formulario puden verlo.

LineComment Saludos

Edito: Lo dicho por Casimiro Notevi

[ecfisa]

Hola Hyepiz, bienvenido a los foros de Club Delphi

Como se acostumbra con los ingresantes te invitamos a que leas nuestra guía de estilo.

Por favor cuando incluyas código en un mensaje encierralos entre etiquetas de este modo:



Saludos


Edito: Casi al mismo tiempo... , bueno lo dicho por Casimiro Notevi y roman

[Hyepiz]

Gracias Jovenes!!!

Roman Tienes razon... incluí el procedimiento en un evento de la forma y dejé de recibir errores.

Mil Gracias a Todos..