Procedure Lanza_Report Is PL_ID PARAMLIST; TMPDATA VARCHAR2(10):= 'LISTA'; Report_id Report_Object; ReportServerJob VARCHAR2(4000) := ''; Begin Report_id := find_report_object('CTR80250'); PL_ID:=GET_PARAMETER_LIST(TMPDATA); IF NOT ID_NULL(PL_ID) THEN DESTROY_PARAMETER_LIST(PL_ID); END IF; PL_ID:=CREATE_PARAMETER_LIST(TMPDATA); ----- parametros del sistema Add_parameter(PL_ID,'BACKGROUND', TEXT_PARAMETER, 'YES'); SET_REPORT_OBJECT_PROPERTY(Report_id,REPORT_COMM_MODE, SYNCHRONOUS); SET_REPORT_OBJECT_PROPERTY(Report_id,REPORT_DESTYPE, PREVIEW); SET_REPORT_OBJECT_PROPERTY(Report_id,REPORT_SERVER, 'WLS_REPORTS'); Add_parameter(PL_ID,'PRINTJOB' , TEXT_PARAMETER, 'YES'); Add_parameter(PL_ID,'PARAMFORM' , TEXT_PARAMETER, 'NO'); -- parametros de ususario ADD_PARAMETER(PL_ID,'PV_ALMACEN' ,TEXT_PARAMETER,:GLOBAL.ALMACEN); ADD_PARAMETER(PL_ID,'PV_ARTICULO' ,TEXT_PARAMETER,:B1.MVM_ARTICU); ADD_PARAMETER(PL_ID,'PV_CLIENTE' ,TEXT_PARAMETER,To_Char(:B1.DRV_PROPIE)); ADD_PARAMETER(PL_ID,'PV_CODMOV' ,TEXT_PARAMETER,To_Char(:B1.MVM_CODIGO)); ADD_PARAMETER(PL_ID,'PV_FECDES' ,TEXT_PARAMETER,To_char(:B1.DRV_FECDES,'dd/mm/yyyy')); ADD_PARAMETER(PL_ID,'PV_FECHAS' ,TEXT_PARAMETER,To_char(:B1.DRV_FECHAS,'dd/mm/yyyy')); ADD_PARAMETER(PL_ID,'PV_OPERARIO' ,TEXT_PARAMETER,To_char(:B1.Mvm_Operar)); ADD_PARAMETER(PL_ID,'PV_PALETA' ,TEXT_PARAMETER,:B1.Mvm_Paleta); ADD_PARAMETER(PL_ID,'PV_TIPMOV' ,TEXT_PARAMETER,:B1.Mvm_TipMov); ADD_PARAMETER(PL_ID,'PV_TIPO_STOCK',TEXT_PARAMETER,:GLOBAL.Tipo_Operacion); ADD_PARAMETER(PL_ID,'PV_VARLO1' ,TEXT_PARAMETER,:B1.Mvm_Varia1); ADD_PARAMETER(PL_ID,'PV_VARLO2' ,TEXT_PARAMETER,:B1.Mvm_Varia2); ADD_PARAMETER(PL_ID,'PV_VARLOG' ,TEXT_PARAMETER,To_Char(:B1.Mvm_Varlog)); ADD_PARAMETER(PL_ID,'PV_CODFA1' ,TEXT_PARAMETER,:B1.CODFA1); ADD_PARAMETER(PL_ID,'PV_SUBFA1' ,TEXT_PARAMETER,:B1.SUBFA1); ADD_PARAMETER(PL_ID,'PV_CODFA2' ,TEXT_PARAMETER,:B1.CODFA2); ADD_PARAMETER(PL_ID,'PV_WHERE' ,TEXT_PARAMETER,:B1.Drv_Where); ADD_PARAMETER(PL_ID,'PV_2WHERE' ,TEXT_PARAMETER,:B1.Drv_Where2); message('8');pause; ReportServerJob := run_report_object(Report_id,PL_ID); message('9');pause; PL_ID := GET_PARAMETER_LIST(TMPDATA); IF NOT ID_NULL(PL_ID) THEN DESTROY_PARAMETER_LIST(PL_ID); END IF; END;