ttbestellvorschlag.i 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  1. /* -------------------------------------------------- */
  2. /* TEMP-TABLE für Bestellvorschlag */
  3. /* -------------------------------------------------- */
  4. DEFINE TEMP-TABLE tVorschlag
  5. FIELD Besnr AS INTEGER
  6. FIELD Typ AS INTEGER
  7. FIELD Lager AS INTEGER
  8. FIELD Knr AS INTEGER
  9. FIELD Artnr AS INTEGER
  10. FIELD Artikel AS CHARACTER
  11. FIELD Inhalt AS INTEGER
  12. FIELD Jahr AS INTEGER
  13. FIELD lBeschaff AS LOGICAL
  14. FIELD Bestand AS INTEGER
  15. FIELD TagesBestand AS DECIMAL
  16. FIELD Bestellt AS DECIMAL
  17. FIELD Rueckstand AS DECIMAL
  18. FIELD Reserviert AS INTEGER
  19. FIELD Mind_Bestand AS INTEGER
  20. FIELD Soll_Bestand AS INTEGER
  21. FIELD Meld_Bestand AS INTEGER
  22. FIELD Verbrauch AS DECIMAL
  23. FIELD Bestellung AS INTEGER
  24. FIELD Mind_Berechnet AS INTEGER
  25. FIELD Vorschlag_Me AS INTEGER
  26. FIELD Verbrauch_VorMt1 AS INTEGER
  27. FIELD Verbrauch_VorMt2 AS INTEGER
  28. FIELD Verbrauch_VorMt3 AS INTEGER
  29. FIELD Verbrauch_12Mt AS INTEGER
  30. FIELD Verbrauch_0106 AS INTEGER
  31. FIELD Verbrauch_0712 AS INTEGER
  32. FIELD Verbrauch_Aktiv AS INTEGER
  33. FIELD Verbrauch_Verg AS INTEGER
  34. FIELD Verbrauch_VjPer1 AS INTEGER /* Menge vor 1 Jahr für Bestellperiode + 1 (Bestelldatum + Bestellintervall + Lieferzeit */
  35. FIELD Verbrauch_VjPer2 AS INTEGER /* Menge vor 1 Jahr für Bestellperiode + 2 */
  36. FIELD Verbrauch_VjPer3 AS INTEGER /* Menge vor 1 Jahr für Bestellperiode + 3 */
  37. FIELD Verbrauch_Letzt AS INTEGER
  38. FIELD LagerOrt AS CHARACTER
  39. FIELD GGeb_Me AS DECIMAL
  40. FIELD VGeb_Me AS DECIMAL
  41. FIELD KGeb_Me AS DECIMAL
  42. FIELD lBewegungen AS LOGICAL
  43. FIELD GGeb_Inhalt AS INTEGER
  44. FIELD VGeb_Inhalt AS INTEGER
  45. FIELD KGeb_Inhalt AS INTEGER
  46. FIELD Mind_Bestellung AS INTEGER
  47. FIELD lMindBestMenge AS LOGICAL
  48. FIELD cArtikel AS CHARACTER FORMAT "x(40)"
  49. FIELD GGeb_Cd AS CHARACTER
  50. FIELD VGeb_Cd AS CHARACTER
  51. FIELD KGeb_Cd AS CHARACTER
  52. FIELD GGeb_Text AS CHARACTER
  53. FIELD VGeb_Text AS CHARACTER
  54. FIELD KGeb_Text AS CHARACTER
  55. FIELD nNetto AS DECIMAL
  56. INDEX tVorschlag-k1 IS PRIMARY
  57. Besnr
  58. Knr
  59. Typ
  60. Artnr
  61. .
  62. DEFINE VARIABLE htVorschlag AS HANDLE NO-UNDO.
  63. htVorschlag = TEMP-TABLE tVorschlag:DEFAULT-BUFFER-HANDLE.