Cancelamento Por Evento E Cstat 136

[Cantu]

Com a obrigatoriedade do cancelamento de NFe por evento se aproximando, estou em duvida em relação ao retorno (cstat) do pedido de cancelamento:

 

Se retornar 135, tudo certo.

 

Mas se retornar 136 (Evento registrado, mas não vinculado a NF-e), devo entender que a NFe foi cancelada ou não?

[Tagales]

fiquei com esse duvida ao ler a nota tecnica

[FlorySoftT]

estou com a mesma duvida, quando o retorno do cStat for 136, a nota foi cancelada ou não foi cancelada no SEFAZ?
o que devo fazer nessa situação ?

[Kiko Fernandes]

Tem alguma coisa neste link, talvez ajude.

[wagner aragao]

Olá,

To com o problema de NÃO aceitar o cancelamento diz que data/hora do evento posterior, só que uso o monitor e não tem como informar a data/hora do evento o que fazer ???

[igor]

ele pega a hora do pc local.

 

tenta diminuir a hora local

[Kiko Fernandes]

Que versão vc está utilizando?  Teste com a versão 0.7.6.0 que está em dowloads. Me parece que isto já está resolvido.

[wagner aragao]

Olá,

 

Resolvido como ??? To usando a versao do monitor 0.7.7.1. Outra não consigo imprimir o evento de cancelamento nem abrindo a aba de testes e imprimindo o XML , aparece uma pagina em branco.

t+

[igor]

para imprimir evento tem que usar o Rave CodeBase

[ornei]

Pessoal atualizei o ACBr hoje, ao compilar o pacote da NFe ocorreu um erro e percebi que teve uma mudança no metodo GetPathEvento, ate antes de atualizar eu utilizava assim: sPathCanc := NFEletronica.Configuracoes.Arquivos.GetPathEvento e agora precisa informar qual o tipo de evento, e agora esta desta maneira sPathCanc := NFEletronica.Configuracoes.Arquivos.GetPathEvento(teCancelamento) não vejo problema, mas a questão e a seguinte, se precisar reimprimir o cancelamento novamente não consigo mas porque agora ele so cria o caminho do arquivo para ler so da data corrente e não da data da NFe por isso so vou conseguir imprimir no dia que foi feito o cancelamento caso contrario não imprime mais, coloquei mas um parametro para informar a data da NFe para poder ser impressa novamento.

 

original

unction TArquivosConf.GetPathEvento(tipoEvento : TpcnTpEvento): String;
var
  wDia, wMes, wAno : Word;
  Dir : String;
begin
  if DFeUtil.EstaVazio(FPathEvento) then
     Dir := TConfiguracoes( Self.Owner ).Geral.PathSalvar
  else
     Dir := FPathEvento;

  if FMensal then
   begin
     DecodeDate(Now, wAno, wMes, wDia);
     if Pos(IntToStr(wAno)+IntToStrZero(wMes,2),Dir) <= 0 then
        Dir := PathWithDelim(Dir)+IntToStr(wAno)+IntToStrZero(wMes,2);
   end;

  if FLiteral then
   begin
     if copy(Dir,length(Dir)-2,3) <> 'Evento' then
        Dir := PathWithDelim(Dir)+'Evento';
   end;

  case tipoEvento of
    teCCe                      : Dir := PathWithDelim(Dir)+'CCe';
    teCancelamento             : Dir := PathWithDelim(Dir)+'Cancelamento';
    teManifDestConfirmacao     : Dir := PathWithDelim(Dir)+'Confirmacao';
    teManifDestCiencia         : Dir := PathWithDelim(Dir)+'Ciencia';
    teManifDestDesconhecimento : Dir := PathWithDelim(Dir)+'Desconhecimento';
    teManifDestOperNaoRealizada: Dir := PathWithDelim(Dir)+'NaoRealizada';
  end;

  if not DirectoryExists(Dir) then
     ForceDirectories(Dir);

  Result  := Dir;
end;

.

 

modificado

function TArquivosConf.GetPathEvento(tipoEvento: TpcnTpEvento;
  Data: TDateTime): String;
var
  wDia, wMes, wAno : Word;
  Dir : String;
begin
  if DFeUtil.EstaVazio(FPathEvento) then
     Dir := TConfiguracoes( Self.Owner ).Geral.PathSalvar
  else
     Dir := FPathEvento;

  if FMensal then
   begin
     DecodeDate(Data, wAno, wMes, wDia);
     if Pos(IntToStr(wAno)+IntToStrZero(wMes,2),Dir) <= 0 then
        Dir := PathWithDelim(Dir)+IntToStr(wAno)+IntToStrZero(wMes,2);
   end;

  if FLiteral then
   begin
     if copy(Dir,length(Dir)-2,3) <> 'Evento' then
        Dir := PathWithDelim(Dir)+'Evento';
   end;

  case tipoEvento of
    teCCe                      : Dir := PathWithDelim(Dir)+'CCe';
    teCancelamento             : Dir := PathWithDelim(Dir)+'Cancelamento';
    teManifDestConfirmacao     : Dir := PathWithDelim(Dir)+'Confirmacao';
    teManifDestCiencia         : Dir := PathWithDelim(Dir)+'Ciencia';
    teManifDestDesconhecimento : Dir := PathWithDelim(Dir)+'Desconhecimento';
    teManifDestOperNaoRealizada: Dir := PathWithDelim(Dir)+'NaoRealizada';
  end;

  if not DirectoryExists(Dir) then
     ForceDirectories(Dir);

  Result  := Dir;
end;

Editado 25 Março, 2013 por ornei

[wagner aragao]

Ola,

Pessoal Não to conseguindo imprimir de jeito nenhum o cancelamento de uma NFe, o comando que mando para o monitor é :

NFE.ImprimirEvento("C:\MONITOR\XMLNFE\111303044288970001005500100000034912360911241101111-ProcEventoNFe.xml")

 

retorno :

ERRO: Imprimir

 

Já tentei mandar com o XML da NFe, sem e nenhum jeito imprime, alguem sabe porque ???

111303044288970001005500100000034912360911241101111-procEventoNFe.xml

111303044288970001005500100000034912360911241101111-procEventoNFe.xml

[Kiko Fernandes]

Wagner, o modelo de impressão do DANFE está no RAVECB?

[wagner aragao]

Olá

Sim Kiko, está no raveCB. To usando o Monitor 0.7.7.1 openssl

t+

[Kiko Fernandes]

Wagner eu testei na versão 0.7.6.0 (a última disponível para o fórum aberto).

Testei no modelo de DANFE RAVE e no modelo RAVECB

No modelo RAVE retornou esta informação:

 

 

 

NFE.ImprimirEvento("D:\EXEMPLOS_nfe_XML\111303044288970001005500100000034912360911241101111-ProcEventoNFe.xml")
ERRO: Imprimir
 

No modelo RAVECB  retornou:

 

 

NFE.ImprimirEvento("D:\EXEMPLOS_nfe_XML\111303044288970001005500100000034912360911241101111-ProcEventoNFe.xml")
OK: Evento Impresso com sucesso

 

 

Em anexo:

1 - Tela de configuração para o modelo RAVECB

2 - Impressão usando o teu XML.

 

 

 

 

 

impressãodocancelamento_ravecb.pdf

impressãodocancelamento_ravecb.pdf

[wagner aragao]

Olá,

Kiko funcionou, o problema é que eu tinha quase que 100% de certeza que já estava em RaveCB e não estava, realmente imprimiu na hora, desculpa pelo incomodo.

Valeu mais uma vez...

t+

[Kiko Fernandes]

Se vc desejar continuar usando o modelo RAVE mude a configuração no ACBrNFeMonitor.ini para RAVECB no momento da impressão do evento e utilize o comando NFe.LerIni() após a impressão volte ao modelo RAVE e novamente utilize o comando NFe.LerIni().

 

Leia este tópico para mais informações:

[ornei]

boa tarde,

 

com relação ao nova maneira de pegar o path do cancelamento, mencionada no post #10, onde Sobrescrevei o metodo GetPathEvento para passar um segundo parametro, que e a data da NFe, pois se nao informar ele pega da data corrente, feito isto deu certo a impressao. Um outro probrle e que quando faço o cancelamento  os arquivos XML e salvo na pasta C:\ARQUIVOS_NFE\EVENTOS\201303 e quando vou imprimir o evento onde tenho que informar o tipo do evento para GetPathEvento(teCancelamento), retornado o seguinte path C:\ARQUIVOS_NFE\EVENTOS\201303\Cancelamento, por isso ocorre o erro que o arquivo não existe, todos os cancelamentos que faço tenho que ir  pasta ..\201303 e copiar para a subpasta ..\Cancelamento para poder imprimir o evento.

 

 

estou fazendo desta maneira para imprimir 

procedure TfrmNfe.ImprimirCancelamentoNFeClick(Sender: TObject);
var
  sPathNFe,
  sPathCanc,
  sNomeCanc: string;
  sXML,
  sXMLCanc:TStrings;
begin
  try
    sXML :=  TStringList.Create;
    sXMLCanc :=  TStringList.Create;
    if cdsNFEPROTOCOLO_CANC.AsString <> EmptyStr then
    begin
      with dmNFE_TR do
      begin
        { Definir os Path dos XML }
        sNomeCanc := Trim(cdsNFECHAVE_NFE.AsString)+'1101111'+'-ProcEventoNFe.xml';
        sPathNFe  := NFEletronica.Configuracoes.Arquivos.GetPathNFe(cdsNFEDATAENT.AsDateTime) + PathDelim + Trim(cdsNFECHAVE_NFE.AsString) + '-nfe.XML';
        sPathCanc := NFEletronica.Configuracoes.Arquivos.GetPathEvento(teCancelamento,cdsNFEDATAENT.AsDateTime);
        { Carrega o XML da NFe }
        NFEletronica.NotasFiscais.Clear;
        NFEletronica.NotasFiscais.LoadFromFile(sPathNFe);
        { Imprime o Evento todo completo }
        NFEletronica.EventoNFe.Evento.Clear;
        NFEletronica.EventoNFe.LerXML(sPathCanc + PathDelim + sNomeCanc);
        NFEletronica.ImprimirEvento;
      end;
    end
    else
      ExibirMsg('Operação não permitida. Nf-e não foi Cancelada.','Atenção');
  finally
    FreeAndNil(sXML);
    FreeAndNil(sXMLCanc);
  end;
end;

[ornei]

Boa tarde

 

Atualizei o ACBr hoje versão 5186 e uma das situações ja esta resolvido, e so passar a propriedade SalvarCCeCanEvento para True, para que ao enviar o cancelamento e a CCe seja salvo na pasta correta. Com relação ao enviar por e-mail e imprimir o cancelamento e a CCe que não seja do mes corrente não consegue,isto ocorre porque no metodo GetPathCCe e GetPathEvento faz um DecodeDate da data atual (now) e não a data da CCe ou do Cancelamento, para resolver sobrescrevi os metodos para que possa informar a data do respectivo evento, isto para ficar mais pratico para o cliente, basta clicar no registro do cancelamento ou CCe para enviar por email e imprimi-lo sem a necessidade de selecionar nenhum arquivo XML, ou tem outra maneira de reemprimir uma CCe ou Cancelamento de um mes que não seja o corrente.