Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
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
...
Sub
Code in WinIBW3 (Javascript)
dnb_inhaltserschliessung.js
Codeblock |
---|
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
Codeblock |
---|
'----------------------------------------------------------------------------------------
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