如何使用从 select 查询块获取的 pl/sql 循环在单击按钮上一次插入 11-13 个 gr_numbers

Question

我想插入那些从 APP_USER 获得的所有 gr_numbers，结果图像附加了大约 11-13 个 gr_numbers。 我的目标是我有一个按钮，当我单击按钮时，我想编写一个过程，每当我单击按钮时，它将使用单击按钮上的循环插入所有 gr_numbers。

这是我的 Gr_numbers 结果图像，它来自 select 块。 这是在单击按钮上插入所有 gr_number 所必需的 在此处输入图像描述

代码有错误/错误它不会在单击按钮上插入所有 gr_numbers

declare
vtm NUMBER(38);

-- vtm student.gr_number%TYPE;
tab apex_application_global.vc_arr2;
BEGIN
tab := apex_util.string_to_table (vtm);
SELECT s.gr_number into vtm
FROM student s
left join class_time ct on ct.class_id=s.class_id and
instr(s.class_time, ct.class_time) > 0
where upper(trim(ct.class_id)) = upper(trim(:APP_USER)) and s.gr_number is not null
and is_active_flg = 'Y';

dbms_output.put_line(vtm); 
for i in vtm..tab.count loop
begin

insert into STUDENT_CLASS_ATTEND(gr_number, student_id, PERIOD_NEXT_DAY_FLG, attend_date,                                    period_start_dt, period_end_dt, PERIOD_DURATION,  course_name, class_time, branch_id, shift_id, teacher_id, class_id,  marked_by,     course_id, class_uid)
                          select vtm, student_id, next_day_flg,        to_date(UPPER(:P7_ATTEND_DT_TMP),'DD-MON-YYYY'), prd_start_tm,   prd_end_tm,    prd_diff_minutes, course_name, class_time, branch_id, shift_id, teacher_id, class_id, :v_employee_id, course_id, class_uid
from (
WITH
class_start_tm as
(select s.gr_number, 
        s.class_id, 
        s.class_time as student_class_time_list, 
        ct.class_time, 
        ct.seq, 
        to_date(upper(:P7_ATTEND_DT_TMP)||' '||ct.class_time, 'DD-MON-YYYY HHMIAM') as class_first_tm
from student s
join class_time ct on s.class_id=ct.class_id
where s.gr_number =:P7_GR_TMP
and ct.seq=1
)
,tm as(
Select s.gr_number,
       cl.duration_minutes,
       t.class_first_tm,
       to_date(UPPER(:P7_ATTEND_DT_TMP)||' '||to_char(cl.start_time,'HHMIAM'), 'DD-MON-YYYY HHMIAM') as prd_start_tm,
       to_date(UPPER(:P7_ATTEND_DT_TMP)||' '||to_char(cl.start_time,'HHMIAM'), 'DD-MON-YYYY HHMIAM')+ interval '30' minute as prd_end_tm,
       (case when to_date(UPPER(:P7_ATTEND_DT_TMP)||' '||to_char(cl.start_time,'HHMIAM'), 'DD-MON-YYYY HHMIAM') < t.class_first_tm then 'Y' else 'N' end) next_day_flg
from calender_24hr cl
join student s on instr(s.class_time,cl.time_12hr)>0 and s.gr_number=:P7_GR_TMP
join class_start_tm t on t.gr_number=s.gr_number
)
,tm1 as (
select gr_number,
       duration_minutes,
--       class_first_tm,
       (case when next_day_flg='Y' then prd_start_tm+1 else prd_start_tm end) prd_start_tm,
       (case when next_day_flg='Y' then prd_end_tm+1 else prd_end_tm end) prd_end_tm,
       next_day_flg
from tm
order by (case when next_day_flg='Y' then prd_start_tm+1 else prd_start_tm end)
)
,tm2 as (
select gr_number,
       max(next_day_flg) AS next_day_flg, 
       min(prd_start_tm) AS prd_start_tm, 
       max(prd_end_tm) AS prd_end_tm, 
       round((max(prd_end_tm)-min(prd_start_tm))*24*60,0)  AS prd_diff_minutes,
       sum(duration_minutes) actual_minutes,
       round((max(prd_end_tm)-min(prd_start_tm))*24*60,0) - sum(duration_minutes) as gap_minutes
from tm1
 group by gr_number
) 
select st.gr_number, st.student_id, tm.next_day_flg, prd_start_tm, prd_end_tm, tm.prd_diff_minutes, 
       tm.actual_minutes, tm.gap_minutes, 
       st.course as course_id, cr.course_name, 
       cl.class_uid, st.class_id, st.class_time, 
       st.branch_id, st.shift_id, cl.teacher_id
from tm2 tm
join student st on tm.gr_number=st.gr_number
left join course cr on cr.course_id = st.course
left join class cl  on cl.class_id = st.class_id
);


exception WHEN NO_DATA_FOUND THEN
dbms_output.put_line('there is no data..');

end;

end loop;
commit;
end;

但初始化图像中发生的错误如下在此处输入图像描述

Answer 1

如果表中已经有 gr_number，那么这应该只是一个标准的 INSERT-SELECT 语句

insert into STUDENT_CLASS_ATTEND(
  gr_number, student_id, PERIOD_NEXT_DAY_FLG, 
  attend_date, period_start_dt, period_end_dt, 
  PERIOD_DURATION, course_name, class_time, 
  branch_id, shift_id, teacher_id, class_id, 
marked_by, course_id, class_uid)
select  
  s.gr_number, :P7_STUDENT_ID, :P7_PERIOD_NEXT_DAY_FLG, 
  to_date(UPPER(:P7_ATTEND_DATE),'DD-MON-YYYY'), :P7_PERIOD_START_DT, :P7_PERIOD_END_DT, 
  :P7_PERIOD_DURATION, :P7_COURSE_NAME, :P7_CLASS_TIME, 
  :P7_BRANCH_ID, :P7_SHIFT_ID, :P7_TEACHER_ID, :P7_CLASS_ID, 
  :v_employee_id, :P7_COURSE_ID, :P7_CLASS_UID
FROM student s
left join class_time ct on ct.class_id=s.class_id and
instr(s.class_time, ct.class_time) > 0
where upper(trim(ct.class_id)) = upper(trim(:APP_USER)) and s.gr_number is not null
and is_active_flg = 'Y'