MahnEingPflicht

Funktion

Beschreibung

Eingangsbearbeitung von 2 Pflichtexemplaren bei vorhandenem Aam-Satz oder von einem Pflichtexemplar für den eigenen Standort bei vorhandenem Aam-Satz
Zeile 5118 - 5124

Code in WinIBW2 (Makro/VBScript)Sub

Sub MahnEingPflicht()
' *****************************************************
    On error resume next
    Application.ActiveWindow.Command "k", False
    Application.ActiveWindow.Title.EndOfBuffer False
    Application.ActiveWindow.Title.InsertText "0701 "
End Sub
'********************************************************************
'********************************************************************
' *****************************************************
Sub MahnEingNichtPflicht()
' *****************************************************
    On error resume next
    Application.ActiveWindow.Command "k", False
    Application.ActiveWindow.Title.EndOfBuffer False
    Application.ActiveWindow.Title.InsertText "8510 %" & vbCrLf & "8100 "
End Sub

Code in WinIBW3 (Javascript)

Erforderliche Änderungen / Ergänzungen