NormLoeschen

//********************************************************************
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");
}