Impressão de DANFE Simplificada - Etiqueta

[Fernando Cattaneo Zavadski]

Ola

Qual propriedade do ACBr devo usar para imprimir DANFE Simplificada - Etiqueta (sem os produtos)

Usei NFe.DANFE.TipoDANFE := tiSimplificado, mas nesse caso saiu os produtos

Grato

[Juliomar Marchetti]

no caso depende se fast ou fortes.

se fast tem queusar o fr3 correspondente se for fortes tem que setar no componente da danfe diretamente

[Fernando Cattaneo Zavadski]

Obrigado pelo retorno.

Eu uso o Fast Report mas nao entendi como devo proceder, poderia postar parte do codigo

Grato

[Juliomar Marchetti]

5 minutos atrás, Fernando Cattaneo Zavadski disse:

Obrigado pelo retorno.

Eu uso o Fast Report mas nao entendi como devo proceder, poderia postar parte do codigo

Grato

tu usa o que pra imprimir nele? um arquivo fr3 que tu seta em FastFile correto?

então tu tem que pegar oque corresponde e setar lá e mandar imprimir lembrando que ele não é para tudo e não desobriga o A4. ele serve para e-commerce.

[Fernando Cattaneo Zavadski]

Eu nao seto arquivo, eu so uso as propriedades do objeto

  with ACBrNFeDANFEQR1 do
  begin
    ACBrNFe := ACBrNFe1;
    NumCopias             := 1;
    ImprimeDescPorPercentual     := False;
    MargemInferior        := 0.6;
    MargemSuperior        := 0.6;
    MargemEsquerda        := 0.6;
    MargemDireita         := 0.6;
    ExibeResumoCanhoto   := True;
    PathPDF               := gDir+'\db\xml\nfe';
  end;

ai eu seto paisagem ou retrato dependendo das configuracoes de cada usuario

 if xxx then   ACBrNFeDANFEQR1 .TipoDANFE := tiRetrato;

else  if xxx then ACBrNFeDANFEQR1 .TipoDANFE := tiPaisagem;

else if xxx ACBrNFeDANFEQR1 .TipoDANFE:= tiSimplificado;  

sei que cada layout tem um arquivo especifico mas deixo o proprio componente tratar isso, apenas mudo as propriedades do mesmo

[Fernando Cattaneo Zavadski]

Eu encontrei o no forum

escrito pelo Panda. E nesse topico consta que ainda nao foi feito para o FortesReport, mas isso foi em 2021.

Sera que agora ja feito?

[Juliomar Marchetti]

4 horas atrás, Fernando Cattaneo Zavadski disse:

Eu nao seto arquivo, eu so uso as propriedades do objeto

  with ACBrNFeDANFEQR1 do
  begin
    ACBrNFe := ACBrNFe1;
    NumCopias             := 1;
    ImprimeDescPorPercentual     := False;
    MargemInferior        := 0.6;
    MargemSuperior        := 0.6;
    MargemEsquerda        := 0.6;
    MargemDireita         := 0.6;
    ExibeResumoCanhoto   := True;
    PathPDF               := gDir+'\db\xml\nfe';
  end;

ai eu seto paisagem ou retrato dependendo das configuracoes de cada usuario

 if xxx then   ACBrNFeDANFEQR1 .TipoDANFE := tiRetrato;

else  if xxx then ACBrNFeDANFEQR1 .TipoDANFE := tiPaisagem;

else if xxx ACBrNFeDANFEQR1 .TipoDANFE:= tiSimplificado;  

sei que cada layout tem um arquivo especifico mas deixo o proprio componente tratar isso, apenas mudo as propriedades do mesmo

QuickReport não é mais suportado a anos

atualize seu acbr e refaça a instalação com o instaldor

with ACBrNFeDANFEQR1 do

[Fernando Cattaneo Zavadski]

Eu nao uso o QuickReport, eu uso o fortes.

Objeto TACBrNFeDANFERL

[Juliomar Marchetti]

certo então é só setar na propriedade dele o que deseja imprimir e estará rodando.

lembrando que o fortes e o acbr tem que estar atualizar e rodado os instaladores.

[Fernando Cattaneo Zavadski]

Obrigado pelas dicas.

Resolvi criando uma nova classe ACBrNFeDANFeRLEtiqueta e editando o ACBr para ter um novo tipo de impressão

 

procedure TACBrNFeDANFeRL.ImprimirDANFE(ANFe: TNFe = nil);

...

  case TipoDANFE of
    tiPaisagem:
      TfrlDANFeRLPaisagem.Imprimir(Self, Notas);
    tiSimplificado:
      TfrlDANFeRLSimplificado.Imprimir(Self, Notas);
    tiEtiqueta:
      TfrlDANFeRLEtiqueta.Imprimir(Self, Notas);
  else
    TfrlDANFeRLRetrato.Imprimir(Self, Notas);
  end;
end;

 

e outros ajustes que foram necessários.

Editado 13 Fevereiro, 2023 por Fernando Cattaneo Zavadski

[Victor H. Gonzales - Panda]

Em 13/02/2023 at 10:21, Fernando Cattaneo Zavadski disse:

Obrigado pelas dicas.

Resolvi criando uma nova classe ACBrNFeDANFeRLEtiqueta e editando o ACBr para ter um novo tipo de impressão

 

procedure TACBrNFeDANFeRL.ImprimirDANFE(ANFe: TNFe = nil);

...

  case TipoDANFE of
    tiPaisagem:
      TfrlDANFeRLPaisagem.Imprimir(Self, Notas);
    tiSimplificado:
      TfrlDANFeRLSimplificado.Imprimir(Self, Notas);
    tiEtiqueta:
      TfrlDANFeRLEtiqueta.Imprimir(Self, Notas);
  else
    TfrlDANFeRLRetrato.Imprimir(Self, Notas);
  end;
end;

 

e outros ajustes que foram necessários.

Boa noite, anexe o fonte que possui o relatório em fortes no padrão.

Que submetemos a análise, se for o caso ao svn como contribuição

Abraços