'SHOWPAYT - view fitter payments for a chosen job - Shop menu for info

external  dpath Background() vloadif() fentrybox() popuplist() shopmask
external  cpath bpopdb() vunloadif()  messboxwait() navrecs() messline()
external  entryline()

public    ptstr jobnr dsa ftrcode ptval

global    x ReturnToMenu() Process() y3 y4 y5
global    $name $nickname ViewPayts()
'  HoldPayt() Release() ChangeFitter()
' global    ContraEntry() SplitPayment()


MAIN
single-step off
  Background()
  file unload all

  while true
    x = fentrybox(" Enter Job Nr ",6,shopmask,"")
    if x = -1
      exit while
    end if
    jobnr = ptstr
    Process(1)
  end while

  ReturnToMenu()

END MAIN


FUNCTION ReturnToMenu()
  Background()
  file unload all
  transfer cpath|"pm_menu.psl" in-memory
END FUNCTION ' ReturnToMenu()


FUNCTION Process(n)                    'n=0 query by ftr; n=1 query by job
local recnr jobseq ord bl m1
  repaint off
  vloadif(dpath|"holdftr2.vw")
  order change key "[JobNr]"
  data query execute "showpayt.dfq" index "hf1.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' [JobNr]=jobnr
' and
' not (deleted)
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  if cerror
    messboxwait(" No payment records found for"&jobnr,0,0,1)
    return (1)
  end if
  y5 = format("ÿFitter   Date                 Description                  Amount    Released ","L80")
  y3 = format("ÿFitting payments for"&jobnr|" ","M80")
  ViewPayts()
END FUNCTION ' Process()


FUNCTION ViewPayts()
local y2 ta
'   repaint on
'   repaint
'   y4 = format("ÿ{H}old/{R}elease payments        {Esc} to exit ","M80")
'   screen print 4 1 15 1 y3
'   screen print 5 1 15 1 y5
'   screen print 19 1 15 1 y4
  ta=currency(filesum([Amount]))
' message "ta is:"&str(ta)
  ptval=0
  while ptval <> {Esc}
  repaint on
  repaint
  y2 = format("Total Fitting charges are"&ta&" - {Esc} to exit ","M80")
  screen print 3 1 15 1 y3
  screen print 4 1 15 1 y5
'   screen print 3 1 15 1 y2
  screen print 22 1 15 1 y2

    ptval = navrecs()

'     if ptval = {H} or ptval = {h} ' alter Released to sum already paid - mark as "H"
'       HoldPayt()
'       screen print 19 1 15 1 y4
'
'     elseif ptval = {R} or ptval = {r}
'       Release()
'       screen print 19 1 15 1 y4
'
'     elseif ptval = {C} or ptval = {c}
'       ContraEntry()
'       screen print 19 1 15 1 y4
'
'     elseif ptval = {S} or ptval = {s}
'       SplitPayment()
'       screen print 19 1 15 1 y4
'
'     elseif ptval = {F} or ptval = {f}
'       ChangeFitter()
'       screen print 19 1 15 1 y4
'
    if ptval = {Esc}
      vunloadif("holdftr2.vw")
      vunloadif("holdftr1.vw")
      Background()
    end if
  end while
END FUNCTION ' AmendPayts()