Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Retraité
    Inscrit en
    juillet 2018
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : juillet 2018
    Messages : 46
    Points : 26
    Points
    26

    Par défaut champ planning - prise en compte des modifications

    bonjour à tous,
    à mon rythme, j'essaie d'acquérir quelques connaissances supplémentaires. Première fois que je construis un champ planning. Tout fonctionne normalement dans ce projet de réservations de salles (3 tables : salles, réservations et réservants(?)). Le planning s'affiche correctement, les réservations peuvent être déplacées, modifiées et les modifications restent acquises tant que je ne ferme pas le planning. A sa réouverture, je constate que toutes les modifications apportées à la souris n'ont pas été prises en compte. j'ai beau chercher, je ne trouve pas ce que j'ai oublié. Merci pour vos pistes et conseils.
    Bonne fin de journée
    Bernisch

  2. #2
    Expert confirmé
    Avatar de frenchsting
    Homme Profil pro
    mutlitâche-multifonction
    Inscrit en
    juin 2003
    Messages
    2 891
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : mutlitâche-multifonction
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : juin 2003
    Messages : 2 891
    Points : 4 855
    Points
    4 855

    Par défaut

    Je pense que tu n'enregistres pas les modifications que tu as faites.

    Tu dois gérer les modifications de rendezvous, ou lier le planning à un fichier.
    Commencez toujours par là : et puis n'hésitez à passer par là : ou par un autre moteur de recherche...
    Pas de question par MP s'il vous plait. Le forum est fait pour cela...

    Make it real not fantasy

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Retraité
    Inscrit en
    juillet 2018
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : juillet 2018
    Messages : 46
    Points : 26
    Points
    26

    Par défaut OUI, merci

    Citation Envoyé par frenchsting Voir le message
    Je pense que tu n'enregistres pas les modifications que tu as faites.

    Tu dois gérer les modifications de rendezvous, ou lier le planning à un fichier.
    C'est bien là, où le bât blesse. j'ai mis le code suivant sur la fin d'initialisation de la fenêtre contenant le champ planning :
    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
     
    POUR TOUT salle SUR nom
    	PlanningAjouteRessource(PLN_réservations,salle.nom)
    FIN
     
    maréservation est un RendezVous
    POUR TOUT réservation 
    	HLitRecherchePremier(salle,IDsalle,réservation.IDsalle)
    	SI HTrouve(salle) ALORS
    		maréservation.Ressource = salle.nom
    		maréservation.Titre = réservation.objetreserv
    		maréservation.DateDébut = réservation.datedébut+réservation.heuredébut
    		maréservation.DateFin = réservation.datefin+réservation.heurefin
    		maréservation.Note = réservation.IDréservation
    		maréservation.CouleurFond=réservation.couleur
    		maréservation.Bulle=réservation.Firme+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
    		+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5)
     
    		PlanningAjouteRendezVous(PLN_réservations,maréservation)
    	FIN
    FIN
    Peux-tu me préciser où je me plante ?
    Bonne journée

  4. #4
    Rédacteur/Modérateur

    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    décembre 2013
    Messages
    2 109
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Conseil

    Informations forums :
    Inscription : décembre 2013
    Messages : 2 109
    Points : 4 411
    Points
    4 411

    Par défaut

    Ici tu montres le code qui initialise la table (de FICHIER vers ECRAN).
    Ce qui manque, c'est le chemin inverse (copier ce qui a été fait à l'ECRAN dans un FICHIER).

    Dans la doc, il y a les commandes pour cela. Mais c'est à faire à chaque changement (à chaque fois que l'utilisateur change un truc à l'écran, lancer la commande pour faire le même changement dans les fichiers) :
    L'utilisateur ajoute un rendez-vous : --> immédiatement tu le sauvegardes (par une commande de type hAjoute) ; la doc dit clairement comment le faire (les lignes de codes, et surtout à quel endroit il faut mettre ces lignes de code)
    L'utilisateur modifie un rendez-vous ... idem, tu sauvegardes l'info immédiatement par une commande de type hModifie.

    Si tu veux que l'utilisateur fasse différentes changements, puis ensuite via un bouton 'Enregistrer', tu enregistrerais le tout, c'est un peu plus compliqué.
    N'oubliez pas le bouton Résolu si vous avez obtenu une réponse à votre question.

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Retraité
    Inscrit en
    juillet 2018
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : juillet 2018
    Messages : 46
    Points : 26
    Points
    26

    Par défaut Toujours dans le flou

    Je sature et je me noie dans la recherche de la doc appropriée. J'ai bien compris la piste à suivre, j'ai même essayé de modifier le menu ctx mais sans effet, peut-être pas la meilleure solution mais j'ai tenté car l'option "Supprimer" fonctionne. De plus, le fait que Datedébut soit égal à datedébut+heuredébut complique la chose (pour moi). Dois-je rajouter des lignes de code dans le code du champ planning ?
    je vais m'accorder une pause
    Bernisch

  6. #6
    Nouveau membre du Club
    Homme Profil pro
    Retraité
    Inscrit en
    juillet 2018
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : juillet 2018
    Messages : 46
    Points : 26
    Points
    26

    Par défaut Autre solution ?

    Citation Envoyé par tbc92 Voir le message
    Ici tu montres le code qui initialise la table (de FICHIER vers ECRAN).
    Ce qui manque, c'est le chemin inverse (copier ce qui a été fait à l'ECRAN dans un FICHIER).

    Dans la doc, il y a les commandes pour cela. Mais c'est à faire à chaque changement (à chaque fois que l'utilisateur change un truc à l'écran, lancer la commande pour faire le même changement dans les fichiers) :
    L'utilisateur ajoute un rendez-vous : --> immédiatement tu le sauvegardes (par une commande de type hAjoute) ; la doc dit clairement comment le faire (les lignes de codes, et surtout à quel endroit il faut mettre ces lignes de code)
    L'utilisateur modifie un rendez-vous ... idem, tu sauvegardes l'info immédiatement par une commande de type hModifie.

    Si tu veux que l'utilisateur fasse différentes changements, puis ensuite via un bouton 'Enregistrer', tu enregistrerais le tout, c'est un peu plus compliqué.

    Dans l'énorme doc sur planning, je n'ai pas réussi à trouver ce que je cherche. J'ai essayé de contourner mes lacunes par une autre approche qui me parait compliquée et surtout bien loin de mes intentions. Par le code suivant, je peux,sur double_clic sur une réservation, modifier celle-ci:
    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
     
    SI PLN_réservation > 0 ALORS
     
    	réservSélectionné est un RendezVous
    	réservSélectionné = PLN_réservation[PLN_réservation]
     
    	Ouvre(FEN_Fiche_réservationMOD,Val(réservSélectionné.Note))
     
    	PlanningSupprimeRendezVous(PLN_réservation,PLN_réservation)
     
    	maréserv est un RendezVous
     
    	HLitRecherchePremier(réservation,IDréservation,Val(réservSélectionné.Note))
    	HLitRecherchePremier(salle,IDsalle,réservation.IDsalle)
     
    	maréserv.Ressource = salle.nom
    	maréserv.JournéeEntière = réservation.journéeentière
    	maréserv.Titre = réservation.objetreserv
    	maréserv.DateDébut = réservation.datedébut+réservation.heuredébut
    	maréserv.DateFin = réservation.datefin+réservation.heurefin
    	maréserv.Note = réservation.IDréservation
    	maréserv.CouleurFond=réservation.couleur
    	maréserv.Bulle=réservation.Firme+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
    	+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5)
    	maréserv.Auteur=réservation.réservataire
     
    	PlanningAjouteRendezVous(PLN_réservation,maréserv)
     
    FIN
    Pour ajouter une réservation, j'ai du me résoudre à placer un bouton dans la fenêtre planning appelant l'ouverture de la fiche réservation en mode création. Cela fonctionne sauf que le champ planning ne se met à jour qu'après fermeture et réouverture de celui-ci. je précise également que contrairement à la doc, modifier et créér n'apparaissent pas dans le menu ctx du champ planning.
    Donc, bien loin de ce que je souhaitais faire.
    merci d'avance de vos conseils
    Bon weekend à vous
    Bernisch

  7. #7
    Expert confirmé
    Avatar de frenchsting
    Homme Profil pro
    mutlitâche-multifonction
    Inscrit en
    juin 2003
    Messages
    2 891
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : mutlitâche-multifonction
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : juin 2003
    Messages : 2 891
    Points : 4 855
    Points
    4 855

    Par défaut

    Bonjour Bernich,

    Ta méthode n'est bête du tout.

    Il faut que tu déplaces le code de fin d'init de ta fenêtre que nous as montré dans une procédure Proc_ChargeRDV.
    Le code du bouton qui ouvre ta fenêtre de création de nouveau rdv devient :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    ouvre(FEN_NouveauRDV()
    Proc_ChargeRDV()
    Ou, si tu n'as que le code que tu nous as montré dans la section fin d'init, le code du bouton qui ouvre ta fenêtre de création de nouveau rdv devient :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    ouvre(FEN_NouveauRDV()
    ExécuteTraitement(FEN_Planning, trtFinInitialisation)
    Commencez toujours par là : et puis n'hésitez à passer par là : ou par un autre moteur de recherche...
    Pas de question par MP s'il vous plait. Le forum est fait pour cela...

    Make it real not fantasy

  8. #8
    Nouveau membre du Club
    Homme Profil pro
    Retraité
    Inscrit en
    juillet 2018
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : juillet 2018
    Messages : 46
    Points : 26
    Points
    26

    Par défaut merci pour cette dernière info

    J'ai tardé un peu à répondre car j'ai testé plusieurs possibilités avec ton code mais rien n'y fait, je n'arrive pas à avoir ce que je veux. Pour brosser la situation: le champ planning fonctionne correctement, je peux créer un rdv à partir de la fiche rdv (à condition que cela ne soit pas fait à partir du champ planning), par contre, sur double-clic sur un rdv du champ planning, je peux modifier, déplacer et supprimer celui-ci. Dommage ! Dans mes nombreuses lectures, il m'a semblé lire que le rafraîchissement d'un champ planning n'était pas possible lorsque celui-ci est monté par programmation.
    Je suis toujours preneur de l'astuce qui va libérer ma tête..
    merci de m'avoir consacré un peu de ton temps.
    Bernisch

  9. #9
    Expert confirmé
    Avatar de frenchsting
    Homme Profil pro
    mutlitâche-multifonction
    Inscrit en
    juin 2003
    Messages
    2 891
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : mutlitâche-multifonction
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : juin 2003
    Messages : 2 891
    Points : 4 855
    Points
    4 855

    Par défaut

    Lorsque tu doubles-cliques sur le champ planning, tu as les propriétés dudit champ. si tu appuies sur F2, tu vas avoir le code pour les événements gérés (Redimensionnement d'un rdv, suppression d'un rdv, déplacement d'un rdv,...)

    A partir de là, tu peux enregistrer les modifications faites lors du changement de ton rdv.

    Exemple pour l'événement déplacement d'un rdv:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    PROCEDURE Déplacement(RdvDéplacé est un RendezVous)
    HlitRecherchepremier(FichierRDV, IdRDV, RdvDéplacé.ID)
    ...
    Commencez toujours par là : et puis n'hésitez à passer par là : ou par un autre moteur de recherche...
    Pas de question par MP s'il vous plait. Le forum est fait pour cela...

    Make it real not fantasy

  10. #10
    Nouveau membre du Club
    Homme Profil pro
    Retraité
    Inscrit en
    juillet 2018
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : juillet 2018
    Messages : 46
    Points : 26
    Points
    26

    Par défaut merci pour avoir pris de ton temps

    Je pense que je sature, merci tout de même d'essayer de m'aider. voilà ce que j'obtiens en appuyant sur F2 :
    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
     
    PROCÉDURE INTERNE MAJPremierAffichage()
    		ExécuteTraitement(PLN_réservation, trtChangementPériodePlanning)
    	FIN
    	MaFenêtre..Traitement[trtInit] += MAJPremierAffichage
    PROCÉDURE AvantCréation(rdvCréé est un RendezVous)
     
     
    PROCÉDURE EntréeEnSaisie(rdvEdité est un RendezVous)
     
    PROCÉDURE SortieDeSaisie(rdvModifié est un RendezVous)
    //	Ce que j'ai tenté de faire, certainement incomplet !!!!
    //	HLitRecherchePremier(réservation, IDréservation, rdvModifié.ID)
    //	HModifie(réservation,hNumEnrEnCours)
     
    PROCÉDURE Sélection(rdvSélectionné est un RendezVous)
     
    PROCÉDURE Déplacement(rdvDéplacé est un RendezVous)
     
    PROCÉDURE Redimensionnement(rdvRedimensionné est un RendezVous)
     
    PROCÉDURE Suppression(rdvSupprimé est un RendezVous)
     
    PROCÉDURE DéplacementRessource(rdvRessourceDéplacé est un RendezVous)
     
    // sur double clic
    SI PLN_réservation > 0 ALORS
     
    	réservSélectionné est un RendezVous
    	réservSélectionné = PLN_réservation[PLN_réservation]
     
    	Ouvre(FEN_Fiche_réservationMOD,Val(réservSélectionné.Note))
     
    	PlanningSupprimeRendezVous(PLN_réservation,PLN_réservation)
     
    	maréserv est un RendezVous
     
    	HLitRecherchePremier(réservation,IDréservation,Val(réservSélectionné.Note))
    	HLitRecherchePremier(salle,IDsalle,réservation.IDsalle)
     
    	maréserv.Ressource = salle.nom
    	maréserv.JournéeEntière = réservation.journéeentière
    	maréserv.Titre = réservation.objetreserv
    	maréserv.DateDébut = réservation.datedébut+réservation.heuredébut
    	maréserv.DateFin = réservation.datefin+réservation.heurefin
    	maréserv.Note = réservation.IDréservation
    	maréserv.CouleurFond=réservation.couleurfond
    	maréserv.Bulle=réservation.bénéficiaire+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
    	+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5)
    	maréserv.Auteur=réservataire.identité
     
    	PlanningAjouteRendezVous(PLN_réservation,maréserv)
     
    FIN
    dois-je créer des procédures ? la fen_planning n'en possède aucune.
    Bonne fin de journée
    Bernisch

  11. #11
    Expert confirmé
    Avatar de frenchsting
    Homme Profil pro
    mutlitâche-multifonction
    Inscrit en
    juin 2003
    Messages
    2 891
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : mutlitâche-multifonction
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : juin 2003
    Messages : 2 891
    Points : 4 855
    Points
    4 855

    Par défaut

    Oui, c'est bien comme ça. Par contre, il faut que tu remettes tes valeurs :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    PROCÉDURE SortieDeSaisie(rdvModifié est un RendezVous)
    si HLitRecherchePremier(réservation, IDréservation, rdvModifié.ID) alors
      réservation.datedebut = rdvModifié.datedebut
      réservation.heuredébut = rdvModifié.heuredébut
      // A faire pour toutes les rubriques de ton fichier réservation(datefin, heurefin, etc...) 
      // sauf celles qui ne sont pas modifiées, bien sûr ;-)
     
      HModifie(réservation)
    fin
    Commencez toujours par là : et puis n'hésitez à passer par là : ou par un autre moteur de recherche...
    Pas de question par MP s'il vous plait. Le forum est fait pour cela...

    Make it real not fantasy

  12. #12
    Nouveau membre du Club
    Homme Profil pro
    Retraité
    Inscrit en
    juillet 2018
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : juillet 2018
    Messages : 46
    Points : 26
    Points
    26

    Par défaut OUI, merci

    Merci pour l'exemple. Je pense avoir enfin compris le cheminement. Je vais tester et te donnerai le résultat.
    Bonne journée
    Bernisch

  13. #13
    Nouveau membre du Club
    Homme Profil pro
    Retraité
    Inscrit en
    juillet 2018
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : juillet 2018
    Messages : 46
    Points : 26
    Points
    26

    Par défaut Merci pour avoir pris de ton temps

    Citation Envoyé par frenchsting Voir le message
    Oui, c'est bien comme ça. Par contre, il faut que tu remettes tes valeurs :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    PROCÉDURE SortieDeSaisie(rdvModifié est un RendezVous)
    si HLitRecherchePremier(réservation, IDréservation, rdvModifié.ID) alors
      réservation.datedebut = rdvModifié.datedebut
      réservation.heuredébut = rdvModifié.heuredébut
      // A faire pour toutes les rubriques de ton fichier réservation(datefin, heurefin, etc...) 
      // sauf celles qui ne sont pas modifiées, bien sûr ;-)
     
      HModifie(réservation)
    fin
    Bonjour,
    après de multiples tentatives de code, je n'ai pas réussi à trouver ce qui pouvait fonctionner. je vais mettre en sommeil en attendant qu'une révélation m'apparaisse... A tout hasard, je publie mon galimatias de code qui ne fonctionne pas:
    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
     
    PROCÉDURE INTERNE MAJPremierAffichage()
    		ExécuteTraitement(PLN_réservation, trtChangementPériodePlanning)
    	FIN
    	MaFenêtre..Traitement[trtInit] += MAJPremierAffichage
    PROCÉDURE AvantCréation(rdvCréé est un RendezVous)
     
     
    PROCÉDURE EntréeEnSaisie(rdvEdité est un RendezVous)
    rdvEdité=PLN_réservation[PLN_réservation]
     
    SI HLitRecherchePremier(réservation,IDréservation,Val(rdvEdité.Note)) ALORS
     
    	rdvEdité.Ressource = salle.nom
    	rdvEdité.JournéeEntière = réservation.journéeentière
    	rdvEdité.Titre = réservation.objetreserv
    	rdvEdité.DateDébut = réservation.datedébut+réservation.heuredébut
    	rdvEdité.DateFin = réservation.datefin+réservation.heurefin
    	rdvEdité.Note = réservation.IDréservation
    	rdvEdité.CouleurFond=réservation.couleurfond
    	rdvEdité.Bulle=réservation.bénéficiaire+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
    	+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5)
    	rdvEdité.Auteur=réservataire.identité
     
    	//PlanningAjouteRendezVous(PLN_réservation,rdvEdité)
    	HAjoute(réservation)
     
    FIN
    PROCÉDURE SortieDeSaisie(rdvModifié est un RendezVous)
    rdvModifié=PLN_réservation[PLN_réservation]
     
    SI HLitRecherchePremier(réservation, IDréservation, rdvModifié.ID) ALORS
     
    //	salle.nom = rdvModifié.Ressource
    	rdvModifié.Ressource = salle.nom
    //	réservation.journéeentière =rdvModifié.JournéeEntière
    	rdvModifié.JournéeEntière = réservation.journéeentière
    //	réservation.objetreserv = rdvModifié.Titre
    	rdvModifié.Titre = réservation.objetreserv
    //	réservation.datedébut+réservation.heuredébut = rdvModifié.DateDébut
    //// signe + non pris en compte 
    	rdvModifié.DateDébut = réservation.datedébut+réservation.heuredébut
    //	réservation.datefin+réservation.heurefin =rdvModifié.DateFin
    	rdvModifié.DateFin = réservation.datefin+réservation.heurefin
    //	réservation.IDréservation = rdvModifié.Note
    	rdvModifié.Note = réservation.IDréservation
    //	réservation.couleurfond = rdvModifié.CouleurFond
    	rdvModifié.CouleurFond = réservation.couleurfond
    //	réservation.bénéficiaire+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
    //	+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5) = rdvModifié.Bulle
    	rdvModifié.Bulle = réservation.bénéficiaire+" "+DateVersChaîne(réservation.datedébut)+" à "+Gauche(HeureVersChaîne(réservation.heuredébut), 5)...
    	+" au "+DateVersChaîne(réservation.datefin)+" à "+Gauche(HeureVersChaîne(réservation.heurefin),5)
    	// signe + non pris en compte
    //	réservataire.identité = rdvModifié.Auteur
    	rdvModifié.Auteur = réservataire.identité
     
     
    HModifie(réservation)
     
    FIN
    PROCÉDURE Sélection(rdvSélectionné est un RendezVous)
    PROCÉDURE Déplacement(rdvDéplacé est un RendezVous)
    PROCÉDURE Redimensionnement(rdvRedimensionné est un RendezVous)
    PROCÉDURE Suppression(rdvSupprimé est un RendezVous)
    SI OuiNon(Non, "Voulez-vous supprimer cette réservation ?")=Non ALORS
    	RENVOYER Faux
    FIN
     
    RENVOYER Vrai
     
     
    PROCÉDURE DéplacementRessource(rdvRessourceDéplacé est un RendezVous)
    Encore merci pour ton bienveillant soutien.
    Bernisch

  14. #14
    Expert confirmé
    Avatar de frenchsting
    Homme Profil pro
    mutlitâche-multifonction
    Inscrit en
    juin 2003
    Messages
    2 891
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : mutlitâche-multifonction
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : juin 2003
    Messages : 2 891
    Points : 4 855
    Points
    4 855

    Par défaut

    Hello Bernisch,

    Un truc que je comprends pas : pour le entré en saisie, tu fais un SI HlitRecherchePremier(...) ALORS [...] HAjoute().

    SI ton rdv existe, il faut le modifier pas l'ajouter...
    Commencez toujours par là : et puis n'hésitez à passer par là : ou par un autre moteur de recherche...
    Pas de question par MP s'il vous plait. Le forum est fait pour cela...

    Make it real not fantasy

Discussions similaires

  1. Prise en compte des modifications
    Par l0quito dans le forum Odoo (ex-OpenERP)
    Réponses: 2
    Dernier message: 12/11/2013, 14h12
  2. Réponses: 13
    Dernier message: 31/03/2010, 17h25
  3. Non prise en compte des modifications de l'IHM
    Par specialka dans le forum MFC
    Réponses: 16
    Dernier message: 17/10/2008, 17h55
  4. Réponses: 3
    Dernier message: 10/04/2007, 15h38
  5. Problème : Prise en compte des modifications
    Par PhilippeBedin dans le forum ASP.NET
    Réponses: 5
    Dernier message: 04/03/2007, 19h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo