XAS, Xml Server, Xml Services, XML Kiosk, Administration des missions, (Web, Web Services, PDA, WidGet, Fat Client)

Administration des missions, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Mardi 18 Mai 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Lundi 7 Juin 2010	Par	Support France
Thème	Administration des missions, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	ALRTBAS.ALERTSETCombo

Prototype

Function ALERTSETCombo (iType As Integer) As Integer

Usage
Administration-des-missions.ALERTSETCombo(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function ALERTSETCombo (iType As Integer) As Integer

Function ALERTSETCombo (iType As Integer) As Integer
Dim Ret%
Dim sData$
Dim iIndice%
Dim i%
Ret = XasUserSetProperties(FrmMain.TxDesi, 181, 6)
For i = 0 To 5
    FrmMain.cb(i).Clear
    Ret = XasUserSetProperties(FrmMain.cb(i), 181, 2)
    Ret = XasUserSetProperties(FrmMain.cb(i), 48, "")
    Ret = XasUserSetProperties(FrmMain.cb(i), 49, "")
    Ret = XasUserSetProperties(FrmMain.cb(i), 17, "")
    Ret = XasUserSetProperties(FrmMain.cb(i), 90, "")
    Ret = XasUserSetProperties(FrmMain.cb(i), 146, "subactivlabel")
Next i

sData = "SELECT DISTINCT CodeChauffeur.GetData(designation,client,CodeClient),CodeChauffeur From Transaction WHERE CodeChauffeur.xxKey != 0.0 "
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cbr(0)", sData, GlobCurFileDom)
sData = "SELECT Name,id From @@XasUserPays.typealarme WHERE id.integer != 0 "
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cbr(1)", sData, GlobCurFileDom)
sData = "SELECT DISTINCT CodeMobile.GetData(designation,client,CodeClient),CodeMobile From Transaction WHERE CodeMobile.xxKey != 0.0 "
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cbr(2)", sData, GlobCurFileDom)


End Function

Références XAS.Technology

XasUserSetProperties , Clear , XasUserSQLtoCtrl ,

Audience

Cette documentation est destinée aux personnes s'intéressant aux systèmes d'information collaboratifs.
Les Webservices, les architectures collabortives et distribuées, les moteurs transactionnelles et les concepts de programmation orientés objet.