/* -------------------------------------------------- */ /* TEMP-TABLE für Bestellvorschlag */ /* -------------------------------------------------- */ DEFINE TEMP-TABLE tVorschlag FIELD Besnr AS INTEGER FIELD Typ AS INTEGER FIELD Lager AS INTEGER FIELD Knr AS INTEGER FIELD Artnr AS INTEGER FIELD Artikel AS CHARACTER FIELD Inhalt AS INTEGER FIELD Jahr AS INTEGER FIELD lBeschaff AS LOGICAL FIELD Bestand AS INTEGER FIELD TagesBestand AS DECIMAL FIELD Bestellt AS DECIMAL FIELD Rueckstand AS DECIMAL FIELD Reserviert AS INTEGER FIELD Mind_Bestand AS INTEGER FIELD Soll_Bestand AS INTEGER FIELD Meld_Bestand AS INTEGER FIELD Verbrauch AS DECIMAL FIELD Bestellung AS INTEGER FIELD Mind_Berechnet AS INTEGER FIELD Vorschlag_Me AS INTEGER FIELD Verbrauch_VorMt1 AS INTEGER FIELD Verbrauch_VorMt2 AS INTEGER FIELD Verbrauch_VorMt3 AS INTEGER FIELD Verbrauch_12Mt AS INTEGER FIELD Verbrauch_0106 AS INTEGER FIELD Verbrauch_0712 AS INTEGER FIELD Verbrauch_Aktiv AS INTEGER FIELD Verbrauch_Verg AS INTEGER FIELD Verbrauch_VjPer1 AS INTEGER /* Menge vor 1 Jahr für Bestellperiode + 1 (Bestelldatum + Bestellintervall + Lieferzeit */ FIELD Verbrauch_VjPer2 AS INTEGER /* Menge vor 1 Jahr für Bestellperiode + 2 */ FIELD Verbrauch_VjPer3 AS INTEGER /* Menge vor 1 Jahr für Bestellperiode + 3 */ FIELD Verbrauch_Letzt AS INTEGER FIELD LagerOrt AS CHARACTER FIELD GGeb_Me AS DECIMAL FIELD VGeb_Me AS DECIMAL FIELD KGeb_Me AS DECIMAL FIELD lBewegungen AS LOGICAL FIELD GGeb_Inhalt AS INTEGER FIELD VGeb_Inhalt AS INTEGER FIELD KGeb_Inhalt AS INTEGER FIELD Mind_Bestellung AS INTEGER FIELD lMindBestMenge AS LOGICAL FIELD cArtikel AS CHARACTER FORMAT "x(40)" FIELD GGeb_Cd AS CHARACTER FIELD VGeb_Cd AS CHARACTER FIELD KGeb_Cd AS CHARACTER FIELD GGeb_Text AS CHARACTER FIELD VGeb_Text AS CHARACTER FIELD KGeb_Text AS CHARACTER FIELD nNetto AS DECIMAL INDEX tVorschlag-k1 IS PRIMARY Besnr Knr Typ Artnr . DEFINE VARIABLE htVorschlag AS HANDLE NO-UNDO. htVorschlag = TEMP-TABLE tVorschlag:DEFAULT-BUFFER-HANDLE.