Ir para conteúdo
  • Cadastre-se

dev botao

Visualizar varios CTes em apenas um report


danilozix
Ver Solução Respondido por eliton.sc,
  • Este tópico foi criado há 2619 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia pessoal, seria possível mostrar na visualização do report vários conhecimento de transporte de uma vez. Eu fiz de uma maneira que o cliente seleciona os conhecimentos que quer imprimir, quando manda imprimir esta mostrando um report para cada CT-e, o cliente quer que seja parecido com o sistema gratuito do governo, onde os CT-es selecionados ficam em um mesmo report.

Eu estou fazendo dessa maneira:

var dir:String;
    i:integer;
begin
  cdsQconsulta.First;

  while not cdsQconsulta.Eof do
    begin
      if cdsQconsultaselecionado.Value = 1 then
        begin
          dir := dmCte.ACBrCTe1.Configuracoes.Arquivos.GetPathCTe(cdsQconsultaDATA_EMISSAO.Value)+'\'+cdsQconsultaCHAVE_CTE.Value+'-cte.xml';

          if FileExists(dir) then
            begin
              dmCte.ACBrCTe1.Conhecimentos.Clear;
              dmCte.ACBrCTe1.Conhecimentos.LoadFromFile(dir);
              dmCte.ACBrCTe1.Conhecimentos.Items[0].Imprimir;
              dmCte.ACBrCTe1.Conhecimentos.Items[0].ImprimirPDF;
            end
        end;
      cdsQconsulta.Next;
    end;

 

 

 

 

Link para o comentário
Compartilhar em outros sites

Mesmo eu fazendo assim ele abre uma visualização para cada CT-e.

 

 dmCte.ACBrCTe1.Conhecimentos.Clear;
 while not cdsQconsulta.Eof do
    begin
      if cdsQconsultaselecionado.Value = 1 then
        begin
          dir := dmCte.ACBrCTe1.Configuracoes.Arquivos.GetPathCTe(cdsQconsultaDATA_EMISSAO.Value)+'\'+cdsQconsultaCHAVE_CTE.Value+'-cte.xml';

          if FileExists(dir) then
            begin
              dmCte.ACBrCTe1.Conhecimentos.LoadFromFile(dir);
            end
        end;
      cdsQconsulta.Next;
    end;
 dmCte.ACBrCTe1.Conhecimentos.Imprimir;

 

Link para o comentário
Compartilhar em outros sites

Bom Dia Danilo, cara fazendo isso ai é para imprimir tudo em uma unica impressão. Tente debugar teu projeto ai e veja o que ele esta fazendo. Pois até fiz um teste aqui no projeto da ACBR e deu certo. 

1º Limpe o componente;

2º Adicione a ele as tuas configurações;

3º Adicione os XMLs que queres imprimir;

4º Execute o comando imprimir;

 

Qualquer coisa me chame no Skype : eliton.net / [email protected] 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2619 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.