Seitenhistorie

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!");
	}
}

'----------------------------------------------------------------------------------------

h3. Funktion


h3. Beschreibung

nur das Datum wird eingefügt
\\
Zeile 6513 - 6555



h3. 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
&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