Beschreibung
Die Funktion löscht das Exemplar des anderen Standortes sowie die Kategorie 4208 und ergänzt den bestehenden Datensatz um die Kategorien 0600, 0701, 1700, 4700 und 8510. Der Aufruf ist nur in der Vollanzeige möglich. Am Ende der Bearbeitung steht der Cursor in Kategorie 0701. Aus dem Benutzerprofil werden Länderkürzel (1700), Bearbeiterkürzel und Abteilung (4700) gelesen.
Historie
Datum |
geändert von |
Beschreibung |
---|---|---|
2011-06-30 |
Althaus |
neu erstellt |
Code
dnb_erwerbung.js
function ND_Eingang() { 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("8510","",true); application.activeWindow.title.insertText("\n8510 %ge"); __geheZuKat("0701","",true); application.activeWindow.title.insertText("\n0701 "); } }
dnb_public.js
function LoeExAndererSt() { if (application.activeWindow.getVariable("scr") != "8A"){ application.messageBox("Datensatzkopie","Der Datensatz muss sich in der Vollanzeige befinden!", "alert-icon"); } else { Wechseln(); application.activeWindow.command("loe e01",false); application.activeWindow.pressButton("1"); Zurueck(); } }
VB-Script
'******************************************************************** 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
Überblick
Inhalte