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

Administration des entités, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Jeudi 7 Janvier 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Mercredi 13 Janvier 2010	Par	Support France
Thème	Administration des entités, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmEntity.DoAllCOMBO

Prototype

Function DoAllCOMBO (iBorne As Integer) As Integer

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function DoAllCOMBO (iBorne As Integer) As Integer

Function DoAllCOMBO (iBorne As Integer) As Integer
Dim Ret%
Dim i%
Dim sData$
Dim s$
Dim iMax%

For i = 0 To iBorne
    Cb(i).Clear
Next i
iMax = iBorne - 1
For i = 0 To iMax
    Cb(i).Clear
    Ret = XasUserGetProperties(Cb(i), 7, sData)
    If sData <> "" Then
	sData = sData + Space(40) + "0.0"
	Cb(i).AddItem sData
    End If
    Ret = XasUserGetProperties(Cb(i), 178, sData)
    If i >= 20 And i <= 28 Then
	If sData <> "" Then
	    sData = sData + " WHERE Type.integer=" + CStr(TypeEntity)
	Else
	    sData = ""
	End If
    End If
    If sData <> "" Then
	Ret = pExecute(sData)
	While (Ret = True)
	    sData = OnSQLGetItem(0)
	    If sData <> "" Then
		sData = Trim$(OnSQLGetItem(0)) + Space(40) + OnSQLGetItem(1)
		Cb(i).AddItem sData
	    End If
	    Ret = pMoveNext(0)
	Wend
    End If
Next i

Cb(36).AddItem "(Aucun)" + Space(40) + "NULL"
s = XasUserListeDomaine(0, "DATABASEONGROUP", ";")
iMax = GetCharMaxIndice(s, ";", "")
For i = 1 To iMax
    sData = GetCharByIndice(s, ";", i) + Space(40) + GetCharByIndice(s, ";", i)
    Cb(36).AddItem sData
Next i

End Function

Références XAS.Technology

Clear , XasUserGetProperties , Space , AddItem , Cstr , Trim , XasUserListeDomaine , GetCharMaxIndice , GetCharByIndice ,

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.