Seitenhistorie

Funktion

Beschreibung

Kennzeichnet im Datensatz , daß die Publikation nicht sammelpflichtig ist (Satzart -> Aaq, 8034 mit entsprechendem Text der Fallgruppe 5)
Zeile 4284 - 4299

Code in WinIBW2 (Makro/VBScript)Sub

Sub DMAretro()
    Call Retro("DMA","","")Kein_Sammelgebiet()
'*****************************************************************************
    On error resume next    
    'EingabeKommentar "Kein Sammelgebiet",""
    EingabeKommentar "Gehoert nicht zum Sammelgebiet der Deutschen Nationalbibliothek",""
    Application.ActiveWindow.Command "k", False
    Call HoleDNBStandort(strStandort)
    Call HoleKuerzel(strKuerzel)
    Application.ActiveWindow.Title.InsertText vbcr & "4701 " & strStandort & "; " & strKuerzel & "#NSG :" & vbcr
    'Application.ActiveWindow.Title.LineUp
    'Application.ActiveWindow.Title.EndOfField
    Application.ActiveWindow.SimulateIBWKey "FR"
End Sub

Code in WinIBW3 (Javascript)

...