'OS_XORD  - lists undelivered X orders & shows o/s reqns

external   dpath vloadif() navrecs() messbox() sch scw cpath progress()
external   progtag()

public     ptstr ptval

global     x LoadScreens() Navigate() ReturnToMenu()


MAIN
single-step off
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  progress(15,10," Loading screens & selecting undelivered X orders ",0)
'   progtag(fgi,bgi," Selecting previous appointments ")

  x = LoadScreens()
  if x = -1
    ReturnToMenu()
  end if

  repaint on
  repaint
  x = Navigate()
  if x = -1
    ReturnToMenu()
  end if

END MAIN


FUNCTION LoadScreens()
  vloadif(dpath|"osxord1.vw")
'   order change key "[Order_Nr]"
  data query execute "os_xord1.dfq" index "os_xord.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' ³ QUERY is:  [Job_Nr] = jobnr                                        ³
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  if cerror
    messbox(" No undelivered X orders ",0,0,1)
    return (-1)
  end if
  window split horizontal 17
  data goto window 2
  window split vertical 45
  data goto window 3
  vloadif(dpath|"osxord3.vw")
  data goto window 2
  window split horizontal 20
  vloadif(dpath|"osxord2.vw")
  data goto window 4
  vloadif(dpath|"osxord4.vw")
  data goto window 1
'   window link "[Product_Code]" "osxord3.vw" "[Product_Code]"
  window link "[Product_Code]" "osxord3.vw" "[ProdCode]"
  data goto window 3
  window link "[Product_Code]" "osxord2.vw" "[Product_Code]"
  data goto window 2
  window link "[Supplier_Code]" "osxord4.vw" "[Supplier_Code]"
  data goto window 1
END FUNCTION ' LoadScreens()


FUNCTION Navigate()
  ptval=0
  while ptval <> {Esc}
    ptval = navrecs()
    if ptval = {Esc}
      return (-1)
    end if
  end while
END FUNCTION ' Navigate()


FUNCTION ReturnToMenu()
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  file unload all
  error off
  while true
    window close
    if cerror
      exit while
    end if
  end while
  transfer cpath|"pm_menu.psl" in-memory
END FUNCTION ' ReturnToMenu()