Topspeed_JPI/TS-V3/MODBASE/PMIRPT.MOD

IMPLEMENTATION MODULE PMIRpt;
(*
 *  ModBase
 *  Release 3.0
 *  (c) Copyright 1986 - 1991 PMI
 *  P.O. Box 8402
 *  Green Bay Wi 53308
 *  All Rights Reserved
 *  by Ed Ross  
 *)

FROM PMIGlobals IMPORT Config,PMIScreens;
FROM NumTypes IMPORT Real8;
FROM Numbers IMPORT Max;
FROM PosUtils IMPORT Equal;
FROM StrEdit IMPORT CrunchBlanks,DeleteRightJustified,Append,CAPstr,DeleteChar;
FROM M2Strings IMPORT Length;
FROM LateLetters IMPORT CreateLateLetters,ProduceLateLetters;
FROM LowLevel IMPORT Fill;
FROM StringIO IMPORT PrintMessage,ErrorMessage,WriteEol,WriteStr;
FROM SmartScreen IMPORT ClearScreen;
FROM ScrnUtl1 IMPORT FieldNum;
FROM ScrnUtl2 IMPORT CloseDisplayFrame;
FROM VWindows IMPORT ClearPart, CurrentWindow, SetCursorHeight;
FROM ScrnTypes IMPORT DisplayFrame,InitDisplayFrame,AFrameName;
FROM FramePainter IMPORT ShowDisplayFrame,RedrawField;
FROM InputManager IMPORT ControlFrame;
FROM FrameManager IMPORT EraseFrame;
FROM Prompts IMPORT Prompt,PromptStr,PromptNum;
FROM SYSTEM IMPORT ADR,SIZE,ADDRESS;
FROM ControlUtils IMPORT ControlSeparately, LoadFrameList,Control,ChangeField;
FROM DspFiles IMPORT OpenDisplayFile,ReadDisplayFrame;
FROM HandleIO IMPORT FileExists,OpenFile,CloseHandle;
FROM GenLists IMPORT GenList, NewList,ListLength,GetElmt,
     GetElmtAdr,DisposeList;
FROM ListUtils IMPORT PrintList,TextFileToList;
FROM InvReports IMPORT InvHistory,InvOutstanding,InvOutByDate;
FROM CustReports IMPORT CustMailLabels,CustValue;
FROM IvyReports IMPORT TotalInventory,ReorderInventory;
FROM SalesReps IMPORT CreateEditSalesReps,ProduceCommissions;
PROCEDURE ControlReports();

VAR
  DF : DisplayFrame;
  NxtFrame : AFrameName;
BEGIN
  InitDisplayFrame(DF,CurrentWindow);
  ReadDisplayFrame(PMIScreens,DF,'Reports');
  REPEAT
    ClearScreen();
    ShowDisplayFrame(DF,0,0,0,0);
    ControlFrame(DF,1,'',FALSE,NxtFrame);
    IF Equal(NxtFrame,'Invtry1')
      THEN TotalInventory();
    ELSIF Equal(NxtFrame,'Invtry2')
      THEN ReorderInventory();
    ELSIF Equal(NxtFrame,'InvHist')
      THEN InvHistory();
    ELSIF Equal(NxtFrame,'InvOut')
      THEN InvOutstanding();
    ELSIF Equal(NxtFrame,'InvLateCust')
      THEN
    ELSIF Equal(NxtFrame,'InvLateDate')
      THEN InvOutByDate();
    ELSIF Equal(NxtFrame,'LateLtrMake')
      THEN CreateLateLetters();
    ELSIF Equal(NxtFrame,'LateLtrProd')
      THEN ProduceLateLetters();
    ELSIF Equal(NxtFrame,'CustMail')
      THEN CustMailLabels();
    ELSIF Equal(NxtFrame,'CustValue')
      THEN CustValue();
    ELSIF Equal(NxtFrame,'SalesReps1')
      THEN CreateEditSalesReps();
    ELSIF Equal(NxtFrame,'SalesReps2')
      THEN ProduceCommissions();
    ELSIF Equal(NxtFrame,'GasOut')
      THEN
    ELSIF Equal(NxtFrame,'GasHist')
      THEN
  END;
  UNTIL Equal(NxtFrame,'Exit');
  CloseDisplayFrame(DF);
END ControlReports;







END PMIRpt.