Webservice Retorno

[Antonio Paulo Mangili]

pessoal bom dia

eu não sei o que esta acontecendo até na sexta estava ok, depois que fiz uma atualização no svn esta acontecendo o seguinte

quando envio a nfe e da a duplicidate não esta gravando o retorno

faço essa clausula para verificar o cstat o que podera esta acontecendo

 

if ACBrNFe1.WebServices.Retorno.cStat = 100 then //Autorizado o uso da NF-e //imprimi

 

else

 da o erro

 

obrigado

a todos

 

[EMBarbosa]

Qual é a mensagem completa do erro?

[Antonio Paulo Mangili]

ola embarbosa.

é assim, vamos ver si consigo explicar.

na minha aplicação eu faço o seguinte:

 

//Função que gera o XML

GerarNFe(vAux);

ACBrNFe1.NotasFiscais.GerarNFe;

 

 //Função que Validar/Assinar/Enviar a NFe a sefaz

 ACBrNFe1.Enviar(vNumLote,True);

 

na volta do retorno eu pegava essas informações e gravava em minha tabela.

acontece que quando dá duplicidade por algum erro de numeração da NFe, não vem mais o retorno, para que eu possa gravar em minha tabela de log.

         

          pgRespostas.ActivePageIndex := 5; //aba dados Resposta

          MemoDados.Clear;

 

          if ACBrNFe1.WebServices.Retorno.cStat = 100 then //Autorizado o uso da NF-e

          begin

               MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);

               memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);

               LoadXML(MemoResp, WBResposta);

 

               MemoDados.Lines.Add('');

               MemoDados.Lines.Add('Resultado do Envio da NFe');

               MemoDados.Lines.Add('');

 

               MemoDados.Lines.Add('Ambiente: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));

               MemoDados.Lines.Add('Status: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));

               MemoDados.Lines.Add('UF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));

               MemoDados.Lines.Add('Motivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);

               MemoDados.Lines.Add('CD Msg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));

               MemoDados.Lines.Add('Msg: '+ ACBrNFe1.WebServices.Retorno.xMsg);

               MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);

               MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo);

               MemoDados.Lines.Add('Chave NFe: ' +ACBrNFe1.WebServices.Retorno.ChaveNFe);

 

               //salvar dados da NFe_xml em banco de dados

               CdsTabLogNFE.Insert;

               CdsTabLogNFeCHAVENFE.AsString     := ACBrNFe1.WebServices.Retorno.ChaveNFe;

               CdsTabLogNFeRECIBO.AsString       := ACBrNFe1.WebServices.Retorno.Recibo;

               CdsTabLogNFeNFE.AsString          := CdsTabEmpNFISCAL.AsString;

               CdsTabLogNFeDATA.AsString         := MskData.Text;

               CdsTabLogNFeVENDA.AsString        := EditPedidoR.Text;

               CdsTabLogNFePROCESSADO.AsString   := ACBrNFe1.WebServices.Retorno.xMotivo;

               CdsTabLogNFeUSUARIO.AsString      := CdsUsuUSUARIO.AsString;

               CdsTabLogNFeXMLARQ.Value          := ACBrNFe1.NotasFiscais.Items[0].XML;

               CdsTabLogNFeCNPJ.AsString         := edtEmitCNPJ.Text;

 

               CdsTabLogNFe.Post;

               CdsTabLogNFe.ApplyUpdates(-1);

 

 

sera que houve alguma alteração no componente acbrnfe??

obrigado

paulinho

[Antonio Paulo Mangili]

por favor

alguem poderia me ajudar. o que eu percebi é que quando tento enviar uma NFe com o mesmo numero onde me retorna duplicidade, mas não me traz os retornos dessas funções:

 

MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);

               memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);

               LoadXML(MemoResp, WBResposta)

meu aplicativo esta todo perdido. alguem sabe si mudou alguma coisa no componente acbrnfe.enviar

 

obrigado

paulinho