Виды сертификатов (Get_Kind_Documents)

Select kd.Name

,kd.idk_doc

From kind_document_ kd

Where kd.idk_doc In (474151, 474152, 474153)

Выдать сертификат об окончании (Make_New_Cert_By_Params)

Declare

new_id_doc Number;

new_id_cert Number;

Begin

-- Добавляем документ

Insert Into documents_

(idk_doc, when_given, identifier, who_given, id_e)

Values

(%p4[i]%

,(Select Max(os.d_start)

From orders_students_ os

Where os.id_student = %p1[i]%)

,%p5[i]%

,ts_.Get_Header(13

,(Select Max(os.d_start)

From orders_students_ os

Where os.id_student = %p1[i]%))

,(Select st.id_e From students_ st Where st.id_student = %p1[i]%))

Returning id_doc Into new_id_doc;

-- Добавляем в него сертификат

Insert Into certificate_

(d_start

,d_end

,id_speciality

,id_doc

,idk_level_formation

,heard_hours)

Values

((Select st.d_start From students_ st Where st.id_student = %p1[i]%)

,(Select Max(os.d_start)

From orders_students_ os

Where os.id_student = %p1[i]%)

,(Select sg.id_speciality

From students_ s

,student_groups_ sg

Where s.id_student = %p1[i]%

And s.id_ed_group = sg.id_ed_group)

,new_id_doc

,(Select sg.idk_level_formation

From students_ s

,student_groups_ sg

Where s.id_student = %p1[i]%

And s.id_ed_group = sg.id_ed_group)

,%p6[i]%)

Returning id_certificate Into new_id_cert;

-- Теперь - регистрируем его в журнале выдачи дипломов

Insert Into magazine_registr_diplomas_

(id_paragraph_magazine

,id_certificate

,registration_number

,id_student

,id_e)

Values

(%p2[i]%

,new_id_cert

,%p3[i]%

,%p1[i]%

,(Select st.id_e From students_ st Where st.id_student = %p1[i]%));

End;

Забрать сертификат (Delete_Certificate)

Declare

id_d Number;

Begin

Select cr.id_doc

Into id_d

From certificate_ cr

Where cr.id_certificate = %p1[i]%;

Delete From magazine_registr_diplomas_ m Where m.id_certificate = %p1[i]%;

Delete From certificate_ cr Where cr.id_certificate = %p1[i]%;

Delete From documents_ d Where d.id_doc = id_d;

End;

Поиск журнала (Find_Magazine_Reg_Dip)

Select ps.id_paragraph

,ps.idk_order

,ps.name_Kind_paragraph

,ps.id_metaterm

,ps.id_order

,ps.temp_identifier

,ps.identifier

,ps.hisdate

,ps.Status_order

,ps.Status_Text

,ps.d_creation

,ps.id_erp_user

,''

From magazine_registr_diplomas_ m

,paragraphs_status_ ps

,students_ st

,student_groups_ eg

Where m.id_paragraph_magazine = ps.id_paragraph

And m.id_student = st.id_student

And st.id_ed_group = eg.id_ed_group

And eg.idk_level_speciality = 70

And rownum = 1

Регистрационный номер в журнале (Get_Reg_Number_By_id_Paragraph)

Select (Select Max(m.registration_number)

From magazine_registr_diplomas_ m

Where m.id_paragraph_magazine = %p1[i]%)

,(Select Max(to_number(doc.identifier))

From magazine_registr_diplomas_ m

,students_ st

,student_groups_ eg

,certificate_ cr

,documents_ doc

Where m.id_paragraph_magazine = %p1[i]%--2434125

And m.id_student = st.id_student

And st.id_ed_group = eg.id_ed_group

And eg.idk_level_speciality = 70

And m.id_certificate = cr.id_certificate

And doc.idk_doc = %p2[i]%--474152

And cr.id_doc = doc.id_doc)

Fromdual