| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Lundi 12 Avril 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Dimanche 2 Mai 2010 | Par | Support France |
| Thème | Administration des critères, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | FrmCrit.DoCondition |
| Prototype |
| Function DoCondition (Id As Integer) As Integer |
| Usage | |||
| Administration-des-criteres.DoCondition(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Function DoCondition (Id As Integer) As Integer |
Function DoCondition (Id As Integer) As Integer
Dim i%
Dim sC2$
Dim s$
sCond = ""
MaPhrase = "Vos critères sélectionnés sont : "
s = MaPhrase
sC2 = ""
For i = 0 To MaxCritere
If TabIdCaption(i) <> "" Then
sC2 = sC2 + DoDiezeSearch(i) + " AND "
Else
If TabId(i) <> "" Then
sC2 = sC2 + "q.c" + CStr(i) + TabSigne(i) + TabId(i) + " AND "
MaPhrase = MaPhrase + Labcritere(i) + TabSigne(i) + " " + TabIdName(i) + ", "
End If
End If
Next i
If sC2 <> "" Then
sCond = " AND " + Left$(sC2, Len(sC2) - 4)
End If
If MaPhrase = s Then
MaPhrase = MaPhrase + " Tous. "
Else
MaPhrase = Left$(MaPhrase, Len(MaPhrase) - 2) + ". "
End If
DoCondition = True
End Function
|
| Références Composants |
| Administration-des-criteres-FrmCrit-DoDiezeSearch, |
| Références XAS.Technology |
| Cstr , Left , Len , |
| 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 |