MAIN
DEFINE entra STRING
OPEN WINDOW w1 WITH FORM "fotofrm"
CONNECT TO "smarmotech" USER 'jsoto' USING 'lmmjvsd2014'
INPUT BY NAME entra
BEFORE INPUT
SELECT a.ruta_foto INTO entra FROM iptb00016 a WHERE a.codid = 4056
#LET entra = "e:\\imagenestienda\\principal\\34-694-217-1198.jpg"
DISPLAY entra TO ffimage1
AFTER INPUT
END INPUT
CLOSE WINDOW w1
END MAIN