WDForge.org - Forums

Devinette sans importance

Sujet: Devinette sans importance
par william sur 19/4/2005 9:00:14

Bonjour

Pas de question mais juste une reflexion de ce qui ne faut pas faire. A vous de trouver ce que je n'ai pas fais et qu'un bout de code à réussi à me redonner

SI EnModeTest() ALORS

cnom est une chaîne
Csoc est une chaîne

N_idCorr est entier
n_idpros est un entier

n_nbrec est un entier
i est entier

HLitPremier(Prospects)
TANTQUE PAS HEnDehors(Prospects)
i++
Jauge(i,7712)
SI Prospects.Nom="Pas de nom sur contact" ALORS
cnom=""
SINON
cnom=Prospects.Nom
FIN
Csoc=Prospects.Societe
n_idpros=Prospects.Id_prospect

HExécuteRequête(Req,hRequêteDéfaut,Csoc)
n_nbrec=HNbEnr(Req)
SI n_nbrec<>0 ALORS
HLitPremier(Req)
TANTQUE PAS HEnDehors(Req)
SI Req_.Nom=cnom ALORS

SI HLitRecherche(Correspondance,id_correspondance,Req.id_correspondance,hIdentique) ALORS

Correspondance.id_prospect=n_idpros
Correspondance.Ajout=1
HModifie(Correspondance)
FIN
FIN
HLitSuivant(Req)
FIN
FIN
HLitSuivant(Prospects)
FIN

STOP
FIN

Alors a votre avis que m'es t il arrivé hier soir :(?

Cdl
William