Seitenhistorie
...
Auszug |
---|
Die Publikation zum Datensatz ist zur Zeit nicht zu beschaffen oder ist für DNB-F Handelsware, muss aber zur Prüfung auf Belegexemplar nach DNB-L geschickt werden. (Daten ohne Bestand Fallgruppe 2). |
Hinweise/Fragen/Anforderungen
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="5979712c-837c-4f92-99a3-f49cdebdb0ac"><ac:plain-text-body><![CDATA[ | Der Standard-Vermerk Erwerbungsvormerkung soll in den Exemplardatensätzen beider Standorte in einem eigenen Unterfeld von Feld 4801 stehen: 4801 [Unterfeld]Erwerbungsvormerkung |
| ]]></ac:plain-text-body></ac:structured-macro> |
Feld 8034 soll nicht mehr besetzt werden. |
|
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-06-18 | Althaus | neu erstellt |
Code
dnb_erwerbung.js
Codeblock |
---|
function Erwerbungsvormerkung() {
__eingabeKommentar("Erwerbungsvormerkung","");
}
|
dnb_public.js
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-06-18 | Althaus | neu erstellt |
2011-06-30 | Althaus | Prüfung 4700 ergänzt |
2011-07-04 | Althaus | Standardvermerk jetzt in 4801 statt 8034 |
Code
dnb_erwerbung.js
Codeblock |
---|
function Erwerbungsvormerkung() {
__eingabeKommentar("Erwerbungsvormerkung","");
}
|
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 |
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 strContent4700 = "|" + strAbteilung + "|" + strStandort + ";" + strKuerzel; 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.title.command("k",falsedeleteLine(1); __dnbUpdMatStatus("q"+kennzeichen) //application.messageBox("","q-Kennzeichnung2100 löschen",""); } __geheZuKat("0701","",true); if (application.activeWindow.title.findTag("05990701", 0, false, true, false)) { if (!Mahnstatus false)) { application.activeWindow.title.deleteLine(1find("#", false, true, false); //application.messageBox("","0599Text löescheneingeben",""); } } __geheZuKat("4700","",true); application.activeWindow.title.insertText("\n4700n0701 /q/@" + strContent4700comment + "@#"); //application.activeWindow.title.messageBoxlineUp("","4700 eingeben",""1,false); if (//application.activeWindow.title.findTag("2100", 0, false, true, false)) {messageBox("","Zeile löschen",""); application.activeWindow.title.deleteLine(1); } else { //application.messageBoxactiveWindow.title.insertText("","2100 löschen",""); \n0701 /q/@" + comment + "@"); } __geheZuKat("0701","",true); if ( //application.activeWindow.title.findTagsimulateIBWKey("0701", 0, false, true, false)) {FR"); application.activeWindow.title.find("#", false, true, false); if (kennzeichen != "s") { //application.activeWindow.messageBoxsimulateIBWKey("","Text eingeben","FR"); application.activeWindow.title.insertTextcommand("\n0701 /q/@" + comment + "@#"k e01",false); application.activeWindow.title.lineUpendOfField(1,false); // application.activeWindow.messageBoxtitle.insertText("","Zeile löschen",""); \n4801 " + comment); __dnbDeleteTag("8034"); application.activeWindow.title.deleteLine(1); simulateIBWKey("FR"); } else { application.activeWindow.title.insertTextcommand("\n0701 /q/@" + comment + "@"k",false); } __geheZuKatdnbDeleteTag("0701","",true); // 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!",""); } } } } |
...