Aufruf: Reservieren vom Lagerbestand

NUMBER = RESERV(_lv_lm9_IDB01 AS STRING , _lv_lm9_IDK10 AS STRING , _lv_lm9_IDC66 AS STRING , _lv_lm9_MENGE AS NUMBER , _lv_lm9_IDI20 AS STRING)

Rückgabe: Reservieren vom Lagerbestand

Rückgabe der Funktion: NUMBER

Code: Reservieren vom Lagerbestand

PROCEDURE RESERV (_lv_lm9_IDB01 AS STRING,_lv_lm9_IDK10 AS STRING,_lv_lm9_IDC66 AS STRING,_lv_lm9_MENGE AS NUMBER,_lv_lm9_IDI20 AS STRING) AS NUMBER
	*/ MAWI, Reservieren eines Bestandes
	*/ Rückgabe = 0 | <>0. 0=Korrekt!, >0 I20.MENGE_I wenn IDI20 angegeben, <0=Fehler
	=My.DATA.Tabellen.UnlockTables("I01;I20",SET("Datasession"))
	RETURN My.Bussines.MaWi.MaWi.I01Reserv(m._lv_lm9_IDB01,m._lv_lm9_IDK10,m._lv_lm9_IDC66,m._lv_lm9_MENGE,m._lv_lm9_IDI20)
ENDPROC