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

Administration des achats, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Dimanche 18 Avril 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Mardi 20 Avril 2010	Par	Support France
Thème	Administration des achats, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmProduit.DoUpdate

Prototype

Function DoUpdate (sId As String, sIdClient As String) As Integer

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function DoUpdate (sId As String, sIdClient As String) As Integer

Function DoUpdate (sId As String, sIdClient As String) As Integer
Dim Ret%
Dim sData$
Dim s$
Dim Borne%
Dim i%
Dim IdIndex%
Dim k%
Dim Crea$

Crea = Date$
sData = " UPDATE Produit SET "
sData = sData + "Maj='" + Crea + "',"
sData = sData + "Type='" + Trim$(Right$(Cb(8).Text, 6)) + "',"
sData = sData + "Name='" + Trim$(txP(4).Text) + "',"
sData = sData + "Reference='" + Trim$(txP(5).Text) + "',"
sData = sData + "RefFour='" + Trim$(txP(6).Text) + "',"
sData = sData + "PointsCredit='" + CStr(Val(txP(7).Text)) + "',"
sData = sData + "PointsDebit='" + CStr(Val(txP(8).Text)) + "',"
sData = sData + "TarifAchat='" + DoCheckMoney(CStr(txP(13).Text)) + "',"
sData = sData + "TarifBase='" + DoCheckMoney(CStr(txP(17).Text)) + "',"
s = XasSetChar(txP(9).Text, "'", "''", 0, 0)
sData = sData + "Designation='" + s + "',"
s = XasSetChar(txP(10).Text, "'", "''", 0, 0)
sData = sData + "Info1='" + s + "',"
s = XasSetChar(txP(11).Text, "'", "''", 0, 0)
sData = sData + "Composition='" + s + "',"
s = XasSetChar(txP(12).Text, "'", "''", 0, 0)
sData = sData + "Info2='" + s + "',"
s = XasSetChar(txP(25).Text, "'", "''", 0, 0)
sData = sData + "action='" + s + "',"

sData = sData + "c13='" + Trim$(Right$(Cb(0).Text, 6)) + "',"
sData = sData + "c14='" + Trim$(Right$(Cb(1).Text, 6)) + "',"
sData = sData + "c15='" + Trim$(Right$(Cb(2).Text, 6)) + "',"
sData = sData + "c16='" + Trim$(Right$(Cb(3).Text, 6)) + "',"
sData = sData + "devise='" + Trim$(Right$(Cb(4).Text, 6)) + "',"
sData = sData + "codeclient='" + sIdClient + "'"
sData = sData + " WHERE CodeProduit.xxKey=" + CStr(sId)
Ret = pExecute(sData)
If Ret = True Then
    LabMsg(0).Caption = "Enregistrement Mise à Jour"
    BtnOk.Visible = True
    'Select Case TypeArticle
    '    Case 2, 3
    '        Ret = pExecute("Exec U_ArtTaiCou 0," + CStr(CurArticle_id) + ",0")
    '        For k = 0 To 1
    '            Borne = list1(k).ListCount - 1
    '            For i = 0 To Borne
    '                Ret = list1(k).Selected(i)
    '                If Ret = True Then
    '                    IdIndex = Val(Right$(list1(k).List(i), 6))
    '                    Ret = pExecute("Exec U_ArtTaiCou " + CStr(k + 1) + "," + CStr(CurArticle_id) + "," + CStr(IdIndex))
    '                End If
    '            Next i
    '        Next k
    '    Case 4
    '        Ret = pExecute("Exec U_ArtComposite 0," + CStr(CurArticle_id) + ",0")
    '        Borne = list1(3).ListCount - 1
    '        For i = 0 To Borne
    '            Ret = list1(3).Selected(i)
    '            If Ret = True Then
    '                IdIndex = Val(Right$(list1(3).List(i), 6))
    '                Ret = pExecute("Exec U_ArtComposite  1," + CStr(CurArticle_id) + "," + CStr(IdIndex))
    '            End If
    '        Next i
    'End Select
    sData = " UPDATE ArticleTarif SET "
    sData = sData + "Maj='" + Crea + "',"
    sData = sData + "codeclient='" + sIdClient + "',"
    sData = sData + "devise='" + Trim$(Right$(Cb(4).Text, 6)) + "',"
    sData = sData + "Taxes1='" + Trim$(Right$(Cb(5).Text, 6)) + "',"
    sData = sData + "Taxes2='" + Trim$(Right$(Cb(6).Text, 6)) + "',"
    sData = sData + "pU='" + DoCheckMoney(CStr(txP(13).Text)) + "',"
    sData = sData + "QTE='" + DoCheckMoney(CStr(txP(14).Text)) + "',"
    sData = sData + "Remise='" + DoCheckMoney(CStr(txP(15).Text)) + "',"
    sData = sData + "Coef='" + DoCheckMoney(CStr(txP(16).Text)) + "',"
    sData = sData + "pUVente='" + DoCheckMoney(CStr(txP(17).Text)) + "'"
    sData = sData + " WHERE CodeProduit.xxKey=" + CStr(sId)
    sData = sData + " AND CodeClient.xxKey=" + CStr(sIdClient)
    Ret = pExecute(sData)
 
    sData = " UPDATE ArticleStock SET "
    sData = sData + "Maj='" + Crea + "',"
    sData = sData + "codeclient='" + sIdClient + "',"
    sData = sData + "Inventaire='" + CStr(txP(18).Text) + "',"
    sData = sData + "QteInv='" + CStr(Val(txP(19).Text)) + "',"
    sData = sData + "QteStock='" + CStr(Val(txP(20).Text)) + "',"
    sData = sData + "SeuilReappro='" + CStr(Val(txP(21).Text)) + "',"
    sData = sData + "QteCmdMini='" + CStr(Val(txP(22).Text)) + "',"
    sData = sData + "QteEnCmd='" + CStr(Val(txP(23).Text)) + "',"
    sData = sData + "QteEnLiv='" + CStr(Val(txP(24).Text)) + "'"
    sData = sData + " WHERE CodeProduit.xxKey=" + CStr(sId)
    sData = sData + " AND CodeClient.xxKey=" + CStr(sIdClient)
    Ret = pExecute(sData)

    Ret = DoSqlArticle(CurArticle_id, CurClient_id)
    PicBtn(3).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-achats-FrmProduit-DoCheckMoney, Administration-des-achats-FrmProduit-DoSqlArticle,

Références XAS.Technology

Date , Trim , Right , Cstr , Val , XasSetChar ,

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.