Wartung / Maintencance - Upgrade Version 8.5.12 - Mittwoch/Wednesday - 2024-08-28 07:30-09:00 a.m.
Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
...
Beschreibung
...
Auszug |
---|
Die Kategorie 816 wird mit Tagesdatum in eckigen Klammern (Unterfeld $t) eingefügt. Falls bereits eine Kategorie 816 existiert wird die neue Kategorie dahinter eingefügt. Es muss sich um einen Ts*-Datensatz in der Vollanzeige oder im Korrekturmodus handeln. |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-03-05 | Althaus | neu erstellt |
2011-07-01 | Althaus | Blank hinter Kategoriebezeichnung 816 entfernt (Mail Bernhard, 2011-07-01) |
Code
dnb_inhaltserschliessung.js
Codeblock |
---|
function swdddc() {
// Kategorie 816 wird mit Tagesdatum in $t eingefügt (Anforderung Karg / Köhn / Scheven)
var boolGoOn = false;
var strDate = __makeDate();
var strMat = application.activeWindow.materialCode.substring(0,2);
if (application.activeWindow.getVariable("scr") == "8A") {
application.activeWindow.command("k",false);
boolGoOn = true;
} else {
if (application.activeWindow.getVariable("scr") == "MI") {
boolGoOn = true;
}
}
if (boolGoOn && (strMat == "Ts")) {
__geheZuKat("816","",false);
application.activeWindow.title.startOfField(false);
application.activeWindow.title.insertText("816 [" + strDate + "]\n");
application.activeWindow.title.lineUp(1, false);
application.activeWindow.title.startOfField(false);
application.activeWindow.title.charRight(4,false);
} else {
__dnbFehler("Fehler","Die Funktion kann nur von Satzart Ts* im Korrekturmodus oder aus der Vollanzeige aufgerufen werden!");
}
}
|
VB-Code
Codeblock |
---|
|
Feld und Datum wird eingefügt
Zeile 6459 - 6510
Code in WinIBW2 (Makro/VBScript)Sub
...
Sub swdddc()
'--------------------------------------------------------------------------------------- |
...
- 'Skript für die SE, entspricht dem CrissCross-Skript CrissX: WEnn 816 noch nicht vorhanden, wird es mit Tagesdatum in $t eingefügt 'Anforderung Karg / Köhn / Scheven 'S. Grund, 27-Jan-2009 boxtitel = "swdddc" if Application.ActiveWindow.Variable("scr") <> "8A" and Application.ActiveWindow.Variable("scr") <> "MI" then msgbox "Funktion kann nur aus Vollanzeige oder Korrekturanzeige eines Datensatzes aufgerufen 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 |
...
Set WinA = Application.ActiveWindow
|
...
If Application.ActiveWindow.DocType = "Ts" then |
...
'Befindet sich Bildschirm im Korrekturmodus? Falls nein, "k" |
...
If Application.ActiveWindow.Title is Nothing then |
...
Application.ActiveWindow.Command "k" |
...
End If |
...
'kat816 = WinA.Title.FindTag("816") |
...
'Keine Prüfung, ob 816 bereits vorhanden, da manchmal Mehrfacheingabe |
...
'if kat816 = "" then |
...
GeheZuKat "816","" |
...
Application.ActiveWindow.Title.StartOfField |
...
WinA.Title.InsertText "816 |
...
|
...
[ |
...
" & ja & "-" & mo & "-" & ta & " |
...
]" & vbCr
|
...
Application.ActiveWindow.Title.LineUp(1) |
...
Application.ActiveWindow.Title.StartOfField |
...
Application.ActiveWindow.Title.CharRight(4) |
...
'Kat 816 bereits vorhanden |
...
'Else |
...
'msgbox "Datensatz bereits bearbeitet." & vbCr & """" & kat816 & """ vorhanden",vbCritical,boxtitel |
...
'WinA.SimulateIBWKey("FE") |
...
'End If |
...
Else MsgBox "Falsche Satzart: " & Application.ActiveWindow.DocType,vbCritical,boxtitel |
...
end if End Sub |
...
Code in WinIBW3 (Javascript)
...
|
Überblick
Inhalte