Seitenhistorie

(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
&nbsp; if kat <> 816 and kat <> 818 then
&nbsp; msgbox "Diese Funktion kann nur in den Feldern 816 oder 818 genutzt werden\!", vbCritical, boxtitel
&nbsp; Exit Sub
&nbsp; End If
ja = year(date)
mo = month(date)
&nbsp; if len(mo) = 1 then mo = "0" & mo
ta = day(date) &nbsp;
&nbsp; if len(ta) = 1 then ta = "0" & ta
Application.ActiveWindow.Title.EndOfField
Application.ActiveWindow.Title.InsertText " {" & ja & "-" & mo & "-" & ta & "}"
End Sub


\\

h3. Code in WinIBW3 (Javascript)

\\

h3. Erforderliche Änderungen / Ergänzungen