Vários CTe em um único QuickReport

[André Franco]

Opa! Pessoal como faço para visualizar vários CT-e em um único relatório do QUICKreport? 
Igual ao programa da SEFAZ.

O usuário seleciona os CT-e e todos são montados num um relatório.

André Franco

 

Editado 22 Julho, 2015 por krammers

[Juliomar Marchetti]

Boa noite

não necessariamente precisa ser no quickreport

basta fazer um loadfromfile de todos os que quer para o componente 

e ter o mesmo vinculado depois mandar imprimir ele vai abrir a visualização com todos!

 

até me lembro que tem já tópicos e posts explicando a informação acima.. sempre que possível faça uma pesquisa antes de postar!

[André Franco]

Testei com loadfrom, mas ele abre um de cada vez, não todos no mesmo preview do quickreport.

 

  with CTe do
    begin
      Conhecimentos.Clear;
      with cxGrid1DBTableView1.DataController, DM1.QRconheci do
        begin
          for i := 0 to GetSelectedCount - 1 do
            begin
              v_controle := cxGrid1DBTableView1.ViewData.Rows[cxGrid1DBTableView1.DataController.GetSelectedRowIndex(i)].Values[19];
              DM1.QRconheci.Locate('controle', v_controle, []);
              v_patharquivo := '\\' + v_serverlocal + '\' + Copy(DM1.QRconhecipathcte.AsString, Pos('S', DM1.QRconhecipathcte.AsString)) + '\';
              v_arquivocte := v_patharquivo + DM1.QRconhecichavecte.AsString + '-cte.xml';
              CTe.Conhecimentos.LoadFromFile(v_arquivocte);
            end;
        end;
      Conhecimentos.Imprimir; // QUANDO CHEGA AQUI ELE ABRE UM PREVIEW, FECHO AI ELE ABRE OUTRO PREVIEW
    end;

[luisclaudio_jr]

Com o Fast Report , vc terá este resultado , com certeza

 

JR