XAS, Xml Server, Xml Services, XML Kiosk, XML Service Collaboratif, (Web, Web Services, PDA, WidGet, Fat Client)

XML Service Collaboratif, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Samedi 24 Avril 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Vendredi 7 Mai 2010	Par	Support France
Thème	XML Service Collaboratif, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmEditeur.BuildFunction

Prototype

Function BuildFunction (Id As Integer) As Integer

Usage
XML-Service-Collaboratif.BuildFunction(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function BuildFunction (Id As Integer) As Integer

Function BuildFunction (Id As Integer) As Integer
Dim Ret%
Dim s$
Dim sA$
Dim i%
Dim sData$
Dim sFonc$

sData = ""
BuildFunction = False
If CurCompoXXL <> 0 Then
    Ret = XasXmlStart(CurCompoXXL, 0)
    Ret = XasXmlSearchNode(CurCompoXXL, 57, "Name=" + GlobxRpcFunction, "", "")
    If Ret <> False Then
        i = 0
        Ret = XasXmlGetAttributByName(CurCompoXXL, "Name", sFonc)
        Ret = XasXmlChildNode(CurCompoXXL, s)
        If Ret <> False Then
            While (Ret <> False)
                If Ret = 66 Then
                    If i <= 5 Then
                        Ret = XasXmlGetAttributByName(CurCompoXXL, "Type", sA)
                        s = txt(i).Text
                        If WidthCote(UCase$(sA)) = True Then
                            sData = sData + Chr$(34) + s + Chr$(34) + ","
                        Else
                            If s <> "" Then
                                sData = sData + s + ","
                            Else
                                sData = sData + "0" + ","
                            End If
                        End If
                        i = i + 1
                    End If
                End If
                Ret = XasXmlNextNode(CurCompoXXL, s)
            Wend

        End If
    End If
End If

If sData = "" Then
    s = GlobxRpcFunction + " ( ) "
Else
    s = GlobxRpcFunction + " (" + Left$(sData, Len(sData) - 1) + ") "
End If
Ret = xRPCCallFunction(GlobxRpcIdSession, GlobxRpcComponent, GlobxRpcModule, s, 6)
PicBtn(1).Visible = True
xLb(14).Visible = True
txt(5).Visible = True

End Function

Références Composants

XML-Service-Collaboratif-XMAIN-XMLCreateDefault, XML-Service-Collaboratif-XRPC-xRPCCallFunction,

Références XAS.Technology

XasXMLStart , XasXMLSearchNode , XasXMLGetAttributByName , XasXMLChildNode , UCase , Chr , XasXMLNextNode , Left , Len ,

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.