Funktion
Beschreibung
nur das Datum wird eingefügt
Zeile 6513 - 6555
Code in WinIBW2 (Makro/VBScript)Sub
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 "
"
End Sub