Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
Die Funktion fügt Änderungscodierung und "GESPERRT" in Normdatensätze ein. |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2010 | Grund | erstellt |
Datei
dnb_authorities.js |
Code
Codeblock |
---|
//******************************************************************** function NormLoeschen() { /*-------------------------------------------------------------------------------------------------------- normLoeschen () Die Funktion fügt Änderungscodierung und "GESPERRT" in Normdatensätze ein typ = Materialart af_kat = Feld, in der die Ansetzungsform steht z = Anzahl der Schritte vom Zeilenanfang, die zur Eingabe von GESPERRT zurückgelegt werden müssen gesp = PND mit ***, SWD mit !!! Mögliche Erweiterung: Integration mit Löschfunktion für Titeldaten: SetzeStatusd Verwendete Unterfunktionen: __dnbFehler(), __feldTest(), __geheZuKat() Historie: 2010-04-01 Stefan Grund : erstellt --------------------------------------------------------------------------------------------------------*/ var boxTit = "Normdatensatz löschen"; if (application.activeWindow.getVariable("scr") != "8A") { __dnbFehler(boxTit,"Es liegt kein Datensatz in Vollanzeige vor!"); return; } //SWD- oder PND-Satz? var typ = application.activeWindow.materialCode; if ("Tn Tp".indexOf(typ) > -1) { var af_kat = "100"; var z = 4; var gesp = "***GESPERRT***"; } else if ("Ts".indexOf(typ) > -1) { var af_kat = "800"; var z = 7; var gesp = "!!!GESPERRT!!!"; } else if ("Ts Tp Tn".indexOf(typ) < 0) { __dnbFehler(boxTit,"Aktueller Datensatz ist kein SWD/PND-Datensatz!"); return; } //Satz bereits als Löschsatz gekennzeichnet? if (__feldTest(af_kat,"","GESPERRT",false) == "i") { __dnbFehler(boxTit,"Aktueller Datensatz ist bereits gesperrt!"); return; } if (__feldTest("010","","",false) == "i") { __dnbFehler(boxTit,"Es ist bereits eine Änderungscodierung vorhanden!"); return; } application.activeWindow.command("k",false); application.activeWindow.title.insertText("010 d\n"); __geheZuKat(af_kat,"",true); application.activeWindow.title.startOfField(false); application.activeWindow.title.charRight(z,false); application.activeWindow.title.insertText(gesp); application.activeWindow.simulateIBWKey("FR"); } |
VB-Code
Codeblock |
---|
Überblick
Inhalte