Versionen im Vergleich

Schlüssel

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

...

Datum

geändert von

Beschreibung

2011-05-28

Althaus

neu erstellt

...

Code

dnb_

...

erwerbung.js

...

Codeblock
function NDDubletten() {

	var str2000 = "";
	var str2150 = "";
	var str4715 = "";
	var strDublette = "";
	
	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);
		__dnbUpdateStatusPos(1,"d",true)
		
		application.activeWindow.title.startOfBuffer(false);
		var i = 0
		var strTmp = application.activeWindow.title.findTag("2000", 0, false, true, false);
		while (strTmp != "") {
			str2000 = str2000 + strTmp + "\n";
			i = i+1;
			strTmp = application.activeWindow.title.findTag("2000", i, false, true, false);
			//application.messageBox("strTmp", strTmp , "");	
		}

		str2150 = application.activeWindow.title.findTag("2150", 0, false, true, false);

		application.activeWindow.title.startOfBuffer(false);
		var i = 0
		strTmp = application.activeWindow.title.findTag("4715", 0, false, true, false);
		while (strTmp != "") {
			str4715 = str4715 + strTmp + "\n";
			i = i+1;
			strTmp = application.activeWindow.title.findTag("4715", i, false, true, false);
			//application.messageBox("strTmp", strTmp , "");	
		}
	
	strDublette = str2000 + "\n" + str2150 + "\n" + str4715 + "\n";
	application.activeWindow.clipboard = strDublette;
	application.activeWindow.simulateIBWKey ("FR");
	}
}

...