Funktion

Beschreibung

Anlegen eines Infodatesatzes für Verlagsinformationen (aa) - (Datenmaske)
Zeile 6708 - 6729

'Datenmaske zur Eingabe von Verlags-Info-Datensätzen der Monographien-Erwerbung, Anforderung Fr. Loeber-Knaak F1.1.1   

Code in WinIBW2 (Makro/VBScript)Sub

Sub InfoErwVerlag()
'********************************************************************    
    
    On error resume next
    if not Application.ActiveWindow.Variable("scr") <> "MT" then
        Fehler "Es liegt ein Datensatz in Editanzeige vor!" & vbcrlf & vbcrlf & _
            "Schließen Sie dessen Bearbeitung ab und aktivieren Sie anschließend 'InfoErwVerlag'."    
        exit sub
    end if
    Dim strKuerzel, strStandort
    Call HoleKuerzel(strKuerzel)
    Call HoleDNBStandort(strStandort)
    Application.ActiveWindow.Command "e t", False
    Application.ActiveWindow.Title.InsertText    "0500 aa" & vbCR &_
                            "1100 9999" & vbCR &_
                            "4000 Infosatz Verlag : Erwerbung" & vbCR &_
                            "4030 " & vbCR &_
                            "4701 " & strStandort & ";" & strKuerzel
    Application.ActiveWindow.Title.FindTag "4030", 0, False, True
    
End Sub

Code in WinIBW3 (Javascript)


Erforderliche Änderungen / Ergänzungen

  • Keine Stichwörter