Impressão do Danfe NFe Fortes ReportCe

[Antonio Paulo Mangili]

boa tarde a todos

estou com um problema muito estranho aqui

quando eu peço para imprimir uma via do danfe NFe do fortes report ele sai uma via, mas quando eu peço 2 ele sai quatro

alguem sabe o que pode estar acontecendo. abaixo minha rotina

          if dmDados.CdsUsuSENHA.AsString = 'MASTER' then
             ACBrNFeDANFERL1.NumCopias :=1
          else
              ACBrNFeDANFERL1.NumCopias :=2;

mesmo que eu coloque no componente 2 vias ele sai 4

se eu colocar 5 sai 20

obrigado

 

Editado 4 Agosto, 2015 por Antonio Paulo Mangili

[Régys Silveira]

Poderia postar o trecho de código onde você envia a nota e imprime para darmos uma olhada?

[Antonio Paulo Mangili]

Bom dia Régys

segue a minha rotina

procedure TFrmNFeACbrMP.BitImpDFeClick(Sender: TObject);
var
   Txt    : TextFile;
   Linha  : string;
begin
     OpenDialog1.Title := 'Selecione o XML da NFE';
     OpenDialog1.DefaultExt := '*.XML';
     OpenDialog1.Filter := 'Arquivos NFe XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
     OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathNFe;

     if OpenDialog1.Execute then
     begin
          ACBrNFe1.NotasFiscais.Clear;
          ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,False);

          if dmDados.CdsUsuUsuario.AsString = 'NFE' then
             ACBrNFeDANFERL1.NumCopias :=2
          else
              ACBrNFeDANFERL1.NumCopias :=1;
                    
          ACBrNFe1.NotasFiscais.Imprimir;
     end;

end;

Régys nõ si se ajuda. eu fiz um comentario nos fontes do ACBRDanfeRLRetrato.pas dessa forma abaixo e coloqei a qantade de vias dret no componente, e coloquei 2 vias, 3 vias, 4 vias, quantas vias eu colocar ele sai somente uma, mas caso eu retro esse comentario ai ele esta multiplicando o numero  vias, exe 2=4 4=8 8=16, pedi 5 vias saiu 25.

procedure TfrlDANFeRLRetrato.RLNFeBeforePrint(Sender: TObject; var PrintIt: Boolean);
begin
  q := 0;

  ConfigureVariavies(tiRetrato);

  with RLNFe.Margins do
  begin
    TopMargin := FMargemSuperior * 10;
    BottomMargin := FMargemInferior * 10;
    LeftMargin := FMargemEsquerda * 10;
    RightMargin := FMargemDireita * 10;
  end;

  ConfigureDataSource;
  InitDados;

  //  Removido para que o quadro Fatura seja mostrado mesmo a vista
  //  if FNFe.Cobr.Dup.Count > 0 then
  //    rlbFatura.Visible := True
  //  else
  //    rlbFatura.Visible := False;

  RLNFe.Title := Copy(FNFe.InfNFe.Id, 4, 44);
  {
  if FNumCopias > 0 then
    RLPrinters.RLPrinter.Copies := FNumCopias
  else
    RLPrinters.RLPrinter.Copies := 1;
  }
end;

no exemplo de teste esta acontecendo igual a esse problema

 

Editado 5 Agosto, 2015 por Antonio Paulo Mangili

[Daniel Simoes]

O problema parece ser no Fortes (ou não estamos sabendo como usá-lo de Forma apropriada, para setar o número de páginas)

@Regys,

Pode levar esse assunto até o Márcio do Fortes ?

notei que o número de cópias é perdido quando ele passa por:

procedure TRLCustomFilter.InternalRun; 
...
  if fsEmulateCopies in fFilterStyle then   // <---- AQUI
    fFilteringCopies:=Self.Copies
  else
    fFilteringCopies:=1;

Como não estamos usando nenhum Filtro, é usado o "TRLCustomfilter" que não possui "fsEmulateCopies"  no SET fFilterStyle, e com isso o Valor de cópia passa a ser 1

 

[Antonio Paulo Mangili]

Obrigado Daniel pelo retorno

como devo proceder?

 

[Régys Silveira]

Vi aqui, estou em SP para uma consultoria, vou ver com o Marcio na segunda-feira de manhã assim que voltar.

Provavelmente ele me passa a forma correta se estivermos fazendo errado ou o acerto se existe mesmo um erro.

Um paliativo até termos o retorno e você fazer um loop chamando imprimir para a quantidade de vias que deseja e deixar setado 1.

[Antonio Paulo Mangili]

bom dia Régys

Obrigado pelo retorno, vou aguardar a resolução, mas vou usar sua ideia desse loop

obrigado

paulinho

 

[Antonio Paulo Mangili]

Régys bom dia

eu tenho uma MV aqui com o projeto do trunk usando essa versão do fortes report

{$IFDEF VER150} RLibWinD7vcl, vcljpg, {$ENDIF} // D7

e nela funciona bacana a opção do componente em vias. acredito que seja essa versão do fortesreportCE que esteja com algum problema. fico no aguardo

muito obrigado

[Antonio Paulo Mangili]

O problema parece ser no Fortes (ou não estamos sabendo como usá-lo de Forma apropriada, para setar o número de páginas)

@Regys,

Pode levar esse assunto até o Márcio do Fortes ?

notei que o número de cópias é perdido quando ele passa por:

procedure TRLCustomFilter.InternalRun; 
...
  if fsEmulateCopies in fFilterStyle then   // <---- AQUI
    fFilteringCopies:=Self.Copies
  else
    fFilteringCopies:=1;

Como não estamos usando nenhum Filtro, é usado o "TRLCustomfilter" que não possui "fsEmulateCopies"  no SET fFilterStyle, e com isso o Valor de cópia passa a ser 1

 

Daniel Bom dia

Alguma novidade sobre esse assunto

Obrigado

Paulinho

[Régys Silveira]

Paulinho me tire uma dúvida, se você pedir para visualizar e mandar a quantidade de cópias pela visualização o problema ocorre?

[Antonio Paulo Mangili]

bom dia Régys

sim ocorre a mesma coisa. quando peço para vizualizar ele tem um campo onde seleciono a quantidade de copias. caso eu coloque 1, da certinho uma via, mas caso coloque 2 ele imprime 4, se eu colocar 4 imprime 16, eu coloquei 5 só para testar saiu 25

obrigado

paulinho

[Régys Silveira]

O problema é mesmo no Fortes então, enviei o questionamento ao Márcio mas ele ainda não respondeu, cobrei hoje novamente, estou esperando um retorno.

 

[Antonio Paulo Mangili]

Então Régys, eu fiz aquele loop que voce me orientou em um programa de um certo ramo de atividade, mas nos outros programa eu não fiz, porque iria me dar muito trabalho, e depois teria que voltar.

Com isso ainda não consegui implantar em todos os meus clientes em produção essas evoluções do S@T, e da NFe do trunk2

não existe a opção de trabalharmos com o fortes report anterior do trunk {$IFDEF VER150} RLibWinD7vcl, vcljpg, {$ENDIF} // D7 ?

estou segurando o maximo essas atualizações em meus clientes, sera que essa semana consiguimos resolver?

obrigado

paulinho

[Régys Silveira]

Desculpe, mas não depende de mim ou de alguém do ACBr, pois o problema está no componente Fortes.

[Antonio Paulo Mangili]

Régys

Mesmo sabendo que não é um problema do ACBr eu agradeço muito vossa atenção e orientação, e vou aguardar o retorno do fortes report

obrigado

paulinho

[Régys Silveira]

Consegui falar com o Marcio e ele já está verificando o problema, ele só me pediu para confirmar se você está utilizando a ultima versão atualizada do GIT disponibilizada, poderia confirmar?

[Antonio Paulo Mangili]

bom dia Régys

Obrigado pelo retorno

a versão que estou usando e aquela que voce postou no ACBr http://www.projetoacbr.com.br/forum/announcement/8-fortes-report-community-edition/

mas segue a versão anexado

obrigado

paulinho

fortesreport-ce-master.zip

[Régys Silveira]

O Marcio pediu para que você entrasse em contato diretamente com ele, lhe enviei o email dele via email.

[Antonio Paulo Mangili]

Ok

Régys Obrigado

Entrarei em contato

[Antonio Paulo Mangili]

Régys e Daniel

o Marcio me parece que esta sem tempo para acertar esse detale, sera que voceis poderia mudar o componente para usar o fortes report anterior

{$IFDEF VER150} RLibWinD7vcl, vcljpg, {$ENDIF} // D7

o fortes reportCE não esta funcionando no ACBr com trunk2

@Daniel

Obrigado

Paulinho

[Antonio Paulo Mangili]

Régys

bom dia

o Márcio do fortes resolveu esse problema. basta efetuar o download nesse link, remover e instalar o pacote novamente que ficou certinho

1 via, 2via, 3via...........

https://github.com/fortesinformatica/fortesreport-ce

obrigado

paulinho

Régys

bom dia

o Márcio do fortes resolveu esse problema. basta efetuar o download nesse link, remover e instalar o pacote novamente que ficou certinho

1 via, 2via, 3via...........

https://github.com/fortesinformatica/fortesreport-ce

obrigado

paulinho