Function SetSubLevelCompo (Id As Integer) As Integer
Dim Ret%
Ret = UpdateCompo("1.1", "ITLIB", "0.0")
Ret = UpdateCompo("1.2", "XXXLIB", "1.1")
Ret = UpdateCompo("1.3", "HTMBAR", "1.1")
Ret = UpdateCompo("1.4", "XCRM", "1.1")
Ret = UpdateCompo("1.5", "XASDRM", "1.1")
Ret = UpdateCompo("1.6", "TOOLSDB", "0.0")
Ret = UpdateCompo("1.7", "FLEET", "2.4")
Ret = UpdateCompo("1.8", "FLELOC", "2.4")
Ret = UpdateCompo("1.9", "XASM2M", "4.6")
Ret = UpdateCompo("1.10", "FLEMAPPY", "2.4")
Ret = UpdateCompo("1.11", "FLELABEL", "2.4")
Ret = UpdateCompo("1.12", "FLETAB", "2.4")
Ret = UpdateCompo("1.13", "FLERAP", "2.4")
Ret = UpdateCompo("1.14", "FLEHISTO", "2.4")
Ret = UpdateCompo("1.15", "FLERECH", "2.4")
Ret = UpdateCompo("1.16", "FLEGRID", "2.4")
Ret = UpdateCompo("1.17", "XDESKTOP", "1.1")
Ret = UpdateCompo("1.18", "STUDIO", "0.0")
Ret = UpdateCompo("1.19", "XUSER", "2.1")
Ret = UpdateCompo("1.20", "XSEARCH", "2.4")
Ret = UpdateCompo("1.21", "SITE", "2.1")
Ret = UpdateCompo("1.22", "HARD", "2.1")
Ret = UpdateCompo("1.23", "PROG", "2.2")
Ret = UpdateCompo("1.24", "SCENAR", "2.2")
Ret = UpdateCompo("1.25", "ENTITY", "2.3")
Ret = UpdateCompo("1.26", "TRANSAC", "2.4")
Ret = UpdateCompo("1.27", "COMPTE", "2.1")
Ret = UpdateCompo("1.28", "LINKUSER", "2.1")
Ret = UpdateCompo("1.29", "LOT2CART", "2.2")
Ret = UpdateCompo("1.30", "MAIL", "4.2")
Ret = UpdateCompo("1.31", "XASCFG", "2.1")
Ret = UpdateCompo("1.32", "XPLUGIN", "2.4")
Ret = UpdateCompo("1.33", "MAITRE", "5.1")
Ret = UpdateCompo("1.34", "COCKPIT", "4.1")
Ret = UpdateCompo("1.35", "ROBOHTTP", "4.1")
Ret = UpdateCompo("1.36", "GEOSIMUL", "2.2")
Ret = UpdateCompo("1.37", "EXPERT", "2.2")
Ret = UpdateCompo("1.38", "GENECRM", "2.2")
Ret = UpdateCompo("1.39", "GENEGRID", "2.2")
Ret = UpdateCompo("1.40", "ETATS", "2.4")
Ret = UpdateCompo("1.41", "CRITMDL", "2.4")
Ret = UpdateCompo("1.42", "NEWCRIT", "2.4")
Ret = UpdateCompo("1.43", "SQLDATA", "2.4")
Ret = UpdateCompo("1.44", "HELLO", "0.0")
Ret = UpdateCompo("1.45", "GOTIVE", "1.3")
Ret = UpdateCompo("1.46", "CEWAIT", "1.3")
Ret = UpdateCompo("1.47", "READER", "1.4")
Ret = UpdateCompo("1.48", "XSERVEUR", "5.1")
Ret = UpdateCompo("1.49", "XPILOTE", "4.1")
Ret = UpdateCompo("1.50", "SURVEY", "0.0")
Ret = UpdateCompo("1.51", "SACTION", "0.0")
Ret = UpdateCompo("1.52", "HINFO", "0.0")
Ret = UpdateCompo("1.53", "MIRE", "0.0")
Ret = UpdateCompo("1.56", "FLECRIT", "2.4")
Ret = UpdateCompo("1.57", "BRICOL", "0.0")
Ret = UpdateCompo("1.58", "MAPDEMO", "0.0")
Ret = UpdateCompo("1.59", "WAP", "1.2")
Ret = UpdateCompo("1.60", "MDRAW", "1.1")
Ret = UpdateCompo("1.62", "FTWATCH", "0.0")
Ret = UpdateCompo("1.63", "FTACTION", "0.0")
Ret = UpdateCompo("1.64", "AGTCARTO", "4.1")
Ret = UpdateCompo("1.65", "SRVCARTO", "2.8")
Ret = UpdateCompo("1.66", "CLICARTO", "1.3")
Ret = UpdateCompo("1.67", "XASBATCH", "5.1")
Ret = UpdateCompo("1.68", "GENECRM", "2.2")
Ret = UpdateCompo("1.69", "GENEGRID", "2.2")
Ret = UpdateCompo("1.70", "XASXRPC", "4.1")
End Function
|