Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
...
Beschreibung
Feld und Datum wird eingefügt
Zeile 6459 - 6510
Code in WinIBW2 (Makro/VBScript)Sub
Wiki-Markup |
---|
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 \[WINIBW:" & 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)
...
Auszug |
---|
Neu: |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-03-05 | Althaus | neu erstellt |
Datei
dnb_scripts_01.js |
Code
Codeblock |
---|
VB-Code
Codeblock |
---|
Überblick
Inhalte