--Variable para el envio de parametros
PARAMETROS ParamList;

begin

--Se instancia la lista de parametros
PARAMETROS:=Get_Parameter_List('PARAMETROS');

--En caso de que la lista no este en blanco
-- de ponen en blanco.
IF NOT Id_Null(PARAMETROS) THEN
Destroy_Parameter_List( PARAMETROS );
end If;

--Se crea la lista
PARAMETROS:=Create_Parameter_List('PARAMETROS');

--Se agrega un parametro de nombre Fecha1
Add_parameter(PARAMETROS,'Fecha1',Text_Parameter,to_char(:datos.Ini,'DD/MM/YYYY'));
--Se agrega un parametro de nombre Fecha2
Add_parameter(PARAMETROS,'Fecha2',Text_Parameter,to_char(:datos.Fin,'DD/MM/YYYY'));

--Se manda a llamar al reporte y se envia el archivo de parametros.
RUN_PRODUCT(REPORTS,:GLOBAL.DIR||'PH\R\PH905.RDF',ASYNCHRONOUS,RUNTIME,FILESYSTEM,PARAMETROS,null);

end;


En el codigo que te puse no tomes en cuenta los \\\ estos caracteres se agregan aqui al poner texto entre comillas.

Responder