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

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

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Samedi 13 Mars 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Jeudi 1 Avril 2010	Par	Support France
Thème	Administration des comptes, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	SQLDATA.CreateDefaultScenariiMetier

Prototype

Function CreateDefaultScenariiMetier (sCodeProg As String, TypeProg As Integer) As Integer

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function CreateDefaultScenariiMetier (sCodeProg As String, TypeProg As Integer) As Integer

Function CreateDefaultScenariiMetier (sCodeProg As String, TypeProg As Integer) As Integer
Dim Ret%
Dim sData$
Dim s$
Dim imode%

imode = Val(TabSQLValue(0, 32))


CreateDefaultScenariiMetier = False
Select Case TypeProg
    Case 1
	Ret = InewDefaultScenario(sCodeProg, "Standard", 1, 1, 0, 0, 0, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Premier Passage", 2, 1, 0, 0, 0, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Anniversaire Conso", 3, 1, 0, 0, 0, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Anniversaire Enfant", 4, 1, 0, 0, 0, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Anniversaire Carte", 5, 1, 0, 0, 0, 0, 0, 0)
    Case 5
	' conduite
	Ret = InewDefaultScenario(sCodeProg, "Conduite", 39, 10, 16, 1, 1, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Fin Conduite", 40, 10, 16, 1, 0, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Roulant", 41, 10, 12, 3, 1, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Arret", 42, 10, 12, 4, 1, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Début Arrêt", 49, 10, 30, 1, 40, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Fin Arrêt", 50, 10, 30, 1, 39, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Début Attente", 47, 10, 29, 5, 4, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Fin Attente", 48, 10, 29, 4, 4, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Hors GSM/GPRS", 73, 10, 31, 1, 1, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Fin Hors GSM/GPRS", 74, 10, 31, 1, 0, 0, 0, 0)
	Ret = InewDefaultScenario(sCodeProg, "Hors GPS", 75, 10, 31, 1, 1, 0, 0, 1)
	Ret = InewDefaultScenario(sCodeProg, "Fin Hors GPS", 76, 10, 31, 1, 0, 0, 0, 1)
	
	'type d alarme
	Ret = InewDefaultScenario(sCodeProg, "Alarme SOS", 35, 10, 17, 1, 1, 0, 0, 2)
	Ret = InewDefaultScenario(sCodeProg, "Fin alarme SOS", 36, 10, 17, 1, 0, 0, 0, 2)
	Ret = InewDefaultScenario(sCodeProg, "Alarme Porte arriere", 35, 10, 18, 1, 1, 0, 0, 2)
	Ret = InewDefaultScenario(sCodeProg, "Fin alarme porte arriere", 36, 10, 18, 1, 0, 0, 0, 2)
	Ret = InewDefaultScenario(sCodeProg, "Alarme porte habitacle", 35, 10, 19, 1, 1, 0, 0, 2)
	Ret = InewDefaultScenario(sCodeProg, "Fin alarme porte habitacle", 36, 10, 19, 1, 0, 0, 0, 2)
	
	Ret = InewDefaultScenario(sCodeProg, "Rapport Activité", 61, 10, 13, 1, 1, 0, 1, 0)'rapport synth

	If imode = 3 Then    'donnees sociales
	    Ret = InewDefaultScenario(sCodeProg, "Début Travail", 77, 10, 34, 1, 2, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Fin Travail", 78, 10, 34, 2, 2, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Début Repos", 79, 10, 35, 1, 0, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Fin Repos", 80, 10, 35, 2, 0, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Début Disponibilité", 81, 10, 36, 1, 1, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Fin Disponibilité", 82, 10, 36, 2, 1, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Début temps conduite", 83, 10, 37, 1, 3, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Fin temps conduite", 84, 10, 37, 2, 3, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Amplitude", 85, 10, 0, 1, 0, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Fin Amplitude", 86, 10, 0, 1, 0, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Temps service", 87, 10, 0, 1, 0, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Fin temps service", 88, 10, 0, 1, 0, 0, 0, 0)
	End If
	If imode = 2 Then      ' PTS / securité
	    Ret = InewDefaultScenario(sCodeProg, "Alarme Batterie", 35, 10, 37, 1, 1, 0, 0, 2)
	    Ret = InewDefaultScenario(sCodeProg, "Fin Alarme Batterie", 36, 10, 37, 1, 0, 0, 0, 2)
	    Ret = InewDefaultScenario(sCodeProg, "Début de prise en charge", 71, 12, 32, 1, 9, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Fin de prise en charge", 72, 12, 32, 1, 9, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Power Stop", 71, 12, 32, 1, 1, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Déverrouillage porte", 71, 12, 32, 1, 2, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Blocage Télécommande", 71, 12, 32, 1, 3, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Ecoute audio cabine", 71, 12, 32, 1, 4, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Demande position GPS", 71, 12, 32, 1, 5, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Acquittement/fin gestion", 71, 12, 32, 1, 6, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Bascule mode sécurité", 71, 12, 32, 1, 7, 0, 0, 0)
	    Ret = InewDefaultScenario(sCodeProg, "Main courante", 71, 12, 32, 1, 8, 0, 0, 0)
       End If

End Select


CreateDefaultScenariiMetier = True


End Function

Références Composants

Administration-des-comptes-SQLDATA-InewDefaultScenario,

Références XAS.Technology

Val ,

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.