Erro Ao Cancelar Cte

[fabiofranzini]

Ola, bom dia a todos, talves seja algo que estou fazendo errado, mas aconteceu depois de ter atualizado ontem todos os componentes do Acbr. 

 

A função "CTeUtil.IdentificaTipoSchema(const AXML: AnsiString; var I: Integer): Integer;"   esta sempre retornando 4 ou seja erro, ao debugar verifiquei que

 

A variavel :

 

AXML esta chegando com valor '</envEvento>'

 

E a comparação é para  ser: 

 

"lTipoEvento := Trim(RetornarConteudoEntre(AXML, '<tpEvento>', '</tpEvento>'));" 

 

 

 

Estou alimentando o componente com o seguinte código:

 

   CTe.EventoCTe.Evento.Clear;

    with CTe.EventoCTe.Evento.Add do

    begin

      infEvento.nSeqEvento      := 1; // Para o Evento de Cancelamento: nSeqEvento sempre = 1

      infEvento.chCTe           := Copy(CTe.Conhecimentos.Items[0].CTe.infCTe.Id, 4, 44);

      infEvento.CNPJ            := edtEmitCNPJ.Text;

      infEvento.dhEvento        := now;

      infEvento.tpEvento        := teCancelamento;

      infEvento.detEvento.xJust := trim(vAux);

    end;

 

 

 

o que sempre retorna "Arquivo de Schema não encontrado" 

 

[fabiofranzini]

A Carta de Correção apresenta o mesmo comportamento

[fabiofranzini]

Mais uma observação, o demo do ACBR retorna o mesmo erro tambem. 

[Italo Giurizzato Junior]

Boa tarde Fabio,

 

Favor atualizar os fontes e testar novamente.

[fabiofranzini]

Boa tarde, Italo.

 

Após atualizar o evento é enviado, mas retorna um erro Desconhecido. Caindo neste trecho :

 

  if not Result then

  begin

    if Assigned(Self.OnGerarLog) then

      Self.OnGerarLog(WebServices.EnvEvento.Msg);

    if WebServices.EnvEvento.Msg <> ''

     then raise EACBrCTeException.Create(WebServices.EnvEvento.Msg)

     else raise EACBrCTeException.Create('Erro Desconhecido ao Enviar Evento de CT-e!')

  end;

 

Parece que a função :    Result := WebServices.EnvEvento.Executar; 

 

esta sempre retornando false, mesmo que debugando não entrou em nenhum exception.

 

 

Depois disso se consultar o CTe ele esta com o evento vinculado. 

Editado 16 Dezembro, 2014 por fabiofranzini

[Italo Giurizzato Junior]

Fabio,

 

O componente ACBrCTe possui a propriedade: Configuracoes.WebServices.Salvar atribua o valor True e faça novos testes.

 

Isso não vai resolver o problema, mas serão gravados arquivos de envio e de retorno com a palavra soap no final do nome.

 

Post como anexo o arquivo de envio e de retorno para que possamos analisar.

[fabiofranzini]

Italo, segue anexo, executei da seguinte forma: 

 

1-CTe enviado ao SEFAZ com retorno OK.

2-Cancelamento por evento - Retornou erro desconhecido. 

3-Consultei o CTe, e o mesmo ja se encontra Cancelado.

 

Não sei bem , mas parece que ao efetuar o evento de cancelamento ele não criou nenhum arquivo SOAP, mesmo assim estou te envianto todos os arquivos criados na pasta resposta. (Limpei ela antes de efetuar este teste).

 

 

351000007077771-ped-rec.zip

Editado 16 Dezembro, 2014 por fabiofranzini

[fabiofranzini]

Ítalo, só para complemento do assunto, vi que você adicionou a função cancelamento, ela também retorna este erro desconhecido, no final o cancelamento é feito, mas da esta exception ao executar.

Editado 16 Dezembro, 2014 por fabiofranzini

[Italo Giurizzato Junior]

Fabio,

 

Fiz uma alteração, por favor atualize os fontes e teste novamente.

[rafikrafael]

Boa tarde Italo, atualizei os fontes da acbr, e no envio do evento do cte, verifiquei que ocorre a validação na function

TCTeEnvEvento.TratarResposta:

FcStat   := FEventoRetorno.cStat;
  FxMotivo := FEventoRetorno.xMotivo;
  FMsg     := FEventoRetorno.xMotivo;
  FTpAmb   := FEventoRetorno.tpAmb;

  Result := (FEventoRetorno.cStat = 128) or
            (FEventoRetorno.cStat = 135) or
            (FEventoRetorno.cStat = 136) or
            (FEventoRetorno.cStat = 155);

mas os campos acima foram comentados

na TRetEventoCTe.LerXml

{

      FidLote   := Leitor.rCampo(tcInt, 'idLote');
      FtpAmb    := StrToTpAmb(ok, Leitor.rCampo(tcStr, 'tpAmb'));
      FverAplic := Leitor.rCampo(tcStr, 'verAplic');
      FcOrgao   := Leitor.rCampo(tcInt, 'cOrgao');
      FcStat    := Leitor.rCampo(tcInt, 'cStat');
      FxMotivo  := Leitor.rCampo(tcStr, 'xMotivo');
}

 

Ocorrendo o erro desconhecido.

Editado 16 Dezembro, 2014 por rafikrafael

[fabiofranzini]

Italo, pelo demo do Acbr - ele retorba no log :

 

Versão Layout : 2.00

Ambiente : 1

Versão Aplicativo : 

Status Código : 0

Status Descrição : 

Recebimento : 

 

E depois "Erro desconhecido"

 

 

Pela minha aplicação, vou fazer o teste daqui a pouco. Não tenho ainda uma versão nova para isto.

[fabiofranzini]

Italo, não sei se ajuda, mas quando existe algum outro problema, como por exemplo a justificativa muito pequena, ou tentar cancelar um cte ja cancelado, ele não retorna mais a mensagem com o erro, aparece uma mensagem em branco.

[fabiofranzini]

Italo, fiz a alteração sugerida pelo rafikrafael e aparentemento ficou certo, pelo menos as mensagens de erro estão vendo e cancelei um CTe sem nenhum , erro.

Sera que é esta a solução ?.

[rafikrafael]

Boa Tarde,

na function TCTeEnvEvento.TratarResposta, foi alterada ao gerar o proc de evento a tag

"eventoCte" para somente "evento", e ao utilizar o LerXMLFromString o qual utiliza a lerxml, ela tenta ler a tag "eventoCte".

Validei no manual e o schema solicita a usar a eventoCte.

 

códigos

 

TCTeEnvEvento.TratarResposta

              wProc.Add('<eventoCte versao="' + GetVersaoCTe(FConfiguracoes.Geral.VersaoDF, linha 2637

 

function TRetEventoCTe.LerXml: boolean;

 if (Leitor.rExtrai(1, 'eventoCTe') <> '') then linha 180.

 

Muito obrigado.
 

[Italo Giurizzato Junior]

Bom dia a todos,

 

Por favor atualizem os fontes e tente novamente.

[fabiofranzini]

Consegui efetuar o cancelamento após a ultima atualização. Obrigado Italo. 

 

Por mim Tópico encerrado, Podemos indicar como resolvido ?

[Italo Giurizzato Junior]

Fabio,

 

Obrigado pelo retorno, vamos aguardar os demais, colegas.

[rafikrafael]

Boa tarde Italo, efetuei os testes aqui e esta ok.

Desculpe a demora pelo retorno.

Muito obrigado.