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

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

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Lundi 29 Mars 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Vendredi 2 Avril 2010	Par	Support France
Thème	Administration des articles, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	ARTMOD.ARTCompoSearch

Prototype

Function ARTCompoSearch (Id As Integer) As Integer

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function ARTCompoSearch (Id As Integer) As Integer

Function ARTCompoSearch (Id As Integer) As Integer
Dim sData$
Dim Ret%
Dim s1$
Dim i%
Dim sRef$

LinkModeCreation = False
Ret = XasUserSetProperties(FrmGes.LabMsg, 7, "")
Ret = XasUserSetProperties(FrmGes.Bts, 9, True)
 
sData = "SELECT TOP 50 Reference, name,CodeProduit "
sData = sData + " FROM Produit "
sData = sData + " WHERE CodeProduit.xxKey !=0.0"
sData = sData + " AND CodeProduit.xxKey !=" + GlobCurEntity
s1 = FrmGes.txs(0).Text
If s1 <> "" Then
    sData = sData + " AND reference.string LIKE " + Chr$(3) + "*" + s1 + "*" + Chr$(4)
End If
s1 = FrmGes.txs(1).Text
If s1 <> "" Then
    sData = sData + " AND name.string LIKE '*" + s1 + "*'"
End If
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmGes.GridCompo", sData, GlobCurFileDom)
If Ret > 0 Then
    Ret = XasUserSetProperties(FrmGes.CelA(4), 18, 1)
Else
    FrmGes.GridCompo.Rows = 2
    Ret = XasUserSetProperties(FrmGes.LabMsg, 7, "")
End If

End Function

Références XAS.Technology

XasUserSetProperties , Chr , XasUserSQLtoCtrl ,

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.