Bonjour,
je bloque sur une liaison de fichiers.
Voici ma fenetre:
Le poste et la fiche sécurité sont déjà rattachées a l'atelier.
Au clic du bouton valider ,je souhaite rattacher la fiche sécurité au poste.
Voici mon code:
Votre aide est la bienvenue.Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 nAteSelect,nPosteSelect,nFicheSelect est un entier SI ListeSelect(COMBO_Atelier_2)>0 ET ListeSelect(COMBO_Fiche)>0 ET ListeSelect(COMBO_Poste)>0 ALORS nAteSelect = COMBO_Atelier_2[ListeSelect(COMBO_Atelier_2)]..ValeurMémorisée HLitRecherchePremier(Fichesécurité, IDAtelier, nAteSelect) SI HTrouve(Atelier)=Vrai ALORS nFicheSelect = COMBO_Fiche[ListeSelect(COMBO_Fiche)]..ValeurMémorisée HLitRecherchePremier(Fichesécurité,IDFichesécurité,nFicheSelect) FIN SI HTrouve(Fichesécurité) =Vrai ALORS nPosteSelect = COMBO_Poste[ListeSelect(COMBO_Poste)]..ValeurMémorisée HLitRecherchePremier(Fichesécurité,IDPoste,nPosteSelect) FIN SI HTrouve(Fichesécurité)=Vrai ALORS Fichesécurité.IDPoste =nPosteSelect Fichesécurité.IDAtelier = nAteSelect Fichesécurité.IDFichesécurité=nFicheSelect //EcranVersFichier() HModifie(Fichesécurité) Info("La fiche"+COMBO_Fiche[ListeSelect(COMBO_Fiche)]..ValeurAffichée+"a bien été ajoutée au poste"+... COMBO_Poste[ListeSelect(COMBO_Poste)]..ValeurAffichée+"pour l'atelier"+... COMBO_Atelier_2[ListeSelect(COMBO_Atelier_2)]..ValeurAffichée) FIN SINON Info("Veuillez sélectionnez tous les champs") RETOUR FIN ExécuteTraitement('FEN_Fiches_sécurité',trtInit)
Partager