Beschreibung
Das Tagesdatum wird am Ende des Feldes, in dem sich der Cursor befindet, in geschweiften Klammern eingefügt. Der Cursor muss in einem Feld 816 oder 818 stehen. Die Funktion darf nur im "Normsatz ändern"-Schirm eines Ts*-Satzes aufgerufen werden.
Historie
Datum |
geändert von |
Beschreibung |
---|---|---|
2011-03-05 |
Althaus |
neu erstellt |
Code
dnb_inhaltserschliessung.js
function swdddcdatum() { // Skript für die SE: Tagesdatum wird am Ende des Feldes, in dem sich der Cursor befindet, in 816 oder 818 in $g eingefügt (Anforderung Karg / Köhn / Scheven) var strDate = __makeDate(); var strMat = application.activeWindow.materialCode.substring(0,2); var strScreen = application.activeWindow.getVariable("scr"); if ((strScreen == "MI") && (strMat == "Ts")) { var strTag = application.activeWindow.title.tag; if ((strTag == "816") || (strTag == "818")) { var strTag = application.activeWindow.title.tag; application.activeWindow.title.endOfField(false); application.activeWindow.title.insertText(" {" + strDate + "}"); } else { __dnbFehler("Fehler","Die Funktion kann nur in den Feldern 816 oder 818 genutzt werden!!"); } } else { __dnbFehler("Fehler","Die Funktion kann nur von Satzart Ts* im Korrekturmodus aufgerufen werden!"); } }
VB-Code
'---------------------------------------------------------------------------------------- Sub swdddcdatum() '---------------------------------------------------------------------------------------- 'Skript für die SE: Tagesdatum wird am Ende des Feldes, in dem 'sich der Cursor befindet, in 816 oder 818 in $g eingefügt 'Anforderung Karg / Köhn / Scheven 'S. Grund, 27-Jan-2009 'Prüfung auf existierende Kategorie eingefügt, sonst Ausnahmefehler bei leerer Zeile ohne Feldname 'D Horst, 30-Mar-2009 boxtitel = "swdddcdatum" If Application.ActiveWindow.Title is Nothing then msgbox "Diese Funktion kann nur aus einem Eingabe- oder Korrekturbildschirm aufgerufen werden!", vbCritical, boxtitel Exit Sub End If kat = Application.ActiveWindow.Title.GetTag If kat = "" then msgbox "Diese Funktion kann nur in den Feldern 816 oder 818 genutzt werden." & vbcr & vbcr & _ "Bitte geben Sie zunächst eine der beiden Kategoriebezeichnungen ein!", vbCritical, boxtitel Exit Sub End If if kat <> 816 and kat <> 818 then msgbox "Diese Funktion kann nur in den Feldern 816 oder 818 genutzt 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 Application.ActiveWindow.Title.EndOfField Application.ActiveWindow.Title.InsertText " {" & ja & "-" & mo & "-" & ta & "}" End Sub
Überblick
Inhalte