Seitenhistorie
...
Auszug |
---|
Wandelt einen AaqSatz mit 8034*Erwerbungsvormerkung in einen NDdatensatz zurück |
Hinweise/Fragen
Vorgeschlagener Funktionsname aus Anforderungsliste: EvzuAac |
|
Bis auf 3. Pos. der Satzart, dem Status in Feld 0599 und des Kennzeichens in Feld 7001 die gleiche Funktionalität wie EVzuAam! |
|
...
Datum | geändert von | Beschreibung |
---|---|---|
2011-06-17 | Althaus | neu erstellt |
2011-06-30 | Althaus | Selektionscode "a" in Kategorie 7001 |
Code
dnb_erwerbung.js
Codeblock |
---|
function EVzuAac() { __dnbEVumwandeln("c"); application.activeWindow.simulateIBWKey ("FR"); } |
...
Codeblock |
---|
function __dnbEVumwandeln(strMatStatus) { var dnbPromptstrVETermin = utility.newPrompter() __getProfVal("Erscheinttermin erfassen","vetermin","Bitte vorauss. Erscheinttermin (JJ.MM.TT) eingeben:"); var strDate str0599 = "\n0599 " + strMatStatus; var msgstr7001 = dnbPrompt.prompt("Funktion: EV umwandeln","Bitte vorauss. Erscheinttermin (JJ.MM.TT) eingeben:",strDate,null,null); "7001 " + strMatStatus; var str4208 = "\n4208 " + strVETermin if (strMatStatus == "m") { str0599 = "\n0599 e" + strMatStatus; str7001 = "7001 a"; } 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" application.activeWindow.title.startOfBuffer(false); __geheZuKatapplication.activeWindow.title.findTag("7001","",true, 0, false, true, false); application.activeWindow.title.insertText("\n7001 " + strMatStatusstartOfField(false); if (strMatStatus == "m") { strMatStatus = "e" + strMatStatusapplication.activeWindow.title.endOfField(true); application.activeWindow.title.insertText(str7001); } __geheZuKat("0599","",true); application.activeWindow.title.insertText("\n0599 " + strMatStatusstr0599); if (msgstrVETermin !== true"") { strDate = dnbPrompt.getEditValue(); { __geheZuKat("4208","",true); application.activeWindow.title.insertText("\n4208 " + strDatestr4208); } else { __dnbMeldung("EV umwandeln","Kein Erscheinttermin eingegeben. Kategorie 4208 wird nicht erzeugt!",""); } } } |
...
Überblick
Inhalte