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)
...