Imprimir Carta De Correção

[Fatinha]

Olá.

 

Estou tentando imprimir a CC-e. Tenho o seguinte código:

 

with dmObj.ACBrNFe do

  begin

    DANFE.PathPDF := dsEmpresas.DataSet.FieldByName('PASTA_CARTA_CORRECAO_PDF').AsString;

    NotasFiscais.Clear;

    NotasFiscais.LoadFromFile(IncludeTrailingPathDelimiter(dsEmpresas.DataSet.FieldByName('PATHXML').AsString)

                + dsPrincipal.DataSet.FieldByName('INFNFE_ID').AsString+'-NFe.xml');

    EventoNFe.Evento.Clear;

    EventoNFe.LerXMLFromString(IncludeTrailingPathDelimiter(dsEmpresas.DataSet.FieldByName('PASTA_CARTA_CORRECAO').AsString)

      + dsPrincipal.DataSet.FieldByName('NUMERONF').AsString + ' - '

      + dsCartaCorrecao.DataSet.FieldByName('SEQUENCIA').AsString + '.xml');

    ImprimirEventoPDF;

  end;

 

Está retornando o erro:

Campo cOrgao não informado.

 

O erro acontece na função LerXMLFromStrin na linha

InfEvento.cOrgao := RetEventoNFe.InfEvento.cOrgao; 

 

Alguém sabe como resolver?

[Régys Silveira]

Poste o XML da nota e o XML do evento, assim fica mais simples de lhe ajudar.

[Fatinha]

Poste o XML da nota e o XML do evento, assim fica mais simples de lhe ajudar.

 

 

Desculpe, mas não estou encontrando a opção para incluir anexos... Onde está localizada?

Editado 1 Novembro, 2013 por Fatinha

[Régys Silveira]

Você precisa ir até o editor completo clicando em "mais opções" ao lado de "responder", assim ele vai lhe mostrar a opção de anexar.