Topspeed_JPI/TS-V3/MODBASE/PMIRPT.LST

Listing:

    1  IMPLEMENTATION MODULE PMIRpt;
    2  (*
    3   *  ModBase
    4   *  Release 3.0
    5   *  (c) Copyright 1986 - 1991 PMI
    6   *  P.O. Box 8402
    7   *  Green Bay Wi 53308
    8   *  All Rights Reserved
    9   *  by Ed Ross  
   10   *)
   11  
   12  FROM PMIGlobals IMPORT Config,PMIScreens;
   13  FROM NumTypes IMPORT Real8;
   14  FROM Numbers IMPORT Max;
   15  FROM PosUtils IMPORT Equal;
   16  FROM StrEdit IMPORT CrunchBlanks,DeleteRightJustified,Append,CAPstr,DeleteChar;
   17  FROM M2Strings IMPORT Length;
   18  FROM LateLetters IMPORT CreateLateLetters,ProduceLateLetters;
   19  FROM LowLevel IMPORT Fill;
   20  FROM StringIO IMPORT PrintMessage,ErrorMessage,WriteEol,WriteStr;
   21  FROM SmartScreen IMPORT ClearScreen;
   22  FROM ScrnUtl1 IMPORT FieldNum;
   23  FROM ScrnUtl2 IMPORT CloseDisplayFrame;
   24  FROM VWindows IMPORT ClearPart, CurrentWindow, SetCursorHeight;
   25  FROM ScrnTypes IMPORT DisplayFrame,InitDisplayFrame,AFrameName;
   26  FROM FramePainter IMPORT ShowDisplayFrame,RedrawField;
   27  FROM InputManager IMPORT ControlFrame;
   28  FROM FrameManager IMPORT EraseFrame;
   29  FROM Prompts IMPORT Prompt,PromptStr,PromptNum;
   30  FROM SYSTEM IMPORT ADR,SIZE,ADDRESS;
   31  FROM ControlUtils IMPORT ControlSeparately, LoadFrameList,Control,ChangeField;
   32  FROM DspFiles IMPORT OpenDisplayFile,ReadDisplayFrame;
   33  FROM HandleIO IMPORT FileExists,OpenFile,CloseHandle;
   34  FROM GenLists IMPORT GenList, NewList,ListLength,GetElmt,
   35       GetElmtAdr,DisposeList;
   36  FROM ListUtils IMPORT PrintList,TextFileToList;
   37  FROM InvReports IMPORT InvHistory,InvOutstanding,InvOutByDate;
   38  FROM CustReports IMPORT CustMailLabels,CustValue;
   39  FROM IvyReports IMPORT TotalInventory,ReorderInventory;
   40  FROM SalesReps IMPORT CreateEditSalesReps,ProduceCommissions;
   41  PROCEDURE ControlReports();
   42  
   43  VAR
   44    DF : DisplayFrame;
   45    NxtFrame : AFrameName;
   46  BEGIN
   47    InitDisplayFrame(DF,CurrentWindow);
*****    ^ not supported yet
*****                     ^ not supported yet
*****                        ^ not supported yet
   48    ReadDisplayFrame(PMIScreens,DF,'Reports');
*****    ^ not supported yet
*****                     ^ not supported yet
*****                                ^ not supported yet
*****                                   ^ not supported yet
   49    REPEAT
   50      ClearScreen();
*****      ^ not supported yet
*****                  ^ not supported yet
   51      ShowDisplayFrame(DF,0,0,0,0);
*****      ^ not supported yet
*****                       ^ not supported yet
*****                                 ^ not supported yet
   52      ControlFrame(DF,1,'',FALSE,NxtFrame);
*****      ^ not supported yet
*****                   ^ not supported yet
*****                                 ^ not supported yet
   53      IF Equal(NxtFrame,'Invtry1')
*****         ^ not supported yet
*****               ^ not supported yet
*****                        ^ not supported yet
   54        THEN TotalInventory();
*****             ^ not supported yet
*****                            ^ not supported yet
   55      ELSIF Equal(NxtFrame,'Invtry2')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   56        THEN ReorderInventory();
*****             ^ not supported yet
*****                              ^ not supported yet
   57      ELSIF Equal(NxtFrame,'InvHist')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   58        THEN InvHistory();
*****             ^ not supported yet
*****                        ^ not supported yet
   59      ELSIF Equal(NxtFrame,'InvOut')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   60        THEN InvOutstanding();
*****             ^ not supported yet
*****                            ^ not supported yet
   61      ELSIF Equal(NxtFrame,'InvLateCust')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   62        THEN
   63      ELSIF Equal(NxtFrame,'InvLateDate')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   64        THEN InvOutByDate();
*****             ^ not supported yet
*****                          ^ not supported yet
   65      ELSIF Equal(NxtFrame,'LateLtrMake')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   66        THEN CreateLateLetters();
*****             ^ not supported yet
*****                               ^ not supported yet
   67      ELSIF Equal(NxtFrame,'LateLtrProd')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   68        THEN ProduceLateLetters();
*****             ^ not supported yet
*****                                ^ not supported yet
   69      ELSIF Equal(NxtFrame,'CustMail')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   70        THEN CustMailLabels();
*****             ^ not supported yet
*****                            ^ not supported yet
   71      ELSIF Equal(NxtFrame,'CustValue')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   72        THEN CustValue();
*****             ^ not supported yet
*****                       ^ not supported yet
   73      ELSIF Equal(NxtFrame,'SalesReps1')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   74        THEN CreateEditSalesReps();
*****             ^ not supported yet
*****                                 ^ not supported yet
   75      ELSIF Equal(NxtFrame,'SalesReps2')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   76        THEN ProduceCommissions();
*****             ^ not supported yet
*****                                ^ not supported yet
   77      ELSIF Equal(NxtFrame,'GasOut')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   78        THEN
   79      ELSIF Equal(NxtFrame,'GasHist')
*****            ^ not supported yet
*****                  ^ not supported yet
*****                           ^ not supported yet
   80        THEN
   81    END;
   82    UNTIL Equal(NxtFrame,'Exit');
*****          ^ not supported yet
*****                ^ not supported yet
*****                         ^ not supported yet
   83    CloseDisplayFrame(DF);
*****    ^ not supported yet
*****                      ^ not supported yet
   84  END ControlReports;
*****      ^ not supported yet
   85  
   86  
   87  
   88  
   89  
   90  
   91  
   92  END PMIRpt.
*****      ^ not supported yet

   86 errors