| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Lundi 4 Janvier 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Samedi 9 Janvier 2010 | Par | Support France |
| Thème | Administration des critères, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | FrmCrit.DoDiezeSearch |
| Prototype |
| Function DoDiezeSearch (Id As Integer) As String |
| Usage | |||
| Administration-des-criteres.DoDiezeSearch(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Function DoDiezeSearch (Id As Integer) As String |
Function DoDiezeSearch (Id As Integer) As String
Dim l%
Dim i%
Dim j%
Dim s$
Dim s2$
Dim s3$
Dim sOut$
Dim sPhrase$
Dim sI$
Dim sTab$
s3 = "|"
j = 1
DoDiezeSearch = ""
sI = TabIdCaption(Id)
l = Len(sI)
s = ""
sOut = ""
sPhrase = CStr(Labcritere(Id)) + " = "
For i = 2 To l
s2 = XasGetChar(sI, i)
If s2 = s3 Then
sOut = sOut + "q.c" + CStr(Id) + "=" + s + " OR "
sTab = GetInfoCombo(Id, s)
sPhrase = sPhrase + " " + sTab + " ou "
s = ""
j = j + 1
Else
s = s + s2
End If
Next i
If sOut <> "" Then
s = " (" + Left$(sOut, Len(sOut) - 3) + ") "
DoDiezeSearch = s
MaPhrase = MaPhrase + Left$(sPhrase, Len(sPhrase) - 3) + ") "
End If
End Function
|
| Références Composants |
| Administration-des-criteres-FrmCrit-GetInfoCombo, |
| Références XAS.Technology |
| Len , Cstr , XasGetChar , Left , |
| 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. |
| XAS Services - Zaïr BEZGHICHE - Copyright 1991-2011 tous droits réservés- Powered by XAS.Technology |