| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
henriquetazi Novato

Registrado: Sexta-Feira, 12 de Mai de 2017 Mensagens: 4
|
Enviada: Sex Mai 12, 2017 12:08 pm Assunto: Imprimir Conteúdo da DBGrid |
|
|
boa tarde pessoal, estou com dificuldades em imprimir o conteúdo da minha dbgrid
aqui eu faço um consulta usando um edit e Rgroup para filtrar o conteúdo, mas não estou conseguindo passa os dados da grid para o report alguém pode me ajudar
| Citação: |
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 = "NAO" ');
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 = "NAO" ');
2 : SQL.Add('');
end;
ParamByName('idcli').Value := txt_buscarRelatorioID.Text;
anjo:=StrToInt(txt_buscarRelatorioID.Text);
Open;
if RecordCount = 0 then
ShowMessage('Cliente não Cadastrado!');
end;
end;
end; |
|
|
| Voltar ao Topo |
|
 |
natanbh1 Colaborador

Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
|
| Voltar ao Topo |
|
 |
henriquetazi Novato

Registrado: Sexta-Feira, 12 de Mai de 2017 Mensagens: 4
|
Enviada: Sex Mai 12, 2017 1:18 pm Assunto: |
|
|
estou usando fastReport |
|
| Voltar ao Topo |
|
 |
natanbh1 Colaborador

Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
|
| Voltar ao Topo |
|
 |
henriquetazi Novato

Registrado: Sexta-Feira, 12 de Mai de 2017 Mensagens: 4
|
Enviada: Sex Mai 12, 2017 1:58 pm Assunto: |
|
|
| vlw, ja estou olhando a apostila |
|
| Voltar ao Topo |
|
 |
henriquetazi Novato

Registrado: Sexta-Feira, 12 de Mai de 2017 Mensagens: 4
|
Enviada: Seg Mai 15, 2017 8:57 am Assunto: |
|
|
| ainda não conseguir resolver o problema, tem alguma forma de passa a consulta em codigo para o query e assim lista ela no report |
|
| Voltar ao Topo |
|
 |
natanbh1 Colaborador

Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
|
| Voltar ao Topo |
|
 |
|