Ir para conteúdo
  • Cadastre-se

dev botao

Alteração impressão fortes


Thomas
  • Este tópico foi criado há 2691 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

@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.

danfe.jpg

 

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;

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
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.

Link para o comentário
Compartilhar em outros sites

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

Equipe ACBr Henrique Leonardo
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Tecnólogo em processamento de dados

E-mail [email protected] - Skype : hleorj

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2691 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.