GeMIS_WEB/GUI/v8/listtit1.i

/* ------------------------------------------------------------------------- */
/* Titeldaten aufbereiten (Breite, Texte usw.)                  (LISTTIT1.I) */
/* ------------------------------------------------------------------------- */

    FIND BDrucker USE-INDEX Drucker-k1
                  WHERE BDrucker.Drucker = Schrift.Schdru NO-LOCK NO-ERROR.
                 
    Fuell  =         SUBSTRING(Helptext[01],01,01).
    Breite = INTEGER(SUBSTRING(Helptext[01],02,03)).
    VRand  = INTEGER(SUBSTRING(Helptext[01],68,03)).
    Dattxt =         SUBSTRING(Helptext[01],05,10).
    Seitxt =         SUBSTRING(Helptext[01],15,10).
    Zeitxt =         SUBSTRING(Helptext[01],25,10).
    Firtxt =         SUBSTRING(Helptext[01],35,10).
    Jahtxt =         SUBSTRING(Helptext[01],45,10).
    PPos1  = Breite - 20.
    PPos2  = (Breite - LENGTH(Helptext[02]) - 1) / 2.
    PPos5  = (Breite - LENGTH(Tittxt) - 1) / 2.
    ix     = LENGTH(Drufettb)  + LENGTH(Drufette).
    PPos3  = PPos1  + ix.
    PPos4  = Breite + ix - 3.
    IF Fuell <> "" THEN Kopfz  = FILL(Fuell,Breite).
    Ueber1 = "".
    Ueber2 = "".
    Ueber3 = "".
    IF Helptext[03] <> "" THEN SUBSTRING(Ueber1,001) = Helptext[03].
    IF Helptext[04] <> "" THEN SUBSTRING(Ueber1,071) = Helptext[04].
    IF Helptext[05] <> "" THEN SUBSTRING(Ueber1,141) = Helptext[05].
    IF Helptext[06] <> "" THEN SUBSTRING(Ueber2,001) = Helptext[06].
    IF Helptext[07] <> "" THEN SUBSTRING(Ueber2,071) = Helptext[07].
    IF Helptext[08] <> "" THEN SUBSTRING(Ueber2,141) = Helptext[08].
    IF Helptext[09] <> "" THEN SUBSTRING(Ueber3,001) = Helptext[09].
    IF Helptext[10] <> "" THEN SUBSTRING(Ueber3,071) = Helptext[10].
    IF Helptext[11] <> "" THEN SUBSTRING(Ueber3,141) = Helptext[11].
    IF Ueber1 <> '' THEN Ueber1 = BDrucker.Drufettb + Ueber1 + BDrucker.Drufette.
    IF Ueber2 <> '' THEN Ueber2 = BDrucker.Drufettb + Ueber2 + BDrucker.Drufette.
    IF Ueber3 <> '' THEN Ueber3 = BDrucker.Drufettb + Ueber3 + BDrucker.Drufette.
    Helptext[02] = BDrucker.Drufettb + Helptext[02] + BDrucker.Drufette.
    Tittxt       = BDrucker.Drufettb + Tittxt       + BDrucker.Drufette.
    ap           = 1.
    XDruDat      = ?.