Duplicamento Nfc-E

[Hetosoft Sistemas]

Enviei este comando

Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True);

 

 

e reu erro de retorno da sefaz,

ai tentei enviar de novo

Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True);

 

deu esta massagem

(imagem )

 

 

como faço para pegar este chave e este protocolo. ?

 

obrigado pela atenção.

[Italo Giurizzato Junior]

Boa tarde Heto Andrade,

 

Ao enviar pela primeira vez qual foi o erro?

 

Se não foi de rejeição, você não pode enviar novamente e sim carregar o XML assinado e não protocolado e realizar uma consulta para obter o protocolo de autorização.

[Hetosoft Sistemas]

Erro 999 e ai vezes em branco

[Italo Giurizzato Junior]

Boa tarde Heto Andrade,

 

Normalmente o erro 999 é falha no Web Service.

[Hetosoft Sistemas]

Resumindo...

quando mando

Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True);

e recebo a massagem erro: 539 (imagem)

 

tem como pega a chavedeacesso e o protocolo

com algum comando ex:

 

    ShowMessage(ACBrNFe1.WebServices.Consulta.Protocolo);
    MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS);
    memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS);

 

 

eu tive que pega a string da massagem

e copiar chave e o protocolo com

copy( messagem, 94,44 ) e copy( messagem,142,15 )

[Hetosoft Sistemas]

Alguém pode min ajuda ?

[Régys Silveira]

Quando você envia e da erro no SEFAZ, você deve consultar a situação da nota depois de um tempo para verificar se ela foi autorizada ou não.

Se foi ele retorna os dados de protocolo, etc, etc

 

Se você tenta enviar novamente ele mostra a mensagem de duplicidade, se você mudar alguma coisa na chave de acesso, ele mostra o erro de duplicidade com diferença na chave de acesso, esse erro geralmente acontece porque você mudou o cNF.

[Juliomar Marchetti]

Veja várias situações, desde uma simples movimentação do cursor até mesmo um refresh nos dados ao gerar a nf-e e assim pega os dados de outra nota o seu sistema!

[Hetosoft Sistemas]

a imagem acima mostra uma mensagem com chave de acesso e um protocolo,

mensagem de erro,

como façor para colocar em um variável

vChave

vProtocolo

[Italo Giurizzato Junior]

Boa tarde Heto Andrade,

 

     ACBrNFe.Enviar(Lote);

 

     sRecibo   := ACBrNFe.WebServices.Enviar.Recibo;

 

     ACBrNFe.WebServices.Retorno.Recibo := sRecibo;

     if ACBrNFe.WebServices.Retorno.Executar

      then begin

       for i := 0 to (ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Count - 1) do

        begin

         sDataHora     := DateTimeToStr(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.dhRecbto);

         sProtocolo    := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.nProt;

         sStat         := IntToStr(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.cStat);

         sMotivo       := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.xMotivo;

         sChave   := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.chNFe;

 

        // Atualizar o banco de dados 

 

       end;

     end;

 

Espero ter ajudado.

[Hetosoft Sistemas]

A variável sRecibo, Ta retornando ''  nada, o que deve ser ?

 

 

var

sRecibo : string;

--------------------------

 

     Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True);

 

     sRecibo   := Form_NFe.ACBrNFe1.WebServices.Enviar.Recibo;

Editado 21 Julho, 2014 por hetoandrade

[Régys Silveira]

Depende, você está enviando em modo sincrono ou assincrono?

[Hetosoft Sistemas]

Não sei , serio,

 

envio com este codigo  (NFC-e)

 

Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True);

 

 

qual o melhor para NFC-e  sincrono ou assincrono

Editado 21 Julho, 2014 por hetoandrade

[Régys Silveira]

Geralmente a NFC-e é enviada em modo síncrono, nesse caso não existe recibo, visto que a resposta é retornada na mesma requisição de envio.

O recibo só existe para o modo assíncrono.

[Hetosoft Sistemas]

resumindo nao vou pode usar esta função, que pena.

 

 

     sRecibo   := ACBrNFe.WebServices.Enviar.Recibo;

 

     ACBrNFe.WebServices.Retorno.Recibo := sRecibo;

     if ACBrNFe.WebServices.Retorno.Executar

      then begin

       for i := 0 to (ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Count - 1) do

        begin

         sDataHora     := DateTimeToStr(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.dhRecbto);

         sProtocolo    := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.nProt;

         sStat         := IntToStr(ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.cStat);

         sMotivo       := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.xMotivo;

         sChave   := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items.chNFe;

 

        // Atualizar o banco de dados 

 

       end;

     end;

[Régys Silveira]

Para que você precisa do recibo?

[Hetosoft Sistemas]

quando

Form_NFe.ACBrNFe1.Enviar(vNumLote,False,True);

e recebo a massagem erro: 539 (imagem)

duplicamento

 

preciso saber que a nfc-e que ta na sefaz é o mesmo, cupom que to tentando enivar

entao , pego a chavedeacesso da messagem (imagem)

 

eu tive que pega a string da massagem

e copiar chave e o protocolo com

 

 

                        msmChaveAcesso:='';
                        
                        if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat=204 then
                        begin
                          msmChaveAcesso:= copy( Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4,44 );
                        end;


                        if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat=539 then
                        begin
                          msmChaveAcesso:= SoNumeros( copy(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo, 55, 45 ));
                          msmProtocolo:=   SoNumeros( copy(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo, 104, 16 ));

                          if Length(msmChaveAcesso)<>44 then
                          begin
                            msmChaveAcesso:='';
                          end;
                        end;

 

 

 

 

ai faço a consulta ,

pra saber a data da nfc-e

para verifica se e a mesma data da nfc-e que to tentando enviar

 

pego assim

se for a mesma data, pego a chavedeacesso e protocoque da messagem,

e colo no bando de dados,

as vezes envio a sefaz nao retorna nada, quando tento enviar de novo da duplicamento.

 

 

                        duplicar:=2;

                        Form_NFe.memoLog.Clear;


                        //Form_NFe.ACBrNFe1.WebServices.Consulta.NFeChave := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe;

                        if msmChaveAcesso<>'' then
                        Form_NFe.ACBrNFe1.WebServices.Consulta.NFeChave := msmChaveAcesso else
                        Form_NFe.ACBrNFe1.WebServices.Consulta.NFeChave := ChaveOriginal;

                                        
                        Form_NFe.MudarParaNFeOuNFCe(0);
                        Form_NFe.ACBrNFe1.WebServices.Consulta.Executar;
                        Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat:=0;



function PegaLinhaDeUmMumu:string;
var
  i : integer;
  Linha: string;
begin

  Result:='';

  for i := 0 to Form_NFe.memoLog.Lines.Count - 1 do
  begin
    Linha:=Form_NFe.memoLog.Lines.Strings;

    if pos('Recebimento',Linha)<>0 then
    begin
      Result:=Copy(Linha,15,10);
      //ShowMessage(Result);
    end;


  end;

end;


                        if PegaLinhaDeUmMumu<>'' then
                        begin
                           try
                           dataduplicar:= StrToDate(PegaLinhaDeUmMumu);


                                //DataProtocolo nao pode ser menor que a data do cupom
                                if  dataduplicar >= StrToDate(cupomData) then
                                begin

                                    //cupom iqual
                                    duplicar:=1;
                                    vresChaveAcesso  :=  Form_NFe.ACBrNFe1.WebServices.Consulta.NFeChave;
                                    vresProtocolo    :=  Form_NFe.ACBrNFe1.WebServices.Consulta.Protocolo;

                                end else
                                duplicar:=3; //1
                                

                           except
                              duplicar:=2; //1
                           end;
                        end else
                        duplicar:=2;   //1
                        //novo se for iqual nao duplicar   0=sim   1=nao
 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Imagem(ns) anexada(s)

[Régys Silveira]

Vamos fazer diferente, me passe o que precisa fazer, deixe eu entender o que precisa para tentar lhe ajudar.

 

Me passe o problema e o que está tentando fazer para resolver, não em linguagem de programação, mas sua ideia, passo-a-passo.

[Hetosoft Sistemas]

Blz, 

em vez em quando a sefaz ta com problema,

ai quando eu envio nao retorna nada erro 999

blz, mudo o xml para modo offline e imprimo o cupom para o cliente,

depois tento enviar de novo so que da erro de duplicamento,

que dizer, a primeira vez que enviei ja gravou na sefaz e a sefaz nao min retornou nada,

 

quando tento enviar de novo da erro de duplicameto,

entao pra saber se é duplicamento de verdade ou é o mesmo nfc-e ,.

pego a messegem que deu , falando que tem duplicamento,

na messagem tem a chave e o protocolo da nfc-e que ta na sefaz,

 

pego a chave faço uma consulta , min retorno a data da nfc-e,

compara com a data do registro que to tentando enviar.

se for o mesmo dia,

pego a chave o protocolo e salvo no registro que to tentando enviar.

 

--------------------------

quando pego a messagem tenho que fazer uns copy

msmChaveAcesso:= SoNumeros( copy(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo, 55, 45 ));
msmProtocolo:=   SoNumeros( copy(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo, 104, 16 ));

 

existe uma opcao para pega esta chave e protocolo, sem precisar fazer isto ?