Da Para Alterar No Acbr

[Rodrigo Guelf]

Pessoal estou com um problemas nos clientes de farmácia, quando imprime a nota fiscal com os lote o consumo de papel esta muito grande, tipo uma nota fiscal com 20 dias da mais de 6 paginas, gostaria de saber se é possível alterar o ACBr estas linhas abaixo:

 

 

na unit 

ACBrNFeDANFeRLPaisagem

 

da linha 1793 a linha 1820 esta assim:

                      else

                        begin

                          if Prod.med.Count > 0 then

                            begin

                              for i := 0 to Prod.med.Count - 1 do

                                begin

                                  if dm_nLote in FDetMedicamentos then

                                    sDetalhamentoEspecifico := sDetalhamentoEspecifico + 'NÚMERO DO LOTE: ' + Prod.med.Items.nLote + #13#10;

 

                                  if dm_qLote in FDetMedicamentos then

                                    sDetalhamentoEspecifico := sDetalhamentoEspecifico + 'QUANTIDADE DO LOTE: ' + FormatFloat('###,##0.000', Prod.med.Items.qLote) + #13#10;

 

                                  if dm_dFab in FDetMedicamentos then

                                    sDetalhamentoEspecifico := sDetalhamentoEspecifico + 'DATA DE FABRICAÇÃO: ' + DateToStr(Prod.med.Items.dFab) + #13#10;

 

                                  if dm_dVal in FDetMedicamentos then

                                    sDetalhamentoEspecifico := sDetalhamentoEspecifico + 'DATA DE VALIDADE: ' + DateToStr(Prod.med.Items.dVal) + #13#10;

 

                                  if dm_vPMC in FDetMedicamentos then

                                    sDetalhamentoEspecifico := sDetalhamentoEspecifico + 'PREÇO MÁX. CONSUMIDOR: R$ ' + FormatFloat('###,##0.00', Prod.med.Items.vPMC) + #13#10;

 

                                  if (sDetalhamentoEspecifico > '') and (sDetalhamentoEspecifico <> #13#10) then

                                    begin

                                      if i = Prod.med.Count - 1 then

                                        sDetalhamentoEspecifico := sDetalhamentoEspecifico

                                      else

                                        sDetalhamentoEspecifico := sDetalhamentoEspecifico + #13#10;

                                    end;

 

 

da para mudar para ficar assim:

 

                      else

                        begin

                          if Prod.med.Count > 0 then

                            begin

                              for i := 0 to Prod.med.Count - 1 do

                                begin

                                  if dm_nLote in FDetMedicamentos then

                                    sDetalhamentoEspecifico := sDetalhamentoEspecifico + ' NÚMERO DO LOTE: ' + Prod.med.Items.nLote;

 

                                  if dm_qLote in FDetMedicamentos then

                                    sDetalhamentoEspecifico := sDetalhamentoEspecifico + ' QUANTIDADE DO LOTE: ' + FormatFloat('###,##0.000', Prod.med.Items.qLote);

 

                                  if dm_dFab in FDetMedicamentos then

                                    sDetalhamentoEspecifico := sDetalhamentoEspecifico + ' DATA DE FABRICAÇÃO: ' + DateToStr(Prod.med.Items.dFab);

 

                                  if dm_dVal in FDetMedicamentos then

                                    sDetalhamentoEspecifico := sDetalhamentoEspecifico + ' DATA DE VALIDADE: ' + DateToStr(Prod.med.Items.dVal);

 

                                  if dm_vPMC in FDetMedicamentos then

                                    sDetalhamentoEspecifico := sDetalhamentoEspecifico + ' PREÇO MÁX. CONSUMIDOR: R$ ' + FormatFloat('###,##0.00', Prod.med.Items.vPMC);

 

                                  if (sDetalhamentoEspecifico > '') and (sDetalhamentoEspecifico <> #13#10) then

                                    begin

                                      if i = Prod.med.Count - 1 then

                                        sDetalhamentoEspecifico := sDetalhamentoEspecifico

                                      else

                                        sDetalhamentoEspecifico := sDetalhamentoEspecifico + #13#10;

                                    end;

 

Isso fará com que o conteúdo da linha complementar fique tudo em uma linha só, isso resolve o meu problema.

 

Se for possível alterem também na Unit ACBrNFeDANFeRLRetrato

 

Aguardo!

 

[Juliomar Marchetti]

Anexe o arquivo alterado e será avaliado o mesmo para subir ao svn 

[Rodrigo Guelf]

Juliomar, fiz teste com as alterações antes de enviar e notei que não é este comando que esta fazendo a impressão vir nas linhas abaixo, tentei de varias formas mais não consegui, constaria de pedir a ajuda de você se possível para resolver.