Skip to end of metadata
Go to start of metadata

Beschreibung

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

dnb_inhaltserschliessung.js

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
'----------------------------------------------------------------------------------------
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

Seitenanfang

  • No labels