Tausch

function Tausch() {

	var strDate = __makeDate();
	
	Vergriffen();
	__geheZuKat("4700","",true);
	application.activeWindow.title.lineDown(1,false);
	application.activeWindow.title.endOfField(false);
	application.activeWindow.title.insertText("*an Tausch " + strDate);
	application.activeWindow.simulateIBWKey ("FR");
	application.activeWindow.command("dow u",false);

}

function Vergriffen() {

	__eingabeKommentar("vergriffen","");

}

function __eingabeKommentar(comment,kennzeichen) {

	var Mahnstatus;
	var strKuerzel = __getProfVal("Kürzel erfassen","kuerzel","Bitte geben Sie Ihr Bearbeiterkürzel ein.");
	var strAbteilung = __getAbteilung();
	var strStandort = __getStandort();
	var strContent4700 = "|" + strAbteilung + "|" + strStandort + ";" + strKuerzel;
	
	if (application.activeWindow.getVariable("scr") != "8A"){
		__dnbFehler("Eingabekommentar","Der Datensatz muss sich in der Vollanzeige befinden!", "");
		return;
	} else {
		var Kopie = application.activeWindow.copyTitle();
		//application.messageBox("Kopie",Kopie,"");
		if (Kopie == "") {
			__dnbFehler("Retro","Es konnte keine Titelkopie erstellt werden","");
		} else {
			var Eingabe = "";
			var Pos0500 = Kopie.indexOf("0500 ");
			var Tag0500 = Kopie.substring(Pos0500,Kopie.indexOf("\n",Pos0500));
			//application.messageBox("Tag0500",Tag0500,"");
			var Satzart = Tag0500.substring(6,Tag0500.length-1);
			var Pos0599 = Kopie.indexOf("0599 ");
			var Tag0599 = Kopie.substring(Pos0599,Kopie.indexOf("\n",Pos0599));
			if (Tag0599.indexOf("m") > 0) {
				Mahnstatus = true;
			}				
			//application.messageBox("",Satzart.length,"");	
			if ((Satzart == "ac") || (Satzart == "am")) {
				application.activeWindow.command("k",false);
				__dnbUpdMatStatus("q"+kennzeichen)
				//application.messageBox("","q-Kennzeichnung","");				
			if (application.activeWindow.title.findTag("0599", 0, false, true, false)) {
				if (!Mahnstatus) {
					application.activeWindow.title.deleteLine(1);
					//application.messageBox("","0599 löeschen","");	
				}
			}
			
			__geheZuKat("4700","",true);
			application.activeWindow.title.insertText("\n4700 " + strContent4700);
			//application.messageBox("","4700 eingeben","");	
	
			if (application.activeWindow.title.findTag("2100", 0, false, true, false)) {
				application.activeWindow.title.deleteLine(1);
				//application.messageBox("","2100 löschen","");	
			}
			__geheZuKat("0701","",true);
			if (application.activeWindow.title.findTag("0701", 0, false, true, false)) {
				application.activeWindow.title.find("#", false, true, false);
				//application.messageBox("","Text eingeben","");	
				application.activeWindow.title.insertText("\n0701 /q/@" + comment + "@#");
				application.activeWindow.title.lineUp(1,false);
				//application.messageBox("","Zeile löschen","");	
				application.activeWindow.title.deleteLine(1);		
				
			} else {
				application.activeWindow.title.insertText("\n0701 /q/@" + comment + "@");
			}
			__geheZuKat("0701","",true);
			//application.activeWindow.simulateIBWKey("FR");
	
			} else {			
				__dnbFehler("Eingabekommentar","Diese Funktion lässt sich nur für die Datensatzarten\n\n" +
							"- Aac\n- Aam\n- Bac\n- Oac\n- Kac\n- Sac\n- Zac\n\naufrufen!","");
			}
		}
	}
}

TauschAac:
{ Funktion „vergriffen“}
{Button Bearbeiten}
{Cursor ans Ende des Datensatzes}
{„4700 |ERW| <Namenskürzel automat. eintragen>*an Tausch <Tagesdatum automat. eintragen>“
{Button Enter}
{In Kommandozeile „dow u“}
{Button Enter}

TauschAam:
{ Funktion „vergriffen“ }
{Button Bearbeiten}
{MP Bearbeiten – Suchen: „4700 |ERW|“}
{FB Weitersuchen} („4700“ wurde markiert)
{FB Abbrechen}
{Cursor ans Ende der Zeile}
{„, an Tausch <Tagesdatum automat. eintragen>“}
{Button Enter}
{In Kommandozeile „dow u“}
{Button Enter}