Erro Imprimir Cce

[Guilherme Guedes]

Boa noite!

 

Estou utilizando o procedimento ImprimirEvento para imprimir a carta de correção.

Anexei o xml e também o proceventonfe, mas retorna uma mensagem de erro "Imprimir".

 

Percebi que tem alguns campos que possuem nos procedimentos, mas nos arquivos xmls eles não existem, não sei se pode ser isso que está aparecendo a mensagem de erro. Segue abaixo:

 

1) na função: TRetEventoNFe.LerXml: boolean;

no arquivo xml não existe o detevento no infevento do nprot, xjust:

 

infEvento.DetEvento.nProt     := Leitor.rCampo(tcStr, 'nProt');
infEvento.DetEvento.xJust     := Leitor.rCampo(tcStr, 'xJust');

2)  No xml o retinf não tem o cnpjdest e por este motivo está voltando vazio. A nota fiscal foi feita para destinatário com CNPJ:

 

(*HR22 *)FretEvento.Items.FRetInfEvento.CNPJDest   := Leitor.rCampo(tcStr, 'CNPJDest');

 

3)na função:TEventoNFe.LerXMLFromString(const AXML: String): boolean;
não atriu nenhum valor para os campos abaixo, pois os mesmos não tem no xml:

 

infEvento.DetEvento.nProt     := RetEventoNFe.InfEvento.DetEvento.nProt;
infEvento.DetEvento.xJust     := RetEventoNFe.InfEvento.DetEvento.xJust;
FRetInfEvento.CNPJDest := RetEventoNFe.retEvento.Items[0].RetInfEvento.CNPJDest;
FRetInfEvento.emailDest := RetEventoNFe.retEvento.Items[0].RetInfEvento.emailDest;

 

 

Agradeço a ajuda.