ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Report Blob Image   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

mer. 12 juin 2019, 22h24

MSabri111
Algérie Algérie

atoutfox.public.association

Re: Report Blob Image

SELECT Decjour2005
cImg = Decjour2005.imag_blob
cMat=ALLTRIM(Decjour2005.matricule)
cFileImg = (m.lcPath+'photos\'+cMat+".jpg") &&ADDBS(SYS(5) + SYS(2003)) + 'image.jpg'
*--------------
go top
i = 1

do while !Eof() AND !EMPTY(Decjour2005.imag_blob)
cImg = Decjour2005.imag_blob
cMat=ALLTRIM(Decjour2005.matricule)
cFileImg = (m.lcPath+'photos\'+cMat+".jpg") &&ADDBS(SYS(5) + SYS(2003)) + 'image.jpg'eImgage =
IF FILE(m.cFileImg)
DELETE FILE (m.cFileImg)
ENDIF
=STRTOFILE(m.cImg, m.cFileImg,1)
replace Decjour2005.path_photo with m.cFileImg
&&IF FILE(m.cFileImg)
&& SELECT Photo_emp
&& APPEND general Photo_emp.photo_emp from (m.cFileImg) CLASS Paint.Picture
&& ENDIF
eImgage =m.cFileImg
i = i+1
skip
ENDDO

&&cFileImg=Decjour2005.path_photo
&&? cFileImg
*--------------

SELECT _impimante
lcPrinter = alltrim(_impimante.impri3)
SET PRINTER TO NAME (lcPrinter)
Report form carte111.lbx TO PRINTER PROMPT

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019401
19 366 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3