Funktion

Beschreibung

Sucht trunkiert nach Tb-Sätzen in der GKD
Zeile 1168 - 1204
ruft Fkt. Link_UP1 auf

Code in WinIBW2 (Makro/VBScript)Sub

Sub LinkTrunc()
'***************************************************************************
' Voraussetzung : Titel-/Normatz befindet sich im Erfassungs- oder Bearbeitungsmodus
'            Cursor steht in der Kategoriezeile
' Stand : 07.06.2005
' ***************************************************************************
    'Deklariere Variablen strSatztyp, strSuchTerm, strKategegorie, strTag
    Dim strSatztyp
    Dim strSuchTerm, strKategegorie, strTag
    On Error Resume Next
    'Rufe die Prozedur Link_UP1 mit den Argumenten strSatztyp, strTag, strSuchTerm und strKategorie auf
    Call Link_UP1(strSatztyp,strTag,strSuchTerm, strKategorie)    ' Vorarbeiten
        'Wenn strSatztyp größer oder gleich 2 Zeichen ist und die Länge von strTag gleich 2 Zeichen ist dann
        If Len(strSatztyp) >= 2 And Len(strTag) = 2 Then
            'Wenn strTag gleich "51" ist dann
            If strTag = "51" Then
            'LnkCmd gleich "f sw" und strSuchTerm
            LnkCmd = "f sw " & strSuchTerm
        'oder aber wenn strTag gleich "31" oder "44" oder "45"dann
            ElseIf (strTag = "31") Or (strTag = "44") Or (strTag = "45") Then
            'LnkCmd gleich "f kor" und strSuchTerm und "und rec n"
            LnkCmd = "f kor " & strSuchTerm & " und rec n"
            'sonst
            Else
            'LnkCmd gleich "\LNK " & strSatztyp & " D " & str Kategorie &" " & strSuchTerm
            LnkCmd = "\LNK " & strSatztyp & " D " & strKategorie & " " & strSuchTerm
        'Bedingungsende
        End If
        '
        Application.ActiveWindow.Command LnkCmd, True    ' Suchen mit Anzeige im neuen Fenster
    Else
        MsgBox "Satz- oder Kategorietyp unbestimmt",vbOKOnly+vbCritical,"LinkTrunc-Fehler"
    End If
End Sub    ' LinkTrunk

Code in WinIBW3 (Javascript)


Erforderliche Änderungen / Ergänzungen

  • Keine Stichwörter