Salvar Url Qrcode

[Rafael Stoffel]

Amigos, boa tarde.

 

Venho pedir ajuda, pois estou implementando NFC-e para um cliente, porem eu gostaria de salvar a URL que foi utilizada para criar o QrCode, para depois de dentro do retaguarda pode consultar se for o caso, porem já fiz de tudo estou o dia todo no fórum pesquisando e nada, vocês poderiam me dizer se o que eu quero existe? pois o melhor que consegui foi isso: 

 

estou usando o ACBrNFeDANFCeFortes1 para emissão da nota.

 

ACBrNFe1.WebServices.Retorno.URL;

 

porem não resolve meu problema.

 

já estou salvando a chave, protocolo e recibo, falta para completar minha missão falta somente a URL do qrcode.

 

Abraços.

Editado 5 Junho, 2015 por Rafael Stoffel

[Solivan]

Pra gerar o QrCode quando necessitar, você poderia carrregar o XML através da função ACBrNFe.LoadFromFile( AXML ), e depois chamar a função que gera o QrCode dento da unit ACBrNFeUtil.

Editado 6 Junho, 2015 por Solivan

[Rafael Stoffel]

Solivan, obrigado por responder, mas vamos lá.

 

a Questão e que o código já esta gerado a URL também eu não quero no futuro gerar ele novamente quero poder acessar a nota pela URL, pois o retaguarda é web em php, logo eu gostaria de somente clicar no link e abrir a nota para o cliente.

[Solivan]

Ok, veja se esta função atende as suas necessidade;

 

uses ACBrNFeUtil, ACBrUtil, ACBrDFeUtil ;

function GerarLinkQrCode(Nota : TACBrNFe) : string;
var
  qrcode : string ;
begin
  with Nota.NotasFiscais.Items[0] do
    begin
       qrcode := NotaUtil.GetURLQRCode(

       NFe.ide.cUF,
       NFe.ide.tpAmb,
       OnlyNumber(NFe.InfNFe.ID),
       DFeUtil.SeSenao(NFe.Dest.idEstrangeiro <> '',NFe.Dest.idEstrangeiro, NFe.Dest.CNPJCPF),
       NFe.ide.dEmi,
       NFe.Total.ICMSTot.vNF,
       NFe.Total.ICMSTot.vICMS,
       NFe.signature.DigestValue,
       TACBrNFe( Nota ).Configuracoes.Geral.IdToken,
       TACBrNFe( Nota ).Configuracoes.Geral.Token );

       Result := qrcode ;
    end;
end;
 

 

Att. Solivan.

[Régys Silveira]

Utilize o método NotaUtil.GetURLQRCode que está disponível na unit ACBrNFeUtil, ele vai lhe retornar a string do qrcode e você pode salvar como desejar.

 

Exemplo de uso:

var
  QrCode: string;
begin
  with ACBrNFe1.NotasFiscais[0].NFe do
  begin
    QrCode := NotaUtil.GetURLQRCode(
      ide.cUF,
      ide.tpAmb,
      infNFe.ID,
      DFeUtil.SeSenao(Dest.idEstrangeiro <> '', Dest.idEstrangeiro, Dest.CNPJCPF),
      ide.dEmi,
      Total.ICMSTot.vNF,
      Total.ICMSTot.vICMS,
      signature.DigestValue,
      ACBrNFe1.Configuracoes.Geral.IdToken,
      ACBrNFe1.Configuracoes.Geral.Token
    );
  end;

[Rafael Stoffel]

Prezados Régys e Solivan, bom dia.

 

obrigado as funções que me passaram me atenderam fico grato pela ajuda.

 

Não sei se posso fazer essa pergunta por aqui, por se tratar de outro assunto, porem é relacionado a NFCe caso não possa abro outro tópico.

 

Como sou novo nesse processo da NFe e NFCe gostaria de tirar duas dividas:

 

1 - o Sequencial para o ambiente de homologação e diferente do ambiente de produção correto?

 

2 - a Parte de tributação eu vi que o componente faz tudo, bastando apenas passar os valores, porem sou bem leigo no assunto vocês teriam como me orientar um site ou algum material que eu possa estudar para entender como funciona a tributação e como devo configurar?

 

mais uma vez obrigado pela ajuda.

[Régys Silveira]

1 - o Sequencial para o ambiente de homologação e diferente do ambiente de produção correto?

R.: Sim

 

2 - a Parte de tributação eu vi que o componente faz tudo, bastando apenas passar os valores, porem sou bem leigo no assunto vocês teriam como me orientar um site ou algum material que eu possa estudar para entender como funciona a tributação e como devo configurar?

R.: Procure um contador ou consultoria este é o melhor caminho, tributação é algo muito atrelado a empresa para a qual vai prestar o serviço, se seu sistema trabalha com mais de um tipo de empresa (lucro real, presumido, simples nacional, etc) você vai precisar cobrir todos os casos, então o melhor modo para você que está iniciando é procurar uma consultoria especializada para lhe mostrar o rumo correto a seguir.

[Rafael Stoffel]

Régys, bom dia.

 

obrigado vou seguir sua orientação.

 

abraços.