FUNCTION QueImagen
LPARAMETERS tcIDImagen <<<<<<<---------------------------- 2
LOCAL lnSelect, lcImagen
lnSelect = SELECT() && Recordar área de trabajo
IF NOT USED("imagenes_arma_fullpath")
USE imagenes ;
ORDER ID ;
AGAIN IN 0 ;
ALIAS imagenes_arma_fullpath
ENDIF
SELECT imagenes_arma_fullpath
IF SEEK( tcIDImagen ) <<<<<<<---------------------------- 1 Aqui
lcImagen = ALLTRIM( Path ) + ;
ALLTRIM( ID ) + ;
"." + ;
ALLTRIM( Tipo )
IF NOT FILE( lcImagen )
lcImagen = ""
ENDIF
ELSE
lcImagen = ""
ENDIF
SELECT (lnSelect) && Volver al área de trabajo anterior
RETURN lcImagen

FUNCTION QueImagen
LPARAMETERS tcIDImagen <<<<<<<---------------------------- 2
LOCAL lnSelect, lcImagen
Store select() to lnSelect
IF NOT USED("imagenes_arma_fullpath")
USE imagenes 0 && no es necesario el ALIAS cuando la publicas en el area cero
ENDIF
SELECT imagenes_arma_fullpath
IF SEEK( tcIDImagen ) <<<<<<<---------------------------- 1 Aqui
lcImagen = ALLTRIM( Path ) + ;
ALLTRIM(str( ID )) + ;
"." + ;
ALLTRIM( Tipo )
IF NOT FILE( lcImagen )
lcImagen = ""
ENDIF
ELSE
lcImagen = ""
ENDIF
SELECT (lnSelect) && Volver al área de trabajo anterior
RETURN lcImagen