Bonjour,
Je viens de migrer un application WD5.5 en 7.5 et je me retrouve avec le
problème suivant.
J'ai une fonction récursive qui fontionnait correctement en 5.5, mais depuis
le passage à la version 7.5, elle ne fonctionne plus, vu que maintenant on
doit imposer le nom à la vue, et que auparavant, un entier désignait cette
vue.
Voici le code de ma fontion, et entre /// l'ancienne version qui
fonctionnait très bien en 5.5
PROCEDURE Parcours_Cardans(item,chassi)ok est un entier
idvue est un entier
dsca est une chaîne
MaVue est une Source de Données
ok=0
dsca=MemRecherche("CARDAN",Gauche(Droite(item)))
SI MemTrouvé("CARDAN") ALORS
cardan.chas=chassi
cardan.item=SansEspace(item)
cardan.Libelle=dsca
cardan.imprimer=0
ok=1
FIN
SI ok ALORS
HAjoute("cardan")
FIN
HOuvre("Nomenc")
SI HCréeVue(MaVue,Nomenc,"mitm,sitm","sitm","mitm = '"+SansEspace(item)+"'")
ALORS
HLitPremier(MaVue)
TANTQUE PAS HEnDehors(MaVue)
Parcours_Cardans(HRécupèreRubrique(MaVue,2), chassi)
HLitSuivant(MaVue)
FIN
SINON
Erreur(HErreurInfo())
FIN
HDétruitVue(MaVue)
///idvue=HCreeVue_55("Nomenc","mitm,sitm","sitm","mitm = '"+item+"'")
///hlitpremier(idvue)
///tantque pas HEnDehors()
/// Parcours_Cardans(HRecupereRubrique(idvue,2), chassi)
/// hlitsuivant(idvue)
///FIN
///hdetruitvue(idvue)
HFerme("Nomenc") |