Jump to content

dev botao

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


Go to solution Solved by BigWings,
  • Este tópico foi criado há 1569 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link to comment
Share on other sites

  • Administradores

Bom dia.

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

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Moderadores
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.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

  • Este tópico foi criado há 1569 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.