Hola a todos,
Estoy empezando a usar la clase TImage que viene con FH ver 8.02,
El código es el siguiente:
y el de la funcion:
La primera vez que abro la ficha y selecciono las imagenes las cargas y las visualiza, pero al guardar la ficha, si abro de nuevo la fucha genera el siguiente error:
Alguna idea de por qué sucede esto.
Un cordial saludo
Ernesto
Estoy empezando a usar la clase TImage que viene con FH ver 8.02,
El código es el siguiente:
REDEFINE IMAGE oFotoEmp ID 400 OF oDlg_Empleado FILE ( mC20 ) SCROLL UPDATE ;
WHEN lNew_Empleado .or. lEdit_Empleado
REDEFINE BUTTON oBtnFindFotoEmp ID 300 OF oDlg_Empleado UPDATE; //buscar Foto Empleado
ACTION ( FFindFotoEmp(oFotoEmp),oDlg_Empleado:Update() )
oBtnFindFotoEmp:cTooltip:="Buscar Imagen Empleado..."y el de la funcion:
Function FFindFotoEmp(oFotoEmp)
local gcFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" + ;
"DIB (*.dib)| *.dib|" + ;
"PCX (*.pcx)| *.pcx|" + ;
"JPEG (*.jpg)| *.jpg|" + ;
"GIF (*.gif)| *.gif|" + ;
"TARGA (*.tga)| *.tga|" + ;
"RLE (*.rle)| *.rle|" + ;
"All Files (*.*)| *.*" ;
,"Please select a image file", 4 )
mC20:=gcFile
oFotoEmp:Reload( , mC20 )
oFotoEmp:Refresh()
Return nilLa primera vez que abro la ficha y selecciono las imagenes las cargas y las visualiza, pero al guardar la ficha, si abro de nuevo la fucha genera el siguiente error:
Error occurred at: 11/08/2009, 17:07:30
Error description: Error BASE/1004 Class: 'NIL' has no exported method: SETRANGE
Args:
[ 1] = U
[ 2] = N 0
[ 3] = N 0Alguna idea de por qué sucede esto.
Un cordial saludo
Ernesto