Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
...
Beschreibung
Auszug |
---|
Erzeugt Kategorie 901 mit akt. Datum und |
Zeile 2112 - 2147
Code in WinIBW2 (Makro/VBScript)Sub
...
den Verbünden als Mailboxempfänger |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-06-25 | Althaus | neu erstellt |
2011-07-01 | Althaus | Empfänger e-DE-613 wurde entfernt. |
Code
dnb_inhaltserschliessung.js
Codeblock |
---|
function Mailbox() {
__dnbMailbox(false);
}
|
dnb_public.js
Codeblock |
---|
function __dnbMailbox(answer) { if (!__isEditScreen("Mailbox","entry",false)) { application.messageBox("Mailbox", "Die Funktion muss aus dem Edit-Bildschirm für Normdaten aufgerufen werden.", "alert-icon"); return false; } var strStandort = __getStandort(); if ((strStandort != "DNB-F") && (strStandort != "DNB-L")) { __dnbFehler("Funktion: Mailbox","Standort unbekannt: " + strStandort + "\nMuss entweder DNB-F oder DNB-L sein!",""); return false; } var strAktDate = __makeDate(); var strMailboxPhrase = "\n901 " + strAktDate + " // a-DE-101-SE-" + strStandort.charAt(4) + " e-"; //application.messageBox("",strMailboxPhrase,""); var strMbxPhr1 = "AT-3:NOeLB e-AT-9:OBV-SE e-CH-000001-5 e-DE-1 e-DE-101-SE- |
...
"; var strMbxPhr2 = " e-DE-12-SE e-DE-188 |
...
e-DE-384-SE e-DE-576 e-DE-601-SE e-DE-603 e-DE-605-SE e-DE-612-SE |
...
Code in WinIBW3 (Javascript)
...
";
if (!answer) {
if (strStandort == "DNB-F") {
strMailboxPhrase = strMailboxPhrase + strMbxPhr1 + "L" + strMbxPhr2;
} else {
strMailboxPhrase = strMailboxPhrase + strMbxPhr1 + "F" + strMbxPhr2;
}
}
__geheZuKat("901","",true);
application.activeWindow.title.insertText(strMailboxPhrase + " *");
}
|
Überblick
Inhalte