'PrintVar - prints individual var'ns

external  messline() makeidx() remove() fentrybox() PrintReport() dpath
external  vloadif() sch scw

public    ptstr varndate PrintVarn() ReturnToMenu() #prec

global    x $varnref p1 p2 p3 p4 p5 p6


MAIN
single-step off
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  file unload all
  p2 = ""   ' p2 = title at top of choice popup ("LABEL")
  p3 = 1    ' p3 = printer to be used (1=HPIII_QC; 2=GEN_EPSN etc)
  p4 = 1
  p5 = 1    ' p5 = choose VIEW/PRINT 1=PRINT; 2=VIEW; 3=CHOOSE
  p6 = 1    ' p6 = nr of copies
  varndate = today
  vloadif(dpath|"addvarn3.vw")
  remove("varnnote.idx")

  while true
    x = fentrybox(" Enter Variation Order Nr ",9,"","")
    if x = -1
      exit while
    end if
    $varnref = upper(ptstr)
    PrintVarn()
    continue while
  end while
  ReturnToMenu()
END MAIN


FUNCTION ReturnToMenu()
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  file unload all
END FUNCTION ' ReturnToMenu()


FUNCTION PrintVarn()
  order change key "[Var_Nr]"
  data find "[Var_Nr]" equal $varnref options ""
  if cerror                               '   if none - then return
'     x = messbox(" Job Nr not found - confirm as"&jobnr|"? (y/n) - {Esc} to exit ",1,0,0)
  end if
  #prec = precord
  remove("varnnote.idx")
  makeidx("variat_n","varnnote.idx",#prec,5)
  order change index "varnnote.idx"
  messline(" Print Variation Order? (y/n) ",1,1,1,21,5,72)
  if ptstr == "y"
'     screen clear box 1 1 sch scw 0 0 no-border
'     repaint off
'     progress(15,10," Printing Variation .... please wait ",0)
'     p1 = "prn_varn.dfr"
    p1 = "varnnote.dfr"
    PrintReport(p1,p2,p3,p4,p5,p6)
  end if
END FUNCTION ' PrintVarn()