Administration des entités, (Web, Web Services, PDA, WidGet, Fat Client)
XAS.Services
  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èmeAdministration 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 WSDLSOAP RESTXML-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