bonjour,

J'ai créer une nouvelle fenetre dans laquelle il y a plusieurs champs ainsi que des boutons: btn nouveau, supprimer, imprimer et appliquer. Tous marche sauf appliquer. Je ne peut donc pas enregistrer mes données!

Merci d'avance pour votre aide

quel est le code derrière ce fameux bouton appliquer ?

justement tel est ma question!

lol on tourne en rond là
il faudrait un peu + de détail :

1/ c'est une fenetre qui contient des champs de quel type ? les champs sont liés à l'analyse ?

2/ que drevrait faire de ce bouton ? mettre à jour des valeurs dans l'analyse ?

on va y arriver lol

re:

Ce sont des champs de saisie. ou ices champs sont liés à l'analyse.
Je voudrais créer un bouton qui enregistre ses données.

Merci d'avance pour ton aide

alors si ces champs sont liés à un enregistrement dans une analyse tu va devoir sélectionner l'enregistrement à modifier (hlitrecherchepremier par exemple) puis associer les nouvelles valeurs et faire un hmodifie.
essaye et si tu veux je regarde ton code après pour t'aider

Code

Déclarations globales de Benoit_Prian_taches_en_cours

// Ouverture de la fenêtre de type Fiche
// Entrée: ModeOuverture=mode d'ouverture de la fenêtre :
// - "Parcours" Visualisation de tous les enregistrements
// grâce aux boutons de parcours
// - "Modif" Modification de l'enregistrement en cours
// - "Création" Création d'un nouvel enregistrement
// - "ParcoursLié" Parcours du fichier en liaison avec la fenêtre mère
// (avec suppression et création)

PROCEDURE FicheRAD(ModeOuverture="Parcours")

GLOBAL
gnNumEnr est un entier = 0 // enregistrement en cours dans le fichier
gsModeFenetre est une chaîne // mode de la fenêtre
gbFenetreModifiee est un booléen = Faux // Est-ce qu'un enregistrement a été modifié ?
gsModeAppel est une chaîne = ModeOuverture // Mode d'appel de la fenêtre

// Gestion des erreurs d'accès à la base de données
// Les messages d'erreurs renvoyés par la base sont affichés
// Vous pouvez traiter ici les compte-rendu d'erreurs de votre base
QUAND EXCEPTION
Erreur("Une erreur est survenue dans la fenêtre",ExceptionInfo(errMessage))
// On réactive les exceptions
ExceptionActive()
// On reprend le traitement
RepriseSaisie()
FIN




Initialisation de Benoit_Prian_taches_en_cours

// si la fiche est ouverte en mode parcours
// mais que le fichier n'a aucun enregistrement
// passe automatiquement en mode création
SI (ModeOuverture="Parcours" OU ModeOuverture~="ParcoursLié") ET HNbEnr(EN_COURS)=0 ALORS
// ouvre une boite de dialogue pour informer l'utilisateur
Info("Le fichier ne contient aucun enregistrement.","La fiche va passer en mode 'Création'.")
// changement de mode d'ouverture
ModeOuverture="Création"
FIN

// activation des champs selon le mode de la fenêtre
ModifModeFenetre(ModeOuverture)


Fermeture de Benoit_Prian_taches_en_cours

// vérification des modifications de la fiche
VerifModification()
Ferme("",gbFenetreModifiee)



A chaque modification de Benoit_Prian_taches_en_cours

// Si un champ a été modifié, on active le groupe de validation des modifications
SI ChampExiste("GP_APPLIQUER") ALORS GP_APPLIQUER..Etat = Actif

Ici il me met Warning : La déclaration de la variable globale 'gbFenetreModifiee' masque la procédure 'gbFenetreModifiee' de la fenêtre 'Benoit PRIAN T_en_Cours'.
Benoit PRIAN T_en_Cours, Déclarations globales, ligne 15, colonne 2


Cliq sur BTN_OK

// Selon le mode de la fenêtre
SELON Gauche(ExtraitChaîne(gsModeFenetre,1,"="),8)
// Mode création
CAS "Création"
// Mise en place de l'enregistrement et validation
SI RADEnregistre() ALORS
// Ajout de l'enregistrement
HAjoute(EN_COURS)
SI ErreurDétectée ALORS
Info("Impossible d'ajouter un enregistrement"+RC+HErreurInfo())
RETOUR
FIN

// Indique que la fiche n'est plus modifiée
gbFenetreModifiee = gbFenetreModifiee OU MaFenêtre..Modifié
MaFenêtre..Modifié=Faux

FIN
// Mode modification
CAS "Modif"
// Mise en place de l'enregistrement et validation
SI RADEnregistre() ALORS
// modification de l'enregistrement
HModifie(EN_COURS)
SI ErreurDétectée ALORS
Info("Impossible de modifier l'enregistrement"+RC+HErreurInfo())
RETOUR
FIN

// Indique que la fiche n'est plus modifiée
gbFenetreModifiee = gbFenetreModifiee OU MaFenêtre..Modifié
MaFenêtre..Modifié=Faux

FIN
FIN

// si la fenêtre a été ouverte en mode parcours
SI ModeOuverture="Parcours" OU ModeOuverture~="ParcoursLié" OU gsModeAppel~="Parcours" ALORS
// le nouvel enregistrement devient l'enregistrement en cours
gnNumEnr = HNumEnr(EN_COURS)

// Est-ce que le mode d'ouverture de la fenêtre a été changé ?
SI gsModeAppel ~= "Parcours" ALORS
// On se positionne sur l'enregistrement pour réinitialiser le parcours
SI gnNumEnr<>0 ALORS
HLitPremier(EN_COURS)
SINON
HLitPremier(EN_COURS,Numéro_PDCA)
FIN

// On rétablit le mdoe d'ouverture prévu
ModeOuverture = gsModeAppel
FIN

// retour dans le mode d'origine
ModifModeFenetre(ModeOuverture)
// dans les autres cas
SINON
// fermeture de la fenêtre
Ferme("",gbFenetreModifiee)
FIN



Il me met 2 erreurs
RADEnregistre() : Expression non booléenne

bon au moins on sait où est le soucis
j'ai pas windev d'ouvert là , à quoi sert RADenregistre() ? quel est son type de retour ?

peux tu m'envoyer un zip avec ton projet ? si c'est pas trop privé