Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client)
XAS.Services
  XML Kiosk  
Technologie XAS.Technology Version V 6.0.1
Dernière modification Lundi 26 Avril 2010 Par Zaïr BEZGHICHE
Dernière vérification Vendredi 14 Mai 2010 Par Support France
ThèmeAdministration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client) Fonction MODIMP.IMPSetBookMark

Prototype
Function IMPSetBookMark (IdXml As Integer, sChamp As String) As Integer
Usage
Administration-des-Import-Export.IMPSetBookMark(...)
HTTP (GET,POST)SOAP WSDLSOAP RESTXML-RPC
Format de sortie
XML HTML TEXT EXCEL(CSV)

Code Source - développement open source
Function IMPSetBookMark (IdXml As Integer, sChamp As String) As Integer
Function IMPSetBookMark (IdXml As Integer, sChamp As String) As Integer
Dim Ret%
Dim s$
Dim i%
Dim ChampNum$

Ret = XasXMLGetAttributbyName(IdXml, "Name", ChampNum)
Ret = XasXmlChildNode(IdXml, s)
If Ret <> False Then
    While (Ret <> False)
	Ret = XasXMLGetAttributbyName(IdXml, "Id", s)
	i = Val(s)
	If i > 0 And i < 10 Then
	    Ret = XasXMLGetAttributbyName(IdXml, "Name", s)
	    NameTable(i) = s
	    Ret = XasXMLGetAttributbyName(IdXml, "type", s)
	    TypeTable(i) = Val(s)
	    Ret = XasXMLGetAttributbyName(IdXml, "bookMark", s)
	    NameBookMark(i) = s
	    ValueBookMark(i) = ValueBookMark(i) + sChamp + ","
	    Ret = XasXMLGetAttributbyName(IdXml, "Index", s)
	    If Ret <> False And Val(s) = 1 Then
		ChampNumCompta(i) = ChampNum
	    End If
	End If
	Ret = XasXmlNextNode(IdXml, s)
    Wend
    Ret = XasXmlParentNode(IdXml, s)
End If
End Function

Références XAS.Technology
XasXMLGetAttributByName , XasXMLChildNode , Val , XasXMLNextNode , XasXMLParentNode ,

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