Beschreibung
Neu: 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
{code}
//********************************************************************
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")
Unknown macro: { __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)
Unknown macro: { var af_kat = "100"; var z = 4; var gesp = "***GESPERRT***"; }
else if ("Ts".indexOf(typ) > -1)
Unknown macro: { var af_kat = "800"; var z = 7; var gesp = "!!!GESPERRT!!!"; }
else if ("Ts Tp Tn".indexOf(typ) < 0)
Unknown macro: { __dnbFehler(boxTit,"Aktueller Datensatz ist kein SWD/PND-Datensatz!"); return; }
//Satz bereits als Löschsatz gekennzeichnet?
if (__feldTest(af_kat,"","GESPERRT",false) == "i")
Unknown macro: { __dnbFehler(boxTit,"Aktueller Datensatz ist bereits gesperrt!"); return; }
if (__feldTest("010","","",false) == "i")
Unknown macro: { __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");
}
{code}
VB-Code
Überblick
Inhalte