DANFE Fortes Impressão várias notas

[Glaucos Luiz Ginez]

Fiz uma alteração para imprimir várias notas no Fortes, segue anexo os fontes para analise.

ACBrNFeDANFeRL.pas

ACBrNFeDANFeRLClass.pas

[Juliomar Marchetti]

Só uma pergunta!

nesse caso como ficaria o nome do PDF?

a primeira nota que entrasse pra ser emitida?

 

[Glaucos Luiz Ginez]

A última, eu não fiz o tratamento para o nome.

Sugere algum?

Editado 19 Agosto, 2016 por Glaucos Luiz Ginez

[Glaucos Luiz Ginez]

Hum, tem mais alguns ajustes pra fazer aqui, to vendo agora, daqui a pouco eu mando de novo. Att.

[Glaucos Luiz Ginez]

Segue anexo novamente.

 

ACBrNFeDANFeRL.pas

ACBrNFeDANFeRLClass.pas

[hleorj]

Gostei ..mostre o resultado anexando arquivo para analise ( Danfe Retrato / Danfe Paisagem )

Para melhorar o entendimento , solicito uma melhoria nos nomes da variáveis (  LArray : TObjectArray; , LReport, LReportNext : TRLCustomReport;     LObject : TObject; )

Obrigado pela sua ajuda.

 

[Glaucos Luiz Ginez]

paisagem.pdf

retrato.pdf

ACBrNFeDANFeRL.pas

ACBrNFeDANFeRLClass.pas

[hleorj]

4 horas atrás, Juliomar Marchetti disse:

Só uma pergunta!

nesse caso como ficaria o nome do PDF?

a primeira nota que entrasse pra ser emitida?

 

Esta questões do @Juliomar Marchetti

[Waldir Paim]

@Glaucos Luiz Ginez

Ótima iniciativa, se não temos o recurso vamos implementar e propor ao debate.

@hleorj

Já peço licença para dar a minha opinião.

No meu ponto de vista, quando gerar mais de uma nota o pdf não tem como ser individualizado e será sempre um só o grupo.

Não tem como individualizar algo que já foi agrupado, e o correto seria usar o nome que for definido no primeiro DANFe.

Se o programador imprimir individualmente, ai sim cada uma nota sai com seu nome.

 

 

[Glaucos Luiz Ginez]

@Waldir Paim Obrigado.

@hleorj Como eu havia respondido anteriormente, eu não fiz tratamento para o nome, então ele vai pegar da última nota. Mas referente a isso eu gostaria da opinião dos colegas.

[Waldir Paim]

@Glaucos Luiz Ginez

Olhei suas alterações, e acredito que podemos melhorar um pouco esse ponto:

Citar

         200,200,10,10,False,10,0,
          i = Pred(TACBrNFe(ACBrNFe).NotasFiscais.Count),
          @ReportArray);

Vou tentar uma melhoria nesse ponto para conseguir parametrizar esses valores.

Precisamos da opinião dos outros colegas sobre a definição do nome do pdf do grupo de notas.

[hleorj]

Segue uma ideia;

Function TACBrNFeDANFeRL.MontaNomePdf( NFE : TNFe) : String;
Var
  iUltimo : Integer;
begin
  if NFE = nil then
  begin
    Result  := TACBrNFe(ACBrNFe).DANFE.PathPDF;
    iUltimo := TACBrNFe(ACBrNFe).NotasFiscais.Count;
   if iUltimo > 1 then

      Result := Result + 'De_' +
                IntToStr( TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe.Ide.nNF ) +
                '_a_' +
                IntToStr( TACBrNFe(ACBrNFe).NotasFiscais.Items[ iUltimo - 1 ].NFe.Ide.nNF )


    else
      Result := Result +
                   StringReplace(TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]);
  end
  else
    Result := Self.PathPDF + StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]);

  Result := Result+ '-nfe.pdf'
end;

Resultado para notas fiscais em grupo 

Ex.

De_xxxxx_a_yyyyyy-nfe.pdf

xxxxx = Nf Inicial
yyyyy = Nf final

 

 

 

 

ACBrNFeDANFeRLClass.pas

ACBrNFeDANFeRL.pas

[Glaucos Luiz Ginez]

Bom dia @hleorj , achei legal, mas se não mandar as NFe em ordem já vai ficar estranho, estava pensando quando for em grupo deixar o nome somente como DANFe mesmo.

O que você acha @Juliomar Marchetti ?

[hleorj]

@Glaucos Luiz Ginez, de a sua ideia .. alterando a função para montar nome 

Ex.

  if iUltimo > 1 then

      Result := Result + 'DanfesAgrupadas'

 

[Glaucos Luiz Ginez]

Segue anexo.

ACBrNFeDANFeRL.pas

ACBrNFeDANFeRLClass.pas

[hleorj]

@Glaucos Luiz Ginez , repliquei a sua ideia.

function TACBrNFeDANFeRL.MontaNomePdf( NFE : TNFe) : String;
begin
  if NFE = nil then
    Exit(Self.PathPDF + 'DANFe.pdf');
  Result := Self.PathPDF + StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]) +  '-nfe.pdf'
end;

para facilitar o entendimento.

[Waldir Paim]

@Glaucos Luiz Ginez

A ideia do nome ficou ótima.

@hleorj

Assim que sobrar um tempo devo mandar uma colaboração para gente conseguir parametrizar os valores fixos.

 

 

[arce]

@Glaucos Luiz Ginez Muito obrigado. Estava buscando essa solução à alguns dias. No trunk1 usava a impressão do Rave, que era agrupada. Alguns clientes já estavam reclamando.

Eu apenas retirei o agrupamento do PDF, para que ficar em arquivos separados.

Editado 2 Setembro, 2016 por arce

[rodrigoogioni]

Bom dia a todos,

Nao sei se é a ideia é boa, quando imprimir, ele poderá gerar layout somente, mas na hora de gerar o pdf, gerar cada arquivo separadamente.

Pq na visualização, os clientes gostam de apenas rolar para baixo e virificar as nfes, mas ao enviar por email, que é o uso que tenho para os

pdfs, poderia ser separado, nota a nota.

O que vcs acham?

[arce]

@rodrigoogioni Tive problemas no anexar PDF durante o processo de envio de email, estava cruzando informação dos destinatários. Segue as units sem o agrupamento do PDF. 

 

ACBrNFeDANFeRL.pas

ACBrNFeDANFeRLClass.pas

[gutopmc]

A alteração sera incorporada aos fontes no svn? Atualizei hoje o acbr e quando jogo os  últimos .pas do arce da uma mensagem de erro de memória quando manda imprimir mas funciona. Uso o delphi 7!

[arce]

@gutopmc Minha versão em produção está na revisao 12022 do svn do ACBr. Verifiquei que recentemente fizeram algumas mudanças nessas units. Ainda não fiz a atualização para a versão mais atual.

[gutopmc]

Em 23/09/2016 at 16:32, arce disse:

@gutopmc Minha versão em produção está na revisao 12022 do svn do ACBr. Verifiquei que recentemente fizeram algumas mudanças nessas units. Ainda não fiz a atualização para a versão mais atual.

Já foi possivel atualizar?

[Juliomar Marchetti]

Boa tarde!

não será possível subir a mudança pois a unit tem bastante diferença!

favor atualizar os fontes, aplicar as mudanças no código novo e anexar novamente que possa ser feito testes

[Juliomar Marchetti]

Boa tarde

por favor faça o update e vejam que existe diferença da unit aqui anexada e as do svn!

não é mais usado os dataset pra alimentar o componente e sim diretamente da classe!

então se faz necessário atualizarem os arquivos, aplicarem as mudanças que já fizeram e depois anexar novamente !