'IMMINENT - list all jobs due to be fitted/goods despatched in 3 days time

external   fentrybox() messbox() vloadif() chkdate() sch scw popuplist()
external   dpath remove() makeidx() addidxrec() progress() PrintReport()
external   chkstr() posnpopup() reqnpath messboxwait() strcount() vunloadif()

public     ptstr ptval ftgperiod jobnr

global     ReturnToMenu() x i $type $jobnrs #jobnrs FittingDate() $chkdate
global     p2 p3 p4 p5 p6 #int PrintUnrecvdList()


MAIN
  single-step off
  screen clear box 1 1 sch scw 0 0 no-border
  file unload all
  #int=3
  repaint off
'   dfname   = "requsn"
'   current1 = reqnpath|jobnr|".idx"
'   PrintReport("immint_3.dfr","",1,1,3,1)
  p2 = ""    ' p2 = title at top of choice popup ("LABEL")
  p3 = 1     ' p3 = printer to be used (1=HPIII_QC; 2=GEN_EPSN etc)
' message "Port 1"
  p4 = 2     ' p4 = printer port to use (1,2 etc - network set to use 2=LASER; 3=LABEL)
  p5 = 1     ' p5 = choose VIEW/PRINT 1=PRINT; 2=VIEW; 3=CHOOSE
  p6 = 1     ' p6 = nr of copies

  FittingDate()

  PrintUnrecvdList()

  ReturnToMenu()

END MAIN


FUNCTION ReturnToMenu()
  screen clear box 1 1 sch scw 0 0 no-border
  repaint off
  file unload all
  transfer "pm_menu.psl" in-memory
END FUNCTION


FUNCTION PrintUnrecvdList()
  progress(15,10," Searching for uncompleted jobs ",0)
  vloadif(dpath|"goodsout.vws")
  order change key "[Date_Out]"
  data query execute "immtjobs.dfq" index "int.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'     days([Date_Out]) > days(today)
'     and
'     days([Date_Out]) <= days(ftgperiod)
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  if cerror
    messboxwait(" NO imminent jobs ",0,0,1)
    return (1)
  else
    data query execute "cplprep2.dfq" index "int2.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'   [RollNr] = "00000/00"
'   or
'   [RollNr] = "BESPOK"
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
    if cerror
      messboxwait(" NO unreceived goods for imminentjobs ",0,0,1)
      return (1)
    end if
  end if
  order sort now dictionary "imm2.idx" fields "[Date_Out]" ascending
  vunloadif("goodsout.vws")
  vloadif(dpath|"notrecvd.vw")
  order change index "imm2.idx"
  PrintReport("notrcvd1.dfr",p2,p3,p4,p5,p6)
END FUNCTION ' PrintUnrecvdList()


FUNCTION FittingDate()
local  f3
  if dayname(today)="Monday"
    f3=days(today)+#int
  elseif dayname(today)="Tuesday"
    f3=days(today)+#int
  elseif dayname(today)="Wednesday"
    f3=days(today)+#int+2
  elseif dayname(today)="Thursday"
    f3=days(today)+#int+2
  elseif dayname(today)="Friday"
    f3=days(today)+#int+2
  elseif dayname(today)="Saturday"
    f3=days(today)+#int+1
  elseif dayname(today)="Sunday"
    f3=days(today)+#int+1
  end if
  ftgperiod = date2(f3)
END FUNCTION ' FittingDate()