If [M:SCS1]BETFCYCOD=1 : FILGAUSUP(3)+="&[F:STO]LOCCAT<=3" : GPE=1: Endif
Beispiel 2:
Um den Status eines Subunternehmerlagerplatzes zu ändern (mit Kommissionierung von Bestandspositionen auf dem Subunternehmerlagerplatz), ist folgende Codesequenz zu schreiben:
If [M:SCS1]BETFCYCOD=1 : FILGAUSUP(3)+="&find([F:STO]LOCCAT,1,2,4)" : GPE=1: Endif
Dieser Eingabepunkt ermöglicht die Zulassung einer standortinternen Übertragung oder Fremdverarbeitung eines nicht eigenen Bestands.
Es gibt keine laufende Maskensteuerung.
Es ist keine Protokolldatei geöffnet.
Der Eingabepunkt befindet sich im Label $PICKE der Verarbeitung SUBSCSP.
Wird nach Auswahl einer Bestandsposition und vor Verfügbarkeitsprüfung dieses Bestands aufgerufen.
Ist man nicht Eigentümer des ausgewählten Bestands, kann man diesen so als verfügbar ansehen und dadurch die Übertragung genehmigen.
Hierzu muss folgende Sequenz geschrieben werden: LOWNER = [F:STO]OWNER