thisform.Cont1.Command24.picture= mantenimiento.logo
dir_foto = '"'+dir_inicial+'\'+m.empresa+'\IMAGENES"'
Local lcFotolcFoto = GetPic("jpg,bmp") If !Empty(lcFoto) Then lcNuevo = ForcePath(JustFName(lcFoto), "C:\Fotos") Select mantenimiento.logo Copy File (lcFoto) To (lcNuevo) Replace Foto With lcNuevo
Thisform.Cont1.foto.picture = lcNuevo Thisform.refresh()EndIf
b = '"'+dir_inicial+'\'+m.empresa+'\IMAGENES"'thisform.label5.Caption = b
b = '"'+dir_inicial+'\'+m.empresa+'\IMAGENES"'
local lcFoto as character lcFoto=getpic("jpg,bmp")
if !empty(lcFoto) then select mantenimiento.logo COPY FILE (lcFoto) TO breplace mantenimiento.logo with lcFoto thisform.Cont1.foto.picture= lcFoto thisform.refresh ENDIF
b = '"'+dir_inicial+'\'+m.empresa+'\IMG\LOGO\logo.jpg"'
local lcFoto as character lcFoto=getpic("jpg,bmp") if !empty(lcFoto) then select mantenimiento
COPY FILE (lcFoto) TO (b)replace mantenimiento.logo with (b) thisform.Cont1.foto.picture= (b) thisform.refresh ENDIF
LOCAL lcFoto as character,;
lcFolderSource,;
lcFolderTarget,;
lcFoto_Nueva,;
lcFolderIni,;
oWsh as Object
* Se suponen definidas las variables (para un procedure deberían ser parámetros)
* Empresa y Dir_Inicial
*<Directorio de búsqueda>
* Se puede indicar cualquier otra ruta de busqueda
* para el ejemplo tomo "Documents" del usuario actual.
oWsh = CREATEOBJECT("WScript.Shell")
lcFolderSource = oWsh.SpecialFolders("MyDocuments")
owsh=null
*</Directorio de búsqueda>
lcFolderIni = FULLPATH("")
*<Directorio de destino>
lcFolderTarget = ADDBS(dir_Inicial);
+ADDBS(m.Empresa);
+ADDBS("img");
+ADDBS("logo")
* Verificar si existe, si no, crearlo
IF !DIRECTORY(m.lcFolderTarget)
MD &lcFolderTarget
ENDIF
*</Directorio de destino>
*<Buscar Imagen>
CD (m.lcFolderSource)
lcFoto=GETPICT("jpg,bmp")
CD (m.lcFolderIni)
*</Buscar Imagen>
IF !EMPTY(m.lcfoto)
lcFoto_Nueva = ADDBS(m.lcFolderTarget);
+"logo";
+".";
+LOWER(JUSTEXT(m.lcFoto))
COPY FILE (m.lcFoto) TO (m.lcFoto_Nueva)
* Reemplazo en la tabla.
* Conviene seleccionar el area de trabajo
* Si no se quiere seleccionar el área, la notación correcta sería
* REPLACE logo with m.lcFoto_Nueva IN Mantenimiento
SELECT mantenimiento
replace logo WITH m.lcFoto_Nueva
thisform.Cont1.foto.picture= m.lcFoto_Nueva
ENDIF
Si no son tantas imagenes, yo las grabo en un campo blob y las extraigo cada vez que las necesito con FILETOSTR.-
Siempre que no sean muchas las imagenes.-
Saludos.-
Roberto.-