Relaciones
Publicado: Dom Nov 04, 2007 3:09 am
Saludos a todos.
Tengo una relacion de dos tablas, COBROS.DBF Y ALUMNOS.DBF, ambas estan
ordena por la clave NOID(No. de Identidad), quiero mostrar el Nombre del
alumnos que esta en Alumnos cuando proceso los cobros, de ninguna manera me
muestra el nombre del alumnos que corresponde con el codigo que esta en
cobros.
WITH OBJECT ::oDbfCob
:OrdSetFocus("BYNOID")
:SetRelation("NOID", ::oDbfAlu,.T.)
:GoTop()
:AddCalcField( "NombCompleto", {|| UPPER(ALLTRIM(::oDbfAlu:NOMBRE))+"
"+ UPPER(ALLTRIM(::oDbfAlu:APE1))+" "+ UPPER(ALLTRIM(::oDbfAlu:APE2))} )
WITH OBJECT ::oDbfCob
:OrdSetFocus("BYNOID")
:SetRelation("NOID", ::oDbfFCob,.T.)
END
msginfo(::oDbfCob:NombCompleto)
END WITH
Por favor si algo estoy haciendo mal, diganmelo, para darle solucion a esto.
Gracias
Tengo una relacion de dos tablas, COBROS.DBF Y ALUMNOS.DBF, ambas estan
ordena por la clave NOID(No. de Identidad), quiero mostrar el Nombre del
alumnos que esta en Alumnos cuando proceso los cobros, de ninguna manera me
muestra el nombre del alumnos que corresponde con el codigo que esta en
cobros.
WITH OBJECT ::oDbfCob
:OrdSetFocus("BYNOID")
:SetRelation("NOID", ::oDbfAlu,.T.)
:GoTop()
:AddCalcField( "NombCompleto", {|| UPPER(ALLTRIM(::oDbfAlu:NOMBRE))+"
"+ UPPER(ALLTRIM(::oDbfAlu:APE1))+" "+ UPPER(ALLTRIM(::oDbfAlu:APE2))} )
WITH OBJECT ::oDbfCob
:OrdSetFocus("BYNOID")
:SetRelation("NOID", ::oDbfFCob,.T.)
END
msginfo(::oDbfCob:NombCompleto)
END WITH
Por favor si algo estoy haciendo mal, diganmelo, para darle solucion a esto.
Gracias