Seitenhistorie
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