Skip to end of metadata
Go to start of metadata

Funktion

Beschreibung

Edition Oaa zu Oaq, Einfügen
0701 @Keine Archivierung in DNB; Bereitstellung durch Zugriff auf Originalserver@

Anforderung durch Frau Ackermann 2D
Zeile 6651 - 6678

Code in WinIBW2 (Makro/VBScript)Sub

Sub KeineArchivierung()
'********************************************************************
'Funktion für in DNBL zu bearbeitende, aber nicht in DNB archivierte Schweizer Hochschulschriften mit Direktzugriff auf externen Server    
    
    On error resume next
    Dim strKuerzel, strStandort
    Call HoleKuerzel(strKuerzel)
    Call HoleDNBStandort(strStandort)
    Application.ActiveWindow.Command "k", False
    
    Application.ActiveWindow.Title.FindTag "0599", 0, True, True
    Application.ActiveWindow.Title.EndOfField true
    Application.ActiveWindow.Title.DeleteSelection
    Application.ActiveWindow.Title.FindTag "0600", 0, True, True
    Application.ActiveWindow.Title.EndOfField true
    Application.ActiveWindow.Title.DeleteSelection
    
    Application.ActiveWindow.Title.FindTag "0500", 0, False, True
    Application.ActiveWindow.Title.EndOfField true
    Application.ActiveWindow.Title.InsertText "Oaq" & vbcr &_
                                            "0598 NP555" & vbcr &_
                                            "1700 /1CH"
    Application.ActiveWindow.Title.FindTag "0701", 0, False, True
    Application.ActiveWindow.Title.CharRight 3, True
    Application.ActiveWindow.Title.InsertText "@Keine Archivierung@"
End Sub

Code in WinIBW3 (Javascript)


Erforderliche Änderungen / Ergänzungen

  • No labels