Inicio Explorar Axuda
Rexistro Iniciar sesión
AnalytikDataPRiME
/
GeMIS_WEB
3
0
Fork 0
Ficheiros Incidencias 0 Pull Requests 0 Wiki
Árbore: 5e9e701408
Ramas Etiquetas
GeMIS_WEB
/
GUI
/
v8
/
listtitv.i

listtitv.i 3.2 KB
Histórico Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 
  1. /* ------------------------------------------------------------------------- */
    2. 

  2. /* Variablen, die beim Listen-Drucken benötigt werden           (LISTTITV.I) */
    3. 

  3. /* ------------------------------------------------------------------------- */
    4. 

  4. DEFINE {1} {2} VARIABLE Kopfz     AS CHARACTER FORMAT "x(210)".
    5. 

  5. DEFINE {1} {2} VARIABLE Titelz    AS CHARACTER FORMAT "x(210)".
    6. 

  6. DEFINE {1} {2} VARIABLE PPos1     AS INTEGER.
    7. 

  7. DEFINE {1} {2} VARIABLE PPos2     AS INTEGER.
    8. 

  8. DEFINE {1} {2} VARIABLE PPos3     AS INTEGER.
    9. 

  9. DEFINE {1} {2} VARIABLE PPos4     AS INTEGER.
    10. 

  10. DEFINE {1} {2} VARIABLE PPos5     AS INTEGER.
    11. 

  11. DEFINE {1} {2} VARIABLE Breite    AS INTEGER.
    12. 

  12. DEFINE {1} {2} VARIABLE aa        AS INTEGER.
    13. 

  13. DEFINE {1} {2} VARIABLE ii        AS INTEGER.
    14. 

  14. DEFINE {1} {2} VARIABLE ap        AS INTEGER.
    15. 

  15. DEFINE {1} {2} VARIABLE Zuszz     AS INTEGER   INIT 0.
    16. 

  16. DEFINE {1} {2} VARIABLE Seitxt    AS CHARACTER FORMAT "x(10)".
    17. 

  17. DEFINE {1} {2} VARIABLE Dattxt    AS CHARACTER FORMAT "x(10)".
    18. 

  18. DEFINE {1} {2} VARIABLE Zeitxt    AS CHARACTER FORMAT "x(10)".
    19. 

  19. DEFINE {1} {2} VARIABLE Firtxt    AS CHARACTER FORMAT "x(10)".
    20. 

  20. DEFINE {1} {2} VARIABLE Jahtxt    AS CHARACTER FORMAT "x(10)".
    21. 

  21. DEFINE {1} {2} VARIABLE Tittxt    AS CHARACTER FORMAT "x(50)".
    22. 

  22. DEFINE {1} {2} VARIABLE Fuell     AS CHARACTER FORMAT "x".
    23. 

  23. DEFINE {1} {2} VARIABLE Ueber1    AS CHARACTER FORMAT "x(250)".
    24. 

  24. DEFINE {1} {2} VARIABLE Ueber2    AS CHARACTER FORMAT "x(250)".
    25. 

  25. DEFINE {1} {2} VARIABLE Ueber3    AS CHARACTER FORMAT "x(250)".
    26. 

  26. DEFINE {1} {2} VARIABLE Ueber4    AS CHARACTER FORMAT "x(250)".
    27. 

  27. DEFINE {1} {2} VARIABLE Ueber5    AS CHARACTER FORMAT "x(250)".
    28. 

  28. DEFINE {1} {2} VARIABLE Uebertrag AS CHARACTER FORMAT "x(250)".
    29. 

  29. DEFINE {1} {2} VARIABLE XZeile    AS CHARACTER FORMAT "x(250)".
    30. 

  30. DEFINE {1} {2} VARIABLE XLeer     AS CHARACTER FORMAT "x" INIT "".
    31. 

  31. DEFINE {1} {2} VARIABLE Leer      AS INTEGER   INIT 1.
    32. 

  32. DEFINE {1} {2} VARIABLE TiDruck   AS LOG       INIT TRUE.
    33. 

  33. DEFINE {1} {2} VARIABLE TiGedru   AS LOG       INIT FALSE.
    34. 

  34. DEFINE {1} {2} VARIABLE DFl       AS LOG       INIT FALSE.
    35. 

  35. DEFINE {1} {2} VARIABLE LNeu      AS LOG.
    36. 

  36. DEFINE {1} {2} VARIABLE DOpen     AS LOG       INIT FALSE.
    37. 

  37. DEFINE {1} {2} VARIABLE VZNr      AS INTEGER.
    38. 

  38. DEFINE {1} {2} VARIABLE VSort     AS INTEGER   FORMAT "99" INIT 1.
    39. 

  39. DEFINE {1} {2} VARIABLE VCopy     AS INTEGER   FORMAT "99" INIT 1.
    40. 

  40. DEFINE {1} {2} VARIABLE VRand     AS INTEGER   FORMAT "99" INIT 1.
    41. 

  41. DEFINE {1} {2} VARIABLE VLine     AS INTEGER   FORMAT "99" INIT 1.
    42. 

  42. DEFINE {1} {2} VARIABLE VSeite    AS INTEGER.
    43. 

  43. DEFINE {1} {2} VARIABLE VProgWahl AS INTEGER   FORMAT "9" INIT 1.
    44. 

  44. DEFINE {1} {2} VARIABLE VAnzahl   AS INTEGER.
    45. 

  45. DEFINE {1} {2} VARIABLE VPName    AS CHARACTER.
    46. 

  46. DEFINE {1} {2} VARIABLE XDruDat   AS DATE      FORMAT "99.99.9999".
    47. 

  47. DEFINE {1} {2} VARIABLE Vcpi      AS CHARACTER FORMAT "x(30)".
    48. 

  48. DEFINE {1} {2} VARIABLE ASchname  LIKE Schrift.Schname.
    49. 

  49. DEFINE {1} {2} VARIABLE ASchbild  LIKE Schrift.Schbild.
    50. 

  50. DEFINE {1} {2} VARIABLE lPDF      AS LOG       NO-UNDO.
    51. 

  51. DEFINE {1} {2} VARIABLE cProcName AS CHARACTER NO-UNDO.
    52. 

  52. 

  53. DEFINE {1} {2} STREAM In_Stream.
    54. 

  54. DEFINE {1} {2} STREAM Out_Stream.
    55. 

  55. 

  56. DEFINE {1} {2} BUFFER bSteuer  FOR Steuer.
    57. 

  57. DEFINE {1} {2} BUFFER bListen  FOR Listen.
    58. 

  58. DEFINE {1} {2} BUFFER bLiDruck FOR LiDruck.
    59. 

  59. DEFINE {1} {2} BUFFER bDrucker FOR Drucker.
    60. 

  60. DEFINE {1} {2} BUFFER bSchrift FOR Schrift.
    61. 

  61.