Forms 6i update using a Cursor
Hi everyone,
I have a form with 2 non-database datablocks where I bring my data from a table using cursor inside of a procedure. This is my cursor:
BEGIN
DECLARE
CURSOR C1 IS
SELECT A.SCHOOL_ID,A.CLASS_ID,A.STUDENT_ID,A.TEACHER_ID,A.GRADE_Q1,A.GRADE_Q2,A.GRADE_Q3,
A.GRADE_Q4,A.SEMESTER_EX1, A.SEMESTER_1, A.SEMESTER_REC1, A.SEMESTER_EX2, A.SEMESTER_2, A.SEMESTER_REC2, A.FINAL_GRADE,
B.LAST_NAME||', '||B.FIRST_NAME NOMBRE
FROM NOTAS_ISS A, ESTUDIANTES_ISS B
WHERE A.SCHOOL_ID = :UNO.SCHOOL_ID
AND A.TEACHER_ID = :UNO.TEACHER_ID
AND A.CLASS_ID = :UNO.CLASS_ID
AND B.SCHOOL_ID = A.SCHOOL_ID
AND B.STUDENT_ID = A.STUDENT_ID;
BEGIN
GO_BLOCK('DOS');
FIRST_RECORD;
FOR C IN C1
LOOP
:DOS.SCHOOL_ID := C.SCHOOL_ID;
:DOS.STUDENT_ID := C.STUDENT_ID;
:DOS.STUDENT_NAME := C.NOMBRE;
:DOS.GRADE_Q1 := C.GRADE_Q1;
:DOS.GRADE_Q2 := C.GRADE_Q2;
:DOS.SEMESTER_EX1 := C.SEMESTER_EX1;
:DOS.SEMESTER_1 := C.SEMESTER_1;
:DOS.SEMESTER_REC1 := C.SEMESTER_REC1;
:DOS.GRADE_Q3 := C.GRADE_Q3;
:DOS.GRADE_Q4 := C.GRADE_Q4;
:DOS.SEMESTER_EX2 := C.SEMESTER_EX2;
:DOS.SEMESTER_2 := C.SEMESTER_2;
:DOS.SEMESTER_REC2 := C.SEMESTER_REC2;
:DOS.FINAL_GRADE := C.FINAL_GRADE;
next_record;
end loop;
END;
END;
After I make the changes I would like to save the data on my second block.
Can anyone please help me to that!!
Thanks!!