ianire
26 de Mayo del 2004

hola!
me gustaria recibbir informacin sobre como puedo pasar parametros a reports desde forms
gracias

Rodolfo Reyes
26 de Mayo del 2004

Aqui te va un ejemplo:


Declare
PARAMETROS ParamList;

BEGIN
PARAMETROS:=Get_Parameter_List('PARAMETROS');

IF NOT Id_Null(PARAMETROS) THEN
Destroy_Parameter_List( PARAMETROS );
end If;

PARAMETROS:=Create_Parameter_List('PARAMETROS');

--Parametros de usuario
Add_parameter(PARAMETROS,'I_NROCURSO',Text_Parameter,TO_CHAR(:E.NROCURSO));
Add_parameter(PARAMETROS,'I_CONTRATO',Text_Parameter,:E.CONTRATO);
Add_parameter(PARAMETROS,'Fecha1',Text_Parameter,to_char(:datos.Ini,'DD/MM/YYYY'));

--Parametros del sistema
Add_parameter(PARAMETROS,'DESTYPE',Text_Parameter,:G.DESTYPE);
Add_parameter(PARAMETROS,'DESNAME',Text_Parameter,:G.DESNAME);
Add_parameter(PARAMETROS,'DESFORMAT',Text_Parameter,:G.DESFORMAT);
Add_parameter(PARAMETROS,'ORIENTATION',Text_Parameter,:G.ORIENTATION);
Add_parameter(PARAMETROS,'MODE',Text_Parameter,:G.MODE);

RUN_PRODUCT(REPORTS,'c:PHRNombreReporte',ASYNCHRONOUS,RUNTIME,FILESYSTEM,PARAMETROS,null);
END

Espero que te sirva