Beschreibung

Der Datensatz wird als vergriffen gekennzeichnet, eine standardisierte Bemerkung wird in 4700 eingebracht und der Download ausgelöst.
Ausgangsschirm: Vollanzeige

Hinweise/Fragen

Vorgeschlagener Funktionsname aus Anforderungsliste: TauschAac, TauschAam

 

Gleiche Funktionalität der Funktionensvorgaben TauschAac und TauschAam?

 

Historie

Datum

geändert von

Beschreibung

2011-06-17

Althaus

neu erstellt

2011-06-30

Althaus

Prüfung Kategorie 4700 ergänzt

2011-07-08

Althaus

standardisierter Text bei Daten ohne Bestand jetzt in Feld 4801 statt 8034

Code

dnb_erwerbung.js

function Tausch() {

	var strDate = __makeDate();
	var strKuerzel = __getProfVal("Kürzel erfassen","kuerzel","Bitte geben Sie Ihr Bearbeiterkürzel ein.");

	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);
		var strMatCode = application.activeWindow.title.findTag("0500", 0, false, true, false);
		//application.messageBox("",strMatCode,"");
		application.activeWindow.simulateIBWKey ("FE");
		
		if ((strMatCode == "Aac") || (strMatCode == "Aam")) {
			Vergriffen();
			
			application.activeWindow.title.startOfBuffer(false);
			if (application.activeWindow.title.find("4700 |ERW|", false, false, false)) {
				application.activeWindow.title.endOfField(false);
				application.activeWindow.title.insertText("*an Tausch " + strDate);
			} else {
				application.activeWindow.title.startOfBuffer(false);
				__geheZuKat("4700","",true);
				application.activeWindow.title.insertText("\n4700 |ERW|" + strKuerzel + ";*an Tausch " + strDate);
			}
		
		} else { 
			__dnbFehler("Tausch","Die Funktion kann nur bei Datensätzen der Satzart Aac oder Aamausgeführt werden!","");
			application.activeWindow.simulateIBWKey ("FE");
			return false;
		}
	}
	
	application.activeWindow.simulateIBWKey ("FR");
	application.activeWindow.command("dow u",false);

}

dnb_public.js

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 boolCheck;
	var str4700Teil1 = "4700 |" + strAbteilung + "|";
	var str4700Teil2 = ";" + strKuerzel;
	//var strContent4700 = "|" + strAbteilung + "|" + strStandort + ";" + strKuerzel;
	var strContent4700 = "\n" + str4700Teil1 + str4700Teil2;
	
	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","");	
					}
				}
				
				application.activeWindow.title.startOfBuffer(false);
				boolCheck = application.activeWindow.title.find(str4700Teil1, false, false, false)
				//application.messageBox("",boolCheck,"");
				if (boolCheck) {
					application.activeWindow.title.endOfField(false);
					application.activeWindow.title.insertText(str4700Teil2);
				} else {
					application.activeWindow.title.startOfBuffer(false);
					__geheZuKat("4700","",true);
					application.activeWindow.title.insertText(strContent4700);
				}
		
				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");
				
				if (kennzeichen != "s") {
					application.activeWindow.simulateIBWKey("FR");
					application.activeWindow.command("k e01",false);
					application.activeWindow.title.endOfField(false);
					application.activeWindow.title.insertText("\n4801 " + comment);
					__dnbDeleteTag("8034");
					application.activeWindow.simulateIBWKey("FR");
					application.activeWindow.command("k",false);
					__dnbDeleteTag("0701");
					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!","");
			}
		}
	}
}

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

Seitenanfang

  • Keine Stichwörter