'SUPP_MON - prints CROSS-TAB summary of GDS_RCVD records for each supplier

external   dpath reqnpopup() sch scw messbox() vloadif() cpath remove()
external   PrintReport() progress()

public     ptstr $paymth $invpaymth

global     x ChooseMonth() Report()


MAIN
single-step off
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  file unload all
'   remove("suppsumm.*")
  remove("suppsumm.db")
  remove("suppsumm.vws")
  vloadif(dpath|"supp_mon.vw")

  x = ChooseMonth()
  if x = 0
    Report()
  end if

  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  file unload all
  transfer cpath|"pm_menu.psl" in-memory

END MAIN


FUNCTION ChooseMonth()
local m1 m2 m3 m4 m5
  m1 = upper(mid(addmonths(date1(today),-1),3,4))|"˙"|right(addmonths(date1(today),-1),2)
  m2 = upper(mid(addmonths(date1(today),0),3,4))|"˙"|right(addmonths(date1(today),0),2)
  m3 = upper(mid(addmonths(date1(today),1),3,4))|"˙"|right(addmonths(date1(today),1),2)
  m4 = upper(mid(addmonths(date1(today),2),3,4))|"˙"|right(addmonths(date1(today),2),2)
  m5 = format("Month to summarize","M20")
  screen print 15 31 15 1 m5
  x = reqnpopup(9,36,15,m1&m2&m3&m4,"",1,0,1,15,1)  'message "x is:"&str(x)
  if x = 0
    $paymth = ptstr                    'message "$paymth is:"&str($paymth)
  end if
  $invpaymth = "I"|left($paymth,3)|right($paymth,2)
' message "$invpaymth is:"&str($invpaymth)
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  progress(15,10," Please wait .... finding records ",0)
  order change key "[DueDate]"
  data query execute "supp_mon.dfq" index "x.idx"
' ŚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄæ
' ³ [DueDate] = $paymth or
' ³ [DueDate] = $invpaymth
' ĄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄŁ
  if cerror
    messbox(" No Goods Received items ",0,0,1)
    return (1)
  end if

END FUNCTION ' ChooseMonth()


FUNCTION Report()
local p1 p2 p3 p4 p5 p6
'(str,str,str,int,int,int)
  p1 = "supp_mon.dfr"   ' p1 = report definition ("ord_stck.dfr")
  p2 = ""               ' p2 = title at top of choice popup ("LABEL")
  p3 = 1                ' p3 = printer to be used (1=HPIII_QC; 2=GEN_EPSN etc)
  p4 = 2                ' p4 = printer port to use (1,2 etc - network set to use 2=LASER; 3=LABEL)
  p5 = 3                ' p5 = choose VIEW/PRINT 1=PRINT; 2=VIEW; 3=CHOOSE
  p6 = 1                ' p6 = nr of copies
  data cross-tab execute "supp_mon" Smart4 "suppsumm"
  order sort now dictionary "supp_mon.idx" fields "[Supplier]" ascending
  PrintReport(p1,p2,p3,p4,p5,p6)
END FUNCTION ' Report()