Versionen im Vergleich

Schlüssel

  • Diese Zeile wurde hinzugefügt.
  • Diese Zeile wurde entfernt.
  • Formatierung wurde geändert.

...

Auszug

Fügt einen vorgeschriebenen Text an das Ende der Kategorie 4700 ein. Wenn bereits eine 4700 mit dem Abteilungskürzel existiert, wird der Text angehängt.
Ausgangsschirm: Vollanzeige

...

Datum

geändert von

Beschreibung

2011-06-17

Althaus

neu erstellt

2011-06-30

Althaus

Prüfung zu 4700 ergänzt

Code

dnb_erwerbung.js

Codeblock
function ErschEing() {

	var strDate = __makeDate();
	var strKuerzel = __getProfVal("Kürzel erfassen","kuerzel","Bitte geben Sie Ihr Bearbeiterkürzel ein.");
	var strAbteilung = __getAbteilung();
	var strStandort = __getStandort();
	var str4700 = "\n4700 |" + strAbteilung + "|" + strStandort + ";" + strKuerzel + "*Erscheinen eingestellt," + strDate;
	
	if (application.activeWindow.getVariable("scr") != "8A"){
		application.messageBox("Datensatzkopie","Der Datensatz muss sich in der Vollanzeige befinden!", "alert-icon");
	} else {
		application.activeWindow.command("k",false);
		application.activeWindow.title.startOfBuffer(false);
		if (application.activeWindow.title.find("4700 |" + strAbteilung + "|", false, false, false)) {
			application.activeWindow.title.endOfField(false);
			application.activeWindow.title.insertText(";" + strKuerzel + "*Erscheinen eingestellt," + strDate);
		} else {
			application.activeWindow.title.startOfBuffer(false);
			__geheZuKat("4700","",true);
			application.activeWindow.title.insertText(str4700);
		}
		application.activeWindow.simulateIBWKey ("FR");
	}
	
}				
Vorgabe
Codeblock
{Button Bearbeiten}
{MP Bearbeiten – Suchen: „4700“}
{FB Weitersuchen} („4700“ wurde markiert)
{FB Abbrechen}
{Cursor ans Ende der Zeile}
{„; L1.1.2:<Namenskürzel automat. eintragen>*Erscheinen eingestellt,<aktuelles Datum automat. eintragen>“
{Button Enter}

...