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