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

Prototype

Sub Form_EvtObject (Evt As Integer, Id As Integer, Idn As Integer, RefObject As String, sParam As String)

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Sub Form_EvtObject (Evt As Integer, Id As Integer, Idn As Integer, RefObject As String, sParam As String)

Sub Form_EvtObject (Evt As Integer, Id As Integer, Idn As Integer, RefObject As String, sParam As String)
Dim Ret%
Dim s$

Select Case Evt
    Case XM_NOTIFYSEARCH
	XasTrace GlobCurService + " XM_NOTIFYSEARCH---->" + RefObject + " - " + sParam
	Ret = OPEXpValeur(GlobCurActifOnglet)
	Ret = xBuildCmdOnglet(GlobCurActifOnglet)

    Case XM_NOTIFDATA
	XasTrace GlobCurService + " XM_NOTIFDATA---->" + RefObject + " - " + sParam
	Ret = EventNotify(Id, sParam)

    Case XM_NEEDTOREFRESH
	XasTrace GlobCurService + " XM_NEEDTOREFRESH---->" + RefObject + " - " + sParam

    Case XM_NOTIFYCARTO
	XasTrace GlobCurService + " XM_NOTIFYCARTO---->" + RefObject + " - " + sParam
	If Id > 0 And sParam = "" Then
	    Ret = OPEShowCarto(GridHisto, Id)
	Else
	    If sParam = "SIZE" Then
		Ret = OPEZoomScreen(0)
		Ret = XasUserSetProperties(FrmMain.CelJob, 18, 1)
	    End If
	End If
    
    Case XM_NOTIFYPROXY
	XasTrace GlobCurService + " XM_NOTIFYPROXY---->" + RefObject + " - " + sParam
	Ret = OPEAddToCarto(Id, sParam, False)

    Case XM_NOTIFYPOPDIAL
	XasTrace GlobCurService + " XM_NOTIFYPOPDIAL---->" + RefObject + " - " + sParam
	Ret = xPopEntity(sParam, Id)
    
    Case XM_NOTIFERROR
	XasTrace GlobCurService + " XM_NOTIFERROR---->" + RefObject + " - " + sParam
	Ret = xFleetMsgErr(Id, s, sParam)

End Select
 

End Sub

Références Composants

Administration-des-missions-AMAIN-OPEXpValeur, Administration-des-missions-AMAIN-xBuildCmdOnglet, Administration-des-missions-ALRTBAS-PUSHSETCombo, Administration-des-missions-AMAIN-OPEShowCarto, Administration-des-missions-AMAIN-OPEZoomScreen, Administration-des-missions-AMAIN-OPEAddToCarto, Administration-des-missions-AMAIN-xPopEntity, Administration-des-missions-AMAIN-xFleetMsgErr,

Références XAS.Technology

XasTrace , XasUserSetProperties ,

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.