i, c, s sont des entiers

//ENREGISTREMENT DES NOTES

POUR i = 1 À 7 //CANDIDATS
SI {"LIB_Candidat" + i,indChamp} <> "Candidature " + i ALORS
NotesMarchés.NomCandidat = {"LIB_Candidat" + i,indChamp}
NotesMarchés.ID_Projets = pIdProjet
NotesMarchés.NoteFinaleCandidat = {"LIB_NoteTOTALE"+i,indChamp}

HExécuteRequête(REQ_NotesCandidat,hAvecFiltre,{"LIB_Candidat" + i,indChamp},pIdProjet)
SI PAS HLitPremier(REQ_NotesCandidat) ALORS
HAjoute(NotesMarchés)
SINON
HLitRecherche(NotesMarchés,IDNotesMarchés,REQ_NotesCandidat.IDNotesMarchés)
SI PAS HTrouve(NotesMarchés)ALORS
Info("Données non trouvé")
SINON
HModifie(NotesMarchés)
FIN
FIN

POUR c = 1 À 4 //CRITERES
//ENREGISTREMENT DES CRITERES
SI {"SAI_Critere" + c + "Candidat" + i,indChamp} <> "" ALORS
{"NotesMarchés.NoteCritere" + c,indRubrique} = {"SAI_Critere" + c + "Candidat" + i,indChamp}
{"NotesMarchés.NoteFinaleCritere" + c,indRubrique} = {"LIB_NoteFinale"+i+c,indChamp}
HModifie(NotesMarchés,hNumEnrEnCours)
FIN
//ENREGISTREMENT DES SOUS CRITERES
POUR s = 1 À 4
SI {"SAI_SCritere"+ c + s + "Candidat" + i,indChamp} <> "" ALORS
{"NotesMarchés.NoteSousCritere"+ c + s,indRubrique} = {"SAI_SCritere"+ c + s + "Candidat" + i,indChamp}
{"NotesMarchés.NoteFinaleSousCritere"+c+s,indRubrique} = {"LIB_NoteFinale"+i+c+s,indChamp}
HModifie(NotesMarchés,hNumEnrEnCours)
FIN
FIN
FIN
FIN
FIN

EcranVersFichier()
Ferme()