(******************************************************************************)
(*      This MODULE is Public Domain. Copy me like a beast!                   *)
(*               Christian Ledermann                                          *)
(*               W”lfelkofen 2                                                *)
(*               84166 Adlkofen                                               *)
(******************************************************************************)
(*                                                                            *)
(* Started:   20.12.92     03:54:30                                           *)
(* Version: 20.12.89   01:474:12:54                                           *)
(*                                                                            *)
(******************************************************************************)
(*                                                                            *)
(* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
(* keinerlei Wartung und �bernehme keine Verantwortung f�r Sch„den die        *)
(* durch die Benutzung dieses Programmes entstehen.                           *)
(* Jegliche Ersatzanspr�che lehne ich ab.                                     *)
(*                                                                            *)
(******************************************************************************)
DEFINITION MODULE PreisErfassung;
FROM BlRscInc IMPORT EKB1,EKL7;
TYPE
      GTString = ARRAY [0..15] OF CHAR;

       EKPreis = RECORD TreeIndex         : INTEGER;
                        Getraenk          : GTString;
                        Preis,
                        FlaschenProKasten : INTEGER;
                        NeuBezogeneKaesten,
                        ZuBezahlendeKaesten,
                        KaestenGes        : INTEGER;
                 END(*RECORD*);


VAR VerkaufsPreis : RECORD  BierPreis , LimoPreis :INTEGER;
                    END(*RECORD*);

         DD,MM,JJ    : ARRAY [0..2] OF CHAR;
       EinKaufsPreis : ARRAY[EKB1..EKL7] OF  EKPreis;


PROCEDURE GetDate():BOOLEAN;
PROCEDURE LoadPreise;
PROCEDURE LoadOldPreise;
PROCEDURE SavePreise;

PROCEDURE EinkaufsPreise;
PROCEDURE VerkaufsPreise;

PROCEDURE SetPreferences( Ordnen,LeerZeilen:INTEGER);
PROCEDURE GetPreferences(VAR  Ordnen,LeerZeilen:INTEGER):BOOLEAN;

END PreisErfassung.