GeMIS_WEB/GUI/v8/nullstellung.p

DEF VAR Ja              AS LOG              NO-UNDO.

Ja = FALSE.
MESSAGE "Achtung !!! Alle Daten werden auf Null gestellt !!! Wenn OK, bitte warten bis Meldung Ende kommt"
        VIEW-AS ALERT-BOX INFORMATION BUTTONS OK-CANCEL
        UPDATE Ja.
IF NOT Ja THEN RETURN NO-APPLY.

FOR EACH Artbw:
    DELETE  Artbw.
END.

FOR EACH ArtUms:
    DELETE  ArtUms.
END.
FOR EACH Artst:
    CREATE  ArtUms.
    ASSIGN  ArtUms.Firma    = Artst.Firma
            ArtUms.Jahr     = 2000
            ArtUms.Artnr    = Artst.Artnr
            ArtUms.Inhalt   = Artst.Inhalt
            ArtUms.Jahrg    = Artst.Jahr.
    Bestellt   = 0.
    Bestand    = 0.
    Reserviert = 0.
END.

FOR EACH ArtLager:
    Inv_Best    = 0.
    Inv_Alt     = 0.
    Ausgang     = 0.
    Eingang     = 0.
    Bestand     = 0.
    Bestand_Alt = 0.
    Datum_Inv   = ?.
END.

FOR EACH AufGebKo:
    DELETE  AufGebKo.
END.
FOR EACH AufGKon:
    DELETE  AufGKon.
END.
FOR EACH Aufko:
    DELETE  Aufko.
END.
FOR EACH AufRabSu:
    DELETE  AufRabSu.
END.
FOR EACH AufSpRab:
    DELETE  AufSpRab.
END.
FOR EACH Aufze:
    DELETE  Aufze.
END.

FOR EACH BesGebKo:
    DELETE  BesGebKo.
END.
FOR EACH Besko:
    DELETE  Besko.
END.
FOR EACH Besze:
    DELETE  Besze.
END.

FOR EACH DeArUms:
    DELETE  DeArUms.
END.
FOR EACH Debfa:
    DELETE  Debfa.
END.
FOR EACH Debhi:
    DELETE  Debhi.
END.
FOR EACH Debop:
    DELETE  Debop.
END.
FOR EACH DebUms:
    DELETE  DebUms.
END.
FOR EACH Debst:
    CREATE  DebUms.
    ASSIGN  DebUms.Firma   = Debst.Firma
            DebUms.Jahr    = 2000
            DebUms.Knr     = Debst.Knr
            DebUms.Ums_Grp = 9999.
    Debst.Saldo = 0.
END.
FOR EACH Debwu:
    DELETE  Debwu.
END.
FOR EACH Debza:
    DELETE  Debza.
END.

FOR EACH GebKontr:
    DELETE  GebKontr.
END.

FOR EACH Interf:
    DELETE  Interf.
END.

FOR EACH KunBest:
    DELETE  KunBest.
END.

FOR EACH Passant:
    DELETE  Passant.
END.

FOR EACH SavGebKo:
    DELETE  SavGebKo.
END.
FOR EACH SavGKon:
    DELETE  SavGKon.
END.
FOR EACH Savko:
    DELETE  Savko.
END.
FOR EACH SavRabSu:
    DELETE  SavRabSu.
END.
FOR EACH SavSpRab:
    DELETE  SavSpRab.
END.
FOR EACH Savze:
    DELETE  Savze.
END.

FOR EACH Zahlung:
    DELETE  Zahlung.
END.

FOR EACH Steunr:
    Nr1 = 50000.
    Nr2 = 20000.
    Nr3 = 0.
    Nr4 = 0.
    Nr5 = 0.
END.

MESSAGE "NULLSTELLUNG ist beendet"
        VIEW-AS ALERT-BOX INFORMATION.

RETURN NO-APPLY.