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	Dimanche 27 Juin 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Samedi 3 Juillet 2010	Par	Support France
Thème	Administration des comptes, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmCompte.DoDelete

Prototype

Function DoDelete (sid As String) As Integer

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function DoDelete (sid As String) As Integer

Function DoDelete (sid As String) As Integer
Dim Ret%
Dim sBase$

Ret = XasSystemGetStatusUser(GlobPU, "", 0)
Ret = pExecute("CHANGEDATABASE('" + GlobPU.Connect + "') ")
Ret = pTmpExecute("CHANGEDATABASE('" + GlobPU.Connect + "') ")
sBase = Txt(6).Text
Ret = DeleteEnseigne(sid, sBase)
If Ret = True Then
    LabMsg(0).Caption = "Compte effacé"
    Cel(2).Visible = False
    Cel(1).Visible = True
    PicBtn(3).Visible = False
    PicBtn(5).Visible = False
    PicBtn(6).Visible = False
    PicBtn(7).Visible = False
    Ret = DoSearchCompte(TypeEnseigne)
Else
    LabMsg(0).Caption = "Erreur au cours de l'effacement!"
End If
End Function

Références Composants

Administration-des-comptes-FrmCompte-LbOnglet_Click, Administration-des-comptes-FrmCompte-DoSearchCompte,

Références XAS.Technology

XasSystemGetStatusUser ,

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.