Carta de Correção - Protocolo/Consulta

[raosistemas]

Fiz minha carta de correção e consegui pegar o numero do protocolo da seguinte maneira...

Form1.cce.Edit;

Form1.cceProtocolo.value:=form1.ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt;

Form1.cce.Post;

o problema é... as vezes o registro está em modo de edição e da erro no post...

se isso ocorrer existe algum jeito de realizar a consulta para buscar novamente o numero do protocolo e tentar atualizar???

[stefanotd]

boa tarde

qual o método voce usou para carregar o arquivo de retorno da CCe (-ret-env-cce.xml) dentro do Acbr pra depois ler o conteudo do campo protocolo ?

[juaumkiko]

Basta realizar a consulta da NFe e ler os eventos da NFe.

Veja:

[]´s

[stefanotd]

Deu certo,mas estou fazendo dessa forma e a palavra 'Rejeição' que está na TAG [xMotivo], está sendo modificada para 'Rejeição'.

o que pode ser ? codificação de caracteres ?

RetCartaNfe:= TRetCCeNFe.Create;

RetCartaNfe.Leitor.CarregarArquivo(cCaminho+cNomeArq+'-ret-env-cce.xml');

RetCartaNfe.LerXml;

  if RetCartaNFe.cStat = 128 then             //evento processado

  begin

      for cont:=0 to  RetCartaNfe.retEvento.Count-1 do

      begin

        if RetCartaNfe.retEvento.Items[cont].RetInfEvento.cStat <> 135 then

        begin

          cMotivoRet:= RetCartaNfe.retEvento.Items[cont].RetInfEvento.xMotivo;

          mResp.Lines.Add('Codigo:'+IntToStr(RetCartaNfe.retEvento.Items[cont].RetInfEvento.cStat)+' - '+'Motivo:'+cMotivoRet );

          showmessage('Evento numero ['+intToStr(cont+1)+'] não foi autorizado.');

        end

        else begin

          mResp.Lines.Add( 'Autorizado com Protocolo:'+RetCartaNfe.retEvento.Items[cont].RetInfEvento.nProt );

        end;

  end

obrigado