Beschreibung
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
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
'********************************************************************
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