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