Wartung / Maintencance - Upgrade Version 8.5.12 - Mittwoch/Wednesday - 2024-08-28 07:30-09:00 a.m.
Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
Neu: 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 |
Datei
dnb_scripts_01.js |
Code
Codeblock |
---|
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
Codeblock |
---|
'----------------------------------------------------------------------------------------
|
Wiki-Markup |
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 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 \\ h3. Code in WinIBW3 (Javascript) \\ h3. Erforderliche Änderungen / Ergänzungen |
Überblick
Inhalte