【发布时间】:2019-03-06 06:32:38
【问题描述】:
具有多记录数据块的表单,通过调用 PL/SQL 来更新表以检查已检查的行。需要能够在 execute_query 之后保留复选框选中状态和位置。
WHEN-BUTTON-PRESSED 上的代码处理所有选定的行。
DECLARE
l_cur_record NUMBER;
v_error VARCHAR2 (1);
BEGIN
l_top_record := GET_BLOCK_PROPERTY ('LOAD_DETAILS_LOG', TOP_RECORD);
GO_BLOCK ('LOAD_DETAILS_LOG');
FIRST_RECORD;
LOOP
IF :LOAD_DETAILS_LOG.select_chk = 'Y'
THEN
l_cur_record := :SYSTEM.CURSOR_RECORD;
PK_LOAD_CHE.P_CHECK_FILES ( :LOAD_DETAILS_LOG.file_id,
:LOAD_DETAILS_LOG.original_filename,
:LOAD_DETAILS_LOG.fsy_code,
:LOAD_DETAILS_LOG.received_date,
v_error);
END IF;
EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
NEXT_RECORD;
END LOOP;
IF v_error = 'Y'
THEN
msg_alert ('Errors found in selected files. Please check Error Log',
'I',
FALSE);
GO_BLOCK ('LOAD_DETAILS_ERRORS');
EXECUTE_QUERY;
ELSE
GO_BLOCK ('LOAD_DETAILS_LOG');
EXECUTE_QUERY (NO_VALIDATE);
END IF;
END;
【问题讨论】:
标签: oracle oracleforms