Parametros de form a repor
Como traslado los parámetros de form a repor . Lo estoy asiendo así y no me funciona.
Declare
pl_id ParamList;
BEGIN
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
Add_Parameter(pl_id,'fecha',DATA_PARAMETER,:block3.fecha);
pl_id := Get_Parameter_List(:block3.fecha);
Run_Product(REPORTS, 'r_nencuestas'
, SYNCHRONOUS, RUNTIME,
FILESYSTEM, pl_id, NULL);
END;
Gracias ..
Declare
pl_id ParamList;
BEGIN
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
Add_Parameter(pl_id,'fecha',DATA_PARAMETER,:block3.fecha);
pl_id := Get_Parameter_List(:block3.fecha);
Run_Product(REPORTS, 'r_nencuestas'
, SYNCHRONOUS, RUNTIME,
FILESYSTEM, pl_id, NULL);
END;
Gracias ..
1 Respuesta
Respuesta de walrus
1
Lo primero que tienes que hacer es asegurarte de que tienes los parámetros definidos en el report, para que puedan recoger los valores.
Una vez hecho esto, sigue esta secuencia:
PROCEDURE IMPRIMIR_INFORME IS
pl_name varchar2(20) := 'DATOS_USUARIO';
pl_id ParamList;
BEGIN
pl_id := Get_Parameter_List(pl_name);
IF Id_Null(pl_id) <> TRUE THEN
Destroy_Parameter_List(pl_name) ;
END IF ;
pl_id := Create_Parameter_List(pl_name);
IF Id_Null(pl_id) THEN
RAISE FORM_TRIGGER_FAILURE ;
END IF;
Add_Parameter(pl_id,'P_COD_CODIGO' ,TEXT_PARAMETER, :B0.COD_CODIGO);
Add_parameter(pl_id,'P_FEC_FECHA' ,TEXT_PARAMETER, :B0.FEC_FECHA);
Add_parameter(pl_id,'P_IMP_IMPORTE' ,TEXT_PARAMETER, :B0.IMP_IMPORTE);
Run_Product(REPORTS, 'R_REPORT', SYNCHRONOUS, RUNTIME,
FILESYSTEM, pl_id, NULL);
END ;
Hasta otra.
Una vez hecho esto, sigue esta secuencia:
PROCEDURE IMPRIMIR_INFORME IS
pl_name varchar2(20) := 'DATOS_USUARIO';
pl_id ParamList;
BEGIN
pl_id := Get_Parameter_List(pl_name);
IF Id_Null(pl_id) <> TRUE THEN
Destroy_Parameter_List(pl_name) ;
END IF ;
pl_id := Create_Parameter_List(pl_name);
IF Id_Null(pl_id) THEN
RAISE FORM_TRIGGER_FAILURE ;
END IF;
Add_Parameter(pl_id,'P_COD_CODIGO' ,TEXT_PARAMETER, :B0.COD_CODIGO);
Add_parameter(pl_id,'P_FEC_FECHA' ,TEXT_PARAMETER, :B0.FEC_FECHA);
Add_parameter(pl_id,'P_IMP_IMPORTE' ,TEXT_PARAMETER, :B0.IMP_IMPORTE);
Run_Product(REPORTS, 'R_REPORT', SYNCHRONOUS, RUNTIME,
FILESYSTEM, pl_id, NULL);
END ;
Hasta otra.
