Startsida Utforska Hjälp
Registrera dig Logga in
AnalytikDataPRiME
/
GeMIS_WEB
3
0
Fork 0
Filer Ärenden 0 Pull-förfrågningar 0 Wiki
Gren: master
Grenar Taggar
GeMIS_WEB
/
GUI
/
v8
/
listtit1.i

listtit1.i 2.1 KB
Permalänk Historik Rå

12345678910111213141516171819202122232425262728293031323334353637383940414243 
  1. 

  2. /* ------------------------------------------------------------------------- */
    3. 

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

  4. /* ------------------------------------------------------------------------- */
    5. 

  5. 

  6.     FIND BDrucker USE-INDEX Drucker-k1
    7. 

  7.                   WHERE BDrucker.Drucker = Schrift.Schdru NO-LOCK NO-ERROR.
    8. 

  8.                  
    9. 

  9.     Fuell  =         SUBSTRING(Helptext[01],01,01).
    10. 

  10.     Breite = INTEGER(SUBSTRING(Helptext[01],02,03)).
    11. 

  11.     VRand  = INTEGER(SUBSTRING(Helptext[01],68,03)).
    12. 

  12.     Dattxt =         SUBSTRING(Helptext[01],05,10).
    13. 

  13.     Seitxt =         SUBSTRING(Helptext[01],15,10).
    14. 

  14.     Zeitxt =         SUBSTRING(Helptext[01],25,10).
    15. 

  15.     Firtxt =         SUBSTRING(Helptext[01],35,10).
    16. 

  16.     Jahtxt =         SUBSTRING(Helptext[01],45,10).
    17. 

  17.     PPos1  = Breite - 20.
    18. 

  18.     PPos2  = (Breite - LENGTH(Helptext[02]) - 1) / 2.
    19. 

  19.     PPos5  = (Breite - LENGTH(Tittxt) - 1) / 2.
    20. 

  20.     ix     = LENGTH(Drufettb)  + LENGTH(Drufette).
    21. 

  21.     PPos3  = PPos1  + ix.
    22. 

  22.     PPos4  = Breite + ix - 3.
    23. 

  23.     IF Fuell <> "" THEN Kopfz  = FILL(Fuell,Breite).
    24. 

  24.     Ueber1 = "".
    25. 

  25.     Ueber2 = "".
    26. 

  26.     Ueber3 = "".
    27. 

  27.     IF Helptext[03] <> "" THEN SUBSTRING(Ueber1,001) = Helptext[03].
    28. 

  28.     IF Helptext[04] <> "" THEN SUBSTRING(Ueber1,071) = Helptext[04].
    29. 

  29.     IF Helptext[05] <> "" THEN SUBSTRING(Ueber1,141) = Helptext[05].
    30. 

  30.     IF Helptext[06] <> "" THEN SUBSTRING(Ueber2,001) = Helptext[06].
    31. 

  31.     IF Helptext[07] <> "" THEN SUBSTRING(Ueber2,071) = Helptext[07].
    32. 

  32.     IF Helptext[08] <> "" THEN SUBSTRING(Ueber2,141) = Helptext[08].
    33. 

  33.     IF Helptext[09] <> "" THEN SUBSTRING(Ueber3,001) = Helptext[09].
    34. 

  34.     IF Helptext[10] <> "" THEN SUBSTRING(Ueber3,071) = Helptext[10].
    35. 

  35.     IF Helptext[11] <> "" THEN SUBSTRING(Ueber3,141) = Helptext[11].
    36. 

  36.     IF Ueber1 <> '' THEN Ueber1 = BDrucker.Drufettb + Ueber1 + BDrucker.Drufette.
    37. 

  37.     IF Ueber2 <> '' THEN Ueber2 = BDrucker.Drufettb + Ueber2 + BDrucker.Drufette.
    38. 

  38.     IF Ueber3 <> '' THEN Ueber3 = BDrucker.Drufettb + Ueber3 + BDrucker.Drufette.
    39. 

  39.     Helptext[02] = BDrucker.Drufettb + Helptext[02] + BDrucker.Drufette.
    40. 

  40.     Tittxt       = BDrucker.Drufettb + Tittxt       + BDrucker.Drufette.
    41. 

  41.     ap           = 1.
    42. 

  42.     XDruDat      = ?.
    43. 

  43.