Testes CC-e - problemas e solucoes encontradas

[Wilson Alves]

Boa tarde, hoje estou implementando a CC-e no meu sistema e efetuando testes, encontrei alguns problemas, como não encontrei soluções no forum, estou postando as modificações que efetuei para corrigi-las e se adequarem ao que eu preciso, segue:

--O xml de retorno, mesmo com erro, o componente, devolvia a mensagem "Lote de Evento Processado";

Como solucionei:

A Função abaixo

function TNFeCartaCorrecao.Executar: Boolean;

linha 2945 +/- como estava

    FcStat   := CCeRetorno.cStat;

    FxMotivo := CCeRetorno.xMotivo;

    FMsg     := CCeRetorno.xMotivo; 

    FTpAmb   := CCeRetorno.tpAmb;

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

Como solucionei:

    FcStat   := CCeRetorno.cStat;

    FxMotivo := CCeRetorno.xMotivo;


   /// Alterado linha abaixo para retornar a mensagem da informação do Evento e não o xMotivo pois o mesmo já

   /// se encontra na classe acima "FxMotivo"

   FMsg     := CCeRetorno.retEvento.Items[0].RetInfEvento.xMotivo;


    FTpAmb   := CCeRetorno.tpAmb;


    /// Alterado a linha Abaixo para Result=True apenas se o lote foi processado e o evento retornou sucesso e não rejeição.

    Result   := (CCeRetorno.cStat = 128) and ((CCeRetorno.retEvento.Items[0].RetInfEvento.cStat = 135) or (CCeRetorno.retEvento.Items[0].RetInfEvento.cStat = 136));

--Quando o envio era normal processo "EnviarCartaCorrecao()" estava sempre retornando Falso e a mensagem de "Lote de Evento Processado"; Como solucionei: A função abaixo não estava retornando valor

function TACBrNFe.EnviarCartaCorrecao(idLote: Integer): Boolean;

linha 317 +/- Como estava

  if not WebServices.CartaCorrecao.Executar then

Solução

  Result:=WebServices.CartaCorrecao.Executar;

  if not Result then

--Com essas mudanças o componente começou a retornar a mensagem de rejeito ou sucesso no envio corretamente e o resultado do componente tambem.

[]s

Wilson

[marcus_vinicus2004]

Wilson, muito boa suas observações e correções no CC-e, tambem estou fazendo testes com este componente,

no entanto me deparei com um outro problema e talves possamos resolver juntos, que e o seguinte quando incluo mais de um evento para correção o xml gerado para o envio do xml esta registrando apenas 1 evento sendo que pela norma tecnica posso ter no maximo 20, voce ja passou por caso semelhante?

Desde ja agradeço.

[HudsonDesenvolvedor]

Muito boa observação Wilson.

Passei pelo mesmo problema durante a implementação da CC-e na empresa onde trabalho.

Muito obrigado.

[HudsonDesenvolvedor]

A CC-e possui algum módulo de impressão?

Grato

[Wilson Alves]

bom dia, não há modulo de impressão e nem preve impressão no material sobre cc-e, o que fiz para manter algo impresso é usar o antigo modelo de carta de correção em papel, e efetuando alguns ajustes como codigo de barras da chave de acesso do danfe, numero do lote e evento e pretendo colocar o numero do protocolo de retorno do arquivo enviado ao sefaz.

[]s

Wilson

[Danny]

Boa Wilson,

Também fiz testes e encontrei um problema. Registrei em outro tópico acerca de um mês, porém ainda não foi alterado.

De qualquer forma gostaria de deixar registrado aqui o problema que resolvi alterando o pcnRetCCeNFe.pas trocando a linha:

(*HR25 *)FretEvento.Items.FRetInfEvento.FdhRegEvento := Leitor.rCampo(tcStr, 'dhRegEvento');

para

(*HR25 *)FretEvento.Items.FRetInfEvento.FdhRegEvento := Leitor.rCampo(tcDatHor, 'dhRegEvento');

Abraços.

Danny

[Michel Abrão]

Senhores,

Alguma novidade sobre o que deve ser impresso na Carta de Correção Eletrônica (CC-e)?

Há alguma previsão no projeto ACBR nesse sentido?

Obrigado,

Michel.

[Italo Giurizzato Junior]

Boa noite a todos,

As sugestões do Wilson e Danny já estão implementadas e disponiveis para baixar via SVN.

[Wilson Alves]

Obrigado Italo, agradecido.

[]s

Wilson