| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Dimanche 15 Août 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Mardi 31 Août 2010 | Par | Support France |
| Thème | Administration des missions, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | FrmMain.GestionFleMap |
| Prototype |
| Function GestionFleMap (Id As Integer, sParam As String) As Integer |
| Usage | |||
| Administration-des-missions.GestionFleMap(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Function GestionFleMap (Id As Integer, sParam As String) As Integer |
Function GestionFleMap (Id As Integer, sParam As String) As Integer
Dim Ret%
Dim sIdClient$
Dim iType%
Dim iMax%
Dim sData$
Dim i%
If Id = 0 Then
Ret = OPESendToCarto(GridEntity, 0, False)
End If
iType = 56
iMax = GetCharMaxIndice(sParam, ";", "")
If iMax < 4 Then
XasTrace " GestionFleMap Error"
Exit Function
End If
sIdClient = GetCharByIndice(sParam, ";", 2)
sData = GetCharByIndice(sParam, ";", 5)
If Id = 26 And iMax > 5 Then
sData = ""
For i = 5 To iMax
sData = sData + GetCharByIndice(sParam, ";", i) + ";"
Next i
End If
If Id = 23 Then
Ret = xCheckForGeo(False, sIdClient, iType, sData)
Else
Ret = xCheckForGeo(True, sIdClient, iType, sData)
If Ret = False Then
Ret = xCreateForGeo(sIdClient, iType, sData)
If Ret = True Then
Ret = xCheckForGeo(True, sIdClient, iType, sData)
End If
End If
End If
End Function
|
| Références Composants |
| Administration-des-missions-AMAIN-OPESendToCarto, Administration-des-missions-AMAIN-xCheckForGeo, Administration-des-missions-AMAIN-xCreateForGeo, |
| Références XAS.Technology |
| GetCharMaxIndice , XasTrace , GetCharByIndice , |
| 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 |