1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
| BEGIN
GO_BLOCK('AFFECTER_MATIERE');
FIRST_RECORD;
WHILE :SYSTEM.LAST_RECORD = 'FALSE' LOOP
IF :NOTE IS NOT NULL AND :OBSERVATION IS NOT NULL THEN
INSERT INTO PASSER (MATRICULE_ETUD,
CODE_MATIERE,
CLASSE,
NOTE,
NOTE_POND,
OBSERVATION,
ANNEE_UNIVERSIT)
VALUES(:AFFECTER_MATIERE.MATRICULE_ETUD,
:AFFECTER_MATIERE.CODE_MATIERE,
:AFFECTER_MATIERE.CLASSE,
:AFFECTER_MATIERE.NOTE,
:AFFECTER_MATIERE.NOTE_POND,
:AFFECTER_MATIERE.OBSERVATION,
:K_ANNEE);
END IF;
NEXT_RECORD;
END LOOP;
IF :SYSTEM.LAST_RECORD = 'TRUE' THEN
IF :NOTE IS NOT NULL AND :OBSERVATION IS NOT NULL THEN
INSERT INTO PASSER (MATRICULE_ETUD,
CODE_MATIERE,
CLASSE,
NOTE,
NOTE_POND,
OBSERVATION)
VALUES(:AFFECTER_MATIERE.MATRICULE_ETUD,
:AFFECTER_MATIERE.CODE_MATIERE,
:AFFECTER_MATIERE.CLASSE,
:AFFECTER_MATIERE.NOTE,
:AFFECTER_MATIERE.NOTE_POND,
:AFFECTER_MATIERE.OBSERVATION
);
END IF;
END IF;
:system.message_level := '25';
COMMIT;
:system.message_level := '0';
CLEAR_FORM;
END; |
Partager