Nfe tag DetRastros impressão em menos linhas: Dt Fab Dt Validade e C.Agregação sem informação

[EdmarFrazao]

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

[Juliana Tamizou]

Bom dia.

Anexe uma imagem exemplificando o ganho com a alteração.

Att.

[BigWings]

1 hora atrás, EdmarFrazao disse:

  Quando da impressão da Tag DetRastros esta gastando varias linhas
     para impressão:

Pra não quebrar as linhas basta definir a propriedade DANFE.QuebraLinhaEmDetalhamentos como False.

[EdmarFrazao]

Correto a DANFE.QuebraLinhaEmDetalhamentos como False  resolve o problema de quebra de linha,

 

Então fica so a sugestão para quando não tiver C.AGREGAÇÃO não ser impresso:

linha: 512

de:

        if (dr_cAgreg in FDetRastros) then
             Result := Result + ACBrStr('C.AGREGAÇÃO: ') + rastro.Items.cAgreg + sQuebraLinha;

 

para:

        if (dr_cAgreg in FDetRastros) then
          if rastro.Items.cAgreg <>'' then
             Result := Result + ACBrStr('C.AGREGAÇÃO: ') + rastro.Items.cAgreg + sQuebraLinha;

 

segue sugestão de correção:

Correto a DANFE.QuebraLinhaEmDetalhamentos como False  resolve o problema de quebra de linha,

 

Então fica so a sugestão para quando não tiver C.AGREGAÇÃO não ser impresso:

linha: 512

de:

        if (dr_cAgreg in FDetRastros) then
             Result := Result + ACBrStr('C.AGREGAÇÃO: ') + rastro.Items.cAgreg + sQuebraLinha;

 

para:

        if (dr_cAgreg in FDetRastros) then
          if rastro.Items.cAgreg <>'' then
             Result := Result + ACBrStr('C.AGREGAÇÃO: ') + rastro.Items.cAgreg + sQuebraLinha;

 

segue sugestão de correção:

ACBrNFeDANFEClass.pas

[BigWings]

19 minutos atrás, EdmarFrazao disse:

Então fica so a sugestão para quando não tiver C.AGREGAÇÃO não ser impresso:

Faz sentido, enviei pro repositório, rev. 18987.

[EdmarFrazao]

40 minutos atrás, BigWings disse:

Faz sentido, enviei pro repositório, rev. 18987.

Atualizei o repositório e ficou correto.

vlw.

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.