| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Mardi 24 Août 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Vendredi 10 Septembre 2010 | Par | Support France |
| Thème | Administration des missions, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | FrmMain.GridEntity_Activate |
| Prototype |
| Sub GridEntity_Activate (iRow As Integer, iCol As Integer, iValue As Integer) |
| Usage | |||
| Administration-des-missions.GridEntity_Activate(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Sub GridEntity_Activate (iRow As Integer, iCol As Integer, iValue As Integer) |
Sub GridEntity_Activate (iRow As Integer, iCol As Integer, iValue As Integer)
Dim Ret%
Dim sId$
Dim iType%
Dim iTypeTicket%
GridEntity.Row = iRow
GridEntity.Col = 7
sId = GridEntity.Text
GridEntity.Col = 8
iType = Val(GridEntity.Text)
GridEntity.Col = 9
iTypeTicket = Val(GetCharByIndice(Trim$(GridEntity.Text), ",", iCol - 2))
Select Case iCol
Case 0
Ret = OPEGridSelected(GridEntity)
Ret = OPESendToCarto(GridEntity, iRow, False)
Case 2
Ret = xPopEntity(sId, iType)
Case 3, 4, 5, 6
Ret = xCheckForScenar(sId, iTypeTicket)
End Select
End Sub
|
| Références XAS.Technology |
| Val , GetCharByIndice , Trim , |
| 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 |