Seitenhistorie
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 DMAretro(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 Retro("DMA","","")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)
...