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
| '----Verification de la citerne
Dim ImaCITERNE,imaTracteur
Dim fso, fichier, T,recherche
Dim ContenuFichier, TblLgn, TblCol
Dim CarteG,ADR,code,destinataire,IDs,etancheite
Dim x,verifi
'---Ouverture du fichier.csv
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichier = fso.opentextfile("C:\Users\PRODERGIE\Documents\InTouch Machine Edition v8.1 Projects\Vitogaz\Donné.txt", 1)
ContenuFichier = fichier.ReadAll
fichier.Close
Set fichier = Nothing
'---Lecture et recherche de l'imat
verifi =0
For x=0 To x=1
If x=0 Then
recherche = $GetTagValue("imatriculation_tracteur",1)
Else
recherhe =$GetTagValue("imatriculation_citerne",1)
End If
TblLgn = Split(ContenuFichier,vbNewLine)
For T = 0 To UBound(TblLgn) - 1
TblCol = Split(TblLgn(T), ";", -1, vbTextCompare)
If TblCol(0) = recherche Then
Ids = CDate(TblCol(5))
carteG = CDate(TblCol(1))
ADR = CDate(TblCol(2))
If x = 1 Then
If ids =2 Then
epreuve = CDate(TblCol(3))
etencheite = CDate(TblCol(4))
Else
MsgBox("L'Imatriclation de votre citerne est incorecte ou abstante de notre base de donné")
End If
Else
code = TblCol(3)
destinataire = TblCol(4)
End If
End If
Next
'---Verification de la citerne
If x=0 Then
If ids = "1" Then
If carteG <= Date Then
If ADR <= Date Then
verifi = verifi+1
End If
End If
Else
MsgBox("L'Imatriclation de votre tracteur est incorecte ou abstante de notre base de donné")
End If
'--- Comparaison de la date pour la CarteG ADR epreuve et etencheite si ID =2
Else
If Ids = "2" Then
If carteG <= Date Then
If ADR <= Date Then
If epreuve <= Date Then
If etencheite <= Date Then
verifi = verifi+1
End If
End If
End If
End If
Else
MsgBox("L'Imatriclation de votre citerne est incorecte ou abstante de notre base de donné")
End If
End If
Next
If verifi =2 Then
$Open("Dechargement.SCC")
Else
MsgBox("Vos autorisation ne sont pas a jour.")
End If |
Partager