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 Samedi 5 Juin 2010 Par Zaïr BEZGHICHE
Dernière vérification Vendredi 11 Juin 2010 Par Support France
ThèmeAdministration des entités, (Web, Web Services, PDA, WidGet, Fat Client) Fonction FrmEntity.ListeToPage

Prototype
Function ListeToPage (Id As Integer) As Integer
Usage
Administration-des-entites.ListeToPage(...)
HTTP (GET,POST)SOAP WSDLSOAP RESTXML-RPC
Format de sortie
XML HTML TEXT EXCEL(CSV)

Code Source - développement open source
Function ListeToPage (Id As Integer) As Integer
Function ListeToPage (Id As Integer) As Integer
Dim Ret%
Dim s1$
Dim s2$
GridList.Row = curRow
GridList.Col = 7
s1 = GridList.Text
If s1 <> "" Then
    If Val(GlobPU.XasDroit) >= 8 Then
	GridList.Col = 8
	s2 = GridList.Text
	CurDatabase = s2
	Ret = pExecute("CHANGEDATABASE('" + Trim$(s2) + "') ")
	Ret = pTmpExecute("CHANGEDATABASE('" + Trim$(s2) + "') ")
	CurEcran = 0
    End If
    If s2 = "DRMTEST" Then
	CelFond(17).Visible = False
    Else
	CelFond(17).Visible = True
    End If
    Ret = GetFormatPage(s1)
    If curRow = MaxRow - 1 Then
	PicBtn(6).Visible = False
	PicBtn(5).Visible = True
    Else
	PicBtn(6).Visible = True
    End If
End If
Ret = ProfileAccess(GlobPU.XasDroit)

End Function

Références Composants
Administration-des-entites-FrmEntity-GetFormatPage, Administration-des-entites-FrmEntity-ProfileAccess,

Références XAS.Technology
Val , 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