' d - temp

external Background() popuplist() vloadif() dpath navrecs()

public bkgnd1 bkgnd2 ptstr custcode jobnr ptval

global $rollnr $year $teens_now $today


MAIN
local w1 w2 w3 x
message "Contact3 must be loaded"

repaint off
' repaint
single-step on

screen save 1 1  9 100 bkgnd1
screen save 10 1 28 50 bkgnd2

' Background()

custcode="S20910"

vloadif(dpath|"contact3.vw")

screen restore 1 1 bkgnd1
screen restore 10 1 bkgnd2

order change key "[Customer_Code]"
data query execute "statmnt2.dfq" index "job_reqn.idx"

' screen restore 1 1 bkgnd
repaint on
repaint

    while true
      ptval = navrecs()
      if ptval = {Enter}
jobnr=[Job_Nr]
message "jobnr) is:"&str(jobnr)
      elseif ptval = {Esc}
        stop
      end if
   end while
END MAIN

'     repaint on
'     repaint
'     ptval=0
'     y1 = format(" CUSTOMERS ALREADY HELD ON FILE ","M71")
'     y2 = format(" {A}dd"&chr(34)|custname|chr(34)|" - {S}elect highlight - {Esc} exits ","M71")
'     screen print 4 6 fgp bgp y1
'     screen print 21 6 fgp bgp y2
'     end while
'   end while
' END FUNCTION 'EnterCustName()