FUNCTION PrintJobs()
  vloadif(dpath|"jobs2fit.vw")
  order change index "jobs2fit.idx"
  order sort now dictionary "lstjobs.idx" fields "[CustOrd_Name]" ascending
  sr = @if(records<18,11-int(records/2),3) 'message "sr is:"&str(sr)
  er = @if(records<18,sr+records+1,20)     'message "er is:"&str(er)
  while true
    x = bpopdb("jobs2fit",6,"","[$desc]","L78","[Job_Nr]","L0","[Job_Nr]",sr,2,er,79,"",0)
    screen shortrestore dsa
    repaint off
    if x = -1
      screen clear box 1 1 sch scw 0 0 no-border
      repaint off
      return (-1)
    else
      jobnr = [Job_Nr]               'message "jobnr is:"&str(jobnr)
      PrintJobSheet()
      vloadif(dpath|"jobs2fit.vw")
    end if
  end while
END FUNCTION 'PrintJobs()


FUNCTION PrintJobSheet()

' message " PrintJobSheet()"

  custname  = [CustOrd_Name]
  deladdr1  = [Delivery_Address_1]
  deladdr2  = [Delivery_Address_2]
  deladdr3  = [Del_City]
  deladdr4  = [Del_Postcode]
  offtel    = [Office_Tel]
  hometel   = [Home_Tel]
  ftginstr  = [Instructions]
  ftgcomm   = [Fitting_Comment]
  cr_status = [Credit_Status]
  mobile    = [Mobile/Other_Nr]
  balancedue= [Balance_Due]

' find req'ns (not deleted) for jobnr & fitter
  vloadif(dpath|"lststk_G.vw")
  order change index "todays1.idx"
  data query execute "jobsheet.dfq" index "job_reqn.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'   [Job_Nr] = jobnr
'   and
'   [Itemtype] <> "O"
'   and
'   not(deleted)
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  if cerror
    messboxwait(" No goods to despatch for job"&jobnr|" ",0,0,1)
    return (0)
  end if
  order sort execute dictionary "lst_stck.dfs" index "lst_stck"
  data goto record first
  $ftrs = [FtrCode]
  data goto record next
  for i = 2 to records                 'create text string of Job Nrs
    x = chkstr([FtrCode],$ftrs)
    if x = -1
      $ftrs = $ftrs&[FtrCode]
    end if
    data goto record next
  end for
' message "$ftrs is:"&str($ftrs)
  x=strcount($ftrs)                    'message "x is:"&str(x)
  #ftrs = ptval                        'message "#ftrs is:"&str(#ftrs)
  for i = 1 to #ftrs
' message "$ftrs is:"&str($ftrs)
' message "i is:"&str(i)
    ftrcode = group($ftrs,i)           '
' message "ftrcode is:"&str(ftrcode)
    vloadif(dpath|"ftr_list.vws")
    ftrname = filelookup([Fitter_Code],[Nickname],ftrcode)
    vloadif(dpath|"lststk_G.vw")
    data query execute "ftrsheet.dfq" index "ftrsheet.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'   [FtrCode] = ftrcode
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
' sort by LstOrder
    order sort execute dictionary "lst_stck" index "lst_stck"
'     remove(X_path|"X_jobwks.*")
'     data query execute "not_del.dfq" Smart4 X_path|"X_jobwks" fields "[Fitting_Date|Width]"
'     vunloadif("X_jobwks.vws")
'     _SWIP_Crystal(Xreppath|"X_jobwks","P",0,1,"")

'     vloadif(dpath|"lststk_G.vw")
'     vloadif(dpath|"lststk_a.vw")
'     vloadif(dpath|"ftrwks_X.vw")
	PrintReport("ftrwks_G.dfr","Job Worksheet",p3,p4,p5,p6)
'     return (0)
'     p1 = "ftrwks_g.dfr"
'     PrintReport(p1,"Worksheet"&jobnr,p3,p4,p5,p6)
    order change index "lst_stck.idx"
  end for
  vunloadif("ftr_list.vws")
  return (0)
END FUNCTION 'PrintJobSheet()