INIPAR
Description
Cette action est appelée pour chaque paramétre juste avant la saisie de la borne de début.
Modèle
Etat
Utilisation
Elle permet principalement d'initialiser le paramètre en fonction d'un contexte. Effectivement, puisque l'écran AEXERPT est utilisé pour tout les états, on ne peut pas insérer une action avant_zone pour un état particulier. Le code du paramètre est disponible dans [M:RPT]PARCOD(nolign-1).
on peut initialiser la borne de début par la variable VALEUR.
A partir de la version V5, on utilise l'action $INIPAR2 pour initialiser la borne de fin. Jusqu'à le version 140, l'initialisation de la borne de fin se faisait par la variable [M:RPT]VALEUR2(nolign-1). Puis, il était nécessaire d'alimenter le champ interne correspondant [M:RPT]VALINT2(nolign-1), de la façon suivante :
Call CHARGE([M]VALEUR2(n),[M]PARTYP(n),[M]NOLIB(n),[M]LONG(n),[M]VALINT2(n)) From FMTVAR
Il est de même pour l'initialisation de tout champ autre que le champ courant :
Call CHARGE([M]VALEUR1(n),[M]PARTYP(n),[M]NOLIB(n),[M]LONG(n),[M]VALINT1(n)) From FMTVAR
( où n= nolign-1)
L'instruction Affzo sera nécessaire.
on peut griser un paramètre ( sauf le paramètre courant ) par l'instruction Grizo ou Diszo.
Voici 2 exemples d'écriture de cette action jusqu'en version 140 :
Initialisation de la borne début puis de la borne fin :
$INIPAR
If [M]PARCOD(nolign-1)="paysdeb" & zoncou="VALEUR1"
VALEUR="AAA"
Endif
If [M]PARCOD(nolign-1)="paysdeb" & zoncou="VALEUR2"
VALEUR="BBB"
Endif
Return
Initialisation des bornes début fin en même temps :
$INIPAR
If [M]PARCOD(nolign-1)="paysdeb" & zoncou="VALEUR1"
VALEUR="AAA"
[M:RPT]VALEUR2(nolign-1)="BBB"
[M:RPT]VALINT2(nolign-1)="BBB"
Affzo [M:RPT]VALEUR2(nolign-1)
Endif
Le même exemple à partir de la version V5 :
Initialisation de la borne début puis de la borne fin :
$INIPAR
If [M]PARCOD(nolign-1)="paysdeb"
VALEUR="AAA"
Endif
Return
$INIPAR2
If [M]PARCOD(nolign-1)="paysdeb"
VALEUR="BBB"
Endif
Return