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