GeMIS_WEB/GUI/v8/listtit2.i

/* ------------------------------------------------------------------------- */
/* Kontrolle, ob neue Seite kommt, wenn ja, Titel drucken       (LISTTIT2.I) */
/* ------------------------------------------------------------------------- */

IF NOT TiDruck AND Leer > 0 THEN DO:
    { v8/putzeilx.i XLeer Leer }
END.
IF DOpen = TRUE THEN DO:
    VLine = LINE-COUNTER.
END.
IF  LiDruck.Listtzz <> 999 AND
    (VLine + LiDruck.Listkzz + LiDruck.Listfzz + Zuszz) > LiDruck.Listtzz THEN TiDruck = TRUE.
IF TiDruck THEN DO:
    IF Uebertrag <> ""  THEN DO:
        { v8/putzeilx.i XLeer      "1" }
        { v8/putzeilx.i Uebertrag  "1" }
        { v8/putzeilx.i XLeer      "1" }
    END.
    IF DOpen = TRUE THEN DO:
        PAGE.
        VSeite = PAGE-NUMBER.
    END.
    ELSE DO:
        VSeite = VSeite + 1.
        VZNr   = VZNr   + 1.
        VLine  = 0.
        CREATE  XTermOut.
        ASSIGN  XTermOut.ZNr   = VZNr
                XTermOut.Zeile = ''.
    END.
    IF Listkzz > 0 THEN DO:
        { v8/putzeilx.i XLeer Listkzz }
    END.
    IF Kopfz <> "" THEN DO:
        { v8/putzeilx.i Kopfz "1" }
    END.

    Titelz = "".
    SUBSTRING(Titelz,01)         = Steuer.Firma1.
    SUBSTRING(Titelz,PPos1)      = Dattxt.
    IF XDruDat <> ? THEN SUBSTR(Titelz,Breite - 9) = STRING(XDruDat,VDatForm).
    ELSE                 SUBSTR(Titelz,Breite - 9) = STRING(TODAY  ,VDatForm).
    { v8/putzeilx.i Titelz "1" }

    Titelz = "".
    SUBSTRING(Titelz,01)         = Steuer.Strasse.
    SUBSTRING(Titelz,PPos2)      = Helptext[02].
    SUBSTRING(Titelz,PPos3)      = Seitxt.
    SUBSTRING(Titelz,PPos4)      = STRING(VSeite,"zzz9").
    { v8/putzeilx.i Titelz "1" }

    Titelz = "".
    SUBSTRING(Titelz,01)         = Steuer.Ort.
    IF Tittxt <> "" THEN DO:
        SUBSTRING(Titelz,PPos5)  = Tittxt.
    END.
    SUBSTRING(Titelz,PPos3)      = Zeitxt.
    SUBSTRING(Titelz,PPos4  - 4) = STRING(TIME,"HH:MM:SS").
    { v8/putzeilx.i Titelz "1" }

    IF Listen.FirmaFl OR Listen.JahrFl THEN DO:
        Titelz = "".
        IF Listen.FirmaFl THEN DO:
            SUBSTRING(Titelz,01)         = Firtxt.
            SUBSTRING(Titelz,11)         = STRING(Listen.Firma).
        END.
        IF Listen.JahrFl THEN DO:
            SUBSTRING(Titelz,PPos1)      = Jahtxt.
            SUBSTRING(Titelz,Breite - 3) = STRING(Listen.Jahr,"9999").
        END.
        { v8/putzeilx.i Titelz "1" }
    END.

    IF Kopfz <> "" THEN DO:
        { v8/putzeilx.i Kopfz "1" }
    END.

    { v8/putzeilx.i XLeer "1" }
    aa = 0.
    IF Ueber1 <> "" THEN DO:
        { v8/putzeilx.i Ueber1 "1" }
        aa = 1.
    END.
    IF Ueber2 <> "" THEN DO:
        { v8/putzeilx.i Ueber2 "1" }
        aa = 1.
    END.
    IF Ueber3 <> "" THEN DO:
        { v8/putzeilx.i Ueber3 "1" }
        aa = 1.
    END.
    IF aa = 1 THEN DO:
        { v8/putzeilx.i XLeer "1" }.
    END.
    TiGedru = TRUE.
END.
IF Leer > 0 OR TiDruck THEN DO:
    IF Ueber4 <> "" THEN DO:
        { v8/putzeilx.i Ueber4 "2" }
    END.
    IF Ueber5 <> "" THEN DO:
        { v8/putzeilx.i Ueber5 "2" }
    END.
    IF Uebertrag <> "" THEN DO:
        { v8/putzeilx.i Uebertrag "2" }
    END.
END.

TiDruck   = FALSE.
Uebertrag = "".
Leer      = 0.
Zuszz     = 0.