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
| Private Sub Form_Open(Cancel As Integer)
Dim requete, fichier As String
Dim date_fichier, date1, date2 As Date
Dim rst, rst1 As Recordset
Dim tb As Database
' Mise à jour des verrous
' Si la dernière version des verrous date d'un jour ou plus
If DateDiff("d", Format(FileDateTime("F:\VPKO_OPPE\All\verrous\verrous.txt"), "dd/mm/yyyy"), Format(date, "dd/mm/yyyy")) > 0 And CurrentNTUser = "ddro325" Then
'Dernier la date du dernier fichier sur le répertoire F:\040\Tfts\Ga31030b
fichier = Consult_repertoire
date_fichier = FileDateTime("F:\040\Tfts\Ga31030b\" & fichier)
' Si la dernière version du F:\040\Tfts\Ga31030b est plus récente que F:\VPKO_OPPE\All\verrous\verrous.txt
date1 = Format(FileDateTime("F:\040\Tfts\Ga31030b\" & fichier), "dd/mm/yyyy")
date2 = Format(FileDateTime("F:\VPKO_OPPE\All\verrous\verrous.txt"), "dd/mm/yyyy")
If Format(date1 > date2) Then
Application.SetOption "Confirm Action Queries", False
' On annule et remplace verrous.txt par F:\040\Tfts\Ga31030b\$fichier
FileCopy "F:\040\Tfts\Ga31030b\" & fichier, "F:\VPKO_OPPE\All\verrous\verrous.txt"
' On effectue ensuite le transfert vers la base de données
Set tb = CurrentDb
requete = "SELECT date_transfert, userid FROM date_trsf_verrous;"
Set rst = tb.OpenRecordset(requete)
rst.MoveFirst
If rst.Fields(0) <> date Then
DoCmd.DeleteObject acTable, "verrous_hier"
DoCmd.CopyObject "", "verrous_hier", acTable, "verrous"
DoCmd.RunSQL "DELETE * from verrous;"
DoCmd.TransferText acImportFixed, "specification", "verrous", "F:\VPKO_OPPE\All\verrous\verrous.txt"
rst.Edit
rst.Fields(0) = date
rst.Fields(1) = CurrentNTUser()
rst.Update
' On effectue le tri Verrous admins et non admins
DoCmd.RunSQL "DELETE * from en_possession_de;"
DoCmd.RunSQL "INSERT INTO en_possession_de ( F1, R1, F2, F3, R2, F4, F5, F6, F7, R3, F8, F9, F10, F11, R4, F12, F13, F14, F15 ) " _
& "SELECT verrous.F1, verrous.R1, verrous.F2, verrous.F3, verrous.R2, verrous.F4, verrous.F5, verrous.F6, verrous.F7, verrous.R3, verrous.F8, verrous.F9, verrous.F10, verrous.F11, verrous.R4, verrous.F12, verrous.F13, verrous.F14, verrous.F15 " _
& "FROM verrous WHERE (((verrous.F3) Is Null));"
DoCmd.RunSQL "DELETE verrous.F3 FROM verrous WHERE (((verrous.F3) Is Null));"
' Envoi des mails pour les verrous qui doivent être clôturés aujourd'hui
mails_verrous
End If
Application.SetOption "Confirm Action Queries", True
End If
End If
' Mise à jour des mouvements de verrous
' Si la dernière version des mouvements date d'un jour ou plus
If DateDiff("d", Format(FileDateTime("F:\VPKO_OPPE\All\verrous\mouvements.txt"), "dd/mm/yyyy"), Format(date, "dd/mm/yyyy")) > 0 And CurrentNTUser = "ddro325" Then
'Dernier la date du dernier fichier sur le répertoire F:\040\Tfts\Ga2u120f
fichier = Consult_repertoire_
date_fichier = FileDateTime("F:\040\Tfts\Ga2u120f\" & fichier)
' Si la dernière version du F:\040\Tfts\Ga2u120f est plus récente que F:\VPKO_OPPE\All\verrous\mouvements.txt
date1 = Format(FileDateTime("F:\040\Tfts\Ga2u120f\" & fichier), "dd/mm/yyyy")
date2 = Format(FileDateTime("F:\VPKO_OPPE\All\verrous\mouvements.txt"), "dd/mm/yyyy")
If Format(date1 > date2) Then
Application.SetOption "Confirm Action Queries", False
' On annule et remplace mouvements.txt par F:\040\Tfts\Ga2u120f\$fichier
FileCopy "F:\040\Tfts\Ga2u120f\" & fichier, "F:\VPKO_OPPE\All\verrous\mouvements.txt"
' On effectue ensuite le transfert vers la base de données
Set tb = CurrentDb
requete = "SELECT date_transfert, userid FROM date_trsf_mouvements;"
Set rst = tb.OpenRecordset(requete)
rst.MoveFirst
If rst.Fields(0) <> date Then
DoCmd.RunSQL "DELETE * from mouvements;"
DoCmd.TransferText acImportFixed, "Modif Import Specification", "mouvements", "F:\VPKO_OPPE\All\verrous\mouvements.txt"
rst.Edit
rst.Fields(0) = date
rst.Fields(1) = CurrentNTUser()
rst.Update
Faits_du_jour ' Détermine les types de verrous faits le jour même
Faits_summary ' Mise à jour des statistiques (verrous effectués en J-1)
Nouveaux_summary ' Mise à jour des statistiques (nouveaux verrous du jour)
Ajout_lignes_manquantes
End If
Application.SetOption "Confirm Action Queries", True
End If
End If
' Envoi des verrous adm de + de 150 jours à chaque gestionnaires une x par semaine
Application.SetOption "Confirm Action Queries", False
Set tb = CurrentDb
requete = "SELECT date_transfert, userid FROM date_env_list_vieux_verrous;"
Set rst = tb.OpenRecordset(requete)
rst.MoveFirst
If rst.Fields(0) <= date - 7 Then
rst.Edit
rst.Fields(0) = date
rst.Fields(1) = CurrentNTUser()
rst.Update
mail_150j
End If
Application.SetOption "Confirm Action Queries", True
team
ordre = "ORDER BY verrous_team.[F4], verrous_team.[F1];"
flag_respect_delai = False
id = ""
ver = "*"
type_verrou_ = "((verrous_team.[F7])"
delai.Enabled = False
filtre
End Sub |
Partager