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
| Procedure P_ResultatCourseSoloOpen(OT_Resultats_Course_SoloOpen est un CT_Resultats_Courses_SoloOpen):entier
nRetour est un entier
nRetour=1
//ouverture du fichier de recopie
HOuvre(Resultats_Courses_SoloOpen)
HExécuteRequête(REQ_DetailTourCourseOpen,hRequêteDéfaut)
// permet de gérer par programmation l'erreur de doublon
HSurErreur(Resultats_Courses_SoloOpen ,hErrDoublon,"")
POUR TOUT clElementTAbResultat DE OT_Resultats_Course_SoloOpen.tab_Resultats_Courses_SoloOpen
MémoireVersFichier(clElementTAbResultat,Resultats_Courses_SoloOpen)
SI HAjoute(Resultats_Courses_SoloOpen)=Faux ALORS
nRetour=111// Si doublon alors faire une mise à jour
SIHErreurDoublon() =Vrai ALORS// pas utile si uniquement ce traitement d'erreur
HLitRecherche(Resultats_Courses_SoloOpen,IDCourse_SoloOpen,REQ_DetailTourCourseOpen.IDCourse_SoloOpen)// recherche du numéro d'enregistrement
MémoireVersFichier(clElementTAbResultat,Resultats_Courses_SoloOpen)// remettre en mémoire l'enregistrement à copier
HModifie(Resultats_Courses_SoloOpen)
nRetour=222// modifier l'enregistrement
FIN
FIN
FIN
//Libèrer les ressources utilisées par la requête
HFerme(REQ_DetailTourCourseOpen)
RENVOYER nRetour |
Partager