Beschreibung

Die Funktion ändert den Status in 0599 in ck und ergänzt Feld 0600.

Historie

Datum

geändert von

Beschreibung

 

 

 

Neue Anforderungen

Datum

Anforderung von

Beschreibung

2011-02-21

Freidhof, Magda

Beim ND-Import wird jetzt der di-Code eingespielt. Dann kommt durch die Eincheckfunktion ein zusätzliches Feld mit dem Reihencode hinzu. Kann die Funktion so geändert werden, dass bei vorhandenem Feld 0600 der Reihencode an erster Stelle eingefügt wird?

Code

dnb_formalerschliessung.js

function ND_Anzeige () {

	if (application.activeWindow.getVariable("scr") != "8A"){
	application.messageBox("Datensatzkopie","Der Datensatz muss sich in der Vollanzeige befinden!", "alert-icon");
	return;
	}
	application.activeWindow.command("k",false);
	__dnbUpdateStatusPos(2,"k",false);
	application.activeWindow.title.insertText("\n0600 ");
	// application.activeWindow.title.startOfBuffer(false);
	// application.activeWindow.title.findTag("0600", 0, false, true, false);
	// application.activeWindow.title.endOfField(false);

}

function __dnbUpdateStatusPos(pos,status,newDate) {
/*--------------------------------------------------------------------------------------------------------
___dnbUpdateStatusPos(pos,status,newDate) 

Die interne Funktion 

Historie:
2010-08-09 Bernd Althaus		: erstellt
--------------------------------------------------------------------------------------------------------*/

	var intPos = pos - 1;
	var intWords = 1;
	application.activeWindow.title.startOfBuffer(false);
	application.activeWindow.title.findTag("0599", 0, false, true, false);
	var strDoppelpunkt = application.activeWindow.title.find(" : ", false, true, false);
	if (strDoppelpunkt == true) {
		if (newDate) {
			application.activeWindow.title.startOfField(false);
			application.activeWindow.title.wordRight(1,false);
			application.activeWindow.title.wordRight(2,true);
			application.activeWindow.title.deleteSelection();
		} else {
		intWords = 3;
		}
	} 
	application.activeWindow.title.startOfField(false);
	application.activeWindow.title.wordRight(intWords,false);
	application.activeWindow.title.charRight(intPos,false);
	application.activeWindow.title.endOfField(true);
	var altStatus = application.activeWindow.title.selection;
	if (altStatus == "m") {
		__dnbFehler("Falscher Status","Status 2. Pos. m darf nicht entfernt werden!");
//		application.activeWindow.simulateIBWKey ("FE");
	} else {
		application.activeWindow.title.deleteSelection();
		application.activeWindow.title.insertText(status);
	}
}

Seitenanfang

  • Keine Stichwörter