'PORTFOLI - reports for monthly BOSS report collection

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 1Orders 1WIP˙and˙Stock 1Cost˙of˙Sales 1Product˙Usage 1Aged˙Drs/Uninvoiced 1VATonDeposits","Press {Esc} to exit")
'   vk=vkeybox(8,28,"1Sales/Orders 1WIP˙and˙Stock 1Cost˙of˙Sales 1Product˙Usage 1Aged˙Drs/Uninvoiced 1VATonDeposits","Press {Esc} to exit")
' message "vk is:"&str(vk)
  if vk = 0
    if ptstr == "s"
      execute "mthlysal.rf3" in-memory
      continue while
    elseif ptstr == "a"
      execute "mr_debts.rf3" in-memory
      continue while
    elseif ptstr == "o"
      execute "mthlyord.rf3" in-memory
      continue while
    elseif ptstr == "v"
      execute "vatondep.rf3" in-memory
      continue while
    elseif ptstr == "p"
      execute "carplist.rf3" in-memory
      continue while
    elseif ptstr == "c"
      execute "costsale.rf3" in-memory
      continue while
    elseif ptstr == "w"
      execute "wip.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