*******************************CAPTURA DE LA FOTO**************************************************
* Este primer algo ritmo permite capturar la imagen y guarda el nombre
* Ejmplo : EDACIA.JPG
* Recuerden la captura de la foto la hago despues de haber llenado todos lo campos de formulario
************************************************************************************************************
LOCAL icNombreArchivo
SELECT mayor
SET ORDER TO CEDULA && ordenamos el campo por cedula para realizar la busqueda
go bottom
icNombreArchivo = Getfile("JPG") IF !EMPTY(icNombreArchivo)
IF FILE(icNombreArchivo)
WITH this.Parent
.image1.picture = icNombreArchivo
endwith
ENDIF
APPEND BLANK
REPLACE mayor.foto WITH ALLTRIM(icNombreArchivo)
endif
RETURN
******************VISUALIZACION DE LA FOTO ********************************************************
*selecciono el archivo mayor este es el archivo que contiene la foto o el campo foto, y debe estar en *uso, igualo la variable icNombreArchivo al nombre de la foto guardada, el campo foto es tipo *caracteres, y en el se guarda el nombre ejemplo EDACIA.JPG, recuerda que este codigo va *despues de haber realizado la busqueda, y haber encontrado lo que busca, si tu busqueda no *resulta, este codigo no resultara.
* Esta es la forma en que visualizo las fotos de los clientes en mi sistema de empeños.-
***********************************************************************************************************
PUBLIC icNombreArchivo
icNombreArchivo =ALLTRIM(foto)
WITH this.Parent
.image1.picture = icNombreArchivo
endwith
Crear cuenta
Comentarios sobre la versión: algoritmos de ejemplo (1)