nota fiscal sem informação qr-code

[Juliomar Marchetti]

Desculpe tu é programador delphi?

[André Ferreira de Moraes]

Atualize seus fontes e teste novamente. Exclua o arquivo ACBrNFeNotasFiscais.pas que vc alterou.

[Antony Moraes]

Júlio sou novo,desculpe por minha ignorância sobre o dcu não entendi referente a qual dcu você está citando não entendi o que você disse .

[adelsonuchoa]

Antony verifique o path library deve estar apontando pra outro lugar, de preferencia coloque o ACBr em outra pasta para não dar conflito, no meu caso fiz isso por causa do Fortes Report. 

[Antony Moraes]

Agradeço a todos pelo a ajuda!!Finalmente consegui a soluçao do problema .fiz a atualização do acbr hoje pela manha e removi o acbr e  o reinstalei em uma pasta diferente da anterior.acbrnfenotasfiscas.pas ficou assim apos a atualização :

 

    // Gera o QR-Code para adicionar no XML antes de ser validado e salvo
    // somente para a NFC-e.

    if (NFe.Ide.modelo = 65) and  (NFe.Ide.tpAmb = taHomologacao) then
    begin
      with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
      begin
        NFe.infNFeSupl.qrCode := GetURLQRCode(NFe.Ide.cUF, NFe.Ide.tpAmb,
                                  onlyNumber(NFe.infNFe.ID), NFe.Dest.CNPJCPF,
                                  NFe.Ide.dEmi, NFe.Total.ICMSTot.vNF,
                                  NFe.Total.ICMSTot.vICMS, NFe.signature.DigestValue);
        XMLAss := GerarXML;
        FXMLAssinado := XMLAss;
      end;
    end;

    if Configuracoes.Arquivos.Salvar  and not (Configuracoes.Arquivos.SalvarApenasNFeProcessadas) then
    begin
      if NaoEstaVazio(NomeArq) then
        Gravar(NomeArq, XMLAss)
      else
        Gravar(CalcularNomeArquivoCompleto(), XMLAss);
    end;
  end;

 

 

Editado 6 Outubro, 2015 por Antony Moraes