Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
Die Funktion ergänzt die DDC-Gruppe 0 am Ende des Datensatzes. |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-03-05 | Althaus | neu erstellt |
Code
dnb_inhaltserschliessung.js
Codeblock |
---|
function __DDCnotation(intNum) { if (application.activeWindow.getVariable("scr") != "MT") { application.activeWindow.command("k",false); } var strDDC = "54" + intNum + "0 \n54" + intNum + "1 \n54" + intNum + "2 \n54" + intNum + "3 -T1--\n54" + intNum + "3 -T2--\n54" + intNum + "3 -T2--\n"; var strDDCbegin = "54" + intNum + "1"; application.activeWindow.title.endOfBuffer(false); application.activeWindow.title.insertText(strDDC); application.activeWindow.title.findTag(strDDCbegin,0,false,true,false); } function ddc0() { __DDCnotation("0"); } |
VB-Code
Codeblock |
---|
Private Sub DDCnotation(strNum) '******************************************************************************** Dim Temp On error resume next If Application.ActiveWindow.Variable("scr") <> "MT" Then Application.ActiveWindow.Command "k", False End If Application.ActiveWindow.Title.EndOfBuffer False Application.ActiveWindow.Title.InsertText "54" & strNum & "0 " & vbLf &_ "54" & strNum & "1 " & vbLf &_ "54" & strNum & "2 " & vbLf &_ "54" & strNum & "3 -T1--" & vbLf &_ "54" & strNum & "3 -T2--" & vbLf &_ "54" & strNum & "3 -T2--" & vbLf Application.ActiveWindow.Title.FindTag "54" & strNum & "1",0,False,True End Sub '***************************************************************************** Sub ddc0() '***************************************************************************** DDCnotation("0") End Sub |
Überblick
Inhalte