Retorno Do Cstat

[Felipe Govoni]

Boa noite, estou fazendo o envio da nota da seguinte forma, porem sempre o retorno é zero, alguem sabe o motivo?

 

 

 

try
      ACBrNFe1.Enviar(0,False,true);
Except

end;

 

 

if ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat <> 100 then
begin
        ShowMessage('Erro nº ' + inttostr(ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat) + ' Motivo: ' +               ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo);
        Exit;

end;

[ruycaribe]

Boa noite,

 

Por que está enviando o número do lote igual a zero?

para Pegar o Csat após o envio faça: ACBrNFe1.WebServices.Retorno.cStat

 

 

Uma dica, após o envio sempre consulte a nota.

Editado 1 Abril, 2015 por ruycaribe

[Felipe Govoni]

Bom dia Ruycaribe, não sei por que mando o lote igual a zero, na dúvida comecei sempre a mandar assim e funcionou...

 

Deveria ser um numero diferente a cada envio?

 

Assim que a empresa abrir vou testar o retorno, mas ja agradeço.

[ruycaribe]

Eu sempre envio o número do lote sequencial, seguindo a instrução da NT.

[Felipe Govoni]

Continuo com o erro... atualizei os schemas, o componente e fiz as seguintes alterações:

 

 

dmgeral.ACBrNFe1.NotasFiscais.GerarNFe;
dmgeral.ACBrNFe1.Enviar(1,False,false);

 

mmoDados.Lines.Add('Envio NFe');
mmoDados.Lines.Add('tpAmb: '+ TpAmbToStr(dmgeral.ACBrNFe1.WebServices.Retorno.TpAmb));
mmoDados.Lines.Add('verAplic: '+ dmgeral.ACBrNFe1.WebServices.Retorno.verAplic);
 mmoDados.Lines.Add('cStat: '+ IntToStr(dmgeral.ACBrNFe1.WebServices.Retorno.cStat));
mmoDados.Lines.Add('cUF: '+ IntToStr(dmgeral.ACBrNFe1.WebServices.Retorno.cUF));
mmoDados.Lines.Add('xMotivo: '+ dmgeral.ACBrNFe1.WebServices.Retorno.xMotivo);
mmoDados.Lines.Add('cMsg: '+ IntToStr(dmgeral.ACBrNFe1.WebServices.Retorno.cMsg));
mmoDados.Lines.Add('xMsg: '+ dmgeral.ACBrNFe1.WebServices.Retorno.xMsg);
mmoDados.Lines.Add('Recibo: '+ dmgeral.ACBrNFe1.WebServices.Retorno.Recibo);
mmoDados.Lines.Add('Protocolo: '+ dmgeral.ACBrNFe1.WebServices.Retorno.Protocolo);

[ruycaribe]

  dmgeral.ACBrNFe1.NotasFiscais.GerarNFe;

  dmgeral.ACBrNFe1.NotasFiscais.Assinar;

  dmgeral.ACBrNFe1.Enviar(1,False);

[Felipe Govoni]

Obrigado Ruycaribe, descobri o problema.

 

Faltou alterar a propriedade da versão da nota no componente para "3.10"