13 lines
368 B
Plaintext
13 lines
368 B
Plaintext
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 |