Le portail francophone de la géomatique

Bonjour a tous,

j'ai deux problemes avec la programmation Avenue.

Probleme de programmation

Voici deux problemes de programmation relies a un script en langage Avenue.

Probleme 1

Le premier probleme concerne l'utilisation d'une variable numerique capter
dans une boite de message et utilisee pour des calculs. Exemple.

Voici la table :

PerturbationAnnee de perturbationÂge de la perturbation
CPR1978
CT1998
PLR1986

'**********Prealablement, une boite sous forme de liste capte l'annee
actuelle

liste = { 1999 , 2000 , 2001 }

boite = msgbox.choiceasstring( liste, Choisir l'annee actuelle , Annee )

msgbox.info( Vous avez choisi ++boite, Choix )

'**************Utilisation de l'annee choisie

ori=v.FindField( Âge de la perturbation )

cal1 = ((boite) - ([Annee de perturbation].AsNumber))

v.calculate (cal1, ori)
v.refresh

'************Donc, par exemple, si nous sommes en 2001, pour le premier
enregistrement, l'age de la perturbation devrait etre 23.
'************Si j'ecris 2001 directement au lieu boite, le calcul se fait
tres bien alors que si j'utilise la variable, ca ne marche pas

Donc la question 1 est de savoir comment utiliser une variable numerique
capter dans une boite de message.

Probleme 2

Le probleme 2 consiste a apporter une table dans un projet. Dans l'exemple,
a l'aide de la commande  .summarize , une table de sommation est creee et
celle-ci s'enregistre dans le meme dossier que le projet. Cependant, je ne
connais pas la commande pour mettre cette table dans le projet. Si j'ajoute
la table dans le projet en dehors du script(a la main), il n'y a pas de
probleme pour travailler avec la table par la suite. Exemple

Voici la table avant la sommation :

EssenceVolumeSuperficie
EE2310
SS3412
EE405
ES506
SS2020

Voici le script :

'****************Ouvrir la table

t=av.getactivedoc

'****************Rendre la table en Vtab

v=t.getvtab

v.StartEditingWithRecovery

e = v.FindField( Essence )
vo= v.FindField( Volume )
s = v.FindField( Superficie )

newVTab = v.Summarize( sommation .AsFileName, dBASE, e,{vo, s },
{ #VTAB_SUMMARY_SUM, #VTAB_SUMMARY_SUM })

'*******Jusqu'ici, il n'y a pas de probleme, la table suivante(sommation)
est creee et cette table est enregistree dans le meme dossier que le projet

EssenceVolumeSuperficie
EE6315
SS5432
ES506

'******Maintenant, il manque la commande pour apporter cette table dans le
projet

????????????????????????????

'******Par la suite, une fois que la table est dans le projet, on peut la
manipuler

matable= av.getproject.finddoc( zxz.dbf )

maTable.GetWin.Open
lavtab = matable.getvtab
matable.setname(lavtab.getname)
lavtab.seteditable(false)

Donc, le probleme deux consiste a apporter une table dans un projet.

Claude Paquet
Tech. de la faune
Ministere des ressources naturelles
Direction de l'environnement forestier
880 ch. Sainte-Foy, local 5.50
(Quebec), Quebec   G1S 4X4