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	Dimanche 24 Janvier 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Dimanche 7 Février 2010	Par	Support France
Thème	Administration des missions, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	MODTRNEE.TRNEESETCombo

Prototype

Function TRNEESETCombo (iType As Integer) As Integer

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function TRNEESETCombo (iType As Integer) As Integer

Function TRNEESETCombo (iType As Integer) As Integer
Dim Ret%
Dim sData$
Dim iIndice%
Dim i%

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
Ret = XasUserSetProperties(FrmMain.cb(0), 181, 3)
Ret = XasUserSetProperties(FrmMain.cb(0), 48, "")
Ret = XasUserSetProperties(FrmMain.cb(0), 49, "")
Ret = XasUserSetProperties(FrmMain.cb(0), 17, "_30.gif")
Ret = XasUserSetProperties(FrmMain.cb(0), 90, TrneeLabel(2))
Ret = XasUserSetProperties(FrmMain.cb(0), 146, "subactivlabel,framebkgd,squarebuttonon,squarebuttonoff,squarebuttonover,treeitemchildon,treeitemchildoff,treeitemchildover,")
FrmMain.cb(0).Height = 285
sData = "SELECT RaisonSociale,CodeClient From Client WHERE type.integer = 2 "
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cb(0)", sData, GlobCurFileDom)
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cbr(0)", sData, GlobCurFileDom)

Ret = XasUserSetProperties(FrmMain.cb(1), 181, 3)
Ret = XasUserSetProperties(FrmMain.cb(1), 48, "")
Ret = XasUserSetProperties(FrmMain.cb(1), 49, "")
Ret = XasUserSetProperties(FrmMain.cb(1), 17, "_30.gif")
Ret = XasUserSetProperties(FrmMain.cb(1), 90, TrneeLabel(2))
Ret = XasUserSetProperties(FrmMain.cb(1), 146, "subactivlabel,framebkgd,squarebuttonon,squarebuttonoff,squarebuttonover,treeitemchildon,treeitemchildoff,treeitemchildover,")
FrmMain.cb(1).Height = 285
sData = "SELECT Reference,CodeProduit From Produit WHERE type.integer = 4 "
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cb(1)", sData, GlobCurFileDom)

sData = "SELECT designation,CodeClient From Client WHERE type.integer IN( 8,16) "
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cb(2)", sData, GlobCurFileDom)
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cbr(1)", sData, GlobCurFileDom)


sData = "SELECT TOP 300 designation,CodeClient From Client WHERE type.integer=10 "
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cb(3)", sData, GlobCurFileDom)
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cbr(2)", sData, GlobCurFileDom)

Ret = XasUserSetProperties(FrmMain.cb(4), 181, 4)
Ret = XasUserSetProperties(FrmMain.cb(4), 48, "Client")
Ret = XasUserSetProperties(FrmMain.cb(4), 49, "icon")
Ret = sLibSetPicPalette(True, 1, FrmMain.cb(4), "SELECT icon From @@XasUserPays.typeclient WHERE type.integer = " + CStr(iType))
Ret = sLibSetPicPalette(False, 5, FrmMain.cb(4), "SELECT icon From @@XasUserPays.Famille WHERE type.integer = " + CStr(iType))

Ret = XasUserSetProperties(FrmMain.cb(5), 181, 4)
Ret = XasUserSetProperties(FrmMain.cb(5), 48, "Client")
Ret = XasUserSetProperties(FrmMain.cb(5), 49, "icon")
Ret = sLibSetPicPalette(True, 1, FrmMain.cb(5), "SELECT icon From @@XasUserPays.typeclient WHERE type.integer = " + CStr(iType))
Ret = sLibSetPicPalette(False, 5, FrmMain.cb(5), "SELECT icon From @@XasUserPays.Famille WHERE type.integer = " + CStr(iType))

End Function

Références XAS.Technology

Clear , XasUserSetProperties , XasUserSQLtoCtrl , Cstr ,

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.