cleberconde Posted October 31, 2019 Report Share Posted October 31, 2019 Pessoal 1 ) Para emissao de NFC-e , alguem esta usando a Classe do Gilmer ? 2) Como estao fazendo para imprimir a Danfe em impressora nao Fiscal ( Daruma., Bematech) 3) Como vcs estao fazendo com relacao a Contigencia da NFC-e ? Ex: So geram o xml , e faz a impressao dele, e mais tarde enviam o mesmo para receita Se alguem puder dar uma dicas ai, agradeço demais Cleber Quote Link to comment Share on other sites More sharing options...
mkyx Posted November 1, 2019 Report Share Posted November 1, 2019 Trabalho normalmente, só precisei configurar as tags referentes à nfce, o resto é tudo igual. Quanto à impressão eu montei um relatório normal para tprinter, configurado para o formato de página 256. Quote Link to comment Share on other sites More sharing options...
cleberconde Posted November 1, 2019 Author Report Share Posted November 1, 2019 Como vc fez o QRCODE e a impressao dele ? Quote Link to comment Share on other sites More sharing options...
mkyx Posted November 2, 2019 Report Share Posted November 2, 2019 Como faço: X0:="Consulta via leitor de QR-Code" L1:=oPRN:GETTEXTWIDTH(X0,oFNT2) POS:=(coluna*80-L1)/2 oprn:Say(linha,POS,X0,OFNT2) linha:=linha+avanca*0.6 objNFeUtil := CreateObject("NFe_Util_2G.util") Resultado:=0 msgResultado:="" XMLAnsi = objNFeUtil:LeArquivoANSI(cFileXml, @Resultado, msgResultado) If Resultado = 7330 versaoQRCode = "100" URL0 = "" msgResultado="" cStat = objNFeUtil:geraUrlNFCe(idToken,N_CSC,versaoQRCode,XMLAnsi,@URL0,msgResultado) if cstat=8400 escala = 5 nomeArquivo = N_PASTA+"\QRCode.jpg" msgResultado = "" cStat_1 = objNFeUtil:geraQRCode(URL0,escala,nomeArquivo,msgResultado) if cstat_1=8420 oBmp := TImage():Define( ,nomeArquivo, oPrn ) oPrn:SayImage(LINHA+avanca*0.3,COLUNA*16,oBmp,coluna*48,coluna*48) linha:=linha+avanca*11 X0:="Protocolo de Autorização:"+N_PROT+" "+substr(DH_PROT,9,2)+"/"+substr(DH_PROT,6,2)+"/"+substr(DH_PROT,1,4)+" "+substr(DH_PROT,12,8) L1:=oPRN:GETTEXTWIDTH(X0,oFNT2) POS:=(coluna*80-L1)/2 oprn:Say(linha,POS,X0,OFNT2) linha:=linha+avanca*0.6 else MSGINFO("Erro não foi possível gerar o QR Code:"+chr(13)+cFileXml+chr(13)+"Código do erro: "+alltrim(str(resultado))+chr(13)+msgresultado) endif else MSGINFO("Erro não foi possível gerar o URL:"+chr(13)+cFileXml+chr(13)+"Código do erro: "+alltrim(str(cstat))+chr(13)+msgresultado) endif ELSE MSGINFO("Erro não foi possível ler o xml:"+chr(13)+iif(FILE(cFileXml),".T.",".F.")+" "+cFileXml+chr(13)+"Código do erro: "+alltrim(str(cstat_1))+chr(13)+msgresultado) ENDIF OPRN:LINE(LINHA,COLUNA,LINHA,COLUNA*80,OPEN) linha:=linha+avanca*0.1 X0:="ADENTech Automação - www.adentech.com.br - (12) 98854-8476" L0:=oPRN:GETTEXTWIDTH(X0,oFNT44) POS:=(coluna*80-L0)/2 oprn:Say(linha,POS,X0,OFNT44) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.