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	Mardi 23 Février 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Jeudi 11 Mars 2010	Par	Support France
Thème	Administration des comptes, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	SQLDATA.XMLGetFileByRegion

Prototype

Function XMLGetFileByRegion (IdDep As Integer) As String

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function XMLGetFileByRegion (IdDep As Integer) As String

Function XMLGetFileByRegion (IdDep As Integer) As String
Dim Ret%

XMLGetFileByRegion = ""
Ret = pExecute("Select IdR from @@XasUserPays.TypeDepartement Where Id.integer=" + CStr(IdDep))
If Ret <> False Then
    Ret = Val(OnSQLGetItem(0))
    Select Case Ret
	Case 1
	    XMLGetFileByRegion = "FRA_1112_42.SVS"  'Alsace
	Case 2
	    XMLGetFileByRegion = "FRA_1112_72.SVS"  'Aquitaine
	Case 3
	    XMLGetFileByRegion = "FRA_1112_83.SVS"  'Auvergne
	Case 4
	    XMLGetFileByRegion = "FRA_1112_25.SVS"   'BASSE -NORMANDIE
	Case 5
	    XMLGetFileByRegion = "FRA_1112_26.SVS"   'Bourgogne
	Case 6
	    XMLGetFileByRegion = "FRA_1112_53.SVS"   'Bretagne
	Case 7
	    XMLGetFileByRegion = "FRA_1112_24.SVS"   'Centre
	Case 8
	    XMLGetFileByRegion = "FRA_1112_21.SVS"   'Champagne-Ardenne
	Case 9
	    XMLGetFileByRegion = "FRA_1112_94.SVS"   'Corse
	Case 10
	    XMLGetFileByRegion = "FRA_1112_43.SVS"   'Franche-Comté
	Case 11
	    XMLGetFileByRegion = "FRA_1112_23.SVS"   'Haute-Normandie
	Case 12
	    XMLGetFileByRegion = "FRA_1112_11.SVS"   'Ile-de-France
	Case 13
	    XMLGetFileByRegion = "FRA_1112_91.SVS"   'Languedoc-Rousillon
	Case 14
	    XMLGetFileByRegion = "FRA_1112_74.SVS"   'Limousin
	Case 15
	    XMLGetFileByRegion = "FRA_1112_41.SVS"   'Lorraine
	Case 16
	    XMLGetFileByRegion = "FRA_1112_73.SVS"   'Midi-Pyrénées
	Case 17
	    XMLGetFileByRegion = "FRA_1112_31.SVS"   'Nord-Pas-de-Calais
	Case 18
	    XMLGetFileByRegion = "FRA_1112_52.SVS"   'Pays-de-la-Loire
	Case 19
	    XMLGetFileByRegion = "FRA_1112_22.SVS"   'Picardie
	Case 20
	    XMLGetFileByRegion = "FRA_1112_54.SVS"   'Poitou-Charentes
	Case 21
	    XMLGetFileByRegion = "FRA_1112_93.SVS"   'Provence-Alpes-Côte d'Azurs
	Case 22
	    XMLGetFileByRegion = "FRA_1112_82.SVS"   'Rhône-Alpes
    End Select
End If

End Function

Références XAS.Technology

Cstr , 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.