Estou com um problema... se uso o saybitmap... dá a mensagem de erro não foi possivel analisar o arquivo JPG " e depois mostra o preview e imprime tudo ok, mas se uso o sayImage... não carrega a imagem no preview... segue o codigo abaixo....
Uso a VLIB..........
******************
Function RELPRO1()
******************
LOCAL hLib, cFileName := "c:\bcdados\zfwin\fw.jpg"
PRIVATE cDtIni:=SPACE(10), cQt:=0, cPrc:=0, cPrv:=0
****
rot1 := 'PRO_001'
rot2 := 'RELATÓRIO GERENCIAL DO ESTOQUE'
pag := 0
btitulo := {||p_0001()} // Pega o cabeçalho do relatório
****
hLib := LoadLib32("\bcdados\zfwin\NViewLib.Dll")
oImagem:= TImage():New()
oImagem:Progress(.F.)
oImagem:LoadBmp(cFileName)
oImagem:Refresh()
FreeLib32(hLib)
****
SELECT pro
pro->(dbGoTop())
DO WHILE !pro->( Eof() )
IF qtat>0
cQt := cQt+pro->(qtat)
cPrc:= cPrc+(pro->prc*pro->qtat)
cPrv:= cPrv+(pro->prv*pro->qtat)
pro->(dbSkip(1))
ELSE
pro->(dbSkip(1))
LOOP
ENDIF
ENDDO
if !rel_ini()
return nil
endif
linha = linha + lsalto
say_e(linha,lmargem,linha+lsalto,lmargem+3,"Total de Produtos em Estoque",oFnt_rel12)
say_d(linha,lmargem+6,linha+lsalto,lmargem+9,tran(cQt,'99.999,99'),oFnt_rel12)
linha = linha + lsalto
linha = linha + lsalto
say_e(linha,lmargem,linha+lsalto,lmargem+3,"Total em Preço de Custo",oFnt_rel12)
say_d(linha,lmargem+6,linha+lsalto,lmargem+9,tran(cPrc,'999.999,99'),oFnt_rel12)
linha = linha + lsalto
say_e(linha,lmargem,linha+lsalto,lmargem+3,"Total em Preço de Venda",oFnt_rel12)
say_d(linha,lmargem+6,linha+lsalto,lmargem+9,tran(cPrv,'999.999,99'),oFnt_rel12)
linha = (linha+4) + lsalto
say_c(linha,lmargem+7,linha+lsalto,lmargem+12,REPLICATE("_",30),oFnt_rel12)
linha = linha + lsalto
say_c(linha,lmargem+7,linha+lsalto,lmargem+12,"Responsável",oFnt_rel12)
linha = linha + lsalto
oPrn:SayImage(linha,lmargem,oImagem,5.6 , 3.4)
rel_fim()
Return .t.
JHILBERT
FW2.7/BCC5.5/PELLES C/XHARBOUR 09.71/XDEV
-------------------------------
Nota de Moderação (Toledo): mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: faq.php?mode=bbcode#f21
