Impressão De Cancelamento De Ct-E

[Maurício Sareto]

Gostaria de saber se é possivel implementar a impressão do evento de cancelamento de CT-e? Já tentei de todas as formas que eu conheço mas não obtive exito. Quando enviou o comando para a impressão ele parece que carrega mas não abre o preview se o ct-e estiver cancelado, diferente de quando esta autorizado, ele mostra o preview e imprime sem problemas...

 

Obrigado

[Italo Giurizzato Junior]

Boa noite Maurício,

 

Você esta se referindo ao Cancelamento por evento da versão 2.00 do CT-e ?

 

Se sim, lembre-se que agora são dois XML:

 

1. XML do CT-e com o protocolo de autorização

2. XML de Cancelamento por evento.

 

O programa exemplo, possui botões que exemplificam a carga desses dois arquivos para poder imprimir o Evento de cancelamento.

[Maurício Sareto]

Obrigado pela sua resposta Italo.

 

Isso exato versão 2.00...

 

Porém quando eu tento fazer conforme o exemplo (já tinha observado isso) da um erro dizendo que Property continuous does not exist...

[Italo Giurizzato Junior]

Boa tarde Mauricio,

 

Já seguiu o passo a passo que encontra-se na pasta onde esta os fontes?

 

O nome do arquivo TXT se refere ao erro: Property_Does Not Exist.txt

[Maurício Sareto]

Primeiro passo:

========================================================================

Utilizando o Delphi abra o fonte: ACBrCTeDACTeQR que encontra-se na pasta ...\Fontes\ACBrCTe

Se aparecer uma tela informando que a propriedade não existe, clique em ignorar todas.

Mantendo o ACBrCTeDACTeQR aberto, abra o fonte: ACBrCTeDACTeQRRetrato que encontra-se na mesma pasta.

Clique em ignorar todas se aparecer a tela informado que a propriedade não existe.

========================================================================

Segundo Passo:

========================================================================

Selecione o objeto QRCTe que encontra-se no form: frmDACTeQR.

 

Altere o valor das propriedades Left e Top para um valor entre 0 e 10, desde que seja diferente do atual.

 

Exemplo: Se os valores atuais é 2 (dois) tanto par Left quanto para Top altere para 3 (tres).

Inclua uma linha em branco no código onde não vai interferir em nada, por exemplo entre interface e uses.

 

Não me pede para ignorar nada, fiz os outros passos mas o erro continua...

 

Estranho que a impressão do DACTE ocorre sem problemas, porém, a impressão do evento nem no exemplo não funciona...

[Italo Giurizzato Junior]

Boa noite Mauricio,

 

Basta você realizar o mesmo passo a passo só que com os fontes do DAEvento.

 

Favor atualizar os fontes.

 

Agora o TXT contem o passo a passo para o DACTE e para o DAEvento.

[Maurício Sareto]

A impressão do cancelamento deu certo, mas depois que atualizei os fontes começou a dar o problema na hora de imprimir o DACTE...

 

Mensagem é a seguinte: Error Creating Form: Ancestor For 'TFrmDacteQR' not Found.

 

Isso no exemplo...

 

Já aconteceu com alguém?

 

Obrigado

Editado 22 Fevereiro, 2014 por Maurício Sareto

[Italo Giurizzato Junior]

Boa tarde Mauricio,

 

Esse erro ocorre porque ocorreu um erro ao executar a unit ACBrCTeDACTeQRReport, só que essa unit só pode ser aberta se abrir antes a ACBrCTeDACTeQR dai o erro de: Ancestor For 'TFrmDacteQR' not Found.

 

O que deve ter ocorrido é que você não configurou o logo marcar na aba Geral.

[Maurício Sareto]

Isso esta dando no Exemplo...

 

É assim mesmo?

[Maurício Sareto]

Logo após o problema relatado @italojjr da erro na seguinte procedure da unit ACBrCTeDACTeQRRetrato, mas precisamente nas linhas em negrito;

 

procedure TfrmDACTeQRRetrato.qrb_01_ReciboBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  inherited;
  PrintBand := (QRCTe.PageNumber = 1) and (FCTe.Ide.modal <> mdAereo) and (FPosRecibo = prCabecalho);
  //Rodrigo DSP 22/01/2014 11:22:47: impressao do canhoto - Cabecalho.
  if (FResumoCanhoto) then
    qrlResumoCanhotoCTe.Caption := getTextoResumoCanhoto
  else
    qrlResumoCanhotoCTe.Caption := '';

  qrlSerie2.Caption  := IntToStr(FCTe.Ide.serie); // FormatFloat( '000', FCTe.Ide.serie);
  qrlNumCte2.Caption := FormatFloat( '000,000,000', FCTe.Ide.nCT );
  // TpcteTipoCTe = (tcNormal, tcComplemento, tcAnulacao, tcSubstituto);
  qrb_01_Recibo.Enabled := (FCTe.Ide.tpCTe = tcNormal) or (FCTe.Ide.tpCTe = tcComplemento);
end;

 

 

Obrigado
 

[Italo Giurizzato Junior]

Boa tarde Maurício,

 

Post como anexo o XML do CT-e e do evento do cancelamento.

[Maurício Sareto]

OK...

 

Estão em anexo...

 

Obrigado

43140201889768000120570010000001401000001400-cte.xml

431402018897680001205700100000014010000014001101111-procEventoCTe.xml

[Maurício Sareto]

Alguma novidade?

[Italo Giurizzato Junior]

Boa noite Mauricio,

 

Utilizei o programa exemplo e utilizei os seus arquivos XML e nenhum erro surgiu.

 

Você esta com todos os fontes de todas as pastas atualizados?

[Maurício Sareto]

Atualizei tudo, agora fica dando acess violation depois que busca o xml no exemplo...

[Italo Giurizzato Junior]

Boa tarde Mauricio,

 

Você configurou o programa exemplo, no que diz respeito a logo marca?

[Maurício Sareto]

Sim configurei agora e testei, da a mensagem que a propriedade XLColunn não existe...

 

Fiz aquelas configurações que esta no arquivo .txt agora da aquele erro de Ancestor...

Editado 5 Março, 2014 por Maurício Sareto

[Italo Giurizzato Junior]

Bom dia Maurício,

 

Você esta usando a impressão de eventos em Quick Report, correto?

 

Algum item do passo a passo você não executou, ou os seus fontes não estão atualizados, pois nos meus testes esta tudo OK.

[Maurício Sareto]

Bom dia Maurício,

 

Você esta usando a impressão de eventos em Quick Report, correto?

 

Algum item do passo a passo você não executou, ou os seus fontes não estão atualizados, pois nos meus testes esta tudo OK.

 

Ok, vou tentar novamente... Obrigado