Fórum parametro com SimpleDataSet #335963
10/01/2007
0
Boa tarde
Estou a pesquisar na internet faz umas duas semanas, tenho ficado até altas horas da madruga em busca de artigos, exemplos, etc sobre relatórios, quase não encontro nada, alias encontrei alguns mas só relatorio simples listagem, eu preciso de relatorios por grupo etc, tanto faz se em rave ou quickreport, bom, mudando de assunto, eu criei um form com um panel e coloquei no panel um QuickRep1, um SimpleDataSet (SDSGrupo) configurei bonitinho, coloquei os o nome dos params na propriedade params, coloquei um Botão au cricar dá o seguinte erro:
unknown ISC error 0.
fui na propriedade do SimpleDataSet e retirei os params
deu o seguinte erro agora
params ´Varcodgru´ não encontrado.
Se alguém puder me ajudar o código no botão é:
procedure TFormDialRel.BitBtn1Click(Sender: TObject);
begin
try
SDSGrupo.Close;
SDSGrupo.DataSet.CommandText:=´´;
SDSGrupo.DataSet.CommandText :=´select cod, nome, sum(valor) as soma from lancamento ´+
´where cdgrup =:VarCodGru and idorig =:VarOrig and data Between :VarDataI and :VarDataF group by cdgrup, cod, nome´;
SDSGrupo.Params.ParamByName(´VarCodGru´).AsString := EdCodGrup.Text;
SDSGrupo.Params.ParamByName(´VarOrig´).AsString := EdCodOrig.Text;
SDSGrupo.Params.ParamByName(´VarDataI´).AsDateTime := DateTimePicker1.Date;
SDSGrupo.Params.ParamByName(´VarDataF´).AsDateTime := DateTimePicker2.Date;
SDSGrupo.Open;
QuickRep2.Preview;
finally
SDSGrupo.Close;
end
end;
desde já agradeço pela atenção de todos.
Estou a pesquisar na internet faz umas duas semanas, tenho ficado até altas horas da madruga em busca de artigos, exemplos, etc sobre relatórios, quase não encontro nada, alias encontrei alguns mas só relatorio simples listagem, eu preciso de relatorios por grupo etc, tanto faz se em rave ou quickreport, bom, mudando de assunto, eu criei um form com um panel e coloquei no panel um QuickRep1, um SimpleDataSet (SDSGrupo) configurei bonitinho, coloquei os o nome dos params na propriedade params, coloquei um Botão au cricar dá o seguinte erro:
unknown ISC error 0.
fui na propriedade do SimpleDataSet e retirei os params
deu o seguinte erro agora
params ´Varcodgru´ não encontrado.
Se alguém puder me ajudar o código no botão é:
procedure TFormDialRel.BitBtn1Click(Sender: TObject);
begin
try
SDSGrupo.Close;
SDSGrupo.DataSet.CommandText:=´´;
SDSGrupo.DataSet.CommandText :=´select cod, nome, sum(valor) as soma from lancamento ´+
´where cdgrup =:VarCodGru and idorig =:VarOrig and data Between :VarDataI and :VarDataF group by cdgrup, cod, nome´;
SDSGrupo.Params.ParamByName(´VarCodGru´).AsString := EdCodGrup.Text;
SDSGrupo.Params.ParamByName(´VarOrig´).AsString := EdCodOrig.Text;
SDSGrupo.Params.ParamByName(´VarDataI´).AsDateTime := DateTimePicker1.Date;
SDSGrupo.Params.ParamByName(´VarDataF´).AsDateTime := DateTimePicker2.Date;
SDSGrupo.Open;
QuickRep2.Preview;
finally
SDSGrupo.Close;
end
end;
desde já agradeço pela atenção de todos.
Altenir
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)