'LU_ORDNR - uses bpopdb to find Order Nr

' v1.0 - 24/7/93

external   messbox() fentrybox() dpath vloadif() scr
external   vunloadif() sch scw cpath fgp bgp shopmask

public     ptstr jobnr

global     FindJobNr()
global     currentjob


MAIN
single-step off

FindJobNr()

vunloadif("order_vu.vw")
transfer cpath|"pm_menu.psl" in-memory
END MAIN

FUNCTION FindJobNr()                   ' finds Job & updates Cust_Ord
local tel_locn telnr
while true
' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
' º Enter Job Nr, find & confirm details                               º
' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  while fentrybox(" Enter Job Nr - {Esc} to finish ",6,shopmask,"") = -1
    return (-1)
  end while
  jobnr=ptstr

  vloadif(dpath|"order_vu.vw")           ' load view for updating
  order change physical
  order change key "[Job_Nr]"
  data find "[Job_Nr]" equal jobnr options "g"   '  find correct JOB
  if cerror
    messbox(" Job NOT entered - use INITIAL ORDER first ",0,0,1)
    return (-1)
  end if

  currentjob=precord
  repaint on                          '  show customer details and ask
  repaint                             '  for confirmation
  screen print 21 1 fgp bgp (format("   Press any key to exit ","M80"))
  repaint off
  message
'  pagerec(1,1)
  screen clear box 1 1 sch scw 0 0 no-border
  exit while
end while
END FUNCTION ' FindJobNr()