CKNeu

Funktion

Beschreibung

Crosskonkordanz-Satz anlegen
(Datenmaske)
Zeile 3067 - 3103

Code in WinIBW2 (Makro/VBScript)

Sub CKneu()
    On Error Resume Next
    Dim Cancel
    Dim SWD_IDN
    Dim SWDfeld810
    Dim SWDsatz,Position
    If Not Cancel Then
        SWD_IDN    = ""
        SWDfeld810 = ""
       
        SWD_IDN = "!" & Application.ActiveWindow.Variable("P3GPP")& "!"
        SWDsatz = Application.ActiveWindow.CopyTitle
        SWDfeld810 = KopiereFeld (SWDsatz,"810 ")
        Cancel = False
        Application.ActiveWindow.Command "e n",True
        Application.ActiveWindow.Title.InsertText "005 Tcx"
        Application.ActiveWindow.Title.InsertText vbCr
        Application.ActiveWindow.Title.InsertText "800 "
        Application.ActiveWindow.Title.InsertText SWD_IDN
        Application.ActiveWindow.Title.InsertText vbCr
        Application.ActiveWindow.Title.InsertText "810 "
        Application.ActiveWindow.Title.InsertText SWDfeld810
        Application.ActiveWindow.Title.InsertText vbCr
        Application.ActiveWindow.Title.InsertText "808 |c|neu"
        Application.ActiveWindow.Title.InsertText vbCr
        Application.ActiveWindow.Title.InsertText "808 |d|"
        Application.ActiveWindow.Title.InsertText vbCr
        Application.ActiveWindow.Title.InsertText "817 "
        Application.ActiveWindow.Title.InsertText vbCr
        Application.ActiveWindow.Title.InsertText "834 "
        Application.ActiveWindow.Title.InsertText vbCr
        Application.ActiveWindow.Title.InsertText "840 "
        Application.ActiveWindow.Title.InsertText vbCr
        Application.ActiveWindow.Title.InsertText "901 "
    End If
End Sub

Code in WinIBW3 (Javascript)

Erforderliche Änderungen / Ergänzungen