Meu agradecimento a todos que colaborou e meu projetos da nfc-e
gracas a deus e a ajuda de todos ja esta funcionando
Hilton
DATAHORAEX := Lower(Str2Hex( nfe_emissao ))
cdigval := Lower(Str2Hex(nfe_digval))
cQrcode := "chNFe="+alltrim(nfe_chave)
cQrcode +="&nVersao=100"
cQrcode +="&tpAmb="+alltrim(nfe_tipoambiente)
cQrcode +="&dhEmi="+DATAHORAEX
cQrcode +="&vNF="+alltrim(nfe_t_valornota)
cQrCode +="&vICMS="+alltrim(nfe_t_valoricms)
CqRcODE += '&digVal=' +cdigval
CqRCODE += ' &cIdToken=' +'000001'
//chNFe=29150513464482000182650010000000071000000077&nVersao=100&tpAmb=2&dhEmi=323031352d30352d30355431323a34393a31322d30333a3030&vNF=800.00&vICMS=0.00&digVal=393547787a314552464a7338652b6b5357592f54367a7a773438733d &cIdToken=000001
cCripto := hb_sha1(cQrcode)
Memo1Text := "http://hnfe.sefaz.ba.gov.br/servicos/nfce/modulos/geral/NFCEC_consulta_chave_acesso.aspx?"
Memo1Text += cQrcode
Memo1Text += '&cHashQRCode=' + Upper(cCripto)
//http://hnfe.sefaz.ba.gov.br/servicos/nfce/modulos/geral/NFCEC_consulta_chave_acesso.aspx?chNFe=29150513464482000182650010000000071000000077&nVersao=100&tpAmb=2&dhEmi=323031352d30352d30355431323a34393a31322d30333a3030&vNF=800.00&vICMS=0.00&digVal=393547787a314552464a7338652b6b5357592f54367a7a773438733d&cIdToken=000001&cHashQRCode=291FDA5C7420FA4B8D074069CB3EBB37422D66E2
if GeraQrCode(Memo1Text,cFileName) = 0
cBmpFile := cFilename //getcurdir()+"\images3.bmp"
if file(cBmpFile)
? 'existe o bitmap',cBmpFile
endif
//PrintBitMap( oPrinter, cBMPFile )
//oPrinter:SetPrc(oPrinter:Prow()+05 ,1 )
endif