Funktion
Beschreibung
erzeugt Feld 0599 in zu löschenden Sätzen
Zeile 3224 - 3271
Code in WinIBW2 (Makro/VBScript)Sub
Sub SetzeStatusd()
'********************************************************************
Dim str0599, Pos, strTemp
' Send the command "k" to the system and display the data in the same window
Application.ActiveWindow.Command "k", False
' Suche Feld 0599 und setze den Lösch-Status "d"
'wenn 0599 vorhanden dann
if Application.ActiveWindow.Title.Find ("0599", True, False, True) then
'Gehe zum Feldanfang ohne zu markieren
Application.ActiveWindow.Title.StartOfField
'Gehe ein Zeichen nach rechts ohne zu markieren
Application.ActiveWindow.Title.CharRight
'Gehe ein Wort nach rechts ohne zu markieren
Application.ActiveWindow.Title.WordRight 1
'Gehe zum Feldende und markiere
Application.ActiveWindow.Title.EndOfField True
'Definiere str0599 als Inhalt der Markierung
str0599 = Application.ActiveWindow.Title.GetSelection
'Setze Variable Pos gleich 0
Pos = 0
'Definiere Pos als Suche von "m" in str0599
Pos = InStr(str0599,"m")
'wenn "m" existiert dann
if (Pos) then
'lösche die Markierung
Application.ActiveWindow.Title.DeleteSelection
'füge "dm" ein sonst
Application.ActiveWindow.Title.InsertText "dm"
else
'lösche die Markierung
Application.ActiveWindow.Title.DeleteSelection
'füge "d" ein
Application.ActiveWindow.Title.InsertText "d"
end if
'sonst (wenn 0599 nicht existiert)
else
'gehe zum Ende des Datensatzes
Application.ActiveWindow.Title.EndOfBuffer
'füge "0599 d" ein
Application.ActiveWindow.Title.InsertText "0599 d"
end if
'Enter und Datensatz abschicken
Application.ActiveWindow.SimulateIBWKey "FR"
End Sub