Function UpdateScenario (sidScenar As String) As Integer
Dim Ret%
Dim sData$
UpdateScenario = True
sData = " UPDATE Scenario SET "
sData = sData + "Maj= '" + Date$ + "',"
sData = sData + "Name='" + TabSQLValue(0, 0) + "',"
sData = sData + "debutvalidite='" + TabSQLValue(0, 1) + "',"
sData = sData + "heuredebut='" + TabSQLValue(0, 2) + "',"
sData = sData + "finvalidite='" + TabSQLValue(0, 3) + "',"
sData = sData + "heurefin='" + TabSQLValue(0, 4) + "',"
sData = sData + "point='" + TabSQLValue(0, 5) + "',"
sData = sData + "burnpoint='" + TabSQLValue(0, 6) + "',"
sData = sData + "burnlabpoint='" + TabSQLValue(0, 7) + "',"
sData = sData + "burnvaleur='" + TabSQLValue(0, 8) + "',"
sData = sData + "burnaddpoint='" + TabSQLValue(0, 9) + "',"
sData = sData + "valuea='" + TabSQLValue(0, 10) + "',"
sData = sData + "valueb='" + TabSQLValue(0, 11) + "',"
sData = sData + "article='" + TabSQLValue(0, 12) + "',"
sData = sData + "modepassage='" + TabSQLValue(0, 13) + "',"
sData = sData + "modesite='" + TabSQLValue(0, 14) + "',"
sData = sData + "mediarules='" + TabSQLValue(0, 15) + "',"
sData = sData + "type='" + TabSQLValue(0, 16) + "',"
sData = sData + "uniteburn='" + TabSQLValue(0, 17) + "',"
sData = sData + "codesite='" + TabSQLValue(0, 18) + "',"
sData = sData + "entity='" + TabSQLValue(0, 19) + "',"
sData = sData + "critentity='" + TabSQLValue(0, 20) + "',"
sData = sData + "operateur='" + TabSQLValue(0, 21) + "',"
sData = sData + "criterea='" + TabSQLValue(0, 22) + "',"
sData = sData + "critereb='" + TabSQLValue(0, 23) + "',"
'sData = sData + "modeledocid='" + TabSQLValue(0, 24) + "',"
'sData = sData + "FileType='" + TabSQLValue(0, 25) + "',"
sData = sData + "Traitement='" + TabSQLValue(0, 26) + "', "
sData = sData + "Icon='" + TabSQLValue(0, 27) + "', "
sData = sData + "ForeColor='" + TabSQLValue(0, 28) + "', "
sData = sData + "IsState='" + TabSQLValue(0, 29) + "', "
sData = sData + "typealerteid='" + TabSQLValue(0, 30) + "', "
sData = sData + "sorted='" + TabSQLValue(0, 31) + "' "
sData = sData + " WHERE Id.xxKey=" + CStr(sidScenar)
Ret = pExecute(sData)
If Ret = True Then
UpdateScenario = True
End If
End Function
|