'JOB_REQN - print all reqn's for job

external   vloadif() vunloadif() dpath fentrybox() sch scw shopmask messbox()
external   PrintReport() cpath

public     ptstr jobnr ftgdate deladdr1 custname orddate

global     PrintJobReqns() x ReturnToMenu()

MAIN
  single-step off
  file unload all
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  while true
    x = PrintJobReqns()
    if x = -1
      ReturnToMenu()
      exit while
    end if
  end while
END MAIN


FUNCTION PrintJobReqns()
local k1 k2
  vloadif(dpath|"products.vws")
  vloadif(dpath|"ord_stck.vw")
  while true
' select job
    order change physical
    screen clear box 1 1 sch scw 0 0 no-border
    repaint off
    x = fentrybox(" Job Nr to Print Requisitions for - {Esc} to exit ",6,shopmask,"")
    if x = -1
      return (-1)
    end if
    jobnr = ptstr
    order change key "[Job_Nr]"
    data find "[Job_Nr]" equal jobnr options "g"   '  find correct JOB
    if cerror
      messbox(" Job NOT listed ",0,0,1)
      continue while
    else
      ftgdate  = @if([Fitting_Date]=blank,"None",date2([Fitting_Date]))
      deladdr1 = @if([Delivery_Address_1]=blank,"Not known",[Delivery_Address_1])
      custname = [CustOrd_Name]
      orddate  = [Date_Of_Order]
    end if
    vloadif(dpath|"requsn.vws")
    order change key "[Job_Nr]"
    data query execute "job_reqn.dfq" index "o.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' [Job_Nr] = jobnr
' and
' not(deleted)
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
    if cerror
      messbox(" No requisitions entered for"&jobnr&" ",0,0,1)
      return (-1)
    end if
    data query execute "ord_stck.dfq" index "o1.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'   [Item_Type] = "C" or [Item_Type] = "S"
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
    if cerror
      messbox(" No requisitions entered for"&jobnr&" ",0,0,1)
      return (-1)
    end if

    while true
      order sort now dictionary "ord_stck.idx" fields "[RollNr]" ascending
      PrintReport("ord_stck.dfr","Listing stock carpets",1,2,3,1)
      if cerror
        messbox(" Printer not available - retry? (y/n) ",1,0,1)
        if ptstr == "y"
          continue while
        else
          screen clear box 1 1 sch scw 0 0 no-border
          messbox(" View on Screen? (y/n) ",1,1,1)
          if ptstr == "y"
            screen clear box 1 1 sch scw 0 0 no-border
            repaint on
            PrintReport("ord_stck.dfr","",1,2,1,1)
  '            print report execute "ord_stck.dfr" text-screen detail start 1 end 0
            screen clear box 1 1 sch scw 0 0 no-border
            repaint off
            exit while
          else
            exit while
          end if
        end if
      end if
      exit while
    end while
    vunloadif("ord_stck.vw")
    return (-1)
  end while
END FUNCTION ' PrintJobReqns()


FUNCTION ReturnToMenu()
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  file unload all
  transfer cpath|"pm_menu.psl" in-memory
END FUNCTION ' ReturnToMenu()
' order sort now dictionary "a" fields "[RollNr]" ascending