Listing: 1 IMPLEMENTATION MODULE Invtry; 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 13 FROM ModBase3 IMPORT UpdateDBFile,WriteDBRec,DeleteRecord,ReadDBRec, 14 AppendBlank; 15 FROM DBIndxes IMPORT CurrentRec; 16 FROM PMIGlobals IMPORT PMIScreens; 17 FROM DBStuff IMPORT MakeKey; 18 FROM FrameManager IMPORT EraseFrame; 19 FROM Scrn2DBF IMPORT FrameToDBF, DBFToFrame; 20 FROM PosUtils IMPORT Equal; 21 FROM ScrnUtl2 IMPORT CloseDisplayFrame; 22 FROM StrEdit IMPORT CrunchBlanks,DeleteRightJustified,CAPstr,AssignStr; 23 FROM M2Strings IMPORT Length; 24 FROM StrConv IMPORT StrToReal; 25 FROM LowLevel IMPORT Fill; 26 FROM StringIO IMPORT PrintMessage,WriteStr,WriteEol,outp; 27 (* these next two are from stonybrook - the pmi version doesn't work*) 28 FROM EnvironUtils IMPORT ReadEnvironment; 29 FROM SmartScreen IMPORT ClearScreen; 30 FROM VWindows IMPORT ClearPart, CurrentWindow, SetCursorHeight; 31 FROM ScrnTypes IMPORT DisplayFrame,InitDisplayFrame,AFrameName, 32 ContinueInput,CancelInput,SubmitInput; 33 FROM FramePainter IMPORT ShowDisplayFrame; 34 FROM InputManager IMPORT ControlFrame; 35 FROM Prompts IMPORT Prompt,PromptStr,PromptYN; 36 FROM SYSTEM IMPORT ADR,SIZE; 37 FROM ControlUtils IMPORT ControlSeparately, LoadFrameList,Control,ReadInput; 38 FROM DspFiles IMPORT ReadDisplayFrame; 39 FROM HandleIO IMPORT FileExists; 40 FROM LowLevel IMPORT Fill; ***** ^ duplicate identifier ***** ^ duplicate identifier 41 FROM GenLists IMPORT GenList, NewList,ListLength,GetElmt,DisposeList; 42 FROM ScrnTypes IMPORT AFrameName, InitDisplayFrame,DisplayFile; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 43 FROM DBFInvtry IMPORT InvtryDBF, OpenInvtryDBF, 44 CloseInvtryDBF,FixInvRec,InvtryRec,MoveInvtryToDBF,MoveInvtryFromDBF, 45 FindInvtryByInvcode, FindInvtryByOrderfrm, NextInvtry, 46 PrevInvtry,FirstInvtry,LastInvtry,InvcodeIdx; 47 IMPORT InitCompilerMods; 48 FROM NumTypes IMPORT Real8; 49 FROM UOpsExt IMPORT Lookup,LookupProc; 50 FROM UserOps IMPORT AKeyHandler,TheKeyHandler; 51 IMPORT Key; 52 53 VAR 54 Status : INTEGER; 55 Environ : ARRAY [0..60] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 56 J : CARDINAL; 57 TopMenu : GenList; 58 FirstTime: BOOLEAN; 59 NextFrame,EndingFrame : AFrameName; 60 SelChar : CHAR; 61 NoData : BOOLEAN; (* true when no data is on the screen *) 62 InvtryDF : DisplayFrame; 63 PullDnMenu : GenList; 64 CurrentDF : DisplayFrame; (* used with lookup *) 65 LookUpOk : BOOLEAN; 66 InitInvtry : BOOLEAN; 67 68 69 70 71 PROCEDURE LookUpInvty(VAR Key : ARRAY OF CHAR); ***** ^ not supported yet 72 (* this routine will be called to lookup the database item 73 and fill in the blanks *) 74 VAR 75 Inv : InvtryRec; 76 CKey : ARRAY[0..10] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 77 B : BOOLEAN; 78 BEGIN 79 CAPstr(Key); ***** ^ not supported yet ***** ^ not supported yet 80 AssignStr(Key,CKey); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 81 MakeKey(CKey); ***** ^ not supported yet ***** ^ not supported yet 82 IF NOT FindInvtryByInvcode(CKey) ***** ^ not supported yet ***** ^ not supported yet 83 THEN 84 GeneralInventory(CKey) ***** ^ undeclared identifier ***** ^ not supported yet 85 END; 86 AssignStr(Key,CKey); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 87 LookUpOk := TRUE; 88 89 DBFToFrame(InvtryDBF,CurrentDF); (* fill in the frame and update*) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 90 ShowDisplayFrame(CurrentDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 91 END LookUpInvty; ***** ^ not supported yet 92 93 PROCEDURE UpdateInvQuant(InvtryNbr : ARRAY OF CHAR; ChangeAmt: Real8); ***** ^ not supported yet 94 (* add the change amount to the on hand amount. The change amount could 95 be positive or negative *) 96 97 END UpdateInvQuant; ***** ^ not supported yet 98 99 100 101 PROCEDURE AddInvBatch(); 102 (* take the value from the screen and add to the inventory record*) 103 (* used when new orders come in *) 104 VAR 105 OldLookup : Lookup; 106 FrameName : AFrameName; 107 AddStr : ARRAY[0..10] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 108 AddAmt : Real8; 109 B : BOOLEAN; 110 InvRec : InvtryRec; 111 BEGIN 112 OldLookup := LookupProc; (* save old lookup proc *) ***** ^ not supported yet ***** ^ not supported yet 113 LookupProc :=LookUpInvty; ***** ^ not supported yet ***** ^ not supported yet 114 InitDisplayFrame(CurrentDF,CurrentWindow); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 115 REPEAT 116 ReadDisplayFrame(PMIScreens,CurrentDF,'InvAdd'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 117 ShowDisplayFrame(CurrentDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 118 ControlFrame(CurrentDF,0,'',FALSE,FrameName); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 119 IF NOT LookUpOk 120 THEN 121 Prompt('Item not found '); ***** ^ not supported yet ***** ^ not supported yet 122 ELSE 123 ReadInput(CurrentDF,AddStr,'AddAmt'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 124 B := StrToReal(AddStr,0,AddAmt); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 125 B := FrameToDBF(InvtryDBF,CurrentDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 126 MoveInvtryFromDBF(InvRec); ***** ^ not supported yet ***** ^ not supported yet 127 InvRec.ONHAND := InvRec.ONHAND + AddAmt; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 128 InvRec.ONORDER := 'N'; ***** ^ not supported yet ***** ^ not supported yet 129 MoveInvtryToDBF(InvRec); ***** ^ not supported yet ***** ^ not supported yet 130 WriteDBRec(InvtryDBF); ***** ^ not supported yet ***** ^ not supported yet 131 END; 132 UNTIL NOT Equal(FrameName,'InvAdd'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 133 CloseDisplayFrame(CurrentDF); ***** ^ not supported yet ***** ^ not supported yet 134 LookupProc := OldLookup; ***** ^ not supported yet ***** ^ not supported yet 135 END AddInvBatch; ***** ^ not supported yet 136 137 PROCEDURE CtlKeyHandler(FrameRec : DisplayFrame; VAR LastKey : CARDINAL; 138 VAR NextFrame : AFrameName); 139 VAR 140 B : BOOLEAN; 141 142 143 BEGIN 144 NextFrame := ContinueInput; ***** ^ not supported yet ***** ^ not supported yet 145 CASE LastKey OF 146 Key.PgUp : B:= PrevInvtry(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 147 |Key.PgDn : B:= NextInvtry(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 148 |Key.CtrlPgDn : LastInvtry(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 149 |Key.CtrlPgUp : FirstInvtry(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 150 |Key.Escape : NextFrame := CancelInput; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 151 |Key.Return : NextFrame := SubmitInput; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 152 ELSE 153 END; 154 IF NOT (LastKey = Key.Escape) (* update the display *) ***** ^ not supported yet ***** ^ not supported yet 155 THEN 156 DBFToFrame(InvtryDBF,FrameRec); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 157 ShowDisplayFrame(FrameRec,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 158 END; 159 160 END CtlKeyHandler; ***** ^ not supported yet 161 162 163 PROCEDURE GetInvItem( VAR InvItem : InvtryRec): BOOLEAN; 164 (* this routine controls the problems associated with not finding 165 the inventory item on a lookup - will allow the user to 166 go forward, backward in the inventory records till the 167 correct item is found - 168 Returns the item in the record 169 otherwise returns false *) 170 VAR 171 OldKeyHandler : AKeyHandler; 172 NxtFrame : AFrameName; 173 B : BOOLEAN; 174 BEGIN 175 OldKeyHandler := TheKeyHandler; ***** ^ not supported yet ***** ^ not supported yet 176 TheKeyHandler := CtlKeyHandler; ***** ^ not supported yet ***** ^ not supported yet 177 InitDisplayFrame(InvtryDF,CurrentWindow); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 178 ReadDisplayFrame(PMIScreens,InvtryDF,'InvSearch'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 179 ReadDBRec(InvtryDBF,CurrentRec(InvcodeIdx)); (* get closest rec*) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 180 DBFToFrame(InvtryDBF,InvtryDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 181 ShowDisplayFrame(InvtryDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 182 ControlFrame(InvtryDF,1,'',TRUE,NxtFrame); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 183 184 185 TheKeyHandler := OldKeyHandler; ***** ^ not supported yet ***** ^ not supported yet 186 B := Equal('SUBMIT',NxtFrame); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 187 CloseDisplayFrame(InvtryDF); ***** ^ not supported yet ***** ^ not supported yet 188 IF B 189 THEN 190 MoveInvtryFromDBF(InvItem); ***** ^ not supported yet ***** ^ not supported yet 191 RETURN TRUE; 192 ELSE 193 RETURN FALSE; 194 END; 195 END GetInvItem; ***** ^ not supported yet 196 197 198 PROCEDURE UpdateInvBatch(); 199 (* this routine will update the inventory items in a batch mode*) 200 (* until the user hits esc key*) 201 VAR 202 OldLookup : Lookup; 203 FrameName : AFrameName; 204 B : BOOLEAN; 205 BEGIN 206 OldLookup := LookupProc; (* save old lookup proc *) ***** ^ not supported yet ***** ^ not supported yet 207 LookupProc := LookUpInvty; ***** ^ not supported yet ***** ^ not supported yet 208 InitDisplayFrame(CurrentDF,CurrentWindow); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 209 REPEAT 210 ReadDisplayFrame(PMIScreens,CurrentDF,'InvUpdate'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 211 ShowDisplayFrame(CurrentDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 212 ControlFrame(CurrentDF,0,'',FALSE,FrameName); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 213 IF NOT LookUpOk 214 THEN 215 Prompt('Item not found '); ***** ^ not supported yet ***** ^ not supported yet 216 ELSE 217 B := FrameToDBF(InvtryDBF,CurrentDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 218 FixInvRec(); ***** ^ not supported yet ***** ^ not supported yet 219 WriteDBRec(InvtryDBF); ***** ^ not supported yet ***** ^ not supported yet 220 END; 221 UNTIL NOT Equal(FrameName,'Update'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 222 CloseDisplayFrame(CurrentDF); ***** ^ not supported yet ***** ^ not supported yet 223 LookupProc := OldLookup; ***** ^ not supported yet ***** ^ not supported yet 224 END UpdateInvBatch; ***** ^ not supported yet 225 226 PROCEDURE FileMenu(SelChar: CHAR); 227 VAR 228 B : BOOLEAN; 229 Str : ARRAY [0..80] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 230 BEGIN 231 CASE SelChar OF 232 'A' : ReadDisplayFrame(PMIScreens,InvtryDF,'Invtry'); (*Clear out any of the fields *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 233 ShowDisplayFrame(InvtryDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 234 Control(InvtryDF); (* alow user input *) ***** ^ not supported yet ***** ^ not supported yet 235 AppendBlank(InvtryDBF); ***** ^ not supported yet ***** ^ not supported yet 236 B := FrameToDBF(InvtryDBF,InvtryDF); (* do something if couldn't add*) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 237 FixInvRec(); ***** ^ not supported yet ***** ^ not supported yet 238 WriteDBRec(InvtryDBF); ***** ^ not supported yet ***** ^ not supported yet 239 |'F' : FirstInvtry(); ***** ^ not supported yet ***** ^ not supported yet 240 DBFToFrame(InvtryDBF,InvtryDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 241 ShowDisplayFrame(InvtryDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 242 |'L' : LastInvtry(); ***** ^ not supported yet ***** ^ not supported yet 243 DBFToFrame(InvtryDBF,InvtryDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 244 ShowDisplayFrame(InvtryDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 245 246 |'N' : IF NextInvtry() ***** ^ not supported yet ***** ^ not supported yet 247 THEN 248 DBFToFrame(InvtryDBF,InvtryDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 249 ShowDisplayFrame(InvtryDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 250 END; 251 252 |'P' : IF PrevInvtry() ***** ^ not supported yet ***** ^ not supported yet 253 THEN 254 DBFToFrame(InvtryDBF,InvtryDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 255 ShowDisplayFrame(InvtryDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 256 END; 257 258 259 |'I' : (* The first unused letter in the index name or 'Q' *) 260 Fill(ADR(Str),SIZE(Str),0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 261 262 PromptStr('Enter Invtry Invcode ',Str); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 263 264 265 CrunchBlanks(Str); ***** ^ not supported yet ***** ^ not supported yet 266 CAPstr(Str); ***** ^ not supported yet ***** ^ not supported yet 267 IF NOT FindInvtryByInvcode(Str) ***** ^ not supported yet ***** ^ not supported yet 268 THEN 269 END; 270 DBFToFrame(InvtryDBF,InvtryDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 271 ShowDisplayFrame(InvtryDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 272 273 274 |'O' : (* The first unused letter in the index name or 'Q' *) 275 Fill(ADR(Str),SIZE(Str),0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 276 277 PromptStr('Enter Invtry Orderfrm ',Str); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 278 279 280 CrunchBlanks(Str); ***** ^ not supported yet ***** ^ not supported yet 281 IF NOT FindInvtryByOrderfrm(Str) ***** ^ not supported yet ***** ^ not supported yet 282 THEN 283 Prompt('Invtry Not Found'); ***** ^ not supported yet ***** ^ not supported yet 284 ELSE 285 DBFToFrame(InvtryDBF,InvtryDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 286 ShowDisplayFrame(InvtryDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 287 END; 288 END; (* end of case *) 289 END FileMenu; ***** ^ not supported yet 290 291 PROCEDURE EditMenu(SelChar : CHAR); 292 VAR 293 B : BOOLEAN; 294 BEGIN 295 CASE SelChar OF 296 'U' : Control(InvtryDF); ***** ^ not supported yet ***** ^ not supported yet 297 B := FrameToDBF(InvtryDBF,InvtryDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 298 FixInvRec(); ***** ^ not supported yet ***** ^ not supported yet 299 WriteDBRec(InvtryDBF); ***** ^ not supported yet ***** ^ not supported yet 300 |'D' : IF PromptYN('About to delete inventory ',InvtryDF) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 301 THEN 302 DeleteRecord(InvtryDBF); ***** ^ not supported yet ***** ^ not supported yet 303 B := NextInvtry(); (* set the index to next - then prev to point to *) ***** ^ not supported yet ***** ^ not supported yet 304 (* the correct item *) 305 306 FileMenu('P'); (* display the next customer *) ***** ^ not supported yet ***** ^ not supported yet 307 NoData := TRUE; 308 END; 309 END; 310 END EditMenu; ***** ^ not supported yet 311 312 PROCEDURE Init(); 313 BEGIN 314 NewList(PullDnMenu); ***** ^ not supported yet ***** ^ not supported yet 315 LoadFrameList(PMIScreens,'InvtryTopMenu',PullDnMenu); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 316 InitInvtry := TRUE; 317 END Init; ***** ^ not supported yet 318 319 PROCEDURE GeneralInventory(VAR InvtyCode : ARRAY OF CHAR); ***** ^ not supported yet 320 VAR 321 Inv : InvtryRec; 322 B : BOOLEAN; 323 BEGIN 324 InitDisplayFrame(InvtryDF,CurrentWindow); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 325 ReadDisplayFrame(PMIScreens,InvtryDF,'Invtry'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 326 MakeKey(InvtyCode); ***** ^ not supported yet ***** ^ not supported yet 327 IF InvtyCode[0] = CHR(0) ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 328 THEN FirstInvtry(); ***** ^ not supported yet ***** ^ not supported yet 329 ELSE 330 IF NOT NextInvtry() (* assume already did a find by number *) ***** ^ not supported yet ***** ^ not supported yet 331 THEN 332 B := PrevInvtry(); ***** ^ not supported yet ***** ^ not supported yet 333 END; 334 END; 335 DBFToFrame(InvtryDBF,InvtryDF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 336 ShowDisplayFrame(InvtryDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 337 IF NOT InitInvtry 338 THEN Init(); ***** ^ not supported yet ***** ^ not supported yet 339 END; 340 NoData := TRUE; 341 REPEAT 342 NextFrame := 'InvtryTopMenu'; ***** ^ not supported yet ***** ^ not supported yet 343 ControlSeparately(PullDnMenu,NextFrame,SelChar,EndingFrame); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 344 IF Equal(EndingFrame,'InvtryFileMenu') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 345 THEN FileMenu(SelChar); ***** ^ not supported yet ***** ^ not supported yet 346 ELSIF Equal(EndingFrame,'InvtEditMenu') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 347 THEN EditMenu(SelChar); ***** ^ not supported yet ***** ^ not supported yet 348 END; 349 350 UNTIL SelChar='X'; (* Assumes 'X' is only used to exit *) 351 MoveInvtryFromDBF(Inv); ***** ^ not supported yet ***** ^ not supported yet 352 AssignStr(Inv.INVCODE,InvtyCode); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 353 CloseDisplayFrame(InvtryDF); ***** ^ not supported yet ***** ^ not supported yet 354 355 END GeneralInventory; ***** ^ not supported yet 356 357 358 359 360 PROCEDURE ControlInvtry(); 361 VAR 362 NextFrame : AFrameName; 363 Str : ARRAY[0..10] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 364 DF : DisplayFrame; 365 BEGIN 366 ClearScreen(); ***** ^ not supported yet ***** ^ not supported yet 367 InitDisplayFrame(DF,CurrentWindow); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 368 369 OpenInvtryDBF(TRUE); ***** ^ not supported yet ***** ^ not supported yet 370 371 REPEAT 372 ReadDisplayFrame(PMIScreens,DF,'InvtryMain'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 373 ControlFrame(DF,1,'',TRUE,NextFrame); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 374 IF Equal(NextFrame,'GenInv') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 375 THEN Str := ''; ***** ^ not supported yet ***** ^ incompatible assignment 376 GeneralInventory(Str); ***** ^ not supported yet ***** ^ not supported yet 377 ELSIF Equal(NextFrame,'AddInv') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 378 THEN AddInvBatch(); ***** ^ not supported yet ***** ^ not supported yet 379 ELSIF Equal(NextFrame,'UpdateInv') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 380 THEN UpdateInvBatch(); ***** ^ not supported yet ***** ^ not supported yet 381 END; 382 ClearScreen(); ***** ^ not supported yet ***** ^ not supported yet 383 UNTIL Equal(NextFrame,'Exit'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 384 385 386 CloseDisplayFrame(DF); ***** ^ not supported yet ***** ^ not supported yet 387 END ControlInvtry; ***** ^ not supported yet 388 BEGIN 389 InitInvtry := FALSE; 390 END Invtry. ***** ^ not supported yet 404 errors