I can't think of anything other than a used-defined script assigned to each screen that you want to warn. You can check IM_Physical for records and, if found, MessageBox 'Physical Inventory in Process'. I don't have Sage 100 installed on my PC here, but the VBScript would be something like:
oPhys = 0: retVal = 0 : cnt = 0
Set oPhys = oSession.GetObject("IM_Physical_svc")retVal = oPhys.MoveFirst() ' start at the beginning
Do Until cBool(oPhys.EOF) ' count the number of records in IM_Physical
cnt=cnt+1
retVal = oPhys.MoveNext()
Loop
if cnt > 0 then
retVal = oSession.AsObject(oSession.UI).MessageBox("", "Physical Inventory in Progress","Title=Warning,Icon=!")end ifThis is counting all records each time you enter the screen, but you could limit it to counting just a few for confirmation.
------------------------------
Steve Iwanowski, NextStep Technology Advisors, aka DSD Lancaster PA ¯\_(ツ)_/¯
------------------------------