EP3

Funktion

Beschreibung

Nach Eingabe von Jahrgangs- oder Ausg.-Nr. wird Vollanzeige Titeldatensatz EP-HB-Werk editiert, Felder 4083 (Link zur EP), 5301, 7109 werden ergänzt Ausgangsschirm: DNB-Hauptbestand, Vollanzeige EP-HB-Werk mit Exemplardatensatz
Zeile 4560 - 4619

Code in WinIBW2 (Makro/VBScript)

Sub EP3()
'* 30.06.2008 Horst    EP3: Änderung Text Inputbox und Text Variable 4083 auf Anforderung Fr. Baumgartner/Hr. Schulze
    Dim AusgabeNr, InputAusgNr, K4083, K5301, SearchK5301, SearchK7001, co7001
    InputAusgNr = InputBox("Bitte geben Sie den Zeitraum oder die Ausgabebezeichnungen an!", "Eingabe", Eingabe)
    If     (InputAusgNr = "") or (InputAusgNr = vbAbort) then
        exit Sub
    else
       
        'K4083 = vbcr & "4083 Zugriff ab Ausgabe " &  InputAusgNr & " im MMB: =A http://mmb.ddb.de/z"
        K4083 = vbcr & application.LatinToPica("4083 Zugriff auf die Ausgaben von " &  InputAusgNr & " über das Bereitstellungssystem: =A http://mmb.ddb.de/z")
        K5301 = vbcr & application.LatinToPica("5301 ") 'Zeichenkonversion eingefügt
        K7109 = vbcr & application.LatinToPica("7109 !!MLS!! ; ") 'Zeichenkonversion eingefügt
   
        On error resume next
   
        'Vollanzeige des Ausgangsdatensatzes erzwingen
        Set WinA = Application.ActiveWindow
            if not     WinA.Variable("scr") = "8A" then
                Fehler "Es liegt kein Datensatz in Vollanzeige vor!"
                exit sub
            end if
        WinA.Command "k", False
        SearchK7001 = WinA.Title.StartOfBuffer
        SearchK7001 = WinA.Title.FindTag ("7001", 0, True, True)
            if     SearchK7001 <> ""  then
                WinA.Title.WordRight 3
                WinA.Title.EndOfField true
                co7001 = WinA.Title.GetSelection
                if    co7001 = "x" then
                    WinA.Title.EndOfField false
                    WinA.Title.InsertText K7109 & K4083
                else
                    WinA.Title.EndOfField
                    WinA.Title.InsertText K7109 & K4083
                end if
            end if
   
        SearchK5301 = WinA.Title.StartOfBuffer
        SearchK5301 = WinA.Title.FindTag ("5301", 0, True, True)
            if     SearchK5301 = true then
                'WinA.Title.Find "5301 ", True, False, True
                WinA.Title.EndOfField
            Else
                WinA.Title.StartOfBuffer
                WinA.Title.FindTag "7109", 0, True, True
                WinA.Title.EndOfField
                WinA.Title.InsertText K5301
            End if
    End if
End Sub
'********************************************************************

Code in WinIBW3 (Javascript)

Erforderliche Änderungen / Ergänzungen

keine