Carta de Correção , Impressão do texto xCondUso no Fortes

[Fabio Fredianelli]

Boa Noite, alguém poderia ajudar ? estou imprimindo o evento de carta de correção usando o ACBrNFe1.ImprimirEvento; 

o evento é impresso corretamente, mas no campo onde imagino deveria sair o texto 

<xCondUso>A Carta de Correcao e disciplinada pelo paragrafo 1o-A do art. 7o do Convenio S/N, de 15 de dezembro de 1970 e pode ser utilizada para regularizacao de erro ocorrido na emissao de documento fiscal, desde que o erro nao esteja relacionado com: I - as variaveis que determinam o valor do imposto tais como: base de calculo, aliquota, diferenca de preco, quantidade, valor da operacao ou da prestacao; II - a correcao de dados cadastrais que implique mudanca do remetente ou do destinatario; III - a data de emissao ou de saida.</xCondUso>

que sai no xml corretamente gerado pelo ACBR, mas na impressão e no pdf ficam em branco, debugando o unit ACBrNFeDANFeEventoRLRetrato , a propriedade em negrito esta vazia no momento da impressão, o que poderia ser ? tem alguma propriedade ou opção que deveria  setar ?

           rlmCondUso.Lines.Add(StringReplace(InfEvento.detEvento.xCondUso,
                                  ';', #13#10, [rfReplaceAll, rfIgnoreCase]));
            rlmCondUso.Lines.Text := StringReplace(rlmCondUso.Lines.Text,
                                  ': I', ':'#13#10'I', [rfReplaceAll, rfIgnoreCase]);

Agradeço antecipadamente qualquer ajuda.

 

[FabianoCunha]

Fabio,

Também já tive esse problema no passado. se você voltar e carregar o componente novamente com o XML e mandar imprimir a carta, o texto aparece normalmente ? E nesse caso a propriedade que você mencionou ficou como? No passado já tive esse mesmo problema, porém não consegui descobrir uma solução. Para quando gerar o evento, tendo retorno da sefaz, mandar imprimir a carta.

 

[Fabio Fredianelli]

Obrigado Fabiano !

Realmente tentar imprimir logo após protocolar a carta de correção a condição de uso fica em branco, a saída é como você sugeriu

assim fica em branco:

    fednota.ACBrNFe1.EnviarEvento(StrToInt(edId.Text));

    fednota.ACBrNFe1.ImprimirEventoPDF;
    fednota.ACBrNFe1.ImprimirEvento;

assim fica com a condição de uso ok:

    fednota.ACBrNFe1.EventoNFe.Evento.Clear;
    fednota.ACBrNFe1.EventoNFe.LerXML(mrndfile);
    fednota.ACBrNFe1.ImprimirEventoPDF;
    fednota.ACBrNFe1.ImprimirEvento;

Fica registrado caso alguém mais tenha problema, Obrigado.