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

Administration des articles, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Lundi 30 Août 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Mardi 7 Septembre 2010	Par	Support France
Thème	Administration des articles, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmGrp.BtnGes_Click

Prototype

Sub BtnGes_Click (Index As Integer)

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Sub BtnGes_Click (Index As Integer)

Sub BtnGes_Click (Index As Integer)
Dim Ret%
Dim s$

Select Case Index
    Case 0
        'Ret = XasUserSQLToForm(2, RowSet, GlobCurService + ".FrmGrp.CelGestion", "Client", "CodeClient.xxKey = " + GlobCurEntity)
        Ret = XasUserSQLToForm(2, RowSet, GlobCurService + ".FrmGRP.CelGestion", "Produit", "CodeProduit.xxKey=" + GlobCurEntity)
        Ret = EventObject(0, GlobPereService, XM_NOTIFDATA, 0, "")
    Case 1
        'Ret = XasUserSQLToForm(4, RowSet, GlobCurService + ".FrmGrp.CelGestion", "Client", "CodeClient.xxKey = " + GlobCurEntity)
        Ret = XasUserSQLToForm(4, RowSet, GlobCurService + ".FrmGrp.CelGestion", "Produit", "CodeProduit.xxKey = " + GlobCurEntity)
        Ret = EventObject(0, GlobPereService, XM_NOTIFDATA, 1, "")
End Select

End Sub

Références XAS.Technology

XasUserSQLToForm , EventObject ,

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.