Problème passage de paramètre

**EvT Chess38** · 20/12/2012, 08h39

Bonjour,

je me permet de poster ce message ici car à la base il est dans le forum visual Studio mais sa place est surement plus ici.

j'ai un projet dans lequel j'utilises 3 Forms distinctes qui sont:
- Form_Bilan_Jours,
- Form_Bilan_Mois,
- Form_Bilan_Annees.

Dans chaque Form, lorsque je clique sur le BP_VALIDATION j'appelle une fonction qui va me permettre de remplir des Datagrid avec mes valeurs (cf. Bilan_Jours).

Comme je fais la même chose pour le jours, le mois et l'année, j'ai décidé de me créer une fonction FCT_REMPLISSAGE dans laquelle je passe tout mes Controls afin de les remplir. Tout ce passe bien.
Par contre pour remplir les Controls j'utilise un appel de fonction qui diffère selon la forme.
- Fct_Jour (Class_Bilans_Jours_XLS),
- Fct_Mois (Class_Bilans_Mois_XLS),
- Fct_Année (Class_Bilans_Années_XLS).
Chaque fonction est lié à une classe différente comme indiqué ci dessus.

Du coup, je voudrais passer un paramètre à ma fonction FCT_REMPLISSAGE afin qu'elle sache si elle doit effectuer la requête Jours, Mois ou Années.

J'ai essayé plusieurs choses mais rien ne marche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Fct_Remplissage(ByRef Nom_Data_Grid_Bilan_Production As DataGridView, ByRef Nom_Data_Grid_Depil As DataGridView, ByRef Nom_Data_Grid_Pick As DataGridView, ByRef Nom_Data_Grid_Encais As DataGridView, ByRef Nom_Chart_Depileur As Chart, ByRef Nom_Chart_Pick As Chart, ByRef Nom_Chart_Encais As Chart, ByRef GroupBox_Depil As GroupBox, ByRef GroupBox_Pick As GroupBox, ByRef GroupBox_Encais As GroupBox, ByVal Date_Debut As Date, ByVal Date_Fin As Date, ByVal Type_Class As Integer)


        Select Type_Class
            Case 0
                Dim Bilan_Production As New Class_Bilans_Jours_XLS
            Case 1
                Dim Bilan_Production As New Class_Bilans_Mois_XLS
            Case 2
                Dim Bilan_Production As New Class_Bilans_Annees_XLS
        End Select

        Bilan_Production.Lecture_des_Donnees(DateDebut, DateFin)

Ce qui est en rouge apparaît en erreur.

Pour résoudre mon problème j'ai mis ce code. Mais ce qui ne me plait pas c'est que j'écris le même code plusieurs fois du coup. Et la tartine est grosse!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Public Sub Fct_Remplissage(ByRef Nom_Data_Grid_Bilan_Production_Jours As DataGridView, ByRef Nom_Data_Grid_Depil As DataGridView, ByRef Nom_Data_Grid_Pick As DataGridView, ByRef Nom_Data_Grid_Encais As DataGridView, ByRef Nom_Chart_Depileur As Chart, ByRef Nom_Chart_Pick As Chart, ByRef Nom_Chart_Encais As Chart, ByRef GroupBox_Depil As GroupBox, ByRef GroupBox_Pick As GroupBox, ByRef GroupBox_Encais As GroupBox, ByVal Date_Debut As Date, ByVal Date_Fin As Date, ByRef Bilan_Production_Jours As Class_Bilans_Jours_XLS, ByRef Bilan_Production_Mois As Class_Bilans_Mois_XLS, ByRef Bilan_Production_Annees As Class_Bilans_Annees_XLS)

        '*** Choix de la lecture de données selon la form
        If Not IsNothing(Bilan_Production_Jours) Then
            Bilan_Production_Jours.Lecture_des_Donnees(Date_Debut, Date_Fin)
        End If
        If Not IsNothing(Bilan_Production_Mois) Then
            Bilan_Production_Mois.Lecture_des_Donnees(Date_Debut, Date_Fin)
        End If
        If Not IsNothing(Bilan_Production_Annees) Then
            Bilan_Production_Annees.Lecture_des_Donnees(Date_Debut, Date_Fin)
        End If

Si vous quelqu'un a une idée pour simplifier tous ça, je suis preneur.

Merci

PS: Si vous avez besoin de plus d'informations n'hésitez pas.
PS2: C'est mon premier projet

**youtpout978** · 20/12/2012, 09h21

Bonjour,
je ne pense pas que passer tout tes contrôles soit la bonne solution.
Le mieux c'est que tu crées une classe qui contiendra les différentes listes nécessaires pour remplir tes form.

Ta fonction renverra cette classe et dans ta form tu te bindera sur les listes de ta classe.

Tu déclare un enum qui correspond au type de ta classe (Mois, jour, année) un peu comme ce que tu as fais avec les integer.

Et tu appelera ta méthode avec seulement 3 infos dateDeb, dateFin et l'enum.
Et donc dans ta méthode tu appelera la méthode de lecture des données suivant la valeur de ton enum.

**EvT Chess38** · 20/12/2012, 09h53

Je dois avouer que j'ai un peu de mal à comprendre exactement ta solution.
Désolé mais je suis un néophyte

Mon but est à terme de n'avoir qu'un seul code car actuellement j'ai ça

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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
 Public Sub Fct_Remplissage(ByRef Nom_Data_Grid_Bilan_Production As DataGridView, ByRef Nom_Data_Grid_Depil As DataGridView, ByRef Nom_Data_Grid_Pick As DataGridView, ByRef Nom_Data_Grid_Encais As DataGridView, ByRef Nom_Chart_Depileur As Chart, ByRef Nom_Chart_Pick As Chart, ByRef Nom_Chart_Encais As Chart, ByRef GroupBox_Depil As GroupBox, ByRef GroupBox_Pick As GroupBox, ByRef GroupBox_Encais As GroupBox, ByVal Date_Debut As Date, ByVal Date_Fin As Date, ByRef Bilan_Production_Jours As Class_Bilans_Jours_XLS, ByRef Bilan_Production_Mois As Class_Bilans_Mois_XLS, ByRef Bilan_Production_Annees As Class_Bilans_Annees_XLS)
 
        Nbre_Max_Burgers_Depil = 0
        Total_Max_Burgers_Depil = 0
        Nbre_Max_Burgers_Pick = 0
        Total_Max_Burgers_Pick = 0
        Nbre_Max_Burgers_Encais = 0
        Total_Max_Burgers_Encais = 0
 
'*** Choix de la lecture de données selon la form
        If Not IsNothing(Bilan_Production_Jours) Then
            Bilan_Production_Jours.Lecture_des_Donnees(DateDebut, DateFin)
        End If
        If Not IsNothing(Bilan_Production_Mois) Then
            Bilan_Production_Mois.Lecture_des_Donnees(DateDebut, DateFin)
        End If
        If Not IsNothing(Bilan_Production_Annees) Then
            Bilan_Production_Annees.Lecture_des_Donnees(DateDebut, DateFin)
        End If
 
        Nom_Data_Grid_Bilan_Production.Rows.Clear()
        Nom_Data_Grid_Depil.Rows.Clear()
        Nom_Data_Grid_Pick.Rows.Clear()
        Nom_Data_Grid_Encais.Rows.Clear()
 
 
        '***********************************************
        '*** Remplissage des DATAGRID pour le Bilan Jour
        '***********************************************
        If Not IsNothing(Bilan_Production_Jours) Then
            For Index = 0 To Bilan_Production_Jours.NOMBRES - 1
                '*** Zone Bilan 
                Nom_Data_Grid_Bilan_Production.Rows.Add()
                Nom_Data_Grid_Bilan_Production.Rows(Index).Cells(0).Value = Bilan_Production_Jours.BILAN_DATE(Index)
                Nom_Data_Grid_Bilan_Production.Rows(Index).Cells(1).Value = Bilan_Production_Jours.BILAN_TEMPS_MARCHE_LIGNE(Index)
                '*** Zone Dépileur
                Nom_Data_Grid_Depil.Rows.Add()
                Nom_Data_Grid_Depil.Rows(Index).Cells(0).Value = Bilan_Production_Jours.BILAN_NBRE_BARQUETTE_DEPIL1(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(1).Value = Bilan_Production_Jours.BILAN_NBRE_BARQUETTE_DEPIL2(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(2).Value = Bilan_Production_Jours.BILAN_NBRE_BARQUETTE_DEPIL3(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(3).Value = Bilan_Production_Jours.BILAN_NBRE_BARQUETTE_DEPIL1(Index) + Bilan_Production_Jours.BILAN_NBRE_BARQUETTE_DEPIL2(Index) + Bilan_Production_Jours.BILAN_NBRE_BARQUETTE_DEPIL3(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(4).Value = Bilan_Production_Jours.BILAN_TEMPS_MARCHE_DEPIL1(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(5).Value = Bilan_Production_Jours.BILAN_TEMPS_MARCHE_DEPIL2(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(6).Value = Bilan_Production_Jours.BILAN_TEMPS_MARCHE_DEPIL3(Index)
 
                '*** Détection de la valeur max. pour la colonne Total 
                If Nom_Data_Grid_Depil.Rows(Index).Cells(3).Value > Total_Max_Burgers_Depil Then
                    Total_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(3).Value
                End If
                '*** Détection de la valeur max. pour les colonnes Nombre burgers
                If Nom_Data_Grid_Depil.Rows(Index).Cells(0).Value > Nbre_Max_Burgers_Depil Then
                    Nbre_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(0).Value
                End If
                If Nom_Data_Grid_Depil.Rows(Index).Cells(1).Value > Nbre_Max_Burgers_Depil Then
                    Nbre_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(1).Value
                End If
                If Nom_Data_Grid_Depil.Rows(Index).Cells(2).Value > Nbre_Max_Burgers_Depil Then
                    Nbre_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(2).Value
                End If
 
 
                '*** Zone Pick'n Place
                Nom_Data_Grid_Pick.Rows.Add()
                Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value = Bilan_Production_Jours.BILAN_NBRE_BURGERS_PICK1(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value = Bilan_Production_Jours.BILAN_NBRE_BURGERS_PICK2(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value = Bilan_Production_Jours.BILAN_NBRE_BURGERS_PICK3(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(3).Value = Bilan_Production_Jours.BILAN_NBRE_BURGERS_PICK1(Index) + Bilan_Production_Jours.BILAN_NBRE_BURGERS_PICK2(Index) + Bilan_Production_Jours.BILAN_NBRE_BURGERS_PICK3(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(4).Value = Bilan_Production_Jours.BILAN_TEMPS_MARCHE_PICK1(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(5).Value = Bilan_Production_Jours.BILAN_TEMPS_MARCHE_PICK2(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(6).Value = Bilan_Production_Jours.BILAN_TEMPS_MARCHE_PICK3(Index)
 
                '*** Détection de la valeur max. pour la colonne Total 
                If Nom_Data_Grid_Pick.Rows(Index).Cells(3).Value > Total_Max_Burgers_Pick Then
                    Total_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(3).Value
                End If
                '*** Détection de la valeur max. pour les colonnes Nombre burgers
                If Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value > Nbre_Max_Burgers_Pick Then
                    Nbre_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value > Nbre_Max_Burgers_Pick Then
                    Nbre_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value > Nbre_Max_Burgers_Pick Then
                    Nbre_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value
                End If
 
 
                '*** Zone Encaissage
                Nom_Data_Grid_Encais.Rows.Add()
                Nom_Data_Grid_Encais.Rows(Index).Cells(0).Value = Bilan_Production_Jours.BILAN_NBRE_BURGERS_ENCAIS1(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(1).Value = Bilan_Production_Jours.BILAN_NBRE_BURGERS_ENCAIS2(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(2).Value = Bilan_Production_Jours.BILAN_NBRE_BURGERS_ENCAIS3(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(3).Value = Bilan_Production_Jours.BILAN_NBRE_BURGERS_ENCAIS1(Index) + Bilan_Production_Jours.BILAN_NBRE_BURGERS_ENCAIS2(Index) + Bilan_Production_Jours.BILAN_NBRE_BURGERS_ENCAIS3(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(4).Value = Bilan_Production_Jours.BILAN_TEMPS_MARCHE_ENCAIS1(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(5).Value = Bilan_Production_Jours.BILAN_TEMPS_MARCHE_ENCAIS2(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(6).Value = Bilan_Production_Jours.BILAN_TEMPS_MARCHE_ENCAIS3(Index)
 
 
                '*** Détection de la valeur max. pour la colonne Total 
                If Nom_Data_Grid_Encais.Rows(Index).Cells(3).Value > Total_Max_Burgers_Pick Then
                    Total_Max_Burgers_Pick = Nom_Data_Grid_Encais.Rows(Index).Cells(3).Value
                End If
                '*** Détection de la valeur max. pour les colonnes Nombre burgers
                If Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value > Nbre_Max_Burgers_Encais Then
                    Nbre_Max_Burgers_Encais = Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value > Nbre_Max_Burgers_Encais Then
                    Nbre_Max_Burgers_Encais = Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value > Nbre_Max_Burgers_Encais Then
                    Nbre_Max_Burgers_Encais = Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value
                End If
 
            Next
        End If
 
 
        '***********************************************
        '*** Remplissage des DATAGRID pour le Bilan Mois
        '***********************************************
        If Not IsNothing(Bilan_Production_Mois) Then
            For Index = 0 To Bilan_Production_Mois.NOMBRES - 1
                '*** Zone Bilan 
                Nom_Data_Grid_Bilan_Production.Rows.Add()
                Nom_Data_Grid_Bilan_Production.Rows(Index).Cells(0).Value = Bilan_Production_Mois.BILAN_DATE(Index)
                Nom_Data_Grid_Bilan_Production.Rows(Index).Cells(1).Value = Bilan_Production_Mois.BILAN_TEMPS_MARCHE_LIGNE(Index)
                '*** Zone Dépileur
                Nom_Data_Grid_Depil.Rows.Add()
                Nom_Data_Grid_Depil.Rows(Index).Cells(0).Value = Bilan_Production_Mois.BILAN_NBRE_BARQUETTE_DEPIL1(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(1).Value = Bilan_Production_Mois.BILAN_NBRE_BARQUETTE_DEPIL2(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(2).Value = Bilan_Production_Mois.BILAN_NBRE_BARQUETTE_DEPIL3(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(3).Value = Bilan_Production_Mois.BILAN_NBRE_BARQUETTE_DEPIL1(Index) + Bilan_Production_Mois.BILAN_NBRE_BARQUETTE_DEPIL2(Index) + Bilan_Production_Mois.BILAN_NBRE_BARQUETTE_DEPIL3(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(4).Value = Bilan_Production_Mois.BILAN_TEMPS_MARCHE_DEPIL1(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(5).Value = Bilan_Production_Mois.BILAN_TEMPS_MARCHE_DEPIL2(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(6).Value = Bilan_Production_Mois.BILAN_TEMPS_MARCHE_DEPIL3(Index)
 
 
                '*** Détection de la valeur max. pour la colonne Total 
                If Nom_Data_Grid_Depil.Rows(Index).Cells(3).Value > Total_Max_Burgers_Depil Then
                    Total_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(3).Value
                End If
                '*** Détection de la valeur max. pour les colonnes Nombre burgers
                If Nom_Data_Grid_Depil.Rows(Index).Cells(0).Value > Nbre_Max_Burgers_Depil Then
                    Nbre_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(0).Value
                End If
                If Nom_Data_Grid_Depil.Rows(Index).Cells(1).Value > Nbre_Max_Burgers_Depil Then
                    Nbre_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(1).Value
                End If
                If Nom_Data_Grid_Depil.Rows(Index).Cells(2).Value > Nbre_Max_Burgers_Depil Then
                    Nbre_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(2).Value
                End If
 
 
                '*** Zone Pick'n Place
                Nom_Data_Grid_Pick.Rows.Add()
                Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value = Bilan_Production_Mois.BILAN_NBRE_BURGERS_PICK1(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value = Bilan_Production_Mois.BILAN_NBRE_BURGERS_PICK2(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value = Bilan_Production_Mois.BILAN_NBRE_BURGERS_PICK3(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(3).Value = Bilan_Production_Mois.BILAN_NBRE_BURGERS_PICK1(Index) + Bilan_Production_Mois.BILAN_NBRE_BURGERS_PICK2(Index) + Bilan_Production_Mois.BILAN_NBRE_BURGERS_PICK3(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(4).Value = Bilan_Production_Mois.BILAN_TEMPS_MARCHE_PICK1(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(5).Value = Bilan_Production_Mois.BILAN_TEMPS_MARCHE_PICK2(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(6).Value = Bilan_Production_Mois.BILAN_TEMPS_MARCHE_PICK3(Index)
 
 
                '*** Détection de la valeur max. pour la colonne Total 
                If Nom_Data_Grid_Pick.Rows(Index).Cells(3).Value > Total_Max_Burgers_Pick Then
                    Total_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(3).Value
                End If
                '*** Détection de la valeur max. pour les colonnes Nombre burgers
                If Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value > Nbre_Max_Burgers_Pick Then
                    Nbre_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value > Nbre_Max_Burgers_Pick Then
                    Nbre_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value > Nbre_Max_Burgers_Pick Then
                    Nbre_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value
                End If
 
 
                '*** Zone Encaissage
                Nom_Data_Grid_Encais.Rows.Add()
                Nom_Data_Grid_Encais.Rows(Index).Cells(0).Value = Bilan_Production_Mois.BILAN_NBRE_BURGERS_ENCAIS1(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(1).Value = Bilan_Production_Mois.BILAN_NBRE_BURGERS_ENCAIS2(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(2).Value = Bilan_Production_Mois.BILAN_NBRE_BURGERS_ENCAIS3(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(3).Value = Bilan_Production_Mois.BILAN_NBRE_BURGERS_ENCAIS1(Index) + Bilan_Production_Mois.BILAN_NBRE_BURGERS_ENCAIS2(Index) + Bilan_Production_Mois.BILAN_NBRE_BURGERS_ENCAIS3(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(4).Value = Bilan_Production_Mois.BILAN_TEMPS_MARCHE_ENCAIS1(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(5).Value = Bilan_Production_Mois.BILAN_TEMPS_MARCHE_ENCAIS2(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(6).Value = Bilan_Production_Mois.BILAN_TEMPS_MARCHE_ENCAIS3(Index)
 
 
                '*** Détection de la valeur max. pour la colonne Total 
                If Nom_Data_Grid_Encais.Rows(Index).Cells(3).Value > Total_Max_Burgers_Pick Then
                    Total_Max_Burgers_Pick = Nom_Data_Grid_Encais.Rows(Index).Cells(3).Value
                End If
                '*** Détection de la valeur max. pour les colonnes Nombre burgers
                If Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value > Nbre_Max_Burgers_Encais Then
                    Nbre_Max_Burgers_Encais = Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value > Nbre_Max_Burgers_Encais Then
                    Nbre_Max_Burgers_Encais = Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value > Nbre_Max_Burgers_Encais Then
                    Nbre_Max_Burgers_Encais = Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value
                End If
 
            Next
        End If
 
 
        '**************************************************
        '*** Remplissage des DATAGRID pour le Bilan Annees
        '**************************************************
        If Not IsNothing(Bilan_Production_Annees) Then
            For Index = 0 To Bilan_Production_Annees.NOMBRES - 1
                '*** Zone Bilan 
                Nom_Data_Grid_Bilan_Production.Rows.Add()
                Nom_Data_Grid_Bilan_Production.Rows(Index).Cells(0).Value = Bilan_Production_Annees.BILAN_DATE(Index)
                Nom_Data_Grid_Bilan_Production.Rows(Index).Cells(1).Value = Bilan_Production_Annees.BILAN_TEMPS_MARCHE_LIGNE(Index)
                '*** Zone Dépileur
                Nom_Data_Grid_Depil.Rows.Add()
                Nom_Data_Grid_Depil.Rows(Index).Cells(0).Value = Bilan_Production_Annees.BILAN_NBRE_BARQUETTE_DEPIL1(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(1).Value = Bilan_Production_Annees.BILAN_NBRE_BARQUETTE_DEPIL2(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(2).Value = Bilan_Production_Annees.BILAN_NBRE_BARQUETTE_DEPIL3(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(3).Value = Bilan_Production_Annees.BILAN_NBRE_BARQUETTE_DEPIL1(Index) + Bilan_Production_Annees.BILAN_NBRE_BARQUETTE_DEPIL2(Index) + Bilan_Production_Annees.BILAN_NBRE_BARQUETTE_DEPIL3(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(4).Value = Bilan_Production_Annees.BILAN_TEMPS_MARCHE_DEPIL1(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(5).Value = Bilan_Production_Annees.BILAN_TEMPS_MARCHE_DEPIL2(Index)
                Nom_Data_Grid_Depil.Rows(Index).Cells(6).Value = Bilan_Production_Annees.BILAN_TEMPS_MARCHE_DEPIL3(Index)
 
                '*** Détection de la valeur max. pour la colonne Total 
                If Nom_Data_Grid_Depil.Rows(Index).Cells(3).Value > Total_Max_Burgers_Depil Then
                    Total_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(3).Value
                End If
                '*** Détection de la valeur max. pour les colonnes Nombre burgers
                If Nom_Data_Grid_Depil.Rows(Index).Cells(0).Value > Nbre_Max_Burgers_Depil Then
                    Nbre_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(0).Value
                End If
                If Nom_Data_Grid_Depil.Rows(Index).Cells(1).Value > Nbre_Max_Burgers_Depil Then
                    Nbre_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(1).Value
                End If
                If Nom_Data_Grid_Depil.Rows(Index).Cells(2).Value > Nbre_Max_Burgers_Depil Then
                    Nbre_Max_Burgers_Depil = Nom_Data_Grid_Depil.Rows(Index).Cells(2).Value
                End If
 
 
                '*** Zone Pick'n Place
                Nom_Data_Grid_Pick.Rows.Add()
                Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value = Bilan_Production_Annees.BILAN_NBRE_BURGERS_PICK1(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value = Bilan_Production_Annees.BILAN_NBRE_BURGERS_PICK2(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value = Bilan_Production_Annees.BILAN_NBRE_BURGERS_PICK3(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(3).Value = Bilan_Production_Annees.BILAN_NBRE_BURGERS_PICK1(Index) + Bilan_Production_Annees.BILAN_NBRE_BURGERS_PICK2(Index) + Bilan_Production_Annees.BILAN_NBRE_BURGERS_PICK3(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(4).Value = Bilan_Production_Annees.BILAN_TEMPS_MARCHE_PICK1(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(5).Value = Bilan_Production_Annees.BILAN_TEMPS_MARCHE_PICK2(Index)
                Nom_Data_Grid_Pick.Rows(Index).Cells(6).Value = Bilan_Production_Annees.BILAN_TEMPS_MARCHE_PICK3(Index)
 
                '*** Détection de la valeur max. pour la colonne Total 
                If Nom_Data_Grid_Pick.Rows(Index).Cells(3).Value > Total_Max_Burgers_Pick Then
                    Total_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(3).Value
                End If
                '*** Détection de la valeur max. pour les colonnes Nombre burgers
                If Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value > Nbre_Max_Burgers_Pick Then
                    Nbre_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value > Nbre_Max_Burgers_Pick Then
                    Nbre_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value > Nbre_Max_Burgers_Pick Then
                    Nbre_Max_Burgers_Pick = Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value
                End If
 
 
                '*** Zone Encaissage
                Nom_Data_Grid_Encais.Rows.Add()
                Nom_Data_Grid_Encais.Rows(Index).Cells(0).Value = Bilan_Production_Annees.BILAN_NBRE_BURGERS_ENCAIS1(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(1).Value = Bilan_Production_Annees.BILAN_NBRE_BURGERS_ENCAIS2(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(2).Value = Bilan_Production_Annees.BILAN_NBRE_BURGERS_ENCAIS3(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(3).Value = Bilan_Production_Annees.BILAN_NBRE_BURGERS_ENCAIS1(Index) + Bilan_Production_Annees.BILAN_NBRE_BURGERS_ENCAIS2(Index) + Bilan_Production_Annees.BILAN_NBRE_BURGERS_ENCAIS3(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(4).Value = Bilan_Production_Annees.BILAN_TEMPS_MARCHE_ENCAIS1(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(5).Value = Bilan_Production_Annees.BILAN_TEMPS_MARCHE_ENCAIS2(Index)
                Nom_Data_Grid_Encais.Rows(Index).Cells(6).Value = Bilan_Production_Annees.BILAN_TEMPS_MARCHE_ENCAIS3(Index)
 
 
                '*** Détection de la valeur max. pour la colonne Total 
                If Nom_Data_Grid_Encais.Rows(Index).Cells(3).Value > Total_Max_Burgers_Pick Then
                    Total_Max_Burgers_Pick = Nom_Data_Grid_Encais.Rows(Index).Cells(3).Value
                End If
                '*** Détection de la valeur max. pour les colonnes Nombre burgers
                If Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value > Nbre_Max_Burgers_Encais Then
                    Nbre_Max_Burgers_Encais = Nom_Data_Grid_Pick.Rows(Index).Cells(0).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value > Nbre_Max_Burgers_Encais Then
                    Nbre_Max_Burgers_Encais = Nom_Data_Grid_Pick.Rows(Index).Cells(1).Value
                End If
                If Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value > Nbre_Max_Burgers_Encais Then
                    Nbre_Max_Burgers_Encais = Nom_Data_Grid_Pick.Rows(Index).Cells(2).Value
                End If
 
            Next
        End If

Comme le code est strictement identique j'aimerais avoir une solution pour l'écrire qu'une seule fois.

**mdevaux62** · 20/12/2012, 12h06

Tu devrais créer une sous classe qui contiendrait toutes les propriétés communes à tes trois classes.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Class clsDonneesCommunes
 
    Public Sub New()
    End Sub
 
    Public Property BILAN_NBRE_BARQUETTE_DEPIL1 As Integer = 0
 
    Public Property BILAN_NBRE_BARQUETTE_DEPIL2 As Integer = 0
 
End Class

Puis dans chacune de tes classes bilan_jour, bilan_mois, bilan_annee, ajouter une propriété Donnees as clsDonneesCommunes.

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
 
Public Class clsBilan_Production_Mois
 
    Public Sub New()
    End Sub
 
    Public Property Donnees As clsDonneesCommunes = New clsDonneesCommunes
 
End Class
 
Public Class clsBilan_Production_Jour
 
    Public Sub New()
    End Sub
 
    Public Property Donnees As clsDonneesCommunes = New clsDonneesCommunes
 
End Class
 
Public Class clsBilan_Production_Annee
 
    Public Sub New()
    End Sub
 
    Public Property Donnees As clsDonneesCommunes = New clsDonneesCommunes
 
End Class

La fonction de remplissage n'aurait plus qu'à recevoir une variable de type clsDonneesCommunes.

**EvT Chess38** · 20/12/2012, 13h35

Actuellement j'ai déjà 3 class:

- Class_Bilan_Jours

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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
 
Public Class Class_Bilans_Jours
    Private Donnees() As Class_Donnees_Bilans
 
    Public Property HIST_DATE_FIN() As Date
    Public Property HIST_DATE_DEBUT() As Date
 
    Public Sub Lecture_des_Donnees(ByVal Date_Debut As Date, ByVal Date_Fin As Date)
        Dim Index_Bilan As Long = 0
        Dim Index As Integer = 0
        Dim queryString As String
 
        On Error GoTo ErrorHandler
        Class_Donnees_Bilans.NOMBRES = 0
 
        HIST_DATE_DEBUT = Date_Debut
        HIST_DATE_FIN = Date_Fin
 
        '*** Mise en forme des date de debut et fin
        Dim Str_Date_Debut As String = String.Format("{0}-{1}-{2} 00:00:00", DatePart("yyyy", Date_Debut), DatePart("m", Date_Debut), DatePart("d", Date_Debut))
        Dim Str_Date_Fin As String = String.Format("{0}-{1}-{2} 00:00:00", DatePart("yyyy", Date_Fin.AddDays(1)), DatePart("m", Date_Fin.AddDays(1)), DatePart("d", Date_Fin.AddDays(1)))
 
        '*** Connection
        '*** Parametres chaine de connection
        Dim SqlConnection As New SqlConnectionStringBuilder() With {.InitialCatalog = My.Settings.SQL_DB_RAPPORTS, .DataSource = My.Settings.SQL_SERVEUR, .UserID = My.Settings.SQL_CONNEXION, .Password = My.Settings.SQL_MOT_PASSE}
 
        If Not Erreur_ Then
            '*** Creation Requette lecture des donnees
            queryString = "Select Convert(varchar(10),Date_Debut, 120) AS [DATE_BILAN]," & _
                          "SUM(NBRE_BARQUETTE_DEPIL1_MAG1) AS [Total_DEPIL1_MAG1], SUM(NBRE_BARQUETTE_DEPIL1_MAG2) AS [Total_DEPIL1_MAG2], SUM(NBRE_BARQUETTE_DEPIL2_MAG1) AS [Total_DEPIL2_MAG1], SUM(NBRE_BARQUETTE_DEPIL2_MAG2) AS [Total_DEPIL2_MAG2], SUM(NBRE_BARQUETTE_DEPIL3_MAG1) AS [Total_DEPIL3_MAG1], SUM(NBRE_BARQUETTE_DEPIL3_MAG2) AS [Total_DEPIL3_MAG2]," & _
                          "SUM(TEMPS_MARCHE_DEPIL1) AS [BILAN_TEMPS_MARCHE_DEPIL1], SUM(TEMPS_MARCHE_DEPIL2) AS [BILAN_TEMPS_MARCHE_DEPIL2], SUM(TEMPS_MARCHE_DEPIL3) AS [BILAN_TEMPS_MARCHE_DEPIL3]," & _
                          "SUM(NBRE_DEFAUTS_DEPIL1) AS [BILAN_NBRE_DEFAUTS_DEPIL1], SUM(NBRE_DEFAUTS_DEPIL2) AS [BILAN_NBRE_DEFAUTS_DEPIL2], SUM(NBRE_DEFAUTS_DEPIL3) AS [BILAN_NBRE_DEFAUTS_DEPIL3]," & _
                          "SUM(NBRE_BURGERS_PICK1) AS [Total_PICK1], SUM(NBRE_BURGERS_PICK2) AS [Total_PICK2],SUM(NBRE_BURGERS_PICK3) AS [Total_PICK3]," & _
                          "SUM(TEMPS_MARCHE_PICK1) AS [BILAN_TEMPS_MARCHE_PICK1], SUM(TEMPS_MARCHE_PICK2) AS [BILAN_TEMPS_MARCHE_PICK2], SUM(TEMPS_MARCHE_PICK3) AS [BILAN_TEMPS_MARCHE_PICK3]," & _
                          "SUM(NBRE_DEFAUTS_PICK1) AS [BILAN_NBRE_DEFAUTS_PICK1], SUM(NBRE_DEFAUTS_PICK2) AS [BILAN_NBRE_DEFAUTS_PICK2], SUM(NBRE_DEFAUTS_PICK3) AS [BILAN_NBRE_DEFAUTS_PICK3]," & _
                          "SUM(NBRE_BURGERS_ENCAIS1) AS [Total_ENCAIS1], SUM(NBRE_BURGERS_ENCAIS2) AS [Total_ENCAIS2],SUM(NBRE_BURGERS_ENCAIS3) AS [Total_ENCAIS3]," & _
                          "SUM(TEMPS_MARCHE_ENCAIS1) AS [BILAN_TEMPS_MARCHE_ENCAIS1], SUM(TEMPS_MARCHE_ENCAIS2) AS [BILAN_TEMPS_MARCHE_ENCAIS2], SUM(TEMPS_MARCHE_ENCAIS3) AS [BILAN_TEMPS_MARCHE_ENCAIS3]," & _
                          "SUM(NBRE_DEFAUTS_ENCAIS1) AS [BILAN_NBRE_DEFAUTS_ENCAIS1], SUM(NBRE_DEFAUTS_ENCAIS2) AS [BILAN_NBRE_DEFAUTS_ENCAIS2], SUM(NBRE_DEFAUTS_ENCAIS3) AS [BILAN_NBRE_DEFAUTS_ENCAIS3]" & _
                          "from RAPPORTS " & _
                          "WHERE EN_COURS = 0 AND (DATE_DEBUT >= CONVERT(DATETIME, '" & Str_Date_Debut & "', 102)) AND (DATE_DEBUT <= CONVERT(DATETIME, '" & Str_Date_Fin & "', 102)) " & _
                          "GROUP BY Convert(varchar(10),Date_Debut, 120) "
 
 
            Debug.Print(queryString)
            '*** Connection Base de données
            Using connection As New SqlConnection(SqlConnection.ConnectionString)
 
                Dim adapter As SqlDataAdapter = New SqlDataAdapter(queryString, connection)
 
                Using dataSet_Rapports As DataSet = New DataSet()
                    adapter.Fill(dataSet_Rapports, "Table_1")
                    '*** mise a jour tableau structure nombre de ligne bilan
                    ReDim Donnees(dataSet_Rapports.Tables("Table_1").Rows.Count - 1)
                    For Each Lg As DataRow In dataSet_Rapports.Tables("Table_1").Rows
                        Donnees(Index_Bilan) = New Class_Donnees_Bilans()
                        '*** Avant de recopier la valeur, vérification que la valeur n'est pas NULL pour ne pas faire planter le logiciel
                        If Not DBNull.Value.Equals(Lg.Item("DATE_BILAN")) Then
                            Donnees(Index_Bilan).BILAN_DATE = Lg.Item("DATE_BILAN")
                        End If
                        'If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_LIGNE")) Then
                        '    Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_LIGNE = Lg.Item("BILAN_TEMPS_MARCHE_LIGNE")
                        'End If
 
                        '*** Zone Dépileurs
                        If Not DBNull.Value.Equals(Lg.Item("Total_DEPIL1_MAG1")) And Not DBNull.Value.Equals(Lg.Item("Total_DEPIL1_MAG2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BARQUETTE_DEPIL1 = Lg.Item("Total_DEPIL1_MAG1") + Lg.Item("Total_DEPIL1_MAG1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("Total_DEPIL2_MAG1")) And Not DBNull.Value.Equals(Lg.Item("Total_DEPIL2_MAG2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BARQUETTE_DEPIL2 = Lg.Item("Total_DEPIL2_MAG1") + Lg.Item("Total_DEPIL2_MAG2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("Total_DEPIL3_MAG1")) And Not DBNull.Value.Equals(Lg.Item("Total_DEPIL3_MAG2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BARQUETTE_DEPIL3 = Lg.Item("Total_DEPIL3_MAG1") + Lg.Item("TOTAL_DEPIL3_MAG2")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_DEPIL1")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_DEPIL1 = Lg.Item("BILAN_TEMPS_MARCHE_DEPIL1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_DEPIL2")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_DEPIL2 = Lg.Item("BILAN_TEMPS_MARCHE_DEPIL2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_DEPIL3")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_DEPIL3 = Lg.Item("BILAN_TEMPS_MARCHE_DEPIL3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_DEPIL1 = Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_DEPIL2 = Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_DEPIL3 = Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL3")
                        End If
 
                        '*** Zone Pick'n Place
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_PICK1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_PICK1 = Lg.Item("TOTAL_PICK1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_PICK2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_PICK2 = Lg.Item("TOTAL_PICK2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_PICK3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_PICK3 = Lg.Item("TOTAL_PICK3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_PICK1")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_PICK1 = Lg.Item("BILAN_TEMPS_MARCHE_PICK1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_PICK2")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_PICK2 = Lg.Item("BILAN_TEMPS_MARCHE_PICK2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_PICK3")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_PICK3 = Lg.Item("BILAN_TEMPS_MARCHE_PICK3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_PICK1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_PICK1 = Lg.Item("BILAN_NBRE_DEFAUTS_PICK1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_PICK2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_PICK2 = Lg.Item("BILAN_NBRE_DEFAUTS_PICK2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_PICK3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_PICK3 = Lg.Item("BILAN_NBRE_DEFAUTS_PICK3")
                        End If
 
                        '*** Zone Encaissages
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_ENCAIS1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_ENCAIS1 = Lg.Item("TOTAL_ENCAIS1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_ENCAIS2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_ENCAIS2 = Lg.Item("TOTAL_ENCAIS2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_ENCAIS3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_ENCAIS3 = Lg.Item("TOTAL_ENCAIS3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS1")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_ENCAIS1 = Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS2")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_ENCAIS2 = Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS3")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_ENCAIS3 = Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_ENCAIS1 = Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_ENCAIS2 = Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_ENCAIS3 = Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS3")
                        End If
 
                        Index_Bilan = Index_Bilan + 1
                    Next
                End Using
            End Using
        End If
        Exit Sub
ErrorHandler:  ' Error-handling routine.
        If Not Erreur_ Then
            Erreur_ = True
            Form_Erreur_Prog.TXT_TITRE.Text = "ERREUR PROGRAMME"
            Form_Erreur_Prog.TXT_TYPE_ERREUR.Text = " LECTURE DES BILANS DE PRODCTIONS MS_SQL_SERVER"
            Form_Erreur_Prog.TXT_DETAIL_ERREUR.Text = Err.Description
            Form_Erreur_Prog.ShowDialog()
            Application.DoEvents()
        End If
    End Sub
 
    Public ReadOnly Property NOMBRES() As Integer
        Get
            Return Class_Donnees_Bilans.NOMBRES
        End Get
    End Property
 
    Public ReadOnly Property BILAN_DATE(Index As Integer) As String
        Get
            Return Donnees(Index).BILAN_DATE
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_LIGNE(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_LIGNE
        End Get
    End Property
 
    '*** Zone Dépileurs
    Public ReadOnly Property BILAN_NBRE_BARQUETTE_DEPIL1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BARQUETTE_DEPIL1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BARQUETTE_DEPIL2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BARQUETTE_DEPIL2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BARQUETTE_DEPIL3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BARQUETTE_DEPIL3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_TEMPS_MARCHE_DEPIL1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_DEPIL1
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_DEPIL2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_DEPIL2
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_DEPIL3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_DEPIL3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_DEPIL1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_DEPIL1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_DEPIL2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_DEPIL2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_DEPIL3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_DEPIL3
        End Get
    End Property
 
 
    '*** Zone Pick'n Place
    Public ReadOnly Property BILAN_NBRE_BURGERS_PICK1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_PICK1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_PICK2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_PICK2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_PICK3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_PICK3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_TEMPS_MARCHE_PICK1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_PICK1
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_PICK2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_PICK2
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_PICK3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_PICK3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_PICK1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_PICK1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_PICK2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_PICK2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_PICK3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_PICK3
        End Get
    End Property
 
    '*** Zone Encaissages
    Public ReadOnly Property BILAN_NBRE_BURGERS_ENCAIS1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_ENCAIS1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_ENCAIS2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_ENCAIS2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_ENCAIS3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_ENCAIS3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_TEMPS_MARCHE_ENCAIS1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_ENCAIS1
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_ENCAIS2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_ENCAIS2
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_ENCAIS3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_ENCAIS3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_ENCAIS1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_ENCAIS1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_ENCAIS2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_ENCAIS2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_ENCAIS3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_ENCAIS3
        End Get
    End Property
 
End Class

- Class_Bilan_Mois

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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
 
Public Class Class_Bilans_Mois
    Private Donnees() As Class_Donnees_Bilans
 
    Public Property HIST_DATE_FIN() As Date
    Public Property HIST_DATE_DEBUT() As Date
 
    Public Sub Lecture_des_Donnees(ByVal Date_Debut As Date, ByVal Date_Fin As Date)
        Dim Index_Bilan As Long = 0
        Dim Index As Integer = 0
        Dim queryString As String
 
        On Error GoTo ErrorHandler
        Class_Donnees_Bilans.NOMBRES = 0
 
        HIST_DATE_DEBUT = Date_Debut
        HIST_DATE_FIN = Date_Fin
 
        '*** Mise en forme des date de debut et fin
        Dim Str_Date_Debut As String = String.Format("{0}-{1}-{2} 00:00:00", DatePart("yyyy", Date_Debut), DatePart("m", Date_Debut), DatePart("d", Date_Debut))
        Dim Str_Date_Fin As String = String.Format("{0}-{1}-{2} 00:00:00", DatePart("yyyy", Date_Fin.AddDays(1)), DatePart("m", Date_Fin.AddDays(1)), DatePart("d", Date_Fin.AddDays(1)))
 
        '*** Connection
        '*** Parametres chaine de connection
        Dim SqlConnection As New SqlConnectionStringBuilder() With {.InitialCatalog = My.Settings.SQL_DB_RAPPORTS, .DataSource = My.Settings.SQL_SERVEUR, .UserID = My.Settings.SQL_CONNEXION, .Password = My.Settings.SQL_MOT_PASSE}
 
        If Not Erreur_ Then
            '*** Creation Requette lecture des donnees
            queryString = "Select LEFT(Convert(varchar(10),Date_Debut, 120), 7) AS [DATE_BILAN]," & _
                          "SUM(NBRE_BARQUETTE_DEPIL1_MAG1) AS [Total_DEPIL1_MAG1], SUM(NBRE_BARQUETTE_DEPIL1_MAG2) AS [Total_DEPIL1_MAG2], SUM(NBRE_BARQUETTE_DEPIL2_MAG1) AS [Total_DEPIL2_MAG1], SUM(NBRE_BARQUETTE_DEPIL2_MAG2) AS [Total_DEPIL2_MAG2], SUM(NBRE_BARQUETTE_DEPIL3_MAG1) AS [Total_DEPIL3_MAG1], SUM(NBRE_BARQUETTE_DEPIL3_MAG2) AS [Total_DEPIL3_MAG2]," & _
                          "SUM(TEMPS_MARCHE_DEPIL1) AS [BILAN_TEMPS_MARCHE_DEPIL1], SUM(TEMPS_MARCHE_DEPIL2) AS [BILAN_TEMPS_MARCHE_DEPIL2], SUM(TEMPS_MARCHE_DEPIL3) AS [BILAN_TEMPS_MARCHE_DEPIL3]," & _
                          "SUM(NBRE_DEFAUTS_DEPIL1) AS [BILAN_NBRE_DEFAUTS_DEPIL1], SUM(NBRE_DEFAUTS_DEPIL2) AS [BILAN_NBRE_DEFAUTS_DEPIL2], SUM(NBRE_DEFAUTS_DEPIL3) AS [BILAN_NBRE_DEFAUTS_DEPIL3]," & _
                          "SUM(NBRE_BURGERS_PICK1) AS [Total_PICK1], SUM(NBRE_BURGERS_PICK2) AS [Total_PICK2],SUM(NBRE_BURGERS_PICK3) AS [Total_PICK3]," & _
                          "SUM(TEMPS_MARCHE_PICK1) AS [BILAN_TEMPS_MARCHE_PICK1], SUM(TEMPS_MARCHE_PICK2) AS [BILAN_TEMPS_MARCHE_PICK2], SUM(TEMPS_MARCHE_PICK3) AS [BILAN_TEMPS_MARCHE_PICK3]," & _
                          "SUM(NBRE_DEFAUTS_PICK1) AS [BILAN_NBRE_DEFAUTS_PICK1], SUM(NBRE_DEFAUTS_PICK2) AS [BILAN_NBRE_DEFAUTS_PICK2], SUM(NBRE_DEFAUTS_PICK3) AS [BILAN_NBRE_DEFAUTS_PICK3]," & _
                          "SUM(NBRE_BURGERS_ENCAIS1) AS [Total_ENCAIS1], SUM(NBRE_BURGERS_ENCAIS2) AS [Total_ENCAIS2],SUM(NBRE_BURGERS_ENCAIS3) AS [Total_ENCAIS3]," & _
                          "SUM(TEMPS_MARCHE_ENCAIS1) AS [BILAN_TEMPS_MARCHE_ENCAIS1], SUM(TEMPS_MARCHE_ENCAIS2) AS [BILAN_TEMPS_MARCHE_ENCAIS2], SUM(TEMPS_MARCHE_ENCAIS3) AS [BILAN_TEMPS_MARCHE_ENCAIS3]," & _
                          "SUM(NBRE_DEFAUTS_ENCAIS1) AS [BILAN_NBRE_DEFAUTS_ENCAIS1], SUM(NBRE_DEFAUTS_ENCAIS2) AS [BILAN_NBRE_DEFAUTS_ENCAIS2], SUM(NBRE_DEFAUTS_ENCAIS3) AS [BILAN_NBRE_DEFAUTS_ENCAIS3]" & _
                          "from RAPPORTS " & _
                          "WHERE EN_COURS = 0 AND (DATE_DEBUT >= CONVERT(DATETIME, '" & Str_Date_Debut & "', 102)) AND (DATE_DEBUT <= CONVERT(DATETIME, '" & Str_Date_Fin & "', 102)) " & _
                          "GROUP BY LEFT(Convert(varchar(10),Date_Debut, 120), 7) "
 
 
            Debug.Print(queryString)
            '*** Connection Base de données
            Using connection As New SqlConnection(SqlConnection.ConnectionString)
 
                Dim adapter As SqlDataAdapter = New SqlDataAdapter(queryString, connection)
 
                Using dataSet_Rapports As DataSet = New DataSet()
                    adapter.Fill(dataSet_Rapports, "Table_1")
                    '*** mise a jour tableau structure nombre de ligne bilan
                    ReDim Donnees(dataSet_Rapports.Tables("Table_1").Rows.Count - 1)
                    For Each Lg As DataRow In dataSet_Rapports.Tables("Table_1").Rows
                        Donnees(Index_Bilan) = New Class_Donnees_Bilans()
                        '*** Avant de recopier la valeur, vérification que la valeur n'est pas NULL pour ne pas faire planter le logiciel
                        If Not DBNull.Value.Equals(Lg.Item("DATE_BILAN")) Then
                            Donnees(Index_Bilan).BILAN_DATE = Lg.Item("DATE_BILAN")
                        End If
                        'If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_LIGNE")) Then
                        '    Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_LIGNE = Lg.Item("BILAN_TEMPS_MARCHE_LIGNE")
                        'End If
 
                        '*** Zone Dépileurs
                        If Not DBNull.Value.Equals(Lg.Item("Total_DEPIL1_MAG1")) And Not DBNull.Value.Equals(Lg.Item("Total_DEPIL1_MAG2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BARQUETTE_DEPIL1 = Lg.Item("Total_DEPIL1_MAG1") + Lg.Item("Total_DEPIL1_MAG1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("Total_DEPIL2_MAG1")) And Not DBNull.Value.Equals(Lg.Item("Total_DEPIL2_MAG2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BARQUETTE_DEPIL2 = Lg.Item("Total_DEPIL2_MAG1") + Lg.Item("Total_DEPIL2_MAG2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("Total_DEPIL3_MAG1")) And Not DBNull.Value.Equals(Lg.Item("Total_DEPIL3_MAG2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BARQUETTE_DEPIL3 = Lg.Item("Total_DEPIL3_MAG1") + Lg.Item("TOTAL_DEPIL3_MAG2")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_DEPIL1")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_DEPIL1 = Lg.Item("BILAN_TEMPS_MARCHE_DEPIL1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_DEPIL2")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_DEPIL2 = Lg.Item("BILAN_TEMPS_MARCHE_DEPIL2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_DEPIL3")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_DEPIL3 = Lg.Item("BILAN_TEMPS_MARCHE_DEPIL3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_DEPIL1 = Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_DEPIL2 = Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_DEPIL3 = Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL3")
                        End If
 
                        '*** Zone Pick'n Place
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_PICK1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_PICK1 = Lg.Item("TOTAL_PICK1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_PICK2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_PICK2 = Lg.Item("TOTAL_PICK2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_PICK3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_PICK3 = Lg.Item("TOTAL_PICK3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_PICK1")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_PICK1 = Lg.Item("BILAN_TEMPS_MARCHE_PICK1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_PICK2")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_PICK2 = Lg.Item("BILAN_TEMPS_MARCHE_PICK2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_PICK3")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_PICK3 = Lg.Item("BILAN_TEMPS_MARCHE_PICK3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_PICK1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_PICK1 = Lg.Item("BILAN_NBRE_DEFAUTS_PICK1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_PICK2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_PICK2 = Lg.Item("BILAN_NBRE_DEFAUTS_PICK2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_PICK3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_PICK3 = Lg.Item("BILAN_NBRE_DEFAUTS_PICK3")
                        End If
 
                        '*** Zone Encaissages
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_ENCAIS1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_ENCAIS1 = Lg.Item("TOTAL_ENCAIS1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_ENCAIS2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_ENCAIS2 = Lg.Item("TOTAL_ENCAIS2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_ENCAIS3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_ENCAIS3 = Lg.Item("TOTAL_ENCAIS3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS1")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_ENCAIS1 = Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS2")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_ENCAIS2 = Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS3")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_ENCAIS3 = Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_ENCAIS1 = Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_ENCAIS2 = Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_ENCAIS3 = Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS3")
                        End If
 
                        Index_Bilan = Index_Bilan + 1
                    Next
                End Using
            End Using
        End If
        Exit Sub
ErrorHandler:  ' Error-handling routine.
        If Not Erreur_ Then
            Erreur_ = True
            Form_Erreur_Prog.TXT_TITRE.Text = "ERREUR PROGRAMME"
            Form_Erreur_Prog.TXT_TYPE_ERREUR.Text = " LECTURE DES BILANS DE PRODCTIONS MS_SQL_SERVER"
            Form_Erreur_Prog.TXT_DETAIL_ERREUR.Text = Err.Description
            Form_Erreur_Prog.ShowDialog()
            Application.DoEvents()
        End If
    End Sub
 
    Public ReadOnly Property NOMBRES() As Integer
        Get
            Return Class_Donnees_Bilans.NOMBRES
        End Get
    End Property
 
    Public ReadOnly Property BILAN_DATE(Index As Integer) As String
        Get
            Return Donnees(Index).BILAN_DATE
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_LIGNE(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_LIGNE
        End Get
    End Property
 
    '*** Zone Dépileurs
    Public ReadOnly Property BILAN_NBRE_BARQUETTE_DEPIL1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BARQUETTE_DEPIL1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BARQUETTE_DEPIL2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BARQUETTE_DEPIL2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BARQUETTE_DEPIL3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BARQUETTE_DEPIL3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_TEMPS_MARCHE_DEPIL1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_DEPIL1
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_DEPIL2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_DEPIL2
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_DEPIL3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_DEPIL3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_DEPIL1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_DEPIL1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_DEPIL2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_DEPIL2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_DEPIL3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_DEPIL3
        End Get
    End Property
 
 
    '*** Zone Pick'n Place
    Public ReadOnly Property BILAN_NBRE_BURGERS_PICK1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_PICK1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_PICK2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_PICK2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_PICK3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_PICK3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_TEMPS_MARCHE_PICK1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_PICK1
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_PICK2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_PICK2
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_PICK3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_PICK3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_PICK1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_PICK1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_PICK2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_PICK2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_PICK3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_PICK3
        End Get
    End Property
 
    '*** Zone Encaissages
    Public ReadOnly Property BILAN_NBRE_BURGERS_ENCAIS1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_ENCAIS1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_ENCAIS2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_ENCAIS2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_ENCAIS3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_ENCAIS3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_TEMPS_MARCHE_ENCAIS1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_ENCAIS1
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_ENCAIS2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_ENCAIS2
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_ENCAIS3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_ENCAIS3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_ENCAIS1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_ENCAIS1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_ENCAIS2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_ENCAIS2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_ENCAIS3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_ENCAIS3
        End Get
    End Property
 
End Class

- Class_Bilan_Annees

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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
 
Public Class Class_Bilans_Annees
    Private Donnees() As Class_Donnees_Bilans
 
    Public Property HIST_DATE_FIN() As Date
    Public Property HIST_DATE_DEBUT() As Date
 
    Public Sub Lecture_des_Donnees(ByVal Date_Debut As Date, ByVal Date_Fin As Date)
        Dim Index_Bilan As Long = 0
        Dim Index As Integer = 0
        Dim queryString As String
 
        On Error GoTo ErrorHandler
        Class_Donnees_Bilans.NOMBRES = 0
 
        HIST_DATE_DEBUT = Date_Debut
        HIST_DATE_FIN = Date_Fin
 
        '*** Mise en forme des date de debut et fin
        Dim Str_Date_Debut As String = String.Format("{0}-{1}-{2} 00:00:00", DatePart("yyyy", Date_Debut), DatePart("m", Date_Debut), DatePart("d", Date_Debut))
        Dim Str_Date_Fin As String = String.Format("{0}-{1}-{2} 00:00:00", DatePart("yyyy", Date_Fin.AddDays(1)), DatePart("m", Date_Fin.AddDays(1)), DatePart("d", Date_Fin.AddDays(1)))
 
        '*** Connection
        '*** Parametres chaine de connection
        Dim SqlConnection As New SqlConnectionStringBuilder() With {.InitialCatalog = My.Settings.SQL_DB_RAPPORTS, .DataSource = My.Settings.SQL_SERVEUR, .UserID = My.Settings.SQL_CONNEXION, .Password = My.Settings.SQL_MOT_PASSE}
 
        If Not Erreur_ Then
            '*** Creation Requette lecture des donnees
            queryString = "Select RIGHT(CONVERT(VARCHAR(10), Date_Debut, 103), 4) AS [DATE_BILAN]," & _
                          "SUM(NBRE_BARQUETTE_DEPIL1_MAG1) AS [Total_DEPIL1_MAG1], SUM(NBRE_BARQUETTE_DEPIL1_MAG2) AS [Total_DEPIL1_MAG2], SUM(NBRE_BARQUETTE_DEPIL2_MAG1) AS [Total_DEPIL2_MAG1], SUM(NBRE_BARQUETTE_DEPIL2_MAG2) AS [Total_DEPIL2_MAG2], SUM(NBRE_BARQUETTE_DEPIL3_MAG1) AS [Total_DEPIL3_MAG1], SUM(NBRE_BARQUETTE_DEPIL3_MAG2) AS [Total_DEPIL3_MAG2]," & _
                          "SUM(TEMPS_MARCHE_DEPIL1) AS [BILAN_TEMPS_MARCHE_DEPIL1], SUM(TEMPS_MARCHE_DEPIL2) AS [BILAN_TEMPS_MARCHE_DEPIL2], SUM(TEMPS_MARCHE_DEPIL3) AS [BILAN_TEMPS_MARCHE_DEPIL3]," & _
                          "SUM(NBRE_DEFAUTS_DEPIL1) AS [BILAN_NBRE_DEFAUTS_DEPIL1], SUM(NBRE_DEFAUTS_DEPIL2) AS [BILAN_NBRE_DEFAUTS_DEPIL2], SUM(NBRE_DEFAUTS_DEPIL3) AS [BILAN_NBRE_DEFAUTS_DEPIL3]," & _
                          "SUM(NBRE_BURGERS_PICK1) AS [Total_PICK1], SUM(NBRE_BURGERS_PICK2) AS [Total_PICK2],SUM(NBRE_BURGERS_PICK3) AS [Total_PICK3]," & _
                          "SUM(TEMPS_MARCHE_PICK1) AS [BILAN_TEMPS_MARCHE_PICK1], SUM(TEMPS_MARCHE_PICK2) AS [BILAN_TEMPS_MARCHE_PICK2], SUM(TEMPS_MARCHE_PICK3) AS [BILAN_TEMPS_MARCHE_PICK3]," & _
                          "SUM(NBRE_DEFAUTS_PICK1) AS [BILAN_NBRE_DEFAUTS_PICK1], SUM(NBRE_DEFAUTS_PICK2) AS [BILAN_NBRE_DEFAUTS_PICK2], SUM(NBRE_DEFAUTS_PICK3) AS [BILAN_NBRE_DEFAUTS_PICK3]," & _
                          "SUM(NBRE_BURGERS_ENCAIS1) AS [Total_ENCAIS1], SUM(NBRE_BURGERS_ENCAIS2) AS [Total_ENCAIS2],SUM(NBRE_BURGERS_ENCAIS3) AS [Total_ENCAIS3]," & _
                          "SUM(TEMPS_MARCHE_ENCAIS1) AS [BILAN_TEMPS_MARCHE_ENCAIS1], SUM(TEMPS_MARCHE_ENCAIS2) AS [BILAN_TEMPS_MARCHE_ENCAIS2], SUM(TEMPS_MARCHE_ENCAIS3) AS [BILAN_TEMPS_MARCHE_ENCAIS3]," & _
                          "SUM(NBRE_DEFAUTS_ENCAIS1) AS [BILAN_NBRE_DEFAUTS_ENCAIS1], SUM(NBRE_DEFAUTS_ENCAIS2) AS [BILAN_NBRE_DEFAUTS_ENCAIS2], SUM(NBRE_DEFAUTS_ENCAIS3) AS [BILAN_NBRE_DEFAUTS_ENCAIS3]" & _
                          "from RAPPORTS " & _
                          "WHERE EN_COURS = 0 AND (DATE_DEBUT >= CONVERT(DATETIME, '" & Str_Date_Debut & "', 102)) AND (DATE_DEBUT <= CONVERT(DATETIME, '" & Str_Date_Fin & "', 102)) " & _
                          "GROUP BY RIGHT(CONVERT(VARCHAR(10), Date_Debut, 103), 4) "
 
 
            Debug.Print(queryString)
            '*** Connection Base de données
            Using connection As New SqlConnection(SqlConnection.ConnectionString)
 
                Dim adapter As SqlDataAdapter = New SqlDataAdapter(queryString, connection)
 
                Using dataSet_Rapports As DataSet = New DataSet()
                    adapter.Fill(dataSet_Rapports, "Table_1")
                    '*** mise a jour tableau structure nombre de ligne bilan
                    ReDim Donnees(dataSet_Rapports.Tables("Table_1").Rows.Count - 1)
                    For Each Lg As DataRow In dataSet_Rapports.Tables("Table_1").Rows
                        Donnees(Index_Bilan) = New Class_Donnees_Bilans()
                        '*** Avant de recopier la valeur, vérification que la valeur n'est pas NULL pour ne pas faire planter le logiciel
                        If Not DBNull.Value.Equals(Lg.Item("DATE_BILAN")) Then
                            Donnees(Index_Bilan).BILAN_DATE = Lg.Item("DATE_BILAN")
                        End If
                        'If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_LIGNE")) Then
                        '    Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_LIGNE = Lg.Item("BILAN_TEMPS_MARCHE_LIGNE")
                        'End If
 
                        '*** Zone Dépileurs
                        If Not DBNull.Value.Equals(Lg.Item("Total_DEPIL1_MAG1")) And Not DBNull.Value.Equals(Lg.Item("Total_DEPIL1_MAG2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BARQUETTE_DEPIL1 = Lg.Item("Total_DEPIL1_MAG1") + Lg.Item("Total_DEPIL1_MAG1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("Total_DEPIL2_MAG1")) And Not DBNull.Value.Equals(Lg.Item("Total_DEPIL2_MAG2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BARQUETTE_DEPIL2 = Lg.Item("Total_DEPIL2_MAG1") + Lg.Item("Total_DEPIL2_MAG2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("Total_DEPIL3_MAG1")) And Not DBNull.Value.Equals(Lg.Item("Total_DEPIL3_MAG2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BARQUETTE_DEPIL3 = Lg.Item("Total_DEPIL3_MAG1") + Lg.Item("TOTAL_DEPIL3_MAG2")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_DEPIL1")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_DEPIL1 = Lg.Item("BILAN_TEMPS_MARCHE_DEPIL1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_DEPIL2")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_DEPIL2 = Lg.Item("BILAN_TEMPS_MARCHE_DEPIL2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_DEPIL3")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_DEPIL3 = Lg.Item("BILAN_TEMPS_MARCHE_DEPIL3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_DEPIL1 = Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_DEPIL2 = Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_DEPIL3 = Lg.Item("BILAN_NBRE_DEFAUTS_DEPIL3")
                        End If
 
                        '*** Zone Pick'n Place
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_PICK1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_PICK1 = Lg.Item("TOTAL_PICK1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_PICK2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_PICK2 = Lg.Item("TOTAL_PICK2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_PICK3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_PICK3 = Lg.Item("TOTAL_PICK3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_PICK1")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_PICK1 = Lg.Item("BILAN_TEMPS_MARCHE_PICK1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_PICK2")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_PICK2 = Lg.Item("BILAN_TEMPS_MARCHE_PICK2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_PICK3")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_PICK3 = Lg.Item("BILAN_TEMPS_MARCHE_PICK3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_PICK1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_PICK1 = Lg.Item("BILAN_NBRE_DEFAUTS_PICK1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_PICK2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_PICK2 = Lg.Item("BILAN_NBRE_DEFAUTS_PICK2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_PICK3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_PICK3 = Lg.Item("BILAN_NBRE_DEFAUTS_PICK3")
                        End If
 
                        '*** Zone Encaissages
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_ENCAIS1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_ENCAIS1 = Lg.Item("TOTAL_ENCAIS1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_ENCAIS2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_ENCAIS2 = Lg.Item("TOTAL_ENCAIS2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("TOTAL_ENCAIS3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_BURGERS_ENCAIS3 = Lg.Item("TOTAL_ENCAIS3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS1")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_ENCAIS1 = Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS2")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_ENCAIS2 = Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS3")) Then
                            Donnees(Index_Bilan).BILAN_TEMPS_MARCHE_ENCAIS3 = Lg.Item("BILAN_TEMPS_MARCHE_ENCAIS3")
                        End If
 
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS1")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_ENCAIS1 = Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS1")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS2")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_ENCAIS2 = Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS2")
                        End If
                        If Not DBNull.Value.Equals(Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS3")) Then
                            Donnees(Index_Bilan).BILAN_NBRE_DEFAUTS_ENCAIS3 = Lg.Item("BILAN_NBRE_DEFAUTS_ENCAIS3")
                        End If
 
                        Index_Bilan = Index_Bilan + 1
                    Next
                End Using
            End Using
        End If
        Exit Sub
ErrorHandler:  ' Error-handling routine.
        If Not Erreur_ Then
            Erreur_ = True
            Form_Erreur_Prog.TXT_TITRE.Text = "ERREUR PROGRAMME"
            Form_Erreur_Prog.TXT_TYPE_ERREUR.Text = " LECTURE DES BILANS DE PRODCTIONS MS_SQL_SERVER"
            Form_Erreur_Prog.TXT_DETAIL_ERREUR.Text = Err.Description
            Form_Erreur_Prog.ShowDialog()
            Application.DoEvents()
        End If
    End Sub
 
    Public ReadOnly Property NOMBRES() As Integer
        Get
            Return Class_Donnees_Bilans.NOMBRES
        End Get
    End Property
 
    Public ReadOnly Property BILAN_DATE(Index As Integer) As String
        Get
            Return Donnees(Index).BILAN_DATE
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_LIGNE(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_LIGNE
        End Get
    End Property
 
    '*** Zone Dépileurs
    Public ReadOnly Property BILAN_NBRE_BARQUETTE_DEPIL1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BARQUETTE_DEPIL1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BARQUETTE_DEPIL2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BARQUETTE_DEPIL2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BARQUETTE_DEPIL3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BARQUETTE_DEPIL3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_TEMPS_MARCHE_DEPIL1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_DEPIL1
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_DEPIL2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_DEPIL2
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_DEPIL3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_DEPIL3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_DEPIL1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_DEPIL1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_DEPIL2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_DEPIL2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_DEPIL3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_DEPIL3
        End Get
    End Property
 
 
    '*** Zone Pick'n Place
    Public ReadOnly Property BILAN_NBRE_BURGERS_PICK1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_PICK1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_PICK2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_PICK2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_PICK3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_PICK3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_TEMPS_MARCHE_PICK1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_PICK1
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_PICK2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_PICK2
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_PICK3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_PICK3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_PICK1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_PICK1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_PICK2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_PICK2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_PICK3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_PICK3
        End Get
    End Property
 
    '*** Zone Encaissages
    Public ReadOnly Property BILAN_NBRE_BURGERS_ENCAIS1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_ENCAIS1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_ENCAIS2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_ENCAIS2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_BURGERS_ENCAIS3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_BURGERS_ENCAIS3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_TEMPS_MARCHE_ENCAIS1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_ENCAIS1
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_ENCAIS2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_ENCAIS2
        End Get
    End Property
    Public ReadOnly Property BILAN_TEMPS_MARCHE_ENCAIS3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_TEMPS_MARCHE_ENCAIS3
        End Get
    End Property
 
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_ENCAIS1(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_ENCAIS1
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_ENCAIS2(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_ENCAIS2
        End Get
    End Property
    Public ReadOnly Property BILAN_NBRE_DEFAUTS_ENCAIS3(Index As Integer) As Long
        Get
            Return Donnees(Index).BILAN_NBRE_DEFAUTS_ENCAIS3
        End Get
    End Property
 
End Class

Mais du coup lorsque j'appelle ma fonction FCT_REMPLISSAGE je suis obligé de préciser quelle Class j'utilise pour avoir la bonne requête. Et coup avoir 3 fois le même code.

**ebastien** · 20/12/2012, 15h42

Bonjour,

Je pense que tu te compliques la vie. Il existe l'héritage qui te permettra d'éviter ce genre d'usine à redondance de code :
D'après ce que j'ai vu, tes 3 classes bilans sont parfaitement identiques à la requête SQL près. Je n'ai pas regardé en détail ta problématique de Fct_remplissage mais ça m'a l'air compliqué.

L'idée serait de faire une classe de base (Class_Bilans) contenant toutes les propriétés et méthodes communes à tes 3 classes. Puis tu crées chacune des classes spécifiques (Class_Bilans_jours, Class_bilans_mois etc.) héritant de la classe Class_Bilans. Tu n'as plus qu'à implémenter les méthodes spécifiques dans chacunes de ces classes. Typiquement, si seule la requête SQL change entre tes classes, tu définies une méthode virtuelle (mustoverride) au niveau de ta classe de base et tu overrides cette méthode dans chacune de tes classes héritées.

De plus, cela te permettra éventuellement de passer une instance d'une de ces classes dans une fonction qui attend en paramètre une instance de type classe de base.

En gros pour illustrer mes dires (désolé s'il y a des erreurs, je l'ai fait sous Notepad) :

La classe de base :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
' Classe de base non instanciable (MustInherit)
Public MustInherit Class Bilans
  Public Overridable Sub Lecture_des_donnees(...)
    ' Mon code Commun de lecture de données
    ' ....
    GetSqlQuery() ' Appellera la méthode de l'instance qui va bien !!
    ' ....
  end sub
 
  'Méthode virtuelle implémentée dans les classes hérités :
  Public MustOverride function GetSqlQuery() as string
end class

Les Classes spécifiques :

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
 
Public Class Class_Bilans_Jours
 inherits Bilans
 Public Overrides sub Lecture_des_donnees(...)
   ' Mon code spécifique de lecure des données pour bilans_jours
   '....
   ' Appel de lecture_des_donnees de Bilans pour le code commun :
    mybase.Lecture_des_donnees(...)
 end sub
 
 ' Implémentation de la méthode virtuelle :
 Public Overrides function GetSqlQuery() as String
   return ...
 End Function 
end class
 
 
Public Class Class_Bilans_Mois
 inherits Bilans
 Public Overrides sub Lecture_des_donnees(...)
   ' Mon code spécifique de lecure des données pour bilans_Mois
   '...
   ' Appel de lecture_des_donnees de Bilans :
    mybase.Lecture_des_donnees(...)
 end sub
 
 Public Overrides function  GetSqlQuery() as String
   return ...
 end function 
end class

Et par la suite pour paraphraser ton code tu pourras faire un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Fct_Remplissage(ByVal Type_Class As Integer, ByVal Date_Debut As Date, ByVal Date_Fin As Date)
    Dim Bilans as Class_Bilans
    Select Type_Class
       Case 0
           Bilans = New Class_Bilans_Jours
       Case 1
           Bilans = New Class_Bilans_Mois
       Case 2
           Bilans =  New Class_Bilans_Annees
   End Select
 
   Bilans.Lecture_des_Donnees(DateDebut, DateFin)
End Sub

Bon, tout ça n'est qu'illustration de ce que permet l'héritage. C'est à adapter en fonction de ton besoin. Une chose à ne pas oublier : Si tu es obligé de faire du Copier-Coller de code, c'est très souvent que la conception peut-être améliorée...

Bon courage,
Eb.

**EvT Chess38** · 21/12/2012, 09h39

Merci, mais malheureusement j'ai pas tout compris à ce que tu as écrit

J'ai une formation en automatisme à la base et le VB est venu se greffer par dessus sans aucune formation.

Par contre ça m'a tout de même donné une solution. Je vais passer ma requête en paramètre car tous les champs sont identiques. Seul la plage de recherche change.

Problème passage de paramètre

VB.NET

Discussions similaires

Partager

Partager