Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement WinDev Recupération du dernier fichier Hyper utilisé.

Recupération du dernier fichier Hyper utilisé.

1 réponse
Avatar
Loiseau gaetan
Bonjour,
je chercher comment faire pour recupére le dernier fichier hyper file
utilisé, je m'explique par un morceau de code, c mieux qu'un long
discours, merci d'avance ;)


// Ce que j'ai :
QUAND EXCEPTION DANS
Contact.IDFoyer = IDFoyer
Contact.Type = ctBENEFICAIRE
HAjoute(Contact)
FAIRE
// affichage du message d'erreur
Erreur(MsgErreurAjout+ Contact..NomPhysique+ RC+HErreurInfo())
RENVOYER Faux
FIN

QUAND EXCEPTION DANS
Logement.IDFoyer = IDFoyer
HAjoute(Logement)
FAIRE
// affichage du message d'erreur
Erreur(MsgErreurAjout+ Logement..NomPhysique+ RC+HErreurInfo())
RENVOYER Faux
FIN

// Ce que je voudrait :

QUAND EXCEPTION DANS
Contact.IDFoyer = IDFoyer
Contact.Type = ctBENEFICAIRE
HAjoute(Contact)

Logement.IDFoyer = IDFoyer
HAjoute(Logement)
FAIRE
// affichage du message d'erreur
Erreur(MsgErreurAjout+ "HDernier ?"..NomPhysique+ RC+HErreurInfo())
RENVOYER Faux
FIN

Merci d'avance ;)
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gilles TOURREAU
Dans son message précédent, Loiseau gaetan a écrit :
Bonjour,
je chercher comment faire pour recupére le dernier fichier hyper file
utilisé, je m'explique par un morceau de code, c mieux qu'un long discours,
merci d'avance ;)


// Ce que j'ai :
QUAND EXCEPTION DANS
Contact.IDFoyer = IDFoyer
Contact.Type = ctBENEFICAIRE
HAjoute(Contact)
FAIRE
// affichage du message d'erreur
Erreur(MsgErreurAjout+ Contact..NomPhysique+ RC+HErreurInfo())
RENVOYER Faux
FIN

QUAND EXCEPTION DANS
Logement.IDFoyer = IDFoyer
HAjoute(Logement)
FAIRE
// affichage du message d'erreur
Erreur(MsgErreurAjout+ Logement..NomPhysique+ RC+HErreurInfo())
RENVOYER Faux
FIN

// Ce que je voudrait :

QUAND EXCEPTION DANS
Contact.IDFoyer = IDFoyer
Contact.Type = ctBENEFICAIRE
HAjoute(Contact)

Logement.IDFoyer = IDFoyer
HAjoute(Logement)
FAIRE
// affichage du message d'erreur
Erreur(MsgErreurAjout+ "HDernier ?"..NomPhysique+ RC+HErreurInfo())
RENVOYER Faux
FIN

Merci d'avance ;)



HErreurInfo(hErrFichier) devrait faire ton bonheur !

Cordialement

--
Gilles TOURREAU
Responsable informatique


Société P.O.S
Spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr