Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • O primeiro passo, e muito importante, é verificar a ordem dos filtros no condutor de dados, pois você terá que passar essa informação no evento da variável ou label.
  • Na imagem abaixo, o campo CodEmpresa da tabela Nota Fiscal é a posição 0 e o campo DataNF da mesma tabela é a posição 1, e assim por diante.


Image Modified


...

(seleção) Como imprimir o período digitado pelo usuário.
  • Nos Eventos do Report Builder, acesse o evento OnPrint de um objeto Label, e coloque o seguinte comando:

    Bloco de código
    begin

    
      Label12.Caption := DateToStr(Report.AutoSearchFields[parametro].Value)+ ' a ' +   
      DateToStr(Report.AutoSearchFields[parametro].Value);

    
    end;



O comando AutoSearchFields[RTF:1].Value irá pegar o campo digitado na posição 1, e o DateToStr converte a data para string.

[parametro] - Deverá ser preenchido sempre com a posição do parâmetro que você quer pegar.

...

  • Nos Eventos do Report Builder, acesse o evento OnPrint OnGetText de um objeto Label, e coloque o seguinte comando:


Bloco de código
begin

...


  if Report.AutoSearchFields[

...

0].ShowAllValues

...

 then begin
    Text:=

...

 'Todas as

...

 Filiais';
  end else begin
    Text:= 'Filial: '+Report.AutoSearchFields[0].Value + ' - '+NotaFiscal['NomeUsual (2)']

...

 ;
  end;                                                         
end;


O comando Report.AutoSearchFields[parametro].ShowAllValues identifica quando o usuário seleciona a opção de todos.
[parametro] - Deverá ser preenchido sempre com a posição do parâmetro que você quer pegar.


Image Modified


Feito isso, se o usuário selecionar uma determinada empresa será impresso o nome usual daquela empresa se ele selecionar Mostrar todos os valores do campos CodEmpresa, no relatório será impresso "Todas as Empresas".

...