AufPosVerfueg()

AufPosVerfueg() – 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
0vollständig verfügbar
1teilweise verfügbar
2unbekannt (z.B. nicht lagergeführt)
3nicht verfügbar
4 teilweise anonym verfügbar (Lagerbestand bei -2 Artikeln teilw. vorhanden)
5 anonym verfügbar (Lagerbestand bei -2 Artikeln vorhanden)

Beispiel

CODE

| 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),