Alteração impressão fortes

[Thomas]

Boa tarde, 
Realizei uma mudança na impressão das DANFEs do fortes em relação as tags de medicamentos nos produtos da NFe.
Está mudança diminui o espaço ocupado pelas informações o que diminui bastante o consumo de folhas. 
Fontes alterados em anexo.
Antes de implementar essa alteração atualizei os fontes.

ACBrNFeDANFeRLRetrato.pas

ACBrNFeDANFeRLRetrato.dfm

ACBrNFeDANFeRLPaisagem.pas

ACBrNFeDANFeRLPaisagem.dfm

ACBrNFeDANFeRLClass.pas

ACBrNFeDANFeRL.dfm

[hleorj]

@Thomas

Favor ..anexar.. pdf ou imagem ( Retrato / Paisagem ) da sua sugestão de atualização para analise.

 

Grato

[Thomas]

@hleorj
Segue em anexo.

antes.pdf

depois.pdf

[Juliomar Marchetti]

Boa tarde

O mesmo ocorreu com a versão em Paisagem? pois só vi o exemplo em retrato!

ficou bom parabéns

 

[hleorj]

@Thomas , chegou a testar a propriedade QuebraLinhaEmDetalhamentoEspecifio igual True ?

[abrahaofv]

@Thomas Rapaz, você pode me ajudar com a impressão do Danfe para ficar igual ao seu ? Eu não sei se é alguma configuração ou os meus fontes. Estou usando o Fortes mais recente que tem, só que meu danfe fica com o "cabeçalho" dessa forma ai. Inclusive configuro a Logomarca e ela não sai.

 

Código da configuração do Danfe: 

procedure TfrmPrincipal.ConfiguraDANFe(GerarPDF, MostrarPreview: Boolean;
  ACBrNFe1: TACBrNFe);
var
  OK: boolean;
  PathPDF: String;
  VBMostrarPreview: Boolean;
begin
  FEmiteNotaFiscalEletronica.ACBrNFe.DANFE := TACBrNFeDANFeRL.Create(nil);

  PathPDF := edtDiretorio.Text + '\PathPDF';
  VBMostrarPreview := True;

  if ACBrNFe1.NotasFiscais.Count > 0 then
  begin
      //ACBrNFe1.DANFE := ACBrNFeDANFeRL1;

      //Verificar oque preencher
      //ACBrNFe1.DANFE.Impressora := cbxImpressora.Text;

    if (ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat in [101, 151, 155]) then
       ACBrNFe1.DANFE.NFeCancelada := True
    else
       ACBrNFe1.DANFE.NFeCancelada := False;
  end;

  if GerarPDF and not DirectoryExists(PathWithDelim(PathPDF))then
    ForceDirectories(PathWithDelim(PathPDF));

  if ACBrNFe1.DANFE <> nil then
  begin
    ACBrNFe1.DANFE.TipoDANFE                 := StrToTpImp(OK, IntToStr(rgTipoDanfe.ItemIndex));
    ACBrNFe1.DANFE.Logo                      := edtLogoMarca.Text;
    ACBrNFe1.DANFE.Sistema                   := 'GoodSoft Informática LTDA';
    ACBrNFe1.DANFE.Site                      := 'www.goodsoft.com.br';
    ACBrNFe1.DANFE.Email                     := '[email protected]';
    ACBrNFe1.DANFE.Fax                       := '';
    ACBrNFe1.DANFE.ImprimirDescPorc          := True;
    ACBrNFe1.DANFE.NumCopias                 := 1;
    ACBrNFe1.DANFE.ProdutosPorPagina         := 5;
    ACBrNFe1.DANFE.MargemInferior            := 1;    //0,80
    ACBrNFe1.DANFE.MargemSuperior            := 2;    //0,80
    ACBrNFe1.DANFE.MargemDireita             := 0.5;  //0,51
    ACBrNFe1.DANFE.MargemEsquerda            := 0.5;  //0,60
    ACBrNFe1.DANFE.PathPDF                   := PathWithDelim(PathPDF);
    ACBrNFe1.DANFE.CasasDecimais._qCom       := 4;
    ACBrNFe1.DANFE.CasasDecimais._vUnCom     := 3;
    ACBrNFe1.DANFE.ExibirResumoCanhoto       := true;
    ACBrNFe1.DANFE.ImprimirTotalLiquido      := true;
    ACBrNFe1.DANFE.FormularioContinuo        := true;
    ACBrNFe1.DANFE.MostrarStatus             := true;
    ACBrNFe1.DANFE.ExpandirLogoMarca         := true;
    ACBrNFe1.DANFE.TamanhoFonte_DemaisCampos := 8;
    ACBrNFe1.DANFE.TamanhoFonteEndereco      := 8;
    ACBrNFe1.DANFE.PosCanhoto                := TPosRecibo(1);

    ACBrNFe1.DANFE.LogoemCima := True;

    if ACBrNFe1.DANFE = ACBrNFeDANFeRL1 then
    begin
//      Configurar depois

//      ACBrNFeDANFeRL1.Fonte.Nome                          := TNomeFonte(rgTipoFonte.ItemIndex);
//      ACBrNFeDANFeRL1.LarguraCodProd                      := speLargCodProd.Value;
//      ACBrNFeDANFeRL1.ExibirEAN                           := cbxExibirEAN.Checked;
//      ACBrNFeDANFeRL1.ExibeCampoFatura                    := cbxExibirCampoFatura.Checked;
//      ACBrNFeDANFeRL1.QuebraLinhaEmDetalhamentoEspecifico := cbxQuebrarLinhasDetalhesItens.Checked;
//      ACBrNFeDANFeRL1.Fonte.TamanhoFonte_RazaoSocial      := speFonteRazao.Value;
//      ACBrNFeDANFeRL1.AltLinhaComun                       := speAlturaCampos.Value;
//      ACBrNFeDANFeRL1.PosCanhoto                          := TPosRecibo( rgLocalCanhoto.ItemIndex );
    end;

    ACBrNFe1.DANFE.TipoDANFE  := StrToTpImp(OK,IntToStr(rgTipoDanfe.ItemIndex+1));
    ACBrNFe1.DANFE.Logo       := edtLogoMarca.Text;
  end;

  ACBrNFe1.DANFE.MostrarPreview := (not GerarPDF) and
                                   (VBMostrarPreview);

  if ACBrNFe1.DANFE.MostrarPreview and MostrarPreview then
  begin
     Application.BringToFront;
  end
end;

[Juliomar Marchetti]

Boa noite

caso não tenha lido as regras do fórum favor ler ou poder ser punido com bloqueios ao fórum

já postou em um local aguarde até respondido lá e não saia postando em outros locais

Obrigado

[Thomas]

Em 13/10/2016 at 17:46, hleorj disse:

@Thomas , chegou a testar a propriedade QuebraLinhaEmDetalhamentoEspecifio igual True ?

Desculpe a demora ao responder, talvez nem adiante a minha resposta, mas vamos lá...
@hleorj não testei com QuebraLinhaEmDetalhamentoEspecifio = True.

Em 13/10/2016 at 17:14, Juliomar Marchetti disse:

Boa tarde

O mesmo ocorreu com a versão em Paisagem? pois só vi o exemplo em retrato!

ficou bom parabéns

 

@Juliomar Marchetti
A impressão em paisagem fiz a mesma alteração apesar de não anexar ai ela fica igual (Não tenho anexar agora) se ainda precisar posso conseguir.

[hleorj]

2 minutos atrás, Thomas disse:

Desculpe a demora ao responder, talvez nem adiante a minha resposta, mas vamos lá...
@hleorj não testei com QuebraLinhaEmDetalhamentoEspecifio = True.

@Juliomar Marchetti
A impressão em paisagem fiz a mesma alteração apesar de não anexar ai ela fica igual (Não tenho anexar agora) se ainda precisar posso conseguir.

@Thomas , chegou a testar a propriedade 

 

Faça teste com demo .. sem sua alterações;