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 |
