external fentrybox()

public jobnr ptstr

global x

MAIN

' load aud1_cst.vw

while true
' order change physical
single-step oFF
repaint oN
' repaint

     x = fentrybox(" Enter Job Nr ",6,"","")
     if x = -1
     	exit while
     end if
     jobnr = ptstr
	if len(ptstr)=0
		continue while
	end if
     order change key "[Job_Nr]"
     data query execute "job_reqn.dfq" index "job_reqn.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' ³ QUERY is:  [Job_Nr] = jobnr                                        ³
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

single-step oN
	print report execute "all_reqn" printer detail start 1 end 0 copies 1
end while
END MAIN