Emissao NFC-e com classe do Gilmer

[cleberconde]

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

[mkyx]

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.

 

[cleberconde]

Como vc fez o QRCODE e a impressao dele  ? 

[mkyx]

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)