Aufruf: under construction

BOOLEAN = Lagerkorrektur()

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE Lagerkorrektur () AS Boolean
	*/ Durchführen einer Preiskorrektur des Lagers durch einen Lagerab- und Lagerzugang
	LOCAL lcDbf AS STRING , lcFilter AS STRING , lxFilter AS STRING, lcWhere AS STRING, loLK AS OBJECT , lcIdi32 AS STRING
	IF TYPE("m.Master")<>"C" OR EMPTY(m.Master) OR !USED(m.Master)
		RETURN .F.
	ENDIF
	lcDbf = JUSTSTEM(DBF(m.Master))
	IF NOT m.lcDbf $ ",B01,C66,K10,I40,"
		*/ Falscher Master
		RETURN .F.
	ENDIF
	*/ Die Weiteren Einstellungen zur Umbuchung
	loLK = My.AppForms.AppForms.AppLK(m.lcDbf)
	IF ISNULL(m.loLK)
		*/ Benutzerabbruch
		RETURN .F.
	ENDIF
	*/ Die Filter-Werte ermitteln
	lcFilter = FILTER(m.Master)								&& Hauptfilter
	lxFilter = IIF(TYPE("m.brow_for")="C",m.brow_for,"")	&& Nebenfilter
	DO CASE
		CASE !EMPTY(m.lcFilter) AND !EMPTY(m.lxFilter)
			lcFilter = "(" + m.lcFilter + ") AND (" + m.lxFilter + ")"
		CASE !EMPTY(m.lcFilter)
		CASE !EMPTY(m.lxFilter)
			lcFilter = m.lxFilter
		OTHERWISE
			lcFilter = ""
	ENDCASE
	lcFilter = STRTRAN(STRTRAN(STRTRAN(m.lcFilter,".AND."," AND "),".OR."," OR "),".NOT."," NOT ")
	*/ Die Where-Klausel ermitteln
	DO CASE
		CASE m.lcDbf = "B01"
			lxFilter = "b01.idb01='"+m.idb01+"'"
			lcWhere  = "I01.IDB01 IN (SELECT b01.idb01 FROM CDBFDIR!B01 WHERE 1=1)"
		CASE m.lcDbf = "C66"
			lxFilter = "c66.idc66='"+m.idc66+"'"
			lcWhere  = "I01.IDC66 IN (SELECT c66.idc66 FROM CDBFDIR!C66 WHERE 1=1)"
		CASE m.lcDbf = "I40"
			lxFilter = "i40.idi40='"+m.idi40+"'"
			lcWhere  = "I01.IDB01+I01.IDK10+I01.IDC66 IN (SELECT i41.idb01+i41.idk10+i41.idc66 FROM CDBFDIR!I41 WHERE i41.idi40 IN (SELECT i40.idi40 FROM CDBFDIR!I40 WHERE 1=1))"
		CASE m.lcDbf = "K10"
			lxFilter = "k10.idk10='"+m.idk10+"'"
			lcWhere  = "I01.IDK10 IN (SELECT k10.idk10 FROM CDBFDIR!K10 WHERE 1=1)"
	ENDCASE
	*/ Jetzt ausführen
	lcIdi32 = My.Bussines.MaWi.MaWi.I3xKorrektur(m.lcWhere,m.lxFilter,m.lcFilter,m.loLK,m.lcDbf)
	*/ Prüfung
	IF EMPTY(m.lcIdi32)
		*/ Ein Fehler ist aufgetreten
		=My.Bussines.MaWi.MaWi.DialogError(20000,.F.)
	ELSE
		=My.Clients.FireEvents.MenuHitExt("I3201",.NULL.,m.lcIdi32,"IDI32")
	ENDIF
ENDPROC