Inversion de 2 variables numériques avec arrondi facultatif sous Adélia.

Source de la règle de gestion.

Règle de gestion : BASCULE

Désignation . . .: Inversion de 2 variables avec ou sans arrondi

Commentaire . . .: la valeur en devise de base est transférée en devise secondaire sans arrondi, alors que la valeur en devise secondaire est transférée en devise de base avec l’arrondi spécifié en paramètre. Le 3ème paramètre peut prendre les valeurs suivantes :

" " : pas d'arrondi
"0" : arrondi à  0 décimale
"1" : arrondi à  1 décimale
"2" : arrondi à  2 décimales
...
"9" : arrondi à  9 décimales (en réalité pas d'arrondi)

Paramètres :
N° Désignation
1 valeur devise de base
2 valeur devise secondaire
3 arrondi devise secondaire

Exemples d'appel (ne pas mettre le 3ème paramètre entre cotes sinon plantage garanti) :
INSERER_RG BASCULE(W_VAL_DB;W_VAL_DS; )
INSERER_RG BASCULE(W_VAL_DB;W_VAL_DS;3)
INSERER_RG BASCULE(SG_PRX_1;SG_PRX_2;2)

Source :
DECLARER M£INT;M£INT 21;9
DECLARER M£INT0;M£INT0 12;0
DECLARER M£INT1;M£INT1 13;1
DECLARER M£INT2;M£INT2 14;2
DECLARER M£INT3;M£INT3 15;3
DECLARER M£INT4;M£INT4 16;4
DECLARER M£INT5;M£INT5 17;5
DECLARER M£INT6;M£INT6 18;6
DECLARER M£INT7;M£INT7 19;7
DECLARER M£INT8;M£INT8 20;8
DECLARER M£INT9;M£INT9 21;9
*
*-- On profite du passage par la variable intermédiaire pour effectuer
* l'arrondi. Ce mode d'utilisation du :03 permet d'utiliser une
* variable intermédiaire ou une autre sans test préalable.
*
M£INT:03 H = :02
:02 = :01
:01 = M£INT:03
*

Print Friendly, PDF & Email