NDEingang

function NDEingang() {

	var strKuerzel = __getProfVal("Kürzel erfassen","kuerzel","Bitte geben Sie Ihr Bearbeiterkürzel ein.");
	var strAbteilung = __getAbteilung();
	var strLandKuerzel = __getProfVal("Länderkürzel erfassen","land","Bitte geben Sie das Länderkürzel ein.");
	
	if (application.activeWindow.getVariable("scr") != "8A"){
		application.messageBox("Datensatzkopie","Der Datensatz muss sich in der Vollanzeige befinden!", "alert-icon");
	} else {
	
		LoeExAndererSt();
		application.activeWindow.command("k",false);
		
		__dnbDeleteTag("4208");
		
		__geheZuKat("0600","",true);
		application.activeWindow.title.insertText("\n0600 r");

		__geheZuKat("1700","",true);
		application.activeWindow.title.insertText("\n1700 /1" + strLandKuerzel);

		__geheZuKat("4700","",true);
		application.activeWindow.title.insertText("\n4700 |" + strAbteilung + "|" + strKuerzel);
		
		//__geheZuKat("0701","",true);
		//application.activeWindow.title.insertText("\n0701 ");
		
		application.activeWindow.title.endOfBuffer(false);
		application.activeWindow.title.insertText("\n8510 %ge\n8100 ");
		
	} 

}

'********************************************************************
Sub ND_Eingang()
'********************************************************************
	Dim strKennung, strPasswort, strIDN, strKuerzel, strKategorie, strLand
	Const strText1 = "Beim 1.Aufruf der Funktion müssen Sie bitte Ihre WinIBW-Kennung eingeben."
	Const strText2 = "Beim 1.Aufruf der Funktion müssen Sie bitte Ihr WinIBW-Passwort eingeben."
	Const strTitel = "ND_Eingang"

	on error resume next
	Call HoleKuerzel(strKuerzel)
	Call HoleAbteilung(strAbteilung)
	strKennung = Application.GetProfileString("UserSettings","Kennung","?")
	If strKennung = "?" Then
		Do until (strKennung <> "?")
			strKennung = Trim(InputBox(strText1,strTitel))
		Loop
		Application.WriteProfileString "UserSettings","Kennung",strKennung
	End If
	strPasswort = Application.GetProfileString("UserSettings","Passwort","?")
	If strPasswort = "?" Then
		Do until (strPasswort <> "?")
			strPasswort = Trim(InputBox(strText2,strTitel))
		Loop
		Application.WriteProfileString "UserSettings","Passwort",strPasswort
	End If
	strLand = Application.GetProfileString("UserSettings","Landkuerzel","")
	strIDN = Application.ActiveWindow.Variable("P3GPP")	' merke aktuelle IDN
	Application.ActiveWindow.Command "log exemplardbl exemplardbl", False	' False = kein neues Fenster öffnen
	Application.ActiveWindow.Command "f idn " & strIDN
	If strIDN = Application.ActiveWindow.Variable("P3GPP") Then
		Application.ActiveWindow.Command "loe e1"	' Lösche Exemplardatensatz
		Application.ActiveWindow.SimulateIBWKey "F5"	' Löschen
		Application.ActiveWindow.Command "log " & strKennung & " " & strPasswort, False	' False = kein neues Fenster öffnen
		Application.ActiveWindow.Command "f idn " & strIDN
		Application.ActiveWindow.SimulateIBWKey "F7"	' Bearbeiten
		strKategorie = Application.ActiveWindow.Title.Findtag("4208",0,True,True) ' Cursor am Anfang der gefundenen Zeile
		If Left(strKategorie,4) = "4208" Then	' Zeile löschen
			Application.ActiveWindow.Title.DeleteLine
		End If
		Application.ActiveWindow.Title.EndOfBuffer False		' ans Ende ohne Markierung
		Application.ActiveWindow.Title.InsertText "0600 r" & vbCrLf
		Application.ActiveWindow.Title.InsertText "1700 /1" & strLand & vbCrLf
		Application.ActiveWindow.Title.InsertText "4700 |" & strAbteilung & "|" & strKuerzel & vbCrLf
		Application.ActiveWindow.Title.InsertText "8510 %ge" & vbCrLf
		Application.ActiveWindow.Title.InsertText "0701 "
	Else
		MsgBox "Gleiche IDN " & strIDN & " nicht gefunden",vbOKOnly+vbExclamation,"Funktion ND_Eingang"
	End If
End Sub