henriquewow

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;