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	Mercredi 21 Avril 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Samedi 1 Mai 2010	Par	Support France
Thème	Administration des comptes, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	SQLDATA.UpdateClient

Prototype

Function UpdateClient (sidClient As String, curType As Integer) As Integer

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function UpdateClient (sidClient As String, curType As Integer) As Integer

Function UpdateClient (sidClient As String, curType As Integer) As Integer
Dim Ret%
Dim sData$
Dim idProg%
Dim idcarte%

UpdateClient = False


sData = " UPDATE Client SET "
Select Case curType
    Case 0
	idProg = Val(TabSQLValue(0, 14))
	idcarte = Val(TabSQLValue(0, 2))
	'ret = ClientForUPDATE(idClient, idProg, idcarte)
	Ret = True
	If Ret = True Then
	    sData = sData + "Maj= '" + Date$ + "',"
	    sData = sData + "CodeEnseigne='" + TabSQLValue(0, 0) + "',"
	    sData = sData + "RaisonSociale='" + TabSQLValue(0, 1) + "',"
	    sData = sData + "CarteId='" + TabSQLValue(0, 2) + "',"
	    sData = sData + "Name='" + TabSQLValue(0, 3) + "',"
	    sData = sData + "prenom='" + TabSQLValue(0, 4) + "',"
	    sData = sData + "Adresse='" + TabSQLValue(0, 5) + "',"
	    sData = sData + "AdresseSuite='" + TabSQLValue(0, 6) + "',"
	    sData = sData + "Cp='" + TabSQLValue(0, 7) + "',"
	    sData = sData + "ville='" + TabSQLValue(0, 8) + "',"
	    sData = sData + "email='" + TabSQLValue(0, 9) + "',"
	    sData = sData + "phone='" + TabSQLValue(0, 10) + "',"
	    sData = sData + "fax='" + TabSQLValue(0, 11) + "',"
	    sData = sData + "Banque='" + TabSQLValue(0, 12) + "',"
	    sData = sData + "Type='" + TabSQLValue(0, 13) + "', "
	    sData = sData + "CodeProgramme='" + TabSQLValue(0, 14) + "', "
	    sData = sData + "CodeSite='" + TabSQLValue(0, 15) + "', "
	    sData = sData + "Titre ='" + TabSQLValue(0, 16) + "',"
	    sData = sData + "dep ='" + TabSQLValue(0, 17) + "',"
	    sData = sData + "region ='" + TabSQLValue(0, 18) + "',"
	    sData = sData + "pays ='" + TabSQLValue(0, 19) + "',"
	    sData = sData + "langue ='" + TabSQLValue(0, 20) + "',"
	    sData = sData + "devise ='" + TabSQLValue(0, 21) + "', "
	    If Trim$(TabSQLValue(0, 30)) <> "" Then
		sData = sData + "NumCompta ='" + TabSQLValue(0, 30) + "' "
	    End If
	Else
	    Exit Function
	End If
    Case 1
	sData = sData + "Maj= '" + Date$ + "',"
	sData = sData + "enabled='" + TabSQLValue(0, 22) + "' "
    Case 2
	sData = sData + "Maj= '" + Date$ + "',"
	sData = sData + "identifiant='" + TabSQLValue(0, 23) + "',"
	sData = sData + "designation='" + TabSQLValue(0, 24) + "',"
	sData = sData + "matricule='" + TabSQLValue(0, 25) + "',"
	sData = sData + "Tpe_Name='" + TabSQLValue(0, 26) + "',"
	sData = sData + "Tpe_Secours='" + TabSQLValue(0, 27) + "' "
    Case 3, 4
	sData = sData + "Maj= '" + Date$ + "' "

End Select
sData = sData + " WHERE CodeClient.xxKey=" + CStr(sidClient)
Ret = pExecute(sData)
If Ret = True Then
    If curType = 0 Then
	Ret = CalculRegion(sidClient, "codeClient", "client", TabSQLValue(0, 7))
    End If
    UpdateClient = True
End If
End Function

Références Composants

Administration-des-comptes-SQLDATA-CalculRegion,

Références XAS.Technology

Val , Date , Trim , Cstr ,

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.