Comparaison de pages

Paramètres : FORMULE , &QTENECESS, TYPEENREG
Cette fonction contrôle que la fonction « formule » existe bien dans le module de surcharge « GGUM600.DHOP» et dans ce cas appelle cette fonction de surcharge en passant la quantité nécessaire d'une ligne de composant et le type d'enregistrement.
1 = enregistrements GH et BB en ligne (production)
2 = enregistrements GH et GamM_Composant en ligne (maintenance)
Exemples :
Public record "gtfdd.dhsd"BB
PublicRecord "GGFDD.dhsd" GgMnt500Comp GamM_Composant
;*
Public Function int FORM0001(&QteNecess, TypeEnreg)
1QteNecess>GTFDD Qte
BeginF;* Form0001
; Ici si le composant est b et que le besoin est supérieur a 10
; Le composant est changé en c et la quantité nécessaire (qté de la nomenclature)
; Est multipliée par 3
; On laisse ensuite le programme continuer la nomenclature et calculer les
; Besoins avec ces nouveaux paramètres -> freturn(false)
;
If TypeEnreg = 1
If BB.REFCO = "b" And GH.QTE > 10
BB.REFCO= 'c'
BB.QTE = BB.QTE * 3
EndIf
ElsIf TypeEnreg = 2
If GamM_Composant.REFCO = "b" And GH.QTE > 10
GamM_Composant.REFCO= 'c'
GamM_Composant.QTE = GamM_Composant.QTE * 3
EndIf
EndIf
; On laisse calculer le programme
FReturn(False)
EndF
;*
Public Function int FORM0002(&QteNecess)
1QteNecess>GTFDD Qte
BeginF;* Form0002
; Avec le freturn(true) -> on indique que le resultat doit être pris tel que : on ne laisse
; Pas le programme calculer un besoin en fonction de paramètres. cela peut être utile si
; Le besoin dépend de x paramètres spécifiques et qu'on préfère le calculer totalement en
; Spécifique
QteNecess = 20
FReturn(True)
EndF