DECLARE
V_CURR_RECORD NUMBER;
BEGIN
V_CURR_RECORD := :SYSTEM.TRIGGER_RECORD; --将系统的记录数赋给它
IF :po_IMPORT_HISTORY.SELECTED_FLAG = 'Y' THEN
IF :PARAMETER.P_RECORD_CODE IS NOT NULL THEN
GO_RECORD(:PARAMETER.P_RECORD_CODE);
:po_IMPORT_HISTORY.SELECTED_FLAG := 'N';
GO_RECORD(V_CURR_RECORD);
END IF;
:PARAMETER.P_RECORD_CODE := :SYSTEM.TRIGGER_RECORD;
ELSE
:PARAMETER.P_RECORD_CODE := NULL;
END IF;
END;
------解决方案--------------------
DECLARE
V_CURR_RECORD NUMBER;
BEGIN
V_CURR_RECORD := :SYSTEM.TRIGGER_RECORD; --将系统的记录数赋给它
--如果块po_IMPORT_HISTORY的item为SELECTED_FLAG值为Y
IF :po_IMPORT_HISTORY.SELECTED_FLAG = 'Y' THEN
--如果参数P_RECORD_CODE 不为空
IF :PARAMETER.P_RECORD_CODE IS NOT NULL THEN
--光标跳到参数为:PARAMETER.P_RECORD_CODE的记录
GO_RECORD(:PARAMETER.P_RECORD_CODE);
:po_IMPORT_HISTORY.SELECTED_FLAG := 'N';
--块po_IMPORT_HISTORY的item为SELECTED_FLAG值改为N
GO_RECORD(V_CURR_RECORD);----光标跳到参数为V_CURR_RECORD的记录
END IF;
--将记录值赋给参数P_RECORD_CODE
:PARAMETER.P_RECORD_CODE := :SYSTEM.TRIGGER_RECORD;
ELSE
:PARAMETER.P_RECORD_CODE := NULL;--将参数P_RECORD_CODE 赋值班为空
END IF;
END;