FUNCTION ImmtOrders()
  ImmtFittingDate()
  file unload all
' message "#branches is:"&str(#branches)
' message "$branches is:"&str($branches)
  progress(15,10," Searching for Goods not recv'd for imminent jobs ",0)

  vloadif(dpath|"notrecvd.vw")
  for i = 1 to #branches
    $b = group($branches,i)   'message "$b is:"&$b
    branchname=case $b ("F","Fulham") ("R","Raynes") ("S","Sheen") ("T","Trade") ("W","Warehouse") ("P","Putney")
    progtag(fgi,bgi,branchname)
    choice=$b                          'message "choice is:"&str(choice)
    order change key "[Job_Nr]"
    data query execute "shopimmt.dfq" index "int1.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'   left([Job_Nr],1) = choice
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
    if cerror
      messbox(" NO outstanding goods for imminent jobs ",0,0,1)
' message "makeidx"
      x = makeidx("goodsout",ipath|$b|"_immt.idx","0",3)     'message "makeidx is:"&str(x)
      continue for
    else
' message "ftgperiod is:"&str(ftgperiod)
      data query execute "immtjobs.dfq" index "int.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'     days([Date_Out]) > days(today)
'     and
'     days([Date_Out]) <= days(ftgperiod)
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
      if cerror
        messbox(" NO imminent jobs ",0,0,1)
' message "makeidx"
      x = makeidx("goodsout",ipath|$b|"_immt.idx","0",3)     'message "makeidx is:"&str(x)
        continue for
      else
        data query execute "cplprep2.dfq" index "int2.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'   [RollNr] = "00000/00"
'   or
'   [RollNr] = "BESPOK"
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
        if cerror
          messbox(" NO outstanding goods for imminent jobs ",0,0,1)
          x = makeidx("goodsout",ipath|$b|"_immt.idx","0",3)     'message "makeidx is:"&str(x)
' message "makeidx"
          continue for
        end if
      end if
    end if
'     order sort now dictionary "imm2.idx" fields "[Date_Out]" ascending
    order sort now dictionary ipath|$b|"_immt.idx" fields "[Date_Out]" ascending
'   end if
'     exit while
'   end while
  end for
  vunloadif("notrecvd.vw")
END FUNCTION 'ImmtOrders()