swdddcdatum

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

Code in WinIBW3 (Javascript)

Erforderliche Änderungen / Ergänzungen