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

Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Samedi 13 Février 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Mercredi 17 Février 2010	Par	Support France
Thème	Administration des Import/Export, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	MODIMP.IMPUpdateCMD

Prototype

Function IMPUpdateCMD (IdXml As Integer, iIndice As Integer, sCreation As String) As Integer

Usage
Administration-des-Import-Export.IMPUpdateCMD(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function IMPUpdateCMD (IdXml As Integer, iIndice As Integer, sCreation As String) As Integer

Function IMPUpdateCMD (IdXml As Integer, iIndice As Integer, sCreation As String) As Integer
Dim Ret%
Dim sData$
Dim j%
Dim s$
Dim a As Single
Dim b As Single
Dim fMt As Single
Dim lQTE As Long
IMPUpdateCMD = False
sData = "select Id,Qte,pU "
sData = sData + " FROM TransacArticle  "
sData = sData + " WHERE tranid.xxKey=" + CStr(CurNumPiece)
Ret = pExecute(sData)
If Ret = True Then
    IMPUpdateCMD = Ret
    a = Val("0.00")
    b = Val("0.00")
    fMt = Val("0.00")
    lQTE = 0
    While (Ret = True)
	s = OnSQLGetItem(0)
	a = Val(OnSQLGetItem(1) + ".00")
	b = Val(OnSQLGetItem(2))
	a = a * b
	fMt = fMt + a
	lQTE = lQTE + Val(OnSQLGetItem(1))
	sData = " UPDATE TransacArticle SET Montant='" + CStr(a) + "'"
	sData = sData + " WHERE Id.xxKey=" + CStr(s)
	Ret = pTmpExecute(sData)
	Ret = pMoveNext(0)
    Wend
    sData = " UPDATE PiedCmd SET totalht='" + CStr(fMt) + "'"
    sData = sData + " WHERE tranid.xxKey=" + CStr(CurNumPiece)
    Ret = pTmpExecute(sData)
    sData = " UPDATE Transaction SET montant='" + CStr(fMt) + "', qte='" + CStr(lQTE) + "'"
    sData = sData + " WHERE Id.xxKey=" + CStr(CurNumPiece)
    Ret = pTmpExecute(sData)
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.