Obter retorno da carta de correçao eletronica

[tbalbinos]

Ola pessoal Boa tarde, como faço para obter o retorno da carta de correção apos o comando:

ACBrNFe.EnviarCartaCorrecao(CodigoLote);

Andei dado uma olhada mas não consegui obter o retorno, se foi OK ou não, alguém sabe como fazer ?

desde já gradeço.

[tbalbinos]

Galera desculpa ae, acho que encontrei.

ACBrNFe.webServices.CartaCorrecao.cStat

onde cStat = 100 - Autorizado

Confirma ?

[walter faria]

Boa noite , as vezes quando tento enviar o CC-e da o seguinte erro :

Rejeição: A data do evento não pode ser maior que a data do processamento

em anexo o XML , se alguem souber oque pode ser eu agradeço.

35120300644000000124550010000049651000049651-ProcEventoNFe.xml

[centuryinf]

Ola,

Isso tem a ver com o horario de verão, verifique se o pc ainda

esta no horario de verão.

Outro detalhe, voce esta informando valor de impostos na carta de

correção, o que me parece que não é permitido, de uma olhado no manual

da carta de correção.

Até ..

[walter faria]

Entao , estranho eu envio um CC-e, e em seguido envio novamente da este erro , dai eu fecho sistema abro novamente e tento mandar novamente e envia sem problema ...

Obrigado.

[walter faria]

Boa noite , ainda estou com o mesmo problema... ja verifiquei o horario de verao e nada , alguem mais pode me ajudar .

Obrigado

[FocusRJ]

Boa tarde Walter,

não sei se vc já conseguiu, mas aqui mesmo no fórum vi esta dica, ainda não testei, mas segue a mesma:

altere a linha - decrescendo de 5 minutos a hora atual -

infEvento.dhEvento := IncMinute(now,-5);

Aproveitando a deixa, algum amigo sabe me informar como obter pelo ACBR o nº do protocolo da CCe?

Att.

[JeannyPaiva]

Galera desculpa ae, acho que encontrei.

ACBrNFe.webServices.CartaCorrecao.cStat

onde cStat = 100 - Autorizado

Confirma ?

Esse seria o retorno do lote.

Para o retorno do evento (CCe):

AcbrNFe.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items.RetInfEvento.cStat

cStat = 135 que eh autorizado

[FocusRJ]

Encontrei, a forma de obter o nº do Protocolo, aproveitando a informação prestada pelo amigo Nellien, testei e encontrei:

AcbrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items.RetInfEvento.nProt

[diego.dariolli]

Foi feito o tratamento do retorno da cc-e?

Por que por exemplo aqui comigo enviei uma carta e o motivo no XML era "CNPJ do autor da mensagem difere do CNPJ do certificado" e deu que foi enviado com sucesso e não me retornou esse erro.

Alguém poderia confirmar para mim. Obrigado.

[Thiago_Kverna]

Olá,

Estou tendo um problema.

O sistema estava trasmitindo as CCes normalmente e recebendo o retorno sem problemas,

mas agora o protocolo no retorno da carta de correção está vindo vazio.

Se eu consultar a carta de correção no site da fazenda eu encontro ela normal.

O código que estou usando para pegar o número de protocolo é

protocolo := AcbrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt;

Mudou alguma coisa?

[peterson161]

Leia este tópico:

viewtopic.php?f=6&t=6356

[Thiago_Kverna]

Leia este tópico:

viewtopic.php?f=6&t=6356

Tentei com o código desse tópico e mesmo assim o erro persiste.

Envia a mensagem normalmente mas não vem o número do protocolo no retorno.

Mais alguma idéia?

[peterson161]

Por favor, poste um trecho de seu código para vermos como você está enviando e recuperando o retorno.

[Thiago_Kverna]

O código que estou utilizando para o envio e recebimento é o seguinte:

ACBrNFe1.Evento.Eventos.Evento.Clear;

ACBrNFe1.Evento.Eventos.idLote := 1 ; //Não faz diferença pro webservice

with ACBrNFe1.Evento.Eventos.Evento.Add do

begin

  strId := 'ID'+Trim(Querys.Query.FieldByName('CODEVENTO').AsString)+Trim(Querys.Query.FieldByName('CHAVE_NFE').AsString)+StrZero(Querys.Query.FieldByName('SEQUENCIAL').AsInteger,2);

  seq := Querys.Query.FieldByName('SEQUENCIAL').AsInteger;

  infEvento.chNFe := Querys.Query.FieldByName('CHAVE_NFE').AsString;

  infEvento.CNPJ   := Querys.Query.FieldByName('CNPJ').AsString;

  infEvento.dhEvento := now;

  infEvento.tpEvento := teCCe;

  infEvento.nSeqEvento := Querys.Query.FieldByName('SEQUENCIAL').AsInteger;

  infEvento.detEvento.xCorrecao := Troca_String(Querys.Query.FieldByName('CORRECAO').AsString,[#13#10],[' ']); //Texto da correção

end;

Querys.Query.Active := False;

if ACBrNFe1.EnviarEvento(1)

then begin

  if Pos('REJEICAO:',AnsiUpperCase(String(AcbrNFe1.WebServices.Eventos.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo))) <> 0

  then begin

    Querys.Query.Active := False;

    Querys.Query.RequestLive := false;

    Querys.Query.SQL.Clear;

    Querys.Query.SQL.Add('UPDATE CARTAS_CORRECAO SET ID = :ID, DATA = :DATA, HORA = :HORA, MOTIVO_REJEITADA = :MOTIVO_REJEITADA, STATUS = ''R''');

    Querys.Query.SQL.Add('WHERE EMPRESA = :EMPRESA AND NUMERO = :NUMERO AND SERIE = :SERIE AND SEQUENCIAL = :SEQUENCIAL');

    with AcbrNFe1.WebServices.Eventos.EventoRetorno.retEvento.Items[0]

    do begin

      Querys.Query.ParamByName('ID').AsString := strId;

      Querys.Query.ParamByName('DATA').AsDate := StrToDate(FormatDateTime('dd/mm/yyyy', RetInfEvento.dhRegEvento));

      Querys.Query.ParamByName('HORA').AsTime := StrToTime(FormatDateTime('hh:nn:ss', RetInfEvento.dhRegEvento));

      Querys.Query.ParamByName('MOTIVO_REJEITADA').AsString := RetInfEvento.xMotivo;

      strMotivo := RetInfEvento.xMotivo;

      nomeArquivo := caminho_xml+'\CCe-'+RetInfEvento.chNFe+'-Rejeitada-'+FormatDateTime('dd_mm_yyyy__hh_nn_ss', RetInfEvento.dhRegEvento)+'.xml'

    end;

    Querys.Query.ParamByName('EMPRESA').AsString := vEmpresa;

    Querys.Query.ParamByName('NUMERO').AsString := vNumero;

    Querys.Query.ParamByName('SERIE').AsString := vSerie;

    Querys.Query.ParamByName('SEQUENCIAL').AsInteger := seq;

    Querys.Query.ExecSQL;


    ShowMessage('CCe Rejeitada.'+#13#10+strMotivo);


    Result := False;

  end else begin

    Querys.Query.Active := False;

    Querys.Query.RequestLive := false;

    Querys.Query.SQL.Clear;

    Querys.Query.SQL.Add('UPDATE CARTAS_CORRECAO SET ID = :ID, DATA = :DATA, HORA = :HORA, PROTOCOLO = :PROTOCOLO, STATUS = ''T''');

    Querys.Query.SQL.Add('WHERE EMPRESA = :EMPRESA AND NUMERO = :NUMERO AND SERIE = :SERIE AND SEQUENCIAL = :SEQUENCIAL');

    with AcbrNFe1.WebServices.Eventos.EventoRetorno.retEvento.Items[0]

    do begin

      Querys.Query.ParamByName('ID').AsString := strId;

      Querys.Query.ParamByName('DATA').AsDate := StrToDate(FormatDateTime('dd/mm/yyyy', RetInfEvento.dhRegEvento));

      Querys.Query.ParamByName('HORA').AsTime := StrToTime(FormatDateTime('hh:nn:sss', RetInfEvento.dhRegEvento));

      Querys.Query.ParamByName('PROTOCOLO').AsString := RetInfEvento.nProt;


      nomeArquivo := caminho_xml+'\CCe-'+RetInfEvento.chNFe+'-'+RetInfEvento.nProt+'.xml'

    end;

    Querys.Query.ParamByName('EMPRESA').AsString := vEmpresa;

    Querys.Query.ParamByName('NUMERO').AsString := vNumero;

    Querys.Query.ParamByName('SERIE').AsString := vSerie;

    Querys.Query.ParamByName('SEQUENCIAL').AsInteger := seq;

    Querys.Query.ExecSQL;


    Querys.Query.Active := False;

    Querys.Query.RequestLive := false;

    Querys.Query.SQL.Clear;

    Querys.Query.SQL.Add('UPDATE CARTAS_CORRECAO SET STATUS = ''S''');

    Querys.Query.SQL.Add('WHERE EMPRESA = :EMPRESA AND NUMERO = :NUMERO AND SERIE = :SERIE AND SEQUENCIAL <> :SEQUENCIAL AND STATUS = ''T''');

    Querys.Query.ParamByName('EMPRESA').AsString := vEmpresa;

    Querys.Query.ParamByName('NUMERO').AsString := vNumero;

    Querys.Query.ParamByName('SERIE').AsString := vSerie;

    Querys.Query.ParamByName('SEQUENCIAL').AsInteger := seq;

    Querys.Query.ExecSQL;

    Result := True;

  end;

end;

[juaumkiko]

Faça a consulta da NFe que ela retorna os eventos associados.

[Thiago_Kverna]

Faça a consulta da NFe que ela retorna os eventos associados.

Mesmo na consulta não está retornando o número do protocolo. Traz todos os dados menos o bendito protocolo.

[juaumkiko]

Não sei oq pode ser... aqui o protocolo retorna normalmente.