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

Administration des lots de cartes, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Mercredi 21 Juillet 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Samedi 24 Juillet 2010	Par	Support France
Thème	Administration des lots de cartes, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmLOTCART.DoInsert

Prototype

Function DoInsert (id As Integer) As Integer

Usage
Administration-des-lots-de-cartes.DoInsert(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function DoInsert (id As Integer) As Integer

Function DoInsert (id As Integer) As Integer
Dim Ret%
Dim sdata$
Dim s$
s = XasSetChar(txT(0).Text, "'", "''", 0, 0)
TabSQLValue(0, 0) = Trim$(s)
TabSQLValue(0, 1) = Trim$(txT(1).Text)
TabSQLValue(0, 2) = CStr(Val(txT(2).Text))
TabSQLValue(0, 3) = CStr(Val(txT(2).Text))
TabSQLValue(0, 4) = Trim$(Right$(cb(0).Text, 6))
TabSQLValue(0, 5) = CStr(0)  'parrain_id a modifier
Ret = InsertLotCarte(CurProg_id)
If Ret = True Then
    ModeCreation = False
    LabMsg(0).Caption = "Enregistrement Mise à Jour"
    BtnOk.Visible = True
    PicBtn(3).Visible = True
    PicBtn(5).Visible = True
    PicBtn(7).Visible = True
    Maj = 1
Else
    LabMsg(0).ForeColor = 255
    LabMsg(0).Caption = "Problème lors de l'enregistrement"
End If

End Function

Références Composants

Administration-des-lots-de-cartes-SQLDATA-InsertLotCarte,

Références XAS.Technology

XasSetChar , Trim , Cstr , Val , Right ,

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.