Verfügbarkeit einer Auftragsposition
Die Funktion prüft die Verfügbarkeit einer Auftragsposition. Beide Tabellen müssen vor dem Funktionsaufruf entsprechend positioniert worden sein.
|
Parameter |
Beschreibung |
|---|---|
|
oDab055:O |
DAB055 Auftragsposition (Datei 4) |
|
oDab010:O |
DAB010 Artikelstamm (Datei 2) |
Rückgabewert
Numerisch:
0 - vollständig verfügbar
1 - teilweise verfügbar
2 - unbekannt (z.B. nicht lagergeführt)
3 - nicht verfügbar
4 - teilweise anonym verfügbar (Lagerbestand bei -2 Artikeln teilw. vorhanden)
5 - anonym verfügbar (Lagerbestand bei -2 Artikeln vorhanden)
Beispiel
| oDM, oDab010, oDab055, aAvail |
aAvail := -1,
oDM := CreateObject('TBeDBGet'),
oDab010 := DbGetTable(oDM, waDab010, ''),
oDab055 := DbGetTable(oDM, waDab055, ''),
// Positionierung auf Artikel
DBSEEK({'ARTIKEL'},oDab010),
// Positionierung auf Auftragsposition
DBSEEK({'100001 1'},oDab055),
nVerf := AufPosVerfueg(oDab055, oDab010),
case nVerf
of 0 :: writeln('vollständig Verfügbar'),
of 1 :: writeln('teilweise verfügbar'),
of 2 :: writeln('unbekannt'),
of 3 :: writeln('nicht verfügbar'),
of 4 :: writeln('teilweise anonym verfügbar'),
of 5 :: writeln('anonym verfügbar'),
endcase,
DestroyObject(oDM),