Funktion

Beschreibung

Sucht nach Tb-Sätzen in der GKD
zeile 1209 - 1233
ruft Fkt. Link_UP1 auf

Code in WinIBW2 (Makro/VBScript)Sub

Sub LinkExact()
'***************************************************************************
' Voraussetzung : Titel-/Normatz befindet sich im Erfassungs- oder Bearbeitungsmodus
'            Cursor steht in der Kategoriezeile
' Stand : 06.06.2005
' ***************************************************************************
    Dim strSatztyp
    Dim strSuchTerm, strKategegorie, strTag
    On Error Resume Next
    Call Link_UP1(strSatztyp,strTag,strSuchTerm, strKategorie)    ' Vorarbeiten
        If Len(strSatztyp) >= 2 And Len(strTag) = 2 Then
        If strTag = "51" Then
            LnkCmd = "f an " & strSuchTerm & " und rec n"
        ElseIf (strTag = "31") Or (strTag = "44") Or (strTag = "45") Then
            LnkCmd = "f ksk " & """" & strSuchTerm & """" & " und rec n"
        Else
            LnkCmd = "\LNK " & strSatztyp & " D " & """" & strKategorie & " "  & strSuchTerm & """"
        End If
        Application.ActiveWindow.Command LnkCmd, True    ' Suchen mit Anzeige im neuen Fenster
    Else
        MsgBox "Satz- oder Kategorietyp unbestimmt",vbOKOnly+vbCritical,"LinkExact-Fehler"
    End If
End Sub    ' LinkExakt

Code in WinIBW3 (Javascript)


Erforderliche Änderungen / Ergänzungen

  • Keine Stichwörter