Dados adicionais do produto

[Gildenor]

Não encontrei nenhuma regra que desautorizasse, então acrescentei em ACBrDANFCeFortesFrA4 no  evento abaixo, o seguinte código:

procedure TfrmACBrDANFCeFortesFrA4.RLMemo1BeforePrint(Sender: TObject;
  var Text: string; var PrintIt: Boolean);
begin
  Text := self.FACBrNFeDANFCeFortesA4.FpNFe.Det[self.FNumItem].Prod.xProd+ ' '+#13#10+
          AnsiReplaceText(self.FACBrNFeDANFCeFortesA4.FpNFe.Det[self.FNumItem].infAdprod,';',#13#10) ;
end;

Ele acrescenta as informações adicionais, alguém tem alguma observação a fazer?

 

[RicardoVoigt]

Bom dia,

acho que precisa de um IF pra testar se (infAdProd <> ''), pois assim vc vai inserir quebra de linha em todos os itens, mesmo naqueles sem informações adicionais...

(Imagino que essa quebra de linha #13+#10 pode gerar uma linha a mais em branco na impressão...)

Att

Ricardo