function TuAusTtl() { __normAusTtl("Tu"); } function __normAusTtl(ent) { /*-------------------------------------------------------------------------------------------------------- Soll TpAusTtl und TnAusTtl ersetzen und auf weitere Materialarten erweitern. Wird jeweils mit Übergabe der Entität "ent", die erstellt werden soll, aufgerufen Alte Beschreibung: Die Funktion kopiert den Personennamen der aktuellen Kategorie, ruft die PND-Tp-Datenmaske auf, fügt den Personennamen in Kategorie 100 ein und positioniert in Kategorie 043. Nach dem manuellen Speichern kann die Verknüpfung im Titeldatensatz mit der Funktion holeIDN realisiert werden. Verwendete Unterfunktionen: DatenmaskeTp/Tn/Tf/Tb/Tu/Tg Historie: 2006-12-15 Detlev Horst : erstellt 2010-08-12 Bernd Althaus : Verwendung der Unterfunktion DatenmaskeTp 2011-11-15 Stefan Grund : Anpassungen fuer GND 2013-03-22 Stefan Grund : Erweiterung auf alle GND-Entitäten --------------------------------------------------------------------------------------------------------*/ var normStr; var boxtit = ent + "AusTtl"; if (!application.activeWindow.title) { __dnbFehler(boxtit,"Funktion kann nur aus der Korrektur- oder Erfassungsanzeige aufgerufen werden!"); return(false); } var matArt = application.activeWindow.title.findTag("0500",0,false,false,false).substr(0,1); //1. Pos. Materialart, um DEA erkennen zu können if (matArt == "") { __dnbFehler(boxtit,"Die Funktion kann erst nach Erfassen einer Materialart in 0500 aufgerufen werden!"); return(false); } application.activeWindow.title.startOfField(false); application.activeWindow.title.wordRight(1, false); application.activeWindow.title.endOfField(true); normStr = application.activeWindow.title.selection; if (ent == "Tp") { if ("D H L Q V".indexOf(matArt) > -1) { DatenmaskeTpdea(); } else { DatenmaskeTp(); } afField = "100"; } else if ((ent == "Tn") || (ent == "TnStop")){ if ("D H L Q V".indexOf(matArt) > -1) { DatenmaskeTndea(); } else { DatenmaskeTn(); } afField = "100"; } else if (ent == "Tb") { DatenmaskeTb(); afField = "110"; } else if (ent == "Tf") { DatenmaskeTf(); afField = "111"; } else if (ent == "Tg") { DatenmaskeTg(); afField = "151"; } else if (ent == "Tu") { if ((aut1 = application.activeWindow.title.findTag("3000",0,true,false,false)) || (aut1 = application.activeWindow.title.findTag("3100",0,true,false,false))) { aut1 = aut1.replace(/3(\d)00 /,"5$10 ") aut1 = aut1.replace(/^(\d\d\d) (!.*?!).*/,"$1 $2$4aut1") } DatenmaskeTulev3(); if (aut1 != "") { __geheZuKat(aut1,"",true); application.activeWindow.title.insertText(aut1.substr(4)); } //titende = (normStr.indexOf(" : ") or normStr.indexOf(" / ")); //normStr = normStr.replace(/(.*)[\/]? ?/,"$1"); normStr = normStr.replace(/(.*?) [:\/].*/,"$1"); afField = "130"; } __geheZuKat(afField,"",true); application.activeWindow.title.insertText(normStr); //Bei Tn kann gleich verknüpft werden. Sonst bleibt Normdatensatz im Editiermodus. Bei TnStop wird noch 400 hinzugefügt if (ent == "Tn") { application.activeWindow.simulateIBWKey("FR"); tnPPN = "!" + (application.activeWindow.getVariable("P3GPP")) + "!"; application.activeWindow.closeWindow(); application.activeWindow.title.insertText(tnPPN); return; } else if (ent == "TnStop") { application.activeWindow.title.insertText("\n400 "); } else { application.activeWindow.title.findTag("008", 0, false, true, false); } } maskeTulev3 005 Tu3 008 wit 011 f 040 $erda 130 ++ 380 430 500 510 511 530 548 551 670 679