Beschreibung
Korrigiert erstmals abgespeicherte Afa und Aaa-Sätze der Kaufstelle Frankfurt zum Unterdrücken der Pflichtexemplar-Routine.
Bearbeitet nur Afa- oder Aaa-Datensätze. Löscht Kategorie 0701, ersetzt Kategorie 7001 durch 7002, fügt die Kategorien "7002 xxh", "7100 HB" und "8510" ein. Der Cursor steht am Ende in Feld 8510 nach einem Blank.
Historie
Datum |
geändert von |
Beschreibung |
---|---|---|
2011-06-18 |
Althaus |
neu erstellt |
Code
dnb_erwerbung.js
function IntMonokorrKauf() { var strKuerzel = __getProfVal("Kürzel erfassen","kuerzel","Bitte geben Sie Ihr Bearbeiterkürzel ein."); var strAbteilung = __getAbteilung(); var strContent4700 = "|" + strAbteilung + "|" + strKuerzel; if (application.activeWindow.getVariable("scr") != "8A"){ application.messageBox("Datensatzkopie","Der Datensatz muss sich in der Vollanzeige befinden!", "alert-icon"); return; } var Kopie = application.activeWindow.copyTitle(); //application.messageBox("Kopie",Kopie,""); if (Kopie == "") { __dnbFehler("","Es konnte keine Titelkopie erstellt werden",""); } else { var Pos0500 = Kopie.indexOf("0500 "); var Tag0500 = Kopie.substring(Pos0500,Kopie.indexOf("\n",Pos0500)); //application.messageBox("Tag0500",Tag0500,""); var Satzart = Tag0500.substring(5,Tag0500.length-1); if ((Satzart == "Afa") || (Satzart == "Aaa")) { application.activeWindow.command("k",false); if (application.activeWindow.title.findTag("0701", 0, true, true, false)) { application.activeWindow.title.deleteSelection(); //application.messageBox("", "4208 vorhanden und gelöscht?", ""); } if (application.activeWindow.title.findTag("7001", 0, true, true, false)) { application.activeWindow.title.startOfField(false); application.activeWindow.title.wordRight(1,false); application.activeWindow.title.charLeft(2,false); application.activeWindow.title.endOfField(true); application.activeWindow.title.insertText("2 xxh\n7100 HB\n8510 "); } } else { application.messageBox("", "Nur Satzarten Afa und Aaa werden bearbeitet!",""); } } }
Vorgabe
Korrigiert erstmals abgespeicherte Afa und Aaa-Sätze der Kaufstelle Frankfurt zum Unterdrücken der Pflichtexemplar-routine Ausgangsbildschirm: Titeldatensatz mit 0500 Afa oder Titeldatensatz mit 0500 Aaa Vollanzeige o löscht in Afa-Satz oder Aaa-Satz Feld 0701 o ersetzt Feld 7001 durch 7002 o fügt in 7002 nach Blank ein: xxh o fügt Feld 7100 HB ein o fügt Feld 8510 ein o Cursor sollte in Feld 8510 nach einem Blank stehen Code: k{ENTER}{Alt+F3}0701{Alt+W}{ESCAPE} {Ctrl+Y}{Alt+F3}7001{Alt+W}{ESCAPE} {RIGHT}{Shift+END}{DELETE}{BACKSPACE} {BACKSPACE}2{RIGHT} xxh{ENTER}7100 HB {Ctrl+END}8510
Überblick
Inhalte