Seitenhistorie

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)
&nbsp; if len(mo) = 1 then mo = "0" & mo
ta = day(date) &nbsp;
&nbsp; if len(ta) = 1 then ta = "0" & ta
&nbsp;
Set WinA = Application.ActiveWindow
&nbsp; If Application.ActiveWindow.DocType = "Ts" then
&nbsp;&nbsp;&nbsp; 'Befindet sich Bildschirm im Korrekturmodus? Falls nein, "k"
&nbsp;&nbsp;&nbsp; If Application.ActiveWindow.Title is Nothing then
&nbsp;&nbsp;&nbsp; Application.ActiveWindow.Command "k"
&nbsp;&nbsp;&nbsp; End If
&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;
&nbsp; 'kat816 = WinA.Title.FindTag("816")
&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; 'Keine Prüfung, ob 816 bereits vorhanden, da manchmal Mehrfacheingabe
&nbsp;&nbsp;&nbsp; 'if kat816 = "" then
&nbsp;&nbsp;&nbsp; GeheZuKat "816",""
&nbsp;&nbsp;&nbsp; Application.ActiveWindow.Title.StartOfField
&nbsp;&nbsp;&nbsp; WinA.Title.InsertText "816&nbsp; \[WINIBW:" & ja & "-" & mo & "-" & ta & "\]" & vbCr
&nbsp;&nbsp;&nbsp; Application.ActiveWindow.Title.LineUp(1)
&nbsp;&nbsp;&nbsp; Application.ActiveWindow.Title.StartOfField
&nbsp;&nbsp;&nbsp; Application.ActiveWindow.Title.CharRight(4)
&nbsp;&nbsp;&nbsp; 'Kat 816 bereits vorhanden
&nbsp;&nbsp;&nbsp; 'Else
&nbsp;&nbsp;&nbsp; 'msgbox "Datensatz bereits bearbeitet." & vbCr & """" & kat816 & """ vorhanden",vbCritical,boxtitel
&nbsp;&nbsp;&nbsp; 'WinA.SimulateIBWKey("FE")
&nbsp;&nbsp;&nbsp; 'End If
&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;
&nbsp; Else
&nbsp; MsgBox "Falsche Satzart: " & Application.ActiveWindow.DocType,vbCritical,boxtitel
&nbsp; end if
End