...
La fonction VaToolBxRandom est utilisée pour generater une valeur aléatoire.
Le resultat est un nombre de type NUM_BIN_4 compris entre -2147483648 et 2147483647.
Pour avoir une valeur comprise entre 0 et X on peut utiliser les fonctions &VALEUR_ABSOLUE et &MODULO (voir l'example ci-dessous)
3 -
...
Exemple
| Ancre | ||||
|---|---|---|---|---|
|
Example to retrieve a value between 1 and Exemple de récupération d'une valeur comprise entre 1 et 10 :
| Bloc de code |
|---|
/* ___ Declarations _____________________________________________________________________ num_e(6,0) wTime num_bin_4 wSeedValue num_bin_4 wRandomValue /* ___ Code _____________________________________________________________________________ /* ___ GenerateGenérer aune seedvaleur valueinitiale ____________________________________________________________ time wTime wSeedValue = wTime callappeler_dll 'vatoolbx.dll' 'VaToolBxSeedRand' wSeedValue /* ___ GenerateGénérer aune randomvaleur valuealéatoire __________________________________________________________ call_dll 'vatoolbx.dll' 'VaToolBxRandom' wRandomValue /* ___ CalculateObtenir une avaleur valuecomprise betweenentre 1 andet 10 _______________________________________________ wRandomValue = &absolutevaleur_valueabsolue(wRandomValue) wRandomValue = &modulo(wRandomValue;10) wRandomValue = wRandomValue + 1 |
Dynamic program call
We can use the CALL instruction to call a dynamic program, with static or even dynamic parameters
...
...
Appel dynamique de programme
On utilisera l'instruction APPELER pour appeler dynamiquement un programme externe (ou une procédure publique), avec des paramètres statiques ou dynamiques
1 - Exemples d'appels dynamiques
| Bloc de code |
|---|
/* ___ Declarations _____________________________________________________________________ alpha( 10) wProgramObjectFileName alpha( 128) wProgramPublicProcedureName alpha(1000) wParameters num_e( 2,0) myParameterNum01 num_e( 2,0) myParameterNum02 /* ___ Code _____________________________________________________________________________ callappeler myProgram callappeler myProgram.myProcedure myParameterNum01 = 22 callappeler myProgram.myProcedure2 myParameterNum01 myParameterNum01= 22 myParameterNum02= 05 callappeler myProgram.myProcedure2 myParameterNum01 myParameterNum02 /* ___ DynamicAppel programdynamique namede and public procedure name ____programme et de nom de procédure également dynamique _______________________________ wProgramObjectFileName = 'mypgm' wProgramPublicProcedureName = 'myProcedure' callappeler &wProgramObjectFileName.&wProgramPublicProcedureName wProgramObjectFileName = 'mypgm' wProgramPublicProcedureName = 'myProcedure2' myParameterNum01 = 22 callappeler &wProgramObjectFileName.&wProgramPublicProcedureName myParameterNummyParameterNum01 /* ___ Dynamic program name, procedure name and parameters ______________________________ wProgramObjectFileName = 'mypgm' wProgramPublicProcedureName = 'myProcedure2' wParameters = '22 05' callappeler &wProgramObjectFileName.&wProgramPublicProcedureName &wParameters |
Users's attribute
...
Attributs de contexte utilisateur
La session web peut être utilisée pour stocker et récupérer des valeursUser session can be used to store and retrieve values.
| Avertissement | ||
|---|---|---|
| ||
It is only available in client part of a cloud generated program (not in a server part or in a server program or in a windows program). |
1 - Set an attribute value
| |
Ces instructions sont seulement utilisables dans la partie cliente d'un programme généré en mode "cloud" (ces instructions ne sont donc pas utilisables dans une partie serveur, dans un programme pur serveur ou encore dans un programme généré en mode windows). |
1 - Positionner une valeur sur un attribut
Pour affecteur une valeur à un attribut d'une session utilisateur on utilisera la fonction VaToolBxCloudSetUserAttribute de la vaToolBx To set a session private attribute value, we simply have to use the VaToolBxCloudSetUserAttribute fonction of the vaToolBx library :
| Bloc de code |
|---|
/* ___ Declarations _____________________________________________________________________ alpha( 50) wAttributeName alpha(256) wAttributeValue /* ___ Code _____________________________________________________________________________ wAttributeName = 'myLabel' /* Label Etiquette wAttributeValue = 'xxxyyyzzz' /* ValueValeur toque bel'on storedveut understocker thedans userla session utilisateur (must be alpha value) callce doit être une variable Alpha) appeler_dll 'VaToolBx' 'VaToolBxCloudSetUserAttribute' wAttributeName - wAttributeValue |
The scope of this setting is limited to the current session (logout / logon will destroy all values).
2 - Retrieve an attribute value
La portée de cette valeur est limitée à la session courante de l'utilisateur, soit celle de son bureau, une déconnexion aura pour effet de supprimer les valeurs du contexte de l'utilisateur.
2 - Récupérer la valeur d'un attribut
Afin de récupérer la valeur stockée pour un attribut de la session d'un utilisateur, on utilisera la fonction VaToolBxCloudGetUserAttribute de la vaToolBx To retrieve a session private attribute value, we simply have to use the VaToolBxCloudGetUserAttribute fonction of the vaToolBx library :
| Bloc de code |
|---|
/* ___ Declarations _____________________________________________________________________ alpha( 50) wAttributeName alpha(256) wAttributeValue num_bin_4 wAttributeLength /* ___ Code _____________________________________________________________________________ wAttributeName = 'myLabel' /* Label Etiquette wAttributeValue = *blank wAttributeLength = 256 /* Taille Sizede ofla thevariable wAttributeValue variable callappeler_dll 'VaToolBx' 'VaToolBxCloudGetUserAttribute' wAttributeName - wAttributeValue - wAttributeLength ifsi *returncode_coderetour = *normal /* wAttributeValue containscontient thela valuevaleur previouslypréalablement savedsauvegardée endfin |
3 -
...
Supprimer la valeur d'un attribut
Pour supprimer un attribut de la session d'une utlisateur, on utilisera la fonction VaToolBxCloudSetUserAttribute de la vaToolBx avec une valeur vide
...
To delete a session private attribute value, we simply have to use the VaToolBxCloudSetUserAttribute fonction of the vaToolBx library with a blank value :
| Bloc de code |
|---|
/* ___ Declarations _____________________________________________________________________ alpha( 50) wAttributeName alpha(256) wAttributeValue /* ___ Code _____________________________________________________________________________ wAttributeName = 'myLabel' /* Label Etiquette wAttributeValue = *blank /* *blank pour tosupprimer deletel'attribut thede labella fromsession thede userl's sessionutilisateur callappeler_dll 'VaToolBx' 'VaToolBxCloudSetUserAttribute' wAttributeName - wAttributeValue |
...
Management Rules
...