Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
Die Publikation ist eindeutig nicht sammelpflichtig. (Daten ohne Bestand Fallgruppe 6). |
...
Aaqs, erzeugt durch Besetzung der Kategorie 0701 die Exemplarkategorie 8034 mit dem Standardvermerk „Gehoert eindeutig nicht zum Sammelgebiet der Deutschen Nationalbibliothek“ und ergänzt die Kategorie 4700 |ERW|Standort;Namenskürzel ***. Da die Funktion auch von anderen Abteilungen genutzt wird, ist die Bildung von 4700 $S (|...|) variabel. Falls die Kategorie 4700 bereits mit Abteilungskürzel des Bearbeiters existiert, wird neuer Text nur angehängt. Datensatz bleibt im Korrekturmodus (wg. Hinterlegen von Infos in 4700 und Überprüfung vor dem Abspeichern). Die Funktion kann auch im Batchmodus auf ein Suchset angewendet werden. |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-06-18 | Althaus | neu erstellt |
2011-06-30 | Althaus | Prüfung 4700 ergänzt |
Code
dnb_erwerbung.js
Codeblock |
---|
function Kein_Sammelgebiet_eindeutig() {
__eingabeKommentar("Gehoert eindeutig nicht zum Sammelgebiet der Deutschen Nationalbibliothek","s");
/* Lt. Frau Freidhof kann der Inhalt der 4700 wegfallen. Hier der VB-Code:
Application.ActiveWindow.Command "k", False
Call HoleDNBStandort(strStandort)
Call HoleKuerzel(strKuerzel)
Application.ActiveWindow.Title.InsertText vbcr & "4701 " & strStandort & "; " & strKuerzel & "#NSG :" & vbcr
Application.ActiveWindow.SimulateIBWKey "FR"
*/
}
|
dnb_public.js
Codeblock |
---|
function __eingabeKommentar(comment,kennzeichen) {
var Mahnstatus;
var strKuerzel = __getProfVal("Kürzel erfassen","kuerzel","Bitte geben Sie Ihr Bearbeiterkürzel ein.");
var strAbteilung = __getAbteilung();
var strStandort = __getStandort();
var boolCheck;
var str4700Teil1 = "4700 |" + strAbteilung + "|";
var str4700Teil2 = ";" + strKuerzel;
//var strContent4700 = "|" + strAbteilung + "|" + strStandort + ";" + strKuerzel;
var strContent4700 = "\n" + str4700Teil1 + str4700Teil2;
if (application.activeWindow.getVariable("scr") != "8A"){
__dnbFehler("Eingabekommentar","Der Datensatz muss sich in der Vollanzeige befinden!", "");
return;
} else {
var Kopie = application.activeWindow.copyTitle();
//application.messageBox("Kopie",Kopie,"");
if (Kopie == "") {
__dnbFehler("Retro","Es konnte keine Titelkopie erstellt werden","");
} else {
var Eingabe = "";
var Pos0500 = Kopie.indexOf("0500 ");
var Tag0500 = Kopie.substring(Pos0500,Kopie.indexOf("\n",Pos0500));
//application.messageBox("Tag0500",Tag0500,"");
var Satzart = Tag0500.substring(6,Tag0500.length-1);
var Pos0599 = Kopie.indexOf("0599 ");
var Tag0599 = Kopie.substring(Pos0599,Kopie.indexOf("\n",Pos0599));
if (Tag0599.indexOf("m") > 0) {
Mahnstatus = true;
}
//application.messageBox("",Satzart.length,"");
if ((Satzart == "ac") || (Satzart == "am")) {
application.activeWindow.command("k",false);
__dnbUpdMatStatus("q"+kennzeichen)
//application.messageBox("","q-Kennzeichnung","");
if (application.activeWindow.title.findTag("0599", 0, false, true, false)) {
if (!Mahnstatus) {
application.activeWindow.title.deleteLine(1);
//application.messageBox("","0599 löeschen","");
}
}
application.activeWindow.title.startOfBuffer(false);
boolCheck = application.activeWindow.title.find(str4700Teil1, false, false, false)
//application.messageBox("",boolCheck,"");
if (boolCheck) {
application.activeWindow.title.endOfField(false);
application.activeWindow.title.insertText(str4700Teil2);
} else {
application.activeWindow.title.startOfBuffer(false);
__geheZuKat("4700","",true);
application.activeWindow.title.insertText(strContent4700);
}
if (application.activeWindow.title.findTag("2100", 0, false, true, false)) {
application.activeWindow.title.deleteLine(1);
//application.messageBox("","2100 löschen","");
}
__geheZuKat("0701","",true);
if (application.activeWindow.title.findTag("0701", 0, false, true, false)) {
application.activeWindow.title.find("#", false, true, false);
//application.messageBox("","Text eingeben","");
application.activeWindow.title.insertText("\n0701 /q/@" + comment + "@#");
application.activeWindow.title.lineUp(1,false);
//application.messageBox("","Zeile löschen","");
application.activeWindow.title.deleteLine(1);
} else {
application.activeWindow.title.insertText("\n0701 /q/@" + comment + "@");
}
__geheZuKat("0701","",true);
//application.activeWindow.simulateIBWKey("FR");
if (kennzeichen != "s") {
application.activeWindow.simulateIBWKey("FR");
application.activeWindow.command("k e01",false);
application.activeWindow.title.endOfField(false);
application.activeWindow.title.insertText("\n4801 " + comment);
__dnbDeleteTag("8034");
application.activeWindow.simulateIBWKey("FR");
application.activeWindow.command("k",false);
__dnbDeleteTag("0701");
application.activeWindow.simulateIBWKey("FR");
}
} else {
__dnbFehler("Eingabekommentar","Diese Funktion lässt sich nur für die Datensatzarten\n\n" +
"- Aac\n- Aam\n- Bac\n- Oac\n- Kac\n- Sac\n- Zac\n\naufrufen!","");
}
}
}
}
|
VB-Script
...
2013-03-27 | Althaus | Überarbeitung bezügl. User-ILN aufgrund Jira-Ticket ILT-2226 |
2013-04-26 | Althaus | Überarbeitung der Beschreibung (Aaqs statt Aaq) |
2014-07 | Grund | Herstellung von Batchfähigkeit (ILT-3070) |
Code
dnb_erwerbung.js (Kein_Sammelgebiet_eindeutig())
dnb_public.js (__eingabeKommentar(comment,kennzeichen,batch))