'R_MTHLYB - BOSSMENU item only for reports to be produced monthly

external   vkeybox() messbox() sch scw messboxwait()

public     ptstr

global     vk

MAIN
screen clear box 1 1 sch scw 0 0 no-border
single-step off
while true
  vk=vkeybox(8,28,"1Sales˙(with˙%) 1Unprocessed˙Gds˙Recd 2Ancillary˙reports 1Portfolio 3Remnant˙Commission","Press {Esc} to exit")
' 1Sales˙(with˙%)
' 1Aged˙Debtors
' 1Unprocessed˙Gds˙Recd
' 1Requisition˙summaries
' 2Ancillary˙reports
' 3Remnant˙Commission
' 1Work˙in˙Progress
' message "vk is:"&str(vk)
  if vk = 0
    if ptstr == "s"
      execute "salrep_b.rf3" in-memory		' Sales with %
      continue while
'     elseif ptstr == "a"
'       execute "mr_debts.rf3" in-memory
'       continue while
    elseif ptstr == "u"
      execute "gds2proc.rf3" in-memory
      continue while
'     elseif ptstr == "r"
'       execute "carplist.rf3" in-memory
'       continue while
    elseif ptstr == "n"
      execute "ancl_lst.rf3" in-memory
      continue while
'     elseif ptstr == "w"
'       execute "wip.rf3" in-memory
'       continue while
    elseif ptstr == "p"
      execute "portfoli.rf3" in-memory
      continue while
    elseif ptstr == "m"
      execute "remtcomm.rf3" in-memory
      continue while
    end if
  elseif vk = -1
    exit while
  else
    messboxwait(" Vkeybox routine failed ",0,0,1)
    exit while
  end if
end while
transfer "pm_menu.psl" in-memory
END MAIN