HBKauf

Sub HBKauf()
	On error resume next
	Dim K7002ff, SearchK7002, K7002

	K7002ff = vbcr &  "4801 " & vbcr & _
				"5301 " & vbcr & _
				"7109 !!HLS!! ; "


	Set WinA = Application.ActiveWindow
	if not WinA.Variable("scr") = "8A" then
		Fehler "Es liegt kein Datensatz in Vollanzeige vor!"
		exit sub
	end if

	CopyTitle = WinA.CopyTitle
	K7002 = mid(CopyTitle, instr(CopyTitle,"7002 "))
	K7002 = left(K7002, instr(K7002,vbcr))

	if	K7002 = "" then
		Fehler "Der Datensatz enthält kein Feld 7002!"
		exit Sub
	else

	WinA.Command "k", False
	SearchK7002 = WinA.Title.StartOfBuffer
	SearchK7002 = WinA.Title.FindTag ("7002", 0, True, True)

		WinA.Title.EndOfField
		WinA.Title.InsertText K7002ff
	end if

End Sub