EP1

Sub EP1()

	Dim K4083, K5301, K7109, SearchK5301, SearchK7001, co7001

	'K4083 = vbcr & "4083 Zugriff auf Publikation im MMB: =A http://mmb.ddb.de/"
	K4083 = vbcr & application.LatinToPica("4083 Zugriff auf Publikation über das Bereitstellungssystem: =A http://mmb.ddb.de/")
	'K5301 = vbcr & "5301 "
	K5301 = vbcr & application.LatinToPica("5301 ")
	'K7109 = vbcr & "7109 !!MLS!! ; "
	K7109 = vbcr & application.LatinToPica("7109 !!MLS!! ; ")


	On error resume next

	'Vollanzeige des Ausgangsdatensatzes erzwingen

	Set WinA = Application.ActiveWindow

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

	WinA.Command "k", False


	SearchK7001 = WinA.Title.StartOfBuffer
	SearchK7001 = WinA.Title.FindTag ("7001", 0, True, True)
	'msgbox SearchK7001
	if 	SearchK7001 <> "" then
		WinA.Title.WordRight 3
		WinA.Title.EndOfField true
		co7001 = WinA.Title.GetSelection
		'msgbox co7001
			if co7001 = "x" then
				WinA.Title.DeleteSelection
				WinA.Title.InsertText "xxp" & K7109 & K4083
			else
				WinA.Title.EndOfField
				WinA.Title.InsertText K7109 & K4083
			end if
	end if

	SearchK5301 = WinA.Title.StartOfBuffer
	SearchK5301 = WinA.Title.FindTag ("5301", 0, True, True)
		if 	SearchK5301 <> "" then
		'WinA.Title.FindTag "5301", 0, True, True
		WinA.Title.EndOfField
	Else
		WinA.Title.StartOfBuffer
		WinA.Title.FindTag "7109", 0, True, True
		WinA.Title.EndOfField
		WinA.Title.InsertText K5301
	End if
End Sub