Progress - Consultas en tablas

Buen dia:

Agradeceria me apoyaran con una consulta ejemplo a 2 tablas, de una misma base de datos.
Necesito sacar información de dos tablas de la misma base de datos.

De antemano muchas gracias.

Deberias ser un pco mas explicito en tu consulta para poder ayudarte.

Cuento con dos tablas como las siguientes, sus campos los muestro entre parentesis:
* TblUsuario (ingusuario, ingfecha, ingprocedencia)
* TblNombre (ingusuario, ingnombre, ingpaterno, ingmaterno)

Necesito realizar una consulta que me permita mostrar los siguientes datos: ingprocedencia, ingnombre, ingpaterno e ingmaterno, pero estan en distintas tablas; no se como extraer datos de mas de una tabla.

Como comentario, estoy aprendiendo a programas en Progress y únicamente he realizado consultas a una única tabla, o sea, una colsulta como esta:

FOR EACH saldos WHERE ingreso>0.
DISPLAY saldos.monto saldos.fecha.
END.

Agradeceria mucho tu ayuda y que tengas buen dia.

Que tal Yairzinho, es sencillo, puedes hacerlo de cualquiera de las siguientes formas:

1) Anidando los for each de ambas tablas

/* TblUsuario (ingusuario, ingfecha, ingprocedencia) */
for each TblUsuario no-lock.
end.

2) Realizando el join de ambas tablas
/* TblUsuario (ingusuario, ingfecha, ingprocedencia) */
for each TblUsuario no-lock,
end.


Dependiendo de la finalidad de la consulta, puedes usar uno u otro. Espero te sea de utilidad la informacion.

Saludos,
KikeMtz.

Muchisimas gracias KikeMtz.

Saludos y bendiciones aprovechando la fecha.

Igualmente.

Saludos,
KikeMtz.

Hola.
Si bien la solucion de KikeMtz puede ser valida, creo que seria mas eficaz y rapido hacerlo del uno de los dosn modos que indico.

1.- Si las dos tablas tienen como indice el campo (ingusuario) hariamos lo siguiente:

find TblNombre where TblNombre.ingusuario = TblUsuario.ingusuario no-lock no-error.
if available TblNombre then do:
display TblUsuario.ingprodecencia TblNombre.ingnombre TblNombre.ingpterno TblNombre.materno.
end.
end.

2.- por si no son indices y aunque lo sean siempre seria mas rapido:

for each TblUsuario, each TblNombre where TblNombre.ingusuario = TblUsuario.ingusuario .
display TblUsuario.ingprodecencia TblNombre.ingnombre TblNombre.ingpterno
end.

Espero que te sea de utilidad y Feliz Navidad.

perdon por haberme comido en la primera opcien el " FOR EACH TblUsuario."

Quedaria así:

FOR EACH TblUsuario.
find TblNombre where TblNombre.ingusuario = TblUsuario.ingusuario no-lock no-error.
if available TblNombre then do:
display TblUsuario.ingprodecencia TblNombre.ingnombre TblNombre.ingpterno TblNombre.materno.
end.
end.