sugestão para correção:
Quando da impressão da Tag DetRastros esta gastando varias linhas
para impressão:
Data Fabricação e Data de validade
C.Agregação mesmo sem informação.
unit : ACBrNFeDANFEClass
linha : 506
de:
if (dr_dFab in FDetRastros) then
Result := Result + 'FAB: ' + FormatDateBr(rastro.Items.dFab) + sQuebraLinha;
if (dr_cAgreg in FDetRastros) then
Result := Result + ACBrStr('C.AGREGAÇÃO: ') + rastro.Items.cAgreg + sQuebraLinha;
para:
if (dr_dFab in FDetRastros) then
Begin
if not (dr_dVal in FDetRastros) then
Result := Result + 'FAB: ' + FormatDateBr(rastro.Items.dFab)+ sQuebraLinha
else
Result := Result + 'FAB: ' + FormatDateBr(rastro.Items.dFab)+ ' ';
end;
ACBrNFeDANFEClass.pas