33 lines
625 B
Plaintext
33 lines
625 B
Plaintext
MAIN
|
|
|
|
DEFINE chr_foto BYTE,
|
|
pcodid INT
|
|
|
|
|
|
CONNECT to "decomarmol" USER 'jsoto' USING 'lmmjvsd2014'
|
|
|
|
OPEN FORM w1 FROM "fotos"
|
|
DISPLAY FORM w1
|
|
|
|
INPUT BY NAME pcodid
|
|
AFTER FIELD pcodid
|
|
LOCATE chr_foto IN MEMORY
|
|
SELECT a.imagen INTO chr_foto FROM iptb00002 a
|
|
WHERE a.codid = pcodid
|
|
IF STATUS = NOTFOUND THEN
|
|
DISPLAY "NO ENCONTRE"
|
|
NEXT FIELD pcodid
|
|
ELSE
|
|
CALL chr_foto.writeFile("pfoto.jpg")
|
|
DISPLAY "pfoto.jpg" TO imagen
|
|
DISPLAY "estoy "
|
|
NEXT FIELD pcodid
|
|
END IF
|
|
AFTER INPUT
|
|
IF INT_FLAG THEN
|
|
EXIT PROGRAM
|
|
END IF
|
|
END INPUT
|
|
|
|
|
|
END MAIN |