Wartung / Maintencance - Upgrade Version 8.5.12 - Mittwoch/Wednesday - 2024-08-28 07:30-09:00 a.m.
Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
Die Funktion löscht das Exemplar des anderen Standortes sowie die Kategorie 4208 und ergänzt den bestehenden Datensatz um die Kategorien 0600, 1700, 4700, 8100 und 8510. Der Aufruf ist nur in der Vollanzeige möglich. Am Ende der Bearbeitung steht der Cursor in Kategorie 8100. 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 |
2011-07-13 | Althaus | statt 0701 wird am Ende des Datensatzes 8100 eingefügt |
Code
dnb_erwerbung.js
Codeblock |
---|
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 "); } } |
VB-Script
Codeblock |
---|
'******************************************************************** 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