Aufruf: under construction

NUMBER = ZuBuch(_lv_2bw_IP AS STRING , _lv_2bw_ID AS STRING , _lv_2bw_POS AS STRING , _lv_2bw_IDC31 AS STRING , _lv_2bw_IDB01 AS STRING , _lv_2bw_IDK10 AS STRING , _lv_2bw_IDC66 AS STRING , ;_lv_2bw_MENGE AS NUMBER , _lv_2bw_PREIS AS NUMBER , _lv_2bw_TGKM AS NUMBER , _lv_2bw_BUART AS STRING , _lv_2bw_WERT AS NUMBER , _lv_2bw_DATUM AS DATE , _lv_2bw_IDI21 AS STRING , ;_lv_2bw_RES AS BOOLEAN , _lv_2bw_IPB01 AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: NUMBER

Code: under construction

PROCEDURE ZuBuch (_lv_2bw_IP AS STRING,_lv_2bw_ID AS STRING,_lv_2bw_POS AS STRING,_lv_2bw_IDC31 AS STRING,_lv_2bw_IDB01 AS STRING,_lv_2bw_IDK10 AS STRING,_lv_2bw_IDC66 AS STRING,;
		_lv_2bw_MENGE AS NUMBER,_lv_2bw_PREIS AS NUMBER,_lv_2bw_TGKM AS NUMBER,_lv_2bw_BUART AS STRING,_lv_2bw_WERT AS NUMBER,_lv_2bw_DATUM AS DATE,_lv_2bw_IDI21 AS STRING,;
		_lv_2bw_RES AS Boolean,_lv_2bw_IPB01 AS STRING) AS NUMBER
	*/ MAWI, Zubuchen von Bestand
	LOCAL lcIdi21 AS STRING,lnReturn AS NUMBER
	*/ Rückgabe = 0 | <>0. 0=Korrekt!
	=My.DATA.Tabellen.UnlockTables("I01;I20;I21",SET("Datasession"))
	lnReturn = My.Bussines.MaWi.MaWi.I01Add(m._lv_2bw_IP,m._lv_2bw_ID,m._lv_2bw_POS,m._lv_2bw_IDC31,m._lv_2bw_IDB01,m._lv_2bw_IDK10,m._lv_2bw_IDC66,;
		M._lv_2bw_MENGE,m._lv_2bw_PREIS,m._lv_2bw_TGKM,m._lv_2bw_BUART,m._lv_2bw_WERT,m._lv_2bw_DATUM,@lcIdi21,m._lv_2bw_RES,m._lv_2bw_IPB01)
	IF m.lnReturn=0
		&_lv_2bw_IDI21=m.lcIdi21
	ENDIF
	RETURN m.lnReturn
	* mbb_ip  Buchungsschlüssel
	* mbb_id  idD40 Kopf Bestellung
	* mbb_pos  idD52 Wareneingangposition(aus Cursor)
	* mbb_idc31 Kostenstelle (SPACE(6))
	* mbb_idb01 Artikel-ID
	* mbb_idK10 Projekt-Nr.; #########=Wareneingangspunkt !!!!
	* mbb_idC66 Lager-ID
	* mbb_menge aus ll_mgbu ???
	* mbb_preis Lagerpreis ( m.pr_la)
	* mbb_tgkm Gemeinkosten Material (hier 0.0)
	* mbb_buart "ZBE"=Zugang aus Bestellung
	* mbb_wert Verbuchungswert (m.wev) ??
	* mbb_datum  My.xDate  ????????     Buchungsdatum wovon ?????????
	* mbb_idi21 "m.idi21" Lagerbewegungen physisch
	* mbb_res  .T. / .F. Menge wird automatisch reserviert, Menge wird nicht reserviert
ENDPROC