Beschreibung

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

Hinweise/Fragen

Vorgeschlagener Funktionsname aus Anforderungsliste: EE

 

4700 mit neuer Struktur: 4700 |ERW|DNB-L;kz*Erscheinen eingestellt, 2011-05-31

 

Historie

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

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
{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}

Seitenanfang

  • Keine Stichwörter