Pesquisar na Comunidade
Mostrando resultados para as tags ''report''.
Encontrado 4 registros
-
Em meu sistema eu tenho um modelo para que o usuário possa personalizar alguns relatório. estou usando o FastReport5 o Fast me dá 2 opções de editores frpLayout.DesignReport -> ele abre a interface do fastReport completa frpLayout.DesignReportInPanel(pnlLayout) -> ele carrega uma interface do fast um pouco mais simples em um panel. no meu caso, preciso utilizar a segunda opção. - os relatórios estão sendo carregados sem o menor problema, mas quando o usuário começar a usar, e a clicar nos componentes do relatório, fica dando access violation sem motivo algum não tem evento, não tem nada associado aos componentes. alguém sabe como resolver isso? já chamei o suporte tecnico do fast e nem eles conseguem uma solução já estou ficando sem idéias pra tentar resolver
- 5 respostas
-
- fastreport
- editor
-
(e %d mais)
Tags:
-
Boa tarde pessoal sou um programa novato, e migrei para o delphi. fiz uma fiz um select que manda o resultado para uma dbgrid onde já foi filtrada, eu não estou conseguindo imprimir o relatório que esta na grid alguém pode me da uma ajuda. uso fast report e Delphi 10 Seattle. segue o codigo de filtro. begin if txt_buscarRelatorioID.Text = '' then begin with DM.SQL_Produtos do begin Close; SQL.Clear; SQL.Add('select * from produtos'); case RG_entregue.ItemIndex of 0 : SQL.Add('where pro_entregue = "SIM" '); 1 : SQL.Add('where pro_entregue = "não" '); 2 : SQL.Add(''); end; Open; if RecordCount = 0 then ShowMessage('Cliente não Cadastrado!'); end; end else begin with DM.SQL_Produtos do begin Close; SQL.Clear; SQL.Add('select * from produtos'); case RG_pes.ItemIndex of 0 : SQL.Add('where pro_comprador = :idcli'); 1 : SQL.Add('where pro_vendedor = :idcli'); end; case RG_entregue.ItemIndex of 0 : SQL.Add('and pro_entregue = "SIM" '); 1 : SQL.Add('and pro_entregue = "não" '); 2 : SQL.Add(''); end; ParamByName('idcli').Value := txt_buscarRelatorioID.Text; anjo:=StrToInt(txt_buscarRelatorioID.Text); Open; SQLDataSet1:= dm.SQL_Produtos; if RecordCount = 0 then ShowMessage('Cliente não Cadastrado!'); end; end; end;
-
Boas pessoal, preciso de ajuda. Tenho um report.rdlc, tenho la um textbox com um texto que gostava de justificar o texto. Conto com a vossa ajuda obrigado.