DEFTRANS
Description
Cette action est utilisée dans les OBJets à variantes (OBJet pour lequel on a créé plusieurs fenêtres). Elle est appelée en début d'analyse des fenêtres de l'OBJet, si au moins une fenêtre est active sur cet OBJet.
Type d'OBJet
Simple, Tableau, Combiné
Transaction
Non
Utilisation
Elle permet de positionner une variable globale, qui servira dans l'action VARIANTE à
filtrer les fenêtres autorisées.
Elle permet aussi d'arrêter le traitement en positionnant OK=0 et
éventuellement d'afficher un message dans GMESSAGE.
Exemple : SUBSOHA commandes de vente
Préparation d'un filtre pour les transactions de saisie. En effet, si l'on vient par tunnel dans la saisie des commandes, on lit dans l'action DEFTRANS l'entête de la commande pour connaître sa catégorie. Puis, ne seront proposées que les transactions de saisie associées à cette catégorie : traitement à développer dans l'action VARIANTE.
$DEFTRANS
# Si on ne vient pas de la gestion des commandes
If GFONC1 <> "GESSOH" Raz GFLAG Endif
# Par défaut on a droit à toutes les transactions
GORDCAT= 4
# Si tunnel, on filtre avec la catégorie de commande
If TUNNEL = 1 & !GIMPORT
Read [SOH]SOH0=CLE1
If !fstat GORDCAT = [F:SOH]SOHCAT Endif
Endif
Return
Actions associées
DEFTRANS |
|