In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Relaciones

Foro de Xailer profesional en español
Responder
carlos
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

Relaciones

Mensaje por carlos »

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
carlos
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

Relaciones

Mensaje por carlos »

Solucionado
"XailerPro" <carlos@labodegadeclimas.com> escribió en el mensaje de noticias
news:472d29fe$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> 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
Responder