| 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ème | Administration 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 WSDL | SOAP REST | XML-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 |