Crear Parametros dinamicamente en Crystal desde delphi

[richy08]

Buenos dias Compañeros tengo un pequeño problema cree un reporte el cual a veces necesito que filtre por tres campos y a veces por dos el detalle es como puede indicarle a crystal que cree en el reporte lso parametros la formula las borro y las vuelvo a genrar el problema es crear los parametros gracias por cualquioer ayuda.


Crp_OcuRat.WindowState:=WsMaximized;
Crp_OcuRat.Selection.Formula.Clear;
if dbl_Age.KeyValue=Null then
begin
Crp_OcuRat.Selection.Formula.Add(' {reserve.sStaRes}=''PA'' and {reserve.dArrivaldate}>={?fecini} and {reserve.dArrivaldate}<={?fecend}');
Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
end
else
begin
Crp_OcuRat.Selection.Formula.Add(' {reserve.sStaRes}=''PA'' and {reserve.dArrivaldate}>={?fecini} and {reserve.dArrivaldate}<={?fecend} and {sources.sSourceCode}={?agencie}');
Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
Crp_OcuRat.Paramfields[2].currentvalue:=dbl_age.KeyValue;
end;
Crp_OcuRat.Show;

[Caral]

Hola
Seguro me equivoco, pero:


Crp_OcuRat.WindowState:=WsMaximized;
Crp_OcuRat.Selection.Formula.Clear;
if dbl_Age.KeyValue=Null then
begin
Crp_OcuRat.Selection.Formula.Add('reserve.sStaRes =''PA'' and reserve.dArrivaldate >= :?fecini and reserve.dArrivaldate <= :?fecend');
Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
end
else
begin
Crp_OcuRat.Selection.Formula.Add('reserve.sStaRes =''PA'' and reserve.dArrivaldate >= :?fecini and reserve.dArrivaldate <= :?fecend and sources.sSourceCode = :?agencie');
Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
Crp_OcuRat.Paramfields[2].currentvalue:=dbl_age.KeyValue;
end;
Crp_OcuRat.Show;
Desconozco por que el uso del signo de interrogarion en los parametros.:confused:, si el campo se llama asi, pues estará bien.:D
Me da la impresion de que usas Access, me equivoco?.
Saludos

[richy08]

Hola gracias caral por contestarme pero no para nada ni loco utilizaria access:eek: utilizo mssql2005 y pues ya encontre la solucion jeje la posteo


Crp_OcuRat.Selection.Formula.Clear;
if dbl_Age.KeyValue=Null then
begin
Crp_OcuRat.Selection.Formula.Add(' {reserve.sStaRes}=''PA'' and {reserve.dArrivaldate}>={?fecini} and {reserve.dArrivaldate}<={?fecend}');

end
else
begin
Crp_OcuRat.Selection.Formula.Add(' {reserve.sStaRes}=''PA'' and {reserve.dArrivaldate}>={?fecini} and {reserve.dArrivaldate}<={?fecend} and {sources.sSourceCode}='+''''+Dbl_Age.KeyValue+'''');
end;
Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
Crp_OcuRat.Show;

[richy08]

:confused::confused::confused:Your post rocks!
:confused::confused: