este es el proceso tratando de usar parameters, no me da error me pero no me arroja ningun resultado la consulta
los parameters FDESDE y FHASTA son de tipo fecha y el cod_cobrador es entero...
Código Delphi
[-]procedure TFrmRepdeCobr.BtHacereporteClick(Sender: TObject);
var
fecfin,fecini:TDate;
codcobstr:String;
begin
With logicanegocio do
begin
CDSREpxCobYrango.Close;
fecini:=strtodate(formatdatetime('mm/dd/yy',TPFechini.Date));
Fecfin:=strtodate(FormatDateTime('mm/dd/yy',TPFechfinal.Date));
codcobstr:=IntToStr(Coddecobr);
ShowMessage('datos a buscar en inicial:'+DateToStr(fecini)+' final:'+datetostr(fecfin)+' cobrador :'+IntToStr(Coddecobr));
case Tpickrepcobr.ItemIndex of
0:begin
If Coddecobr=0 then
begin
ShowMessage('No ha escogido el cobrador ');
EdCodCobr.SetFocus;
end;
CDSREpxCobYrango.Params.ParamByName('Cod_cobrador').Value := Coddecobr;
CDSREpxCobYrango.Params.ParamByName('FDESDE').Value := fecini;
CDSREpxCobYrango.Params.ParamByName('FHASTA').Value := fecfin;
CDSREpxCobYrango.Open;
end;
end;
end;
end;