RE:necesito ejemplos o fuentes para capturar imag
RUTAFOTO=RUTA_TRAM+"PC"+RIGHT(PC.EXPEDIENTE,4)+"FOTO"
SET DEFA TO &RUTAFOTO
MASCFOTO=LEFT(PC.EXPEDIENTE,4)+"*.JPG" Aqui se llenara el arreglo con aquellas fotos que sus 4 carasteres de la iz. correspondan al numero de registro donde estoy posicionada.
CFOTOS=ADIR(NOM_FOTO,MASCFOTO)
IF CFOTOS = 0 &&si el arreglo contiene definicion de fotos se activa el boton para vincular y visualizar dichas fotos
THISFORM.Pgmnu.P1.CmdEnlaceJPG.enabled=.F.
ELSE
ENDIF