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	Lundi 16 Août 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Samedi 4 Septembre 2010	Par	Support France
Thème	Administration des achats, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmProduit.DoInsert

Prototype

Function DoInsert (sIdClient As String) As Integer

Usage
Administration-des-achats.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 (sIdClient As String) As Integer

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

Crea = Date$
sData = " INSERT INTO Produit (Creation,Maj,Type,Name,Reference,RefFour,PointsCredit,PointsDebit,TarifAchat,TarifBase, "
sData = sData + "Designation,Info1,Composition, Info2, "
sData = sData + "c13,c14,c15, c16, devise, codeclient) VALUES ( "
sData = sData + "'" + Crea + "',"
sData = sData + "'" + Crea + "',"
sData = sData + "'" + Trim$(Right$(Cb(8).Text, 6)) + "',"
sData = sData + "'" + Trim$(txP(4).Text) + "',"
sData = sData + "'" + Trim$(txP(5).Text) + "',"
sData = sData + "'" + Trim$(txP(6).Text) + "',"
sData = sData + "'" + CStr(Val(txP(7).Text)) + "',"
sData = sData + "'" + CStr(Val(txP(8).Text)) + "',"
sData = sData + "'" + DoCheckMoney(CStr(txP(13).Text)) + "',"
sData = sData + "'" + DoCheckMoney(CStr(txP(17).Text)) + "',"
s = XasSetChar(txP(9).Text, "'", "''", 0, 0)
sData = sData + "'" + s + "',"
s = XasSetChar(txP(10).Text, "'", "''", 0, 0)
sData = sData + "'" + s + "',"
s = XasSetChar(txP(11).Text, "'", "''", 0, 0)
sData = sData + "'" + s + "',"
s = XasSetChar(txP(12).Text, "'", "''", 0, 0)
sData = sData + "'" + s + "',"
sData = sData + "'" + Trim$(Right$(Cb(0).Text, 6)) + "',"
sData = sData + "'" + Trim$(Right$(Cb(1).Text, 6)) + "',"
sData = sData + "'" + Trim$(Right$(Cb(2).Text, 6)) + "',"
sData = sData + "'" + Trim$(Right$(Cb(3).Text, 6)) + "',"
sData = sData + "'" + Trim$(Right$(Cb(4).Text, 6)) + "',"
sData = sData + "'" + sIdClient + "') "
Ret = pExecute(sData)
If Ret = True Then
    ModeCreation = False
    LabMsg(0).Caption = "Enregistrement Mise à Jour"
    BtnOk.Visible = True
    Ret = XasUserGetString(1, sId)
    If Ret = True And sId <> "" Then
	sData = " INSERT INTO Produit.ArticleTarif (Creation,maj,CodeProduit, codeclient,devise,Taxes1,Taxes2,pU,QTE,Remise,Coef,pUVente) VALUES ( "
	sData = sData + "'" + Crea + "',"
	sData = sData + "'" + Crea + "',"
	sData = sData + "'" + sId + "',"
	sData = sData + "'" + sIdClient + "',"
	sData = sData + "'" + Trim$(Right$(Cb(4).Text, 6)) + "',"
	sData = sData + "'" + Trim$(Right$(Cb(5).Text, 6)) + "',"
	sData = sData + "'" + Trim$(Right$(Cb(6).Text, 6)) + "',"
	sData = sData + "'" + DoCheckMoney(CStr(txP(13).Text)) + "',"
	sData = sData + "'" + DoCheckMoney(CStr(txP(14).Text)) + "',"
	sData = sData + "'" + DoCheckMoney(CStr(txP(15).Text)) + "',"
	sData = sData + "'" + DoCheckMoney(CStr(txP(16).Text)) + "',"
	sData = sData + "'" + DoCheckMoney(CStr(txP(17).Text)) + "' )"
	Ret = pExecute(sData)
	Ret = pExecute("Select CodeProduit From Produit WHERE Creation='" + Crea + "'")
	sData = " INSERT INTO Produit.ArticleStock (Creation,Maj,CodeProduit,codeclient,Inventaire,QteInv,QteStock,SeuilReappro,"
	sData = sData + "QteCmdMini,QteEnCmd,QteEnLiv) VALUES ( "
	sData = sData + "'" + Crea + "',"
	sData = sData + "'" + Crea + "',"
	sData = sData + "'" + sId + "',"
	sData = sData + "'" + sIdClient + "',"
	sData = sData + "'" + CStr(txP(18).Text) + "',"
	sData = sData + "'" + CStr(Val(txP(19).Text)) + "',"
	sData = sData + "'" + CStr(Val(txP(20).Text)) + "',"
	sData = sData + "'" + CStr(Val(txP(21).Text)) + "',"
	sData = sData + "'" + CStr(Val(txP(22).Text)) + "',"
	sData = sData + "'" + CStr(Val(txP(23).Text)) + "',"
	sData = sData + "'" + CStr(Val(txP(24).Text)) + "') "
	Ret = pExecute(sData)
     End If
    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 , XasUserGetString ,

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.