Discussion :

[lolo2b82]

Bonjour,

J'ai un logiciel SIG dans lequel un calculateur de symbole va, en fonction de l'appareil choisit, inscrire dans une base de donnée le numéro de symbole correspondant.
Par exemple, si lors d'une mise à jour je renseigne comme étant une vanne sous regard, il inscrira dans le champ SYMBOL de la base de donnée le numéro de symbole 1011.

Mon problème est que sous Windows XP, le calculateur marchait très bien. Mais depuis mon passage à windows 8 et 10 il ne fonctionne plus.
Peut être une fonction ou une syntaxe qui a disparue entre temps ?

Merci

Ci dessous le code du fichier vbs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
Class SymboleCalcul
 
	Public Function CalculNodeSymbol ( pValues As System.Collections.Hashtable  ) As Object
 
		Dim pResult As Object
		Dim strBuffer As string
    		Dim strBuffer1 As string
		pResult = 0
		strBuffer = System.Convert.ToString (pValues.Item("TYPE"))
		strBuffer1 = System.Convert.ToString(pValues.Item("TYPE"))
 
		Select Case strBuffer
 
'Vanne
			Case "VAN"
				strBuffer = System.Convert.ToString (pValues.Item("EAU_VAN.TYPE"))
				Select Case strBuffer
 
					Case "sous regard", "VANNE SOUS REGARD" '29
						pResult = 1011
					Case "VANNE" '20
						pResult = 1001
					Case "VANNE SOUS BAC" '28
						pResult = 1002
					Case "HYDROSTAB" '28
						pResult = 1003
					case else 
					pResult = 1000
 
				End Select
 
'Pompage
			Case "PMP"
				strBuffer = System.Convert.ToString (pValues.Item("EAU_PMP.TYPE"))
				Select Case strBuffer
 
				Case "Station de pompage", "STATION DE POMPAGE" '50
					pResult = 7000
				Case "Micro-centrale", "MICRO-CENTRALE" '35
					pResult = 7001
				Case "Groupe de pompage", "GROUPE DE POMPAGE" '25
					pResult = 7002
				case else
				pResult = 7100
 
				End Select
 
'Protection
			Case "PRO"
				strBuffer = System.Convert.ToString (pValues.Item("EAU_PRO.TYPE"))
				Select Case strBuffer 
 
					Case "VENTOUSE", "Ventouse" '39
					pResult = 2001 
					Case "Ventouse sous regard","VENTOUSE SOUS REGARD" '50
					pResult = 2011						
					Case "Anti belier", "ANTI BELIER" '40
						pResult = 2003
					Case "Vidange", "VIDANGE" '17
						pResult = 2002
					Case "Vidange indirecte","VIDANGE INDIRECTE" '40,90
						pResult = 2012
					Case "RP" '22,90
						pResult = 2013
					Case "CLAPET ANTI RETOUR","clapet anti retour" '25,90
						pResult = 2014
					Case "ANODE","anode","Anode" '90,90
						pResult = 2015
					Case "COL DE CYGNE" '75 y+2,90
						pResult = 2016
					Case "Dégrilleur", "DEGRILLEUR", "dégrilleur", "Degrilleur" '30
						pResult = 2017
					Case "prise de potentiel", "PRISE DE POTENTIEL" '50
						pResult = 2018
					Case Else 
						pResult = 2000	
				End Select
 
'Hydrant				
				Case "HYD"
				strBuffer = System.Convert.ToString (pValues.Item("EAU_HYD.TYPE"))
				Select Case strBuffer 
 
					Case "POTEAU INCENDIE","poteau incendie", "PI", "pi" '30
						pResult = 3001
					Case "BOUCHE INCENDIE" '40
						pResult = 3002
					Case Else
						pResult = 3000
				End Select
 
'Branchement
			Case "BRA"
				strBuffer = System.Convert.ToString (pValues.Item("EAU_BRA.TYPE"))
				Select Case strBuffer 
					Case "TE EN ATTENTE" '30
						pResult = 4001
					Case "BORNE" '17
						pResult = 4002
					Case "BP" '17
						presult = 4003
					Case "CHGT DIAM" '35
						presult = 6000
					Case "tborne","TBORNE" '25
						presult = 4004
					Case "cabine","CABINE","Cabine" '60
						presult = 4005
					Case "DEBITMETRE","bebimetre","débitmètre" '25
						pResult = 4006
					Case "COMPTEUR","compteur" '25
						pResult = 4007
					Case "COMPTEUR SOUS REGARD" '30
						pResult = 4008
					Case "DEBITMETRE SOUS REGARD" '30
						pResult = 4009
					Case "CHAMBRE DE MESURE","chambre de mesure" '30
						pResult = 4010
					Case "CREPINE","crépine","crepine" '30
						pResult = 4011
					Case Else
						pResult = 4000	
 
				End Select
 
'Stockage
			Case "STO" 
				strBuffer = System.Convert.ToString (pValues.Item("EAU_STO.TYPE"))           
				Select Case strBuffer 
					Case "RESERVOIR" '50
						pResult = 5001
					Case "BARRAGE","Barrage" '500
						pResult = 5002
					Case "PRISE","prise" '30
						pResult = 5003
						Case Else
						pResult = 5000	
				End Select
 
'Casse
			Case "RAC"
				pResult = 1234
 
'Traitement
			Case "TRA"
				presult = 8000 '45
 
				Case Else 
						pResult = 0 
				End Select
 
		CalculNodeSymbol = pResult
	End Function
 
End Class

[omen999]

bonjour,

Mais depuis mon passage à windows 8 et 10 il ne fonctionne plus.

il faudra être plus explicite...
nom du logiciel SIG, éventuel message d'erreur

et en plus cela a tout l'air d'être du vba-like mais pas du vbs....

[lolo2b82]

bonjour,

il faudra être plus explicite...
nom du logiciel SIG, éventuel message d'erreur

et en plus cela a tout l'air d'être du vba-like mais pas du vbs....

Bonjour,

Le logiciel SIG est IMARES EAU 9, le message m'indique :

"Le calculateur de symbol pour le descripteur 'REAUN' est défini de manière incorrecte."

J'ai pas plus d'information, REAUN est la couche des appareils.

merci

[omen999]

c'est une application métier réservée aux collectivités locales
développée par Imagis aujourd'hui Geomap-Imagis.

c'est un développement très spécifique et seul son éditeur
serait susceptible de te donner une réponse.

en plus, je doute qu'il s'agisse d'un fichier vbs car les déclarations
de variable sont incompatibles avec ce langage