'CT_REPRN - reprints cutting tickets

external   fentrybox() messbox() progress() vloadif() vunloadif() chkdate()
external   dpath vloadexcif() chg_dsc() sch scw cpath remove() fgp bgp
external   mess4() PrintReport() shopmask makeidx() bgs fgs popuplist() dsa
external   messboxwait() increment() cplpath chkstr() addidxrec() strcount()
external   Background() userid bpopdb() getidxrecs()

public     ftgdate ptstr job_names[1] prod_code[1] ftr_codes[1] ptval jobnr
public     jobsperftr[1] $itemtype $cplrefnr ftrname custname deladdr1 $title
public     deladdr2 deladdr3 deladdr4 offtel hometel ftginstr ftgcomm $repnr
public     cr_status mobile balancedue $carptitle ftrcode $nickname datecode
public     #origsize $rollnr $refnr #out docref #newbal prodcode custcode
public     $jobseq ctgref

global     x ReturnToMenu() nrjobs nrftrs gdsinstck apptsconfd $index $file
global     p1 p2 p3 p4 p5 p6
global     CuttingList()
global     CuttingTicket()

MAIN
local l1 l2 l3 l4 l5 l6 l2a l7
single-step off
'--------------------------------------Setup
  Background()
  file unload all
' message "Printing to EPSON printer on port1"
  p2 = ""               ' p2 = title at top of choice popup ("LABEL")
  p3 = 2                ' p3 = printer to be used (1=HPIII_QC; 2=GEN_EPSN etc)
  p4 = 1                ' 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
  #origsize = 0

  x=CuttingList()
  if x = -1
    ReturnToMenu()
  end if
END MAIN


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


FUNCTION CuttingList()                 'vloadif(dpath|"lststk_G.vw")
  while true
    vloadif(dpath|"ctgtktS4.vw")
    x = fentrybox(" Enter Cutting Reference reference ",4,"*4#","")
    if x = -1
      return (-1)
    end if
    ctgref = "CT"|right("0000"|str(ptstr),4) 'message "ctgref is:"&str(ctgref)
    data goto record last
    data find "[CPL_Ref]" equal ctgref options "b"
    if cerror                               '   if none - then return
      x = messboxwait(" Ctg Ticket ref not found ",1,0,0)
      continue while
    end if
    x = CuttingTicket()
  end while
END FUNCTION ' CuttingList()


FUNCTION CuttingTicket()
local $prn $prn_nr $carpdatafile
  $index = "onlyone.idx"
  $file = "goodsout"
  remove($index)
  x = makeidx($file,$index,str(precord),3)    'message "x is:"&str(x)
  order change index $index
messboxwait(" Printer is EPSON ",0,0,1)
repaint on
repaint
' messboxwait(" Printer is HPIII ",0,0,1)
  p1 = "ct_reprn.dfr"
  p2 = ""               ' p2 = title at top of choice popup ("LABEL")
  p3 = 3                ' p3 = printer to be used (1=HPIII_QC; 2=GEN_EPSN etc)
'   p3 = 1                ' p3 = printer to be used (1=HPIII_QC; 2=GEN_EPSN etc)
  p4 = 1                ' 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
  PrintReport(p1,p2,p3,p4,p5,p6)
  order change physical
END FUNCTION ' CuttingTicket()