Bonjour à tous,

J'ai une procédure d'enregistrement de ma page que j'utilise un peu partout.

Cependant, un des champ (Localisation) n'est pas toujours enregistré après modif.
La Liaison est définie avec ma table (7 onglets SAI_Localisation est lié à Ressource.Localisation)

POur qu'une modification soit prise en compte à coup sûr (du moins pour l'instant) il faut que j'ajoute: Ressource.Localisation = SAI_Localisation avant le HModifie.
(Par ailleurs le HModifie m'a toujours renvoyé Vrai)
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
PROCEDURE PRL_Enregistrer()
 
SI SAI_Ressource <> "" ALORS
    PageVersFichier(PAGE_Ressource,Ressource)
    SI Ressource..NouvelEnregistrement = Vrai ALORS
        SI HAjoute(Ressource) = Vrai ALORS
            nIDRessource = Ressource.IDRessource    //indispensable pour création reservation dans la foulée
 
            PRG_AjoutActivite("Création",MaPage..Nom, Affaire.Titre, "Ressource", ...
                                ChaîneConstruit("a créé le %1 n° %2: %3", "Ressource", nIDRessource, SAI_Ressource), ...
                                "", "Ressource" ,Ressource.IDRessource,0, 0)
            nEnrEnCours = HNumEnr(Ressource)
            //Necessaire en cas d'un nouveau BTN_Valider
            sTitreMem = SAI_Ressource
        FIN
        ONG_ContenusRessource..Visible = Vrai
        ZoneRépétéeSupprimeTout(ZR_Reservation)
    SINON
 
        Ressource.Contact = ONG_ContenusRessource.SAI_Contact
        Ressource.Proprietaire = ONG_ContenusRessource.SAI_Proprietaire
        // Bug ? si pas Ressource.Localisation = SAI_Localisation la localisation n'est pas enregistrée !
        Ressource.Localisation = SAI_Localisation
        /////////////////////////////////////////
        SI HModifie(Ressource) = Faux ALORS
            ToastAffiche("ECHEC Ressource  modification")
        FIN
        SI SAI_Ressource <> sTitreMem ALORS
            sComplementDetail =  " [Titre: " +  sTitreMem + "->" + SAI_Ressource + "]"
        FIN
 
        PRG_AjoutActivite("Modification",MaPage..Nom, Ressource.Ressource, "Ressource", ...
                        ChaîneConstruit("a modifié la %1 n° %2: %3%4", "Ressource", nIDRessource, SAI_Ressource,sComplementDetail), ...
                        "", "Ressource" ,Ressource.IDRessource,0, 0)
    FIN
SINON
    Info("Le titre n'est pas renseigné.")
FIN
Que peut-il se passer?

Merci de votre attention