Seitenhistorie

Funktion

Beschreibung

Zeile 990 - 1039

Code in WinIBW2 (Makro/VBScript)Sub

Sub

...

123SWDloeschen()
'********************************************************************
        on error resume next
    Dim Scr, Actwin, Acttit
    Set Actwin = Application.Activewindow
    Scr = Actwin.Variable("scr")
    If Scr <> "8A" Then
        Fehler "Es liegt kein Datensatz in Vollanzeige vor!"
        Exit Sub
    Else
        Acttit = Actwin.Copytitle
        If Instr (Acttit, "005 Ts") = 0 Then
            Fehler "Aktueller Datensatz ist kein SWD-Datensatz!"
            Exit Sub
        Elseif Instr (Acttit, "GESPERRT") <> 0 Then
            Fehler "Aktueller Datensatz ist bereits gesperrt!"
            Exit Sub
        End If
    K800 = mid(Acttit, instr(Acttit,"800"))
    K800 = left(K800, instr(K800,vbcr))
    K800 = left(K800,3)
    'msgbox K800
    K601 = mid(Acttit, instr(Acttit,"601"))
    K601= left(K601, instr(K601,vbcr))
    K601 = left(K601,3)
    'msgbox K601
        Application.Boverwrite = False
        Actwin.Command "k"
        If Instr (Acttit, "010 d") = 0 Then
            Actwin.Title.Startoffield
            Actwin.Title.Inserttext "010 d" & vbCr
        End If
        
        if (K800 = "800") and (K601 = "") then
        Actwin.Title.Findtag "800", 0, True, True
        Actwin.Title.Charright 7
        Actwin.Title.Inserttext "!!!GESPERRT!!!"
        End if
        Actwin.Simulateibwkey "FR"
    End If
End Sub

Code in WinIBW3 (Javascript)

...