10.1.4.4 SDA211 Lagerstammsatz bearbeiten
iSBP_211
MEGGENERAL-Special=211: SDA211.CGW
SBP_START:
Die Teilenummer wird aus der zuletzt benutzten Teilenummer (GV_teilnr) vorbelegt.
SBP_CLOSE:
Die aktuelle Teilenummer wird in der Globalvariablen GV_teilnr abgestellt.
iSBB211Teilestamm – Datei 6 (Teilestamm)
MEGLOOKUP-Special=211006: SDA211.CGW
SBB_AFTER_SELECT:
Keine Lagerstammsätze erfassen für Pseudoteile, Änderung des Status für Einmalteile unterbinden.
iSBB211AbgangsMengeAusStatistik – Datei 32 (Statistik)
MEGLOOKUP-Special=211032: SDA211.CGW
SBB_BEFORE_SELECT:
Die Jahreszahl (32/1) wird aus der Globalvariablen GV_termin vorbelegt.
SBB_AFTER_SELECT:
Aus der Lagerstatistik (Datei 32) wird der aktuelle bewertete Abgangswert (Feld 11) ins Anwenderfeld 28 des Lagerstamms übernommen. Dies geschieht bei jeder Anwahl eines Datensatzes. Im APPLEFRAME-Dialog für die Lagerstammbearbeitung muss dazu folgende Sektion ausgegeben werden:
[MegLookup STA]
Buffer=32
Table=32
Path=1
Special=211032
Parent=LAG
Required=No
Die Dateikopplung von Datei 24 auf Datei 32 ist in den Standarddaten schon hinterlegt. Es wird über Pfad 1 und die 6 Felder 003 (für Teil), 3 Konstanten mit Leerzeichen, Globalvariable GV_termin, Konstante 00 gekoppelt.
Hinweis: Die Kopplung läuft über die Teilenummer, also keine Übernahme der lagerspezifischen Umsätze, sonders es wird immer der Umsatz je Teil übernommen.
Die Applikation wird bei Firma Ehman eingesetzt. Über das DOS-Proramm LAGSTA werden dort beim Jahreswechsel die Umsatzzahlen über alle Lagerstammsätze in den Anwenderfeldern 28-31 (also Zahlen für die letzten 4 Jahre) zyklisch durchgereicht und im Anwenderfeld 28 wird initialisiert.
iSBF211StatusEingabe – Feld Status
MEGFIELD-Special=211001: Status – SDA211.CGW
SBF_CREATE_CHECK:
Im Erfassen wird Status = 'l' abgelehnt und mit Meldungsausgabe auf ' ' gesetzt.
SBF_MODIFY_CHECK:
Das Ändern des Status auf 'L', 'l', ' ' und 'E' ist immer erlaubt, andere Angaben werden mit Meldungsausgabe abgelehnt und auf den Ausgangswert zurückgesetzt
iSBF211Bestaende – Felder Melde- und Sicherheitsbestand abgleichen
MEGFIELD-Special=211006: Meldebestand – SDA211.CGW
MEGFIELD-Special=211007: Sicherheitsbestand – SDA211.CGW
SBF_CREATE_CHECK, SBF_MODIFY_CHECK:
Wenn im Lagerstamm der Meldebestand (24/6) kleiner als der Sicherheitsbestand (24,7) ist, wird mit Meldung auf den Sicherheitsbestand erhöht.