Erro no envio de cancelamento do CT-e por evento

[podiuminformatica]

Bom dia senhores.

Gostaria de contar com vossa ajuda.

Estou enviando o cancelamento de CT-e por evento e está retornando um erro como se segue nos anexos.

Grato.

Giberto F. Rezende

[José M. S. Junior]

Bom dia, parece estar faltando o método "infEvento.cOrgao"

[podiuminformatica]

49 minutos atrás, José M. S. Junior disse:

Bom dia, parece estar faltando o método "infEvento.cOrgao"

Bom dia.

Então, no exemplo do ACBRCTE-e não consta esse método, embora vi que ele existe.

Qual seria o valor para o preenchimento desse método?

Grato.

Gilberto F. Rezende

 

 

[Italo Giurizzato Junior]

Bom dia Gilberto,

Foi gerado os XMLs de envio e de retorno?

Se sim, favor anexa-los.

Pois a mensagem: "Erro não Catalogado" se refere a SEFAZ.

[podiuminformatica]

Segue anexo.

Grato

[podiuminformatica]

2 horas atrás, podiuminformatica disse:

Segue anexo.

Grato

 

[fabiofranzini]

Se o XML de do CTe foi gerado, não seria mais fácil carregar ele no componente e utilizar a função de cancelamento :

 

    CTe.Conhecimentos.Clear;
    CTe.Conhecimentos.LoadFromFile(OpenDialog1.FileName);
    aNumeroCanc := CTE.Conhecimentos.Items[0].CTe.Ide.nCT;
    if not(InputQuery('Cancelamento do CTe:', 'Justificativa', vAux)) then exit;
    if not CTE.Cancelamento(vAux, 1) then
    begin
      ShowMessage('Cancelamento não, verifique todas as informações indicadas no cancelamento');
      exit;
    end;
 

[Italo Giurizzato Junior]

Boa tarde Gilberto,

Foi gerado os XMLs de envio e de retorno?

Se sim, por favor anexa os XMLs e não o código da sua aplicação.

[podiuminformatica]

Boa tarde.

Anexando os XMLs de envio e retorno.

Grato

 

41171110626914000116570010000004261000004268-cte-envio.xml

41171110626914000116570010000004261000004268-cte-protocolo.xml

41171110626914000116570010000004261000004268-cte-retorno.xml

[Italo Giurizzato Junior]

Gilberto,

Esses XMLs se refere ao envio e retorno do CT-e e não do envio e retorno do evento de cancelamento.

Desculpe, mas não consigo entender essa mania de alguns desenvolvedores tem em querer alterar o nome do XML, sendo que existe uma nomenclatura definida no manual.

 

[podiuminformatica]

Boa tarde...

Então. Quando envio o cancelamento, a execução do programa para nessa linha:

 ACBrCTe.EnviarEvento(iLote);   

e na sequência não são executadas as linhas a seguir:

MemoResp.Lines.Text :=  UTF8Encode(ACBrCTe.WebServices.EnvEvento.RetWS);
memoRespWS.Lines.Text :=  UTF8Encode(ACBrCTe.WebServices.EnvEvento.RetWS);
LoadXML(MemoResp, WBResposta);

Grato.

 

[BigWings]

2 horas atrás, podiuminformatica disse:

 

Veja que no topo da imagem você tem este trecho de código:
 

with ACBrCTe.EventoCTe.Evento.Add do
begin
end;

Ou seja, você está gerando um evento novo mas sem preencher as propriedades.

Abaixo você cria um segundo evento e aí sim faz o preenchimento.

Provavelmente é esse trecho de cima que está gerando a exceção, remova.

[podiuminformatica]

8 minutos atrás, BigWings disse:

Veja que no topo da imagem você tem este trecho de código:
 

with ACBrCTe.EventoCTe.Evento.Add do
begin
end;

Ou seja, você está gerando um evento novo mas sem preencher as propriedades.

Abaixo você cria um segundo evento e aí sim faz o preenchimento.

Provavelmente é esse trecho de cima que está gerando a exceção, remova.

Boa tarde.

Segue anexo código completo da rotina.

Grato.

codigo_completo.txt

Agora, podiuminformatica disse:

Boa tarde.

Segue anexo código completo da rotina.

Grato.

codigo_completo.txt

 

Este Código

with ACBrCTe.EventoCTe.Evento.Add do
begin
end;

Eu já havia removido antes.

[BigWings]

19 minutos atrás, podiuminformatica disse:

Boa tarde.

Segue anexo código completo da rotina.

Grato.

codigo_completo.txt

Nesse caso deve estar faltando a configuração da UF do webservice no componente.

Exemplo do demo:

ACBrCTe1.Configuracoes.WebServices.UF         := cbUF.Text;
ACBrCTe1.Configuracoes.WebServices.Ambiente   := StrToTpAmb(Ok,IntToStr(rgTipoAmb.ItemIndex+1));

E faça o que o Italo pediu, configure o componente para salvar os arquivos de envio e retorno:
 

ACBrCTe1.Configuracoes.Arquivos.Salvar := True;
ACBrCTe1.Configuracoes.Arquivos.PathEvento := edtPathEvento.Text;

E anexe os arquivos *-ped-eve.xml e *-eve.xml gerados.

 

[Italo Giurizzato Junior]

Boa noite,

BigWings, somente uma observação, para salvar os arquivos de envio e retorno a propriedade é outra:

ACBrCTe1.Configuracoes.Geral.Salvar := True;

[podiuminformatica]

Senhores...

Bom dia...

Com relação ao erro que estava dando, dou meu esclarecimentos.

Não sei o que aconteceu mas hoje consegui enviar o cancelamento normalmente com a rotina como está.

Em todo o caso, grato pela atenção.

Gilberto F. Rezende.

[Italo Giurizzato Junior]

Bom dia Gilberto,

Você pode simplificar a sua rotina de cancelamento, veja:

ACBrCTe1.Conhecimentos.LoadFromFile(xNomeXMLCTe, False); // xNomeXMLCTe contem o nome completo do XML do CTe que se deseja cancelar

ACBrCTe1.Cancelamento(xJustificativa, nLote); // xJustificativa contem o motivo do cancelamento (minimo de 15 caracteres) e nLote contem o numero do lote do evento
 

[podiuminformatica]

2 horas atrás, Italo Jurisato Junior disse:

Bom dia Gilberto,

Você pode simplificar a sua rotina de cancelamento, veja:

ACBrCTe1.Conhecimentos.LoadFromFile(xNomeXMLCTe, False); // xNomeXMLCTe contem o nome completo do XML do CTe que se deseja cancelar

ACBrCTe1.Cancelamento(xJustificativa, nLote); // xJustificativa contem o motivo do cancelamento (minimo de 15 caracteres) e nLote contem o numero do lote do evento
 

Grato pela atenção.

Tenha um ótimo dia.

[podiuminformatica]

7 minutos atrás, podiuminformatica disse:

Grato pela atenção.

Tenha um ótimo dia.

Fiz a implementação como você sugeriu  e ficou muito melhor mesmo.

O código ficou mais limpo e mais simplificado.

Grato.