| XML Kiosk |
| Technologie | XAS.Technology | Version | V 6.0.1 |
| Dernière modification | Mercredi 11 Août 2010 | Par | Zaïr BEZGHICHE |
| Dernière vérification | Dimanche 15 Août 2010 | Par | Support France |
| Thème | Administration des entités, (Web, Web Services, PDA, WidGet, Fat Client) | Fonction | FrmEntity.DoSetParam |
| Prototype |
| Function DoSetParam (Id As Integer) As Integer |
| Usage | |||
| Administration-des-entites.DoSetParam(...) | |||
| HTTP (GET,POST) | SOAP WSDL | SOAP REST | XML-RPC |
| Format de sortie | |||
| XML | HTML | TEXT | EXCEL(CSV) |
| Code Source - développement open source |
| Function DoSetParam (Id As Integer) As Integer |
Function DoSetParam (Id As Integer) As Integer
Dim Ret%
Dim s$
Dim s2$
TypeEntity = 1
CurEntity_id = "0.0"
ModeEasy = False
ModePage = 0
If XasUserGetString(1, s) = True And Val(s) > 0 Then
TypeEntity = Val(s)
If TypeEntity = 11 Then
CelFond(15).Visible = True
CelFond(16).Visible = False
Else
CelFond(15).Visible = False
CelFond(16).Visible = True
End If
End If
If XasUserGetString(2, s) = True And s <> "" Then
If s <> "0.0" Then
CurEntity_id = s
ModePage = 1
End If
End If
If XasUserGetString(3, s) = True And Val(s) = 1 Then
ModeEasy = True
End If
If XasUserGetString(4, s) = True And Val(s) = 1 Then
FrmEntity.Height = 8610
End If
If TypeEntity <> 0 Then
Ret = DoListEntity(TypeEntity)
If ModePage = 1 Then
s = CurEntity_id
Ret = GetFormatPage(s)
End If
End If
'Mode excusif
' Ret = DoAllowOneEntity(0)
End Function
|
| Références Composants |
| Administration-des-entites-FrmEntity-DoListEntity, Administration-des-entites-FrmEntity-GetFormatPage, |
| Références XAS.Technology |
| XasUserGetString , Val , |
| 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 |