unit AsfTypes;


interface

uses Taccess,Unit_win;

TYPE

  CodeStr = string[8];
  NameStr =string[20];

  CustRec = record
    CustStatus : LongInt;
    CodeK: CodeStr;
    BirthDate: string[8];
    FirstName: string[17];
    LastName:NameStr;
    PatrName: string[17];
    Epaggelma: string[17];
    Addr: string[17];
    Phone: string[17];
    ArDipl: string[10];
    DiplDate:string[8];
    OBirthDate: string[4];
    OFirstName: string[17];
    OLastName: string[17];
    OPatrName: string[17];
    OEpaggelma: string[17];
    OAddr: string[17];
    OPhone: string[17];
    OArDipl: string[10];
    ODiplDate: string[8];
    SymFirst: string[17];
    SymLast:string[17];
    SymPatr:string[17];
    ErgKat:string[12];
    HP:string[3];
    Xrisi:string[4];
    Xroma:string[10];
    SB:string[8];
    Pyros:string[8];
    YZ:String[8];
    IZ:string[8];
    Epod:string[8];
    Klopis:string[8];
    Epib:string[8];
    Ypoloipo:LongInt;
  end; { CustRec }

 SymbRec=record
    CodeK:CodeStr;
    LastName:NameStr;
    Firstname:string[17];
    PatrName:string[17];
    BM:Integer;
    Symbolaio:string[7];
    Ananeosi:string[7];
    ProsthPraxi:string[7];
    DiarApo:string[8];
    DiarEos:string[8];
    Kathara:real;
    PosProm:real;
    Prom:real;
    Mikta:real;
    Flag_exof:boolean;
    Ypoloipo_symb:Longint;
    Pis:string[5];
    Eidop:string[8];
    Akyros:string[8];
    Para:string[80];
    end;




  AtyxRec=record
    CodeK:CodeStr;
    AA:integer;
    AtyxCode:string[8];
    AtDate:string[8];
    AtEidos:string[4];
    AtOdigos:string[20];
    AtyxAxia:LongInt;
    AtyxDateEx:string[8];
    end;

  PayRec=record
    CodeK:CodeStr;
    ArSymb:string[7];
    ProkDate:string[8];
    ProkApo:integer;
    ProkAxia:Longint;
    ExofDate:string[8];
    ExofApo:integer;

    end;

  MaxDataType = CustRec;
  MaxKeyType = CodeStr;
  Filename = string[66];

const

     MaxDataRecSize=444;
     MaxKeyLen= 20;
     PageSize=16;
     Order=8;
     PageStackSize=5;
     MaxHeight=5;
    BaseFileNm='FLCUST.dat';
    BaseIndexNm='FLCODX.dat';
    NameIndexNm='FLNAMX.dat';
    SymbFileNm='FLSYMB.dat';
    AtyxFileNm='FLATYX.dat';
    PaymentFileNm='FLPAYM.dat';
var
  CustFile :DataFile;
  SymbFile:File of SymbRec;
  AtyxFile : File of AtyxRec;
  PaymentFile: File of PayRec;
  CodeIndx : IndexFile;
  NameIndx : IndexFile;
  Customer : CustRec;
  Symb:SymbRec;
  Atyxhma  :AtyxRec;
  Payment  :PayRec;
  Ypol:Longint;

  SWin:_WindowPtr;
  SWin_check:Boolean;
  swin_title:_WinTitleStr;
  swin_pos:_WinTitlePos;
  Form_win:_WindowPtr;
  done_win:Boolean;

         ch:char;
         i,j:byte;
         finished,done,esc,ioerr,UpArr,DownArr,F10:boolean;
         check:boolean;
         add:boolean;
         gr,st,N:integer;
         stemp:string;



       implementation
       begin
       end.