Nota autorizada mesmo sem conexão de rede

[Eduardo Brigoni]

Boa tarde, pesquisei nos tópicos algo relacionado ao meu problema e não achei, se caso existir outro tópico me perdoem. Uso o componente acbrnfe e capicom.

Estou com o seguinte problema:

Teste 1. Envio a primeira nota em homologação e tudo certo a nota é autorizada e feita a impressão e gravo no banco. Faço varias notas em sequencia e tudo certo.

Teste 2. Desativo a rede para simular problemas na internet na hora do envio e pra minha surpresa a nota é autorizada e quando debugo para ver que chave esta carregada no componente está carregada a chave da nota anterior e o xmotivo também da nota anterior que foi autorizada mesmo eu usando ACBrNFe1.NotasFiscais.Clear; antes de enviar a nota e no final da operação.

Meus passos são os seguintes:

1. ACBrNFe1.NotasFiscais.Clear;

2. Alimento o componente;

3. ACBrNFe1.NotasFiscais.Items[0].GravarXML();

4. arquivo := ACBrNFe1.NotasFiscais.Items[0].NomeArq;

5. ACBrNFe1.Enviar(1,False);

6. ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(arquivo);
    ACBrNFe1.Consultar;

7. Se nota autorizada faço a impressão e gravo no banco.

Se eu estiver fazendo algo errado então peço a ajuda dos colegas.

[Solivan]

O componente pode não esta limpando os dados antes de uma nova consulta.

Editado 29 Outubro, 2015 por Solivan

[Eduardo Brigoni]

Pois é, mesmo dando acbr1.notasfiscais.clear hoje aconteceu de novo em produção.

[Agnaldo Prates]

Pois e. Tem um tal de cache no Windows, dai não precisa dizer mais nada.
Mesmo sem conexão a informação está no cache, mas, observe que neste caso, o arquivo que está sendo chamado é o mesmo da NFe anterior.

Eu particularmente só salvo a NFe quando assino, dai, salvo com ACBrNFe1.NotasFiscais.Items[0].GravarXML(Arquivo, Pasta);

Quando vou enviar, limpo ACBrNFe1.NotasFiscais.Clear; Apos ACBrNFe1.NotasFiscais.LoadFromFile( nome do arquivo que salvei );

Ainda não tive o problema mencionado.

att.

 

 

 

[Eduardo Brigoni]

Mas é exatamente o que faço e continua o problema, hoje o cliente reclamou de novo e dessa vez ele emitiu uma nota e não ficou gravado no banco. No meu caso só salvo se o cstat = 100.

Editado 29 Outubro, 2015 por Eduardo Brigoni

[Solivan]

Eu utilizo o componente na seguinte sequência e nunca tive problemas;

1. ACBrNFe1.NotasFiscais.Clear;

2. Alimento o componente;

3. ACBrNFe1.Valida ;

4. ACBrNFe1.Assina;

5. ACBrNFe1.Enviar(1,False);

6. ACBrNFe1.NotasFiscais.Items[0].GravarXML();

7. arquivo := ACBrNFe1.NotasFiscais.Items[0].NomeArq;

8. Salva no Banco(Arquivo) ;

Tente dessa forma.

[Eduardo Brigoni]

O Valida e Assina já esta dentro do Enviar. Mas vou tentar. Valeu

[Solivan]

O Valida e Assina já esta dentro do Enviar. Mas vou tentar. Valeu

Observei no seu método que você salva o XML antes mesmo de enviar, acho que pode esta ai o problema, você tem que esperar o envio, porque é ai que o componente atualiza o XML com os dados do protocolo e depois você o salva em disco.

[Eduardo Brigoni]

Pois é fiz dessa forma que vc falou e ainda continua.

Primeira nota autoriza normal, depois desativo a rede e ela autoriza do mesmo jeito.

[Eduardo Brigoni]

Eu coloqueis os passos daquela forma mas eu não fazia assim eu simplesmente alimentava o componente e enviava e esperava pelo cStat = 100 para gravar e ja acontecia isso. Mas vou tentar o seguinte vou criar o componente ao invés de colocar no form e depois do envio da nota eu dou um componente.free talvez assim funcione.

[Eduardo Brigoni]

Bom dia Pessoal, fiz os testes criando o componente e instanciando ele quando eu entro na rotina para enviar a nota. Obrigado a todos pela ajuda.

No CarregaComponente

  NFE := TACBrNFe.Create(Self);

  DF := TACBrNFeDANFEFR.Create(Self);

  NFE.DANFE := DF;

No DestroiComponente

  if Assigned(NFE) then
    NFE.Destroy;
  if Assigned(DF) then
    DF.Destroy;

Rotina de Envio da Nota

  if(ValidaNfe = False) then
    Exit
  else
    begin
      dm_principal.CarregaComponente; //Aqui crio o componente
      dm_principal.DF.FastFile := TConfig.instancia.Danfe.FastFile;
      dm_principal.NFE.NotasFiscais.Clear;
      //Alimenta o componente
      if(dm_principal.GeraNfe)then //passo 1
        begin
          dm_principal.NFE.NotasFiscais.Items[0].GravarXML();
          arquivo := dm_principal.NFE.NotasFiscais.Items[0].NomeArq;
          //Enviar
          if(dm_principal.NFE.Enviar(1,False))then
            begin
              dm_principal.NFE.NotasFiscais.Clear;
              dm_principal.NFE.NotasFiscais.LoadFromFile(arquivo);
              dm_principal.NFE.Consultar;
              if(RespostaEnviar)then //Aqui gravo no banco e faço a impressão se cStat = 100
                begin
                  if(dm_principal.NFE.WebServices.Retorno.xMotivo = 'Autorizado o uso da NF-e')then
                     FinalizaNota
                  else if(Copy(dm_principal.NFE.WebServices.Retorno.xMotivo,0,29) = 'Rejeicao: Duplicidade de NF-e')then
                    MessageDlg('Tente novamente',mtWarning, [mbOK],0)
                  else
                    dm_principal.VoltaNumeroNfe;
                end
              else
                dm_principal.VoltaNumeroNfe;
            end
          else
            dm_principal.VoltaNumeroNfe; 
        end
      else
        ac_cancelar.Execute;
    end;
  dm_principal.DestroiComponente; Aqui destruo o componente

[Waldir Paim]

Eduardo,

Fiz uma correção na unit ACBrNFeWebServices.pas para ver se conseguimos resolver o problema relatado.

Você pode testar para ver se com a solução proposta podemos resolver essa situação?

Segue anexo a unit citada, nela inclui nas classes TNFeRecepcao e TNFeRetRecepcao uma procedura para Limpar os registros antes do envio.

Quando o envio ocorre na function TWebServices.Envia e nela ocorre um erro os valores carregados da nota anterior se mantinham nos objetos FEnviar e FRetorno.

Vi que você fez inúmeros testes e resolveu o seu problema criando o componente em tempo de execução, mas se puder fazer  mais esses testes, poderia voltar seu código original.

 

ACBrNFeWebServices.pas