Versionen im Vergleich

Schlüssel

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

...

Datum

geändert von

Beschreibung

2011-06-17

Althaus

neu erstellt

...

Code

dnb_

...

erwerbung.js

...

Code
Codeblock
function EVzuAac() {

	__dnbEVumwandeln("c");
	application.activeWindow.simulateIBWKey ("FR");

}

dnb_public.js

Codeblock
	

function __dnbEVumwandeln(strMatStatus) {

	var dnbPrompt = utility.newPrompter();
	var strDate;
	var msg = dnbPrompt.prompt("Funktion: EV umwandeln","Bitte vorauss. Erscheinttermin (JJ.MM.TT) eingeben:",strDate,null,null);

	if (application.activeWindow.getVariable("scr") != "8A"){
		application.messageBox("Datensatzkopie","Der Datensatz muss sich in der Vollanzeige befinden!", "alert-icon");
	} else {

		LoeExAndererSt();
	
		application.activeWindow.command("k",false);
		__dnbUpdMatStatus(strMatStatus);
		__dnbDeleteTag("8034");
		__dnbDeleteTag("0701");
		__dnbDeleteTag("7001");
		__geheZuKat("7001","",true);
		application.activeWindow.title.insertText("\n7001 " + strMatStatus);

		if (strMatStatus == "m") {
			strMatStatus = "e" + strMatStatus;
		}
		__geheZuKat("0599","",true);
		application.activeWindow.title.insertText("\n0599 " + strMatStatus);

		if (msg == true)	{
			strDate = dnbPrompt.getEditValue();
			__geheZuKat("4208","",true);
			application.activeWindow.title.insertText("\n4208 " + strDate);
		} else {
			__dnbMeldung("EV umwandeln","Kein Erscheinttermin eingegeben. Kategorie 4208 wird nicht erzeugt!","");
		}
		
	} 

}

...