Seleccionar Area de trabajo
Publicado: Sab Feb 19, 2005 9:53 pm
Estoy metido en un rollo a la hora de Seleccionar un area
Alguien me ayuda???
Hao esto!!!
If ::oDbfDS2:ForcedSeek(alltrim(::oEditUser:Value))
oValor := alltrim(::oDbfDS2:FieldGetByName("IDPERSONA"))
::oDbfDS1:Select("PERSONAS"),,,, ËSTO NO ME TRABAJA
If ::oDbfDS2:ForcedSeek(oValor)
:cText := alltrim(::oDbfDS1:FieldGetByName("Nombre")) +"
"+Alltrim(::oDbfDS1:FieldGetByName("Apellido1"))
Else
:cText := alltrim(::oDbfDS2:FieldGetByName("Nombre"))
EndIf
Else
:cText := "No hay Usuario"
If MsgYesNo("Este usuario no Existe en la Tabla ,,
REPITA","Error de Logeo", RTF_VER )
::oEditUser:Value := space(11)
::oEditUser:SetFocus()
EndIf
EndIf
ENTONES LA RELACIONES TAMPOCO ME TRABAJAN,, QUIERO POR FAVOR QUE ME ENVIEN
UNA MUESTRA DE COMO RELACIONAR LAS TABLAS Y COMO SELECCIONAR LA AREAS DE
TRABAJO
gRACIAS
Alguien me ayuda???
Hao esto!!!
If ::oDbfDS2:ForcedSeek(alltrim(::oEditUser:Value))
oValor := alltrim(::oDbfDS2:FieldGetByName("IDPERSONA"))
::oDbfDS1:Select("PERSONAS"),,,, ËSTO NO ME TRABAJA
If ::oDbfDS2:ForcedSeek(oValor)
:cText := alltrim(::oDbfDS1:FieldGetByName("Nombre")) +"
"+Alltrim(::oDbfDS1:FieldGetByName("Apellido1"))
Else
:cText := alltrim(::oDbfDS2:FieldGetByName("Nombre"))
EndIf
Else
:cText := "No hay Usuario"
If MsgYesNo("Este usuario no Existe en la Tabla ,,
REPITA","Error de Logeo", RTF_VER )
::oEditUser:Value := space(11)
::oEditUser:SetFocus()
EndIf
EndIf
ENTONES LA RELACIONES TAMPOCO ME TRABAJAN,, QUIERO POR FAVOR QUE ME ENVIEN
UNA MUESTRA DE COMO RELACIONAR LAS TABLAS Y COMO SELECCIONAR LA AREAS DE
TRABAJO
gRACIAS