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	Mercredi 10 Mars 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Dimanche 28 Mars 2010	Par	Support France
Thème	Administration des missions, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmMain.EvtForcedClick

Prototype

Function EvtForcedClick (sParam As String) As Integer

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function EvtForcedClick (sParam As String) As Integer

Function EvtForcedClick (sParam As String) As Integer
Dim Ret%
Dim s$
Dim sCmd$

s = GetCharByIndice(sParam, ";", 2)
If s <> "" Then
    Ret = sLibLFPosSelected(cboEntity, s, 2)
    xpSaveValeur(0) = sLibCboToSQL(cboEntity, 1)
    sCmd = SetCharByIndice(GlobsActionOnglet(GlobCurActifOnglet), ";", 2, xpSaveValeur(0))
    Ret = XasUserSetProperties(CelEntity, 18, 1)
    If sCmd <> "" Then
	GlobsActionOnglet(GlobCurActifOnglet) = sCmd
	Ret = sLibSaveCFGJob(GlobIdXmlCfg)
    End If
End If
s = GetCharByIndice(sParam, ";", 3)
If s <> "" Then
    sCmd = GlobsIdOnglet(GlobCurActifOnglet)
    If sCmd <> "" Then
	Ret = InStr(1, sCmd, s)
	If Ret = 0 Then
	    sCmd = sCmd + "," + s
	End If
    Else
	sCmd = s
    End If
    If sCmd <> "" Then
	GlobsIdOnglet(GlobCurActifOnglet) = sCmd
	Ret = sLibSaveCFGJob(GlobIdXmlCfg)
    End If
End If
Ret = OPEQuick(0)
Ret = OPESendToCarto(GridEntity, 0, False)

End Function

Références Composants

Administration-des-missions-AMAIN-OPEQuick, Administration-des-missions-AMAIN-OPESendToCarto,

Références XAS.Technology

GetCharByIndice , SetCharByIndice , XasUserSetProperties , InStr ,

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.