F-Script

Beispiel

/Mengentabelle_auslesen
«X(MaPreis=)»
«X(MANr=)»
«X(AnzMengeAb=)»
«X(MengeMATab=)»
«X(MengeEAF7=«EA-FREI7»)»

# ----- Mengenpreis aus Mengentabelle auslesen -----
#
# Mengentabellennummer PurCondition.PurQRTabNo über ArtPurSuppl.PurConditionBoId auslesen
«XSER(getArtPurSuppl:GetBo)»
«XSER(getArtPurSuppl:addArg=ArtPurSuppl)»
«XSER(getArtPurSuppl:addArg=«EDK-LADR-NR»,«EDP-ART-NR»)»
«XSER(getArtPurSuppl:addArg=e)»
«XSER(getArtPurSuppl:addArg=2)»
«XSER(getArtPurSuppl:addArg=1)»
«XSER(getArtPurSuppl:addArg=2)»
«XSER(getArtPurSuppl:addArg=)»
«XSER(getArtPurSuppl:addArg=PurCondition.PurQRTabNo(ArtPurSuppl.PurConditionBoId))»
«nXSER(getArtPurSuppl:execute>getArtPurSupplRes)\A»
#
# Mengentabellennummer
«X(MANr=«XRES(getArtPurSupplRes:PurCondition.PurQRTabNo(ArtPurSuppl.PurConditionBoId))»)»
#
# Mengenpreis auslesen (Preis - Menge ab)
«XSER(getPurQRTabItem:GetBo)»
«XSER(getPurQRTabItem:addArg=PurQRTabItem)»
«XSER(getPurQRTabItem:addArg=«EDK-LADR-NR»,«X(MANr)»)»
«XSER(getPurQRTabItem:addArg=ne)»
«XSER(getPurQRTabItem:addArg=2)»
«XSER(getPurQRTabItem:addArg=0)»
«XSER(getPurQRTabItem:addArg=2)»
«XSER(getPurQRTabItem:addArg=)»
«XSER(getPurQRTabItem:addArg=PurQRTabItem.Level,PurQRTabItem.Value)»
«nXSER(getPurQRTabItem:execute>getPurQRTabItemRes)\A»
#
# Mengentabelleneinträge auflisten und auf Mengenpreis prüfen
«X(AnzMengeAb=«XRES(getPurQRTabItemRes:rows)»)»
«zX(AnzMengeAb)=0\N»«GOTO(# KEINE-Mengentabelle)»
«nNO(8,NULL)»
«REPEAT»
«nNO(8)»
«X(MengeMATab=«XRES(getPurQRTabItemRes:PurQRTabItem.Level,«NO(8,0)»)»)»
#
# Der Preis wird in die Variable X(MaPreis) gespeichert
# Achtung! u.U. muss der Loop vorzeitig verlassen werden
# Ansonsten wird der letzte Tabelleneintrag in die Variable X(MaPreis) gespeichert
«z~X(MengeEAF7)<«X(MengeMATab)\N»\N»«X(MaPreis=«XRES(getPurQRTabItemRes:PurQRTabItem.Value,«NO(8,0)»)»)»
«zNO(8,0)<«X(AnzMengeAb)\N»\N»«LOOP»
#
# Die Variable X(MaPreis) kann nun für beliebige Zwecke verwendet werden
...
«X(MaPreis)»
...
# KEINE-Mengentabelle
/