Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
Erzeugt Kategorie 901 mit akt. Datum und 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";
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 + " *");
}
|
Funktion
Beschreibung
Code in WinIBW2 (Makro/VBScript)Sub
123
Code in WinIBW3 (Javascript)
...
Überblick
Inhalte