EXECUTER_FORMULE_GAMME (Fonction)

Paramètres : FORMULE , QTE, UNIT, TYPEENREG
Cette fonction contrôle que la fonction « formule » existe bien dans le module de surcharge « GGUM000.DHOP » et dans ce cas appelle cette fonction de surcharge en passant la quantité et l'unité demandée du composé.
Le TypeEnreg indique le contexte de travail :
-Si TypeEnreg 1 (BA/BC) : ba contient le besoin, bc contient la ligneséquence courante.
On ne devrait pas modifier ba (uniquement en consultation), par contre bc est modifiable (pas de réécriture !!)
-Si TypeEnreg 2 (G6T4/H1T7)
H1T7 est modifiable et utilisé en retour
-Si TypeEnreg 3 (GamM_Entete/GamM_Sequence) : GamM_Entete contient le besoin, GamM_Sequence contient la ligneséquence courante.
On ne devrait pas modifier GamM_Entete (uniquement en consultation), par contre GamM_Sequence est modifiable (pas de réécriture !!)
-Si TypeEnreg 4 (OM_Entete/OM_Sequence)
OM_Sequence est modifiable et utilisé en retour
Exemple de fonction appelée dans le GGUM000 :
Public record "ggfdd.dhsd"BC
Public record "ggfdd.dhsd"H1T7
Public Record "ggfdd.dhsd" GgMnt500Seq GamM_Sequence
Public Record "ggfdd.dhsd" GgMnt100Seq OM_Sequence
;Formule de séquence pour modifier la durée
Public Procedure Test (&Qte, Unit, TypeEnreg)
1Qte>GTFDD.dhsdQTE
1UnitS = ' '
1TypeEnreg1,0
BeginP
Switch TypeEnreg
case 1
BC.FABTPS = 72
case 2
H1T7.FabTps = 72
H1T7.FabQte = 1000
case 3
GamM_Sequence.FABTPS = 72
case 4
OM_Sequence.FabTps = 72
OM_Sequence.FabQte = 1000
EndSwitch
EndP