Redesplegar imagen

[noe aburto]

Saludos.
En un dialogo para empleados despliego la imagen del la foto del empledo, asi:

@ ANCHO_SAYGET*aIMAG_REN(i)/2,Col2Pxl(aIMAG_COL(i)) IMAGE aIMAG_OBJ(i) FILENAME eval(aIMAG_ARC(i));
SIZE aIMAG_LAR(i),aIMAG_ANC(i);
OF oVENTANA UPDATE ADJUST PIXEL
aIMAG_OBJ(i):LoadBMP(eval(aIMAG_ARC(i)))
aIMAG_OBJ(i):Refresh()

Mi problema es que si aun no registro el nombre del archivo imagen en dbf, al posicionarme en otro empledo me deja la imagen foto del anterior
que podria hacer para si no existe la foto, me despliegue en blanco la imagen foto

lo facil seria si no existe tener una imagen foto en blanco, pero correr el riesgo que la puedan eliminar.

gracias.

[leandro]

Creo que lo puedes solucionar de la siguiente manera:

Code: Select all  Expand view

cFotoEmpl  := oRsFt:Fields("pp_imagen"):Value        
lFotoEmpl  := !Empty( cFotoEmpl )
cFotoEmpl  := IIf( !lFotoEmpl, FileStr( ".\pictures\nopictu.jpg" ), HexToStr( cFotoEmpl ) ) //en caso de no haber foto almacenada en la columna 'FOTO' del recordsource entonce leo de disco una foto con una imagen vacia