1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| While (lire_Liste_PN.Read())
aData = New Dictionary(Of String, String)
aData.Add("PartNumber", lire_Liste_PN("PartNumber").ToString())
Var_Liste_PN = aData.Item("PartNumber")
'LogStartStop("Partnumber liste des PN : " & Var_Liste_PN)
'Boucle sur les table DieProducts, DieDefinition et Production + La condition : NB_DAY_PRODUCTION
While (lire_Liste_Date.Read())
aData = New Dictionary(Of String, String)
aData.Add("PartNumber", lire_Liste_Date("PartNumber").ToString())
Var_Liste_Date = aData.Item("PartNumber")
'LogStartStop("Partnumber liste des dates : " & Var_Liste_Date)
If Var_Liste_Date = Var_Liste_PN Then
'LogStartStop("PN Liste : " & Var_Liste_PN & " PN liste Date : " & Var_Liste_Date)
Else
'LogStartStop("Pas de correspondance")
End If
End While |