Beschreibung
Die Kategorie 816 wird mit Tagesdatum in eckigen Klammern (Unterfeld $t) eingefügt. Falls bereits eine Kategorie 816 existiert wird die neue Kategorie dahinter eingefügt. Es muss sich um einen Ts*-Datensatz in der Vollanzeige oder im Korrekturmodus handeln.
Historie
Datum |
geändert von |
Beschreibung |
---|---|---|
2011-03-05 |
Althaus |
neu erstellt |
2011-07-01 |
Althaus |
Blank hinter Kategoriebezeichnung 816 entfernt (Mail Bernhard, 2011-07-01) |
Datei
dnb_scripts_01.js |
Code
function swdddc() { // Kategorie 816 wird mit Tagesdatum in $t eingefügt (Anforderung Karg / Köhn / Scheven) var boolGoOn = false; var strDate = __makeDate(); var strMat = application.activeWindow.materialCode.substring(0,2); if (application.activeWindow.getVariable("scr") == "8A") { application.activeWindow.command("k",false); boolGoOn = true; } else { if (application.activeWindow.getVariable("scr") == "MI") { boolGoOn = true; } } if (boolGoOn && (strMat == "Ts")) { __geheZuKat("816","",false); application.activeWindow.title.startOfField(false); application.activeWindow.title.insertText("816 [" + strDate + "]\n"); application.activeWindow.title.lineUp(1, false); application.activeWindow.title.startOfField(false); application.activeWindow.title.charRight(4,false); } else { __dnbFehler("Fehler","Die Funktion kann nur von Satzart Ts* im Korrekturmodus oder aus der Vollanzeige aufgerufen werden!"); } }
VB-Code
Sub swdddc() '---------------------------------------------------------------------------------------- 'Skript für die SE, entspricht dem CrissCross-Skript CrissX: WEnn 816 noch nicht vorhanden, wird es mit Tagesdatum in $t eingefügt 'Anforderung Karg / Köhn / Scheven 'S. Grund, 27-Jan-2009 boxtitel = "swdddc" if Application.ActiveWindow.Variable("scr") <> "8A" and Application.ActiveWindow.Variable("scr") <> "MI" then msgbox "Funktion kann nur aus Vollanzeige oder Korrekturanzeige eines Datensatzes aufgerufen werden!", vbCritical, boxtitel Exit Sub End If ja = year(date) mo = month(date) if len(mo) = 1 then mo = "0" & mo ta = day(date) if len(ta) = 1 then ta = "0" & ta Set WinA = Application.ActiveWindow If Application.ActiveWindow.DocType = "Ts" then 'Befindet sich Bildschirm im Korrekturmodus? Falls nein, "k" If Application.ActiveWindow.Title is Nothing then Application.ActiveWindow.Command "k" End If 'kat816 = WinA.Title.FindTag("816") 'Keine Prüfung, ob 816 bereits vorhanden, da manchmal Mehrfacheingabe 'if kat816 = "" then GeheZuKat "816","" Application.ActiveWindow.Title.StartOfField WinA.Title.InsertText "816 [" & ja & "-" & mo & "-" & ta & "]" & vbCr Application.ActiveWindow.Title.LineUp(1) Application.ActiveWindow.Title.StartOfField Application.ActiveWindow.Title.CharRight(4) 'Kat 816 bereits vorhanden 'Else 'msgbox "Datensatz bereits bearbeitet." & vbCr & """" & kat816 & """ vorhanden",vbCritical,boxtitel 'WinA.SimulateIBWKey("FE") 'End If Else MsgBox "Falsche Satzart: " & Application.ActiveWindow.DocType,vbCritical,boxtitel end if End Sub
Überblick
Inhalte