cod = VAL(thisform.text1.Value)
equ = 1

USE jugador
SELECT jugador
IF !EMPTY(cod)
    LOCATE FOR jugadorcod = cod
    IF FOUND()
        thisform.text2.Value = jugadornom
        thisform.text3.Value = jugadorpos
        equ = equipocod
    USE EQUIPO
    SELECT equipo
    LOCATE FOR equipocod = equ
    thisform.combo1.DisplayValue = (equiponom)
        RETURN
    ENDIF
ENDIF

BROWSE NOMODIFY NOAPPEND NODELETE TITLE "Elija y Presione 'Esc.'"
thisform.text1.Value = jugadorcod
thisform.text2.value = jugadornom
thisform.text3.Value = jugadorpos
thisform.combo1.ListIndex = equ

thisform.command1.Enabled = .F.
thisform.command2.Enabled = .F.
thisform.command3.Enabled = .T.
thisform.command4.Enabled = .T.
thisform.text1.Enabled = .F.
CLOSE TABLES