| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Vendredi 30 Avril 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Lundi 10 Mai 2010 | Par | Support France |
| Thème | Accueil pour les média WAP,Téléphone,PDA, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | StPlate.InitCmd |
| Prototype |
| Function InitCmd (Id As Integer) As Integer |
| Usage | |||
| Accueil-pour-les-media-WAP-Telephone-PDA.InitCmd(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Function InitCmd (Id As Integer) As Integer |
Function InitCmd (Id As Integer) As Integer
Dim Ret%
Dim i%
Dim j%
Dim s$
Dim sLig$
ListCmd.Clear
ListCmd.Refresh
OnCmd = False
'Ret = pExecute("S_ListCmd " + CStr(CurPro_Id) + ",2")
If Ret = True Then
For i = 1 To 14
Ret = pGetItem(s, 5)
TabCmdId(i) = s
sLig = "N° " + s + "-"
Ret = pGetItem(s, 1)
sLig = sLig + Left$(s, 5) + "-"
Ret = pGetItem(s, 4)
sLig = sLig + s
ListCmd.AddItem sLig
Ret = pMoveNext(0)
If Ret = False Then
Exit Function
End If
Next i
End If
End Function
|
| Références XAS.Technology |
| Clear , Refresh , Left , AddItem , |
| 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. |
| XAS Services - Zaïr BEZGHICHE - Copyright 1991-2011 tous droits réservés- Powered by XAS.Technology |