Discussion :

[nanog]

Bonsoir à tous,
j'ai dans ma fenêtre principale, un oblet Client, dans lequel y'a une Table Client que je n'arrive pas à rafraichir après une modif fiche client via une fenetre modale...

J'ai essayé avec un rajout TableAffiche(FEN_Principale.TABLE_RechercheClient,taCourantBandeau) posé à la fin du code de modif mais sans succès.

Je vous met tout le code (un peu long) de ma fenêtre de modif fiche client :
Merci d'avance pour votre aide

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
EcranVersFichier()
 
SI Client..NouvelEnregistrement ALORS    
 
    Client.Date = DateDuJour()
 
    //////////////////////////////////////////////////////////
    //Enregistre nouveau client
    //////////////////////////////////////////////////////////
 
    SI PAS HEnregistre(Client) ALORS //ajoute le nom du client dans la table client
        Avertissement("Insertion Client NOK")
    FIN
    ToastAffiche("Ajout client OK")    
 
    nRecupIDClient    est un entier    = Client.IDClient    //recupere l'id qui vient d'être créé    
    //nIDMNS est un entier = Client.IDMNS // récupère l'idMNS qui vient d'être inséré
    //info(nIDMNS)
 
    /////////////////////////////////////////////////////////////
    //AJOUTE LES NOUVEAUX CRENEAUX DU CLIENT
    /////////////////////////////////////////////////////////////
    nId                est un entier    
    tabToutcreneaux    est un tableau d'entiers
 
    POUR TOUT LIGNE SELECTIONNÉE DE LISTE_Creneaux //crée la boucle              
        nId    = LISTE_Creneaux..ValeurMémorisée        
        Ajoute(tabToutcreneaux,nId)        
    FIN    
    SI AjoutCreneauxClient(nRecupIDClient,tabToutcreneaux) ALORS
        ToastAffiche("Ajout créneaux : OK")        
    FIN
 
 
    ///////////////////////////////////////////////////////////
    // MAJ DU NB DE COURS D'UN MNS
    ///////////////////////////////////////////////////////////
 
    bSiOK est un booléen    
    bSiOK = UpdateNbCoursMNS()    
    SI bSiOK = Vrai ALORS
        ToastAffiche("Update NbCours MNS : OK")        
    SINON
        ToastAffiche("ATTENTION NOK : Update NbCours MNS")    
    FIN
 
    //Vide les variables
    Client.Date        = ""
    Client.IDClient    = ""
 
    Multitâche(300)
    Ferme(FEN_Clients)
 
SINON    
 
    //////////////////////////////////////////////////////////////////////////
    //  Modifie le produit
    //////////////////////////////////////////////////////////////////////////
 
    SI PAS HModifie(Client) ALORS
        Avertissement("Modification NOK")
    FIN
 
    ToastAffiche("Modification client OK")    
 
    //////////////////////////////////////////////////////////////////////////
    //  Suppression des anciens creneaux
    //////////////////////////////////////////////////////////////////////////
 
    nRecupIDClient est un entier = Client.IDClient//recupere l'id     
 
 
 
    REQ_DeleteCreneauxClient.ParamIDclient = nRecupIDClient
 
    SI PAS HExécuteRequête(REQ_DeleteCreneauxClient,hRequêteDéfaut) ALORS
        Info("Delete créneaux NOK")
    FIN
 
    /////////////////////////////////////////////////////////////
    //AJOUTE LES NOUVEAUX CRENEAUX DU CLIENT
    /////////////////////////////////////////////////////////////
 
    nId    est un entier    
 
    tabToutcreneaux est un tableau d'entiers
 
    POUR TOUT LIGNE SELECTIONNÉE DE LISTE_Creneaux //crée la boucle
 
        nId    = LISTE_Creneaux..ValeurMémorisée
 
        Ajoute(tabToutcreneaux,nId)        
    FIN    
    SI AjoutCreneauxClient(nRecupIDClient,tabToutcreneaux) ALORS
            ToastAffiche("Modification créneaux OK")        
    FIN
 
 
    ///////////////////////////////////////////////////////////
    // MAJ DU NB DE COURS D'UN MNS
    ///////////////////////////////////////////////////////////
 
    bSiOK est un booléen    
    bSiOK = UpdateNbCoursMNS()    
    SI bSiOK = Vrai ALORS
        ToastAffiche("Update NbCours MNS : OK")        
    SINON
        ToastAffiche("ATTENTION NOK : Update NbCours MNS")    
    FIN
 
    //Vide les variables
    Client.Date        = ""
    Client.IDClient    = ""
 
 
FIN
    TableAffiche(FEN_Principale.TABLE_RechercheClient,taCourantBandeau)
    Multitâche(300)
    Ferme(FEN_Clients)

[padbrain]

Bonsoir,

Dans le code d'ouverture de ta modale qui doit ressembler à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ouvre(FEN_Clients, IdClientAModifier)

il te faut rajouter un truc de genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
SI ouvre(FEN_Clients, IdClientAModifier) ALORS
     TableAffiche(TABLE_RechercheClient,taCourantBandeau)
FIN

et tu peux le supprimer en fin de traitement de la fiche client :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
//     ... ton code de traitement de l'enregistrement fiche client
 //Vide les variables
    Client.Date        = ""
    Client.IDClient    = ""
 
 
FIN
    TableAffiche(FEN_Principale.TABLE_RechercheClient,taCourantBandeau) //     CETTE LIGNE PEUT ÊTRE SUPPRIMEE
    Multitâche(300)
    Ferme(FEN_Clients, Vrai)                                                                     // AJOUTE VRAI COMME VALEUR DE RETOUR

Hth,
Padbrain

[nanog]

Merci !

En effet c'était tout simple

[Voroltinquo]

Bonjour,
Pourquoi ne pas lier ta liste à ta requête ?
Cela a en plus l'avantage d'avoir directement la clé avec la bonne configuration (valeur mémorisée)

[nanog]

Bonjour,
Pourquoi ne pas lier ta liste à ta requête ?
Cela a en plus l'avantage d'avoir directement la clé avec la bonne configuration (valeur mémorisée)

Bonjour Voroltinquo,
en effet j'avais commencé par lier ma table à ma requête avec une requete imbriquée (donc une "table fichier") mais cela m’empechais certaines fonction (je sais plus lesquelles), car je me sers de cette table pour afficher le résultat d'une recherche aussi..

[Voroltinquo]

car je me sers de cette table pour afficher le résultat d'une recherche aussi..

Raison de plus, il suffit de passer à la requête les paramètres qui vont bien avant le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TableAffiche(TABLE_MaTable,taRéExécuteRequête)

C'est aussi valable pour une liste