Aufruf: Abbuchen vom Lagerbestand

NUMBER = AbBuch(_lv_ux2_IP AS STRING , _lv_ux2_ID AS STRING , _lv_ux2_POS AS STRING , _lv_ux2_IDC31 AS STRING , _lv_ux2_IDB01 AS STRING , _lv_ux2_IDK10 AS STRING , _lv_ux2_IDC66 AS STRING , ;_lv_ux2_MENGE AS NUMBER , _lv_ux2_PREIS AS NUMBER , _lv_ux2_TGKM AS NUMBER , _lv_ux2_BUART AS STRING , _lv_ux2_WERT AS NUMBER , _lv_ux2_DATUM AS DATE , _lv_ux2_IDI21 AS STRING , ;_lv_ux2_RES AS BOOLEAN , _lv_ux2_DHD AS BOOLEAN)

Rückgabe: Abbuchen vom Lagerbestand

Rückgabe der Funktion: NUMBER

Code: Abbuchen vom Lagerbestand

PROCEDURE AbBuch (_lv_ux2_IP AS STRING,_lv_ux2_ID AS STRING,_lv_ux2_POS AS STRING,_lv_ux2_IDC31 AS STRING,_lv_ux2_IDB01 AS STRING,_lv_ux2_IDK10 AS STRING,_lv_ux2_IDC66 AS STRING,;
		_lv_ux2_MENGE AS NUMBER,_lv_ux2_PREIS AS NUMBER,_lv_ux2_TGKM AS NUMBER,_lv_ux2_BUART AS STRING,_lv_ux2_WERT AS NUMBER,_lv_ux2_DATUM AS DATE,_lv_ux2_IDI21 AS STRING,;
		_lv_ux2_RES AS Boolean,_lv_ux2_DHD AS Boolean) AS NUMBER
	*/ MAWI, Abbuchen vom Lagerbestand I01/I21
	LOCAL lnReturn,lcIdi21 AS STRING
	*/ Rückgabe = 0 | <>0. 0=Korrekt!
	=My.DATA.Tabellen.UnlockTables("I01;I20;I21",SET("Datasession"))
	lnReturn = My.Bussines.MaWi.MaWi.I01Sub(m._lv_ux2_IP,m._lv_ux2_ID,m._lv_ux2_POS,m._lv_ux2_IDC31,m._lv_ux2_IDB01,m._lv_ux2_IDK10,m._lv_ux2_IDC66,;
		M._lv_ux2_MENGE,m._lv_ux2_PREIS,m._lv_ux2_TGKM,m._lv_ux2_BUART,m._lv_ux2_WERT,m._lv_ux2_DATUM,@lcIdi21,;
		M._lv_ux2_RES,m._lv_ux2_DHD)
	IF m.lnReturn=0
		&_lv_ux2_IDI21 = m.lcIdi21
	ENDIF
	RETURN m.lnReturn
	* Bucht reservierte Artikel von einem Lager ab
ENDPROC