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
| Private Sub patch(Vf, Vd) 'Vf est la version de la frontale, Vd celle de la dorsale
...
If Vd < "22.2" And Vf >= "22.2" Then '********************************************
Call CreeChamp(odb, "modifications", False, "Dvalid", dbDate, 0, False, False, 0, "", "", "22.2 date validation dernier indice")
End If
If Vd < "22.2a" And Vf >= "22.2a" Then '********************************************
Call CreeChamp(odb, "operations", False, "obsolete", dbBoolean, 0, False, False, False, "0", "", "22.2a phase devenue obsolete")
Call CreeChamp(odb, "stock", False, "duree_vie", dbInteger, 0, False, False, True, "0", "", "22.2a duree de vie en jours du produit")
Call CreeChamp(odb, "machine_d", True, "cd_md", dbLong, 0, True, True, False, "", "", "22.2a table des indisponibilités machine (clé auto)", "P")
Call CreeChamp(odb, "machine_d", False, "abrev", dbText, 12, False, False, True, "", "", "ref abrégée de la machine", "C")
Call CreeChamp(odb, "machine_d", False, "d_mac", dbDate, 0, False, True, False, "", "", "jour d'indisponibilité", "C")
End If
If Vd < "22.4" And Vf >= "22.4" Then '********************************************
odb.Execute "UPDATE of_taches set qliv=0 where qliv is null", Nr
Call CreeChamp(odb, "rma", False, "cd_cde", dbText, 10, False, False, True, "", "", "22.4 commande de retour ou remplacement / N° avoir client", "C")
End If
If Vd < "22.5" And Vf >= "22.5" Then '********************************************
odb.TableDefs("RC").Fields("montant").ValidationRule = ""
Call SupChamp(odb, "operations", "outillage")
Call Agrandir(odb, "besoin", "draw_ref", 30, True)
Call Agrandir(odb, "besoin", "cd_cde", 40, True)
odb.Execute "UPDATE cdeVT SET prio=0 where devis<>0 and etat in ('D','P','S')", dbFailOnError
End If
...
msgbox "La BDD est passée à la version " & Vf
CurrentDb.Execute "UPDATE parametres set version='" & Vf & "' WHERE ligne=1;", dbFailOnError 'met à jour dans la dorsale sa version pour éviter de réappliquer le patch
end sub |
Partager