GeMIS_WEB/GUI/v8/opendruck.i

/*  -------------------------------------------------------------------------- */

lPDF      = (IF BDrucker.Emul = 'PDF' THEN TRUE ELSE FALSE).
cProcName = REPLACE(THIS-PROCEDURE:FILE-NAME, '/', '\').
IF NUM-ENTRIES(cProcName, '\') > 0 THEN cProcName = ENTRY(NUM-ENTRIES(cProcName, '\'), cProcName, '\').
IF NUM-ENTRIES(cProcName, '.') > 0 THEN cProcName = ENTRY(1, cProcName, '.').

IF  BDrucker.Emul <> "TERMINAL" THEN 
DO:
    IF LiDruck.Listtzz = 0 THEN 
    DO:
        IF  Steuer.Drucker <> ""         AND
            OPSYS           = "Unix"     THEN
            OUTPUT THROUGH VALUE(Steuer.Drucker) VALUE(Schrift.Schname).
        ELSE 
        DO:
            cDrucker = (IF NOT lPDF THEN DYNAMIC-FUNCTION('setDrucker':U, Schrift.Schname) ELSE '').
            IF  cDrucker = ?  OR
                cDrucker = '' THEN 
            DO:
                cDrucker = SESSION:TEMP-DIRECTORY + cProcName + '.txt'.
                IF NOT lPDF THEN MESSAGE 'Ausgabe erfolgt in die Datei ' cDrucker '! ' VIEW-AS ALERT-BOX.
                OUTPUT TO VALUE(cDrucker) CONVERT TARGET "ibm850" PAGED  PAGE-SIZE 150.
            END.
            ELSE OUTPUT TO PRINTER PAGED PAGE-SIZE 150 CONVERT TARGET "ibm850".
        END.
    END.
    ELSE 
    DO:
        IF  Steuer.Drucker <> ""         AND
            OPSYS           = "Unix"     THEN
            OUTPUT THROUGH    VALUE(Steuer.Drucker) VALUE(Schrift.Schname) PAGED PAGE-SIZE 150.
        ELSE 
        DO:
            cDrucker = (IF NOT lPDF THEN DYNAMIC-FUNCTION('setDrucker':U, Schrift.Schname) ELSE '').
            IF  cDrucker = ?  OR
                cDrucker = '' THEN 
            DO:
                cDrucker = SESSION:TEMP-DIRECTORY + cProcName + '.txt'.
                IF NOT lPDF THEN MESSAGE 'Ausgabe erfolgt in die Datei ' cDrucker '! ' VIEW-AS ALERT-BOX.
                OUTPUT TO VALUE(cDrucker) PAGED PAGE-SIZE 5000 CONVERT TARGET "ibm850".
            END.
            ELSE IF lPDF THEN OUTPUT TO PRINTER PAGED PAGE-SIZE 5000 CONVERT TARGET "ibm850".
                 ELSE         OUTPUT TO PRINTER PAGED PAGE-SIZE 5000 CONVERT TARGET "ibm850".
        END.
    END.
    PUT CONTROL Schrift.Schseqbeg.
    IF LiDruck.Listlq      THEN PUT CONTROL BDrucker.Drulqb.
    IF LiDruck.Schacht > 0 THEN PUT CONTROL BDrucker.DruSchacht[Schacht].
    DOpen = TRUE.
END.
ELSE 
DO:
    FOR EACH XTermOut:
        DELETE  XTermOut.
    END.
    DOpen  = FALSE.
    VZNr   = 0.
    VLine  = 0.
    VSeite = 0.
END.

/*  -------------------------------------------------------------------------- */