*- updtakastk.prg
****
Local lcmasterid, lnavgrec1, lnavgrec2, lnavgrec3, lnpackno, lntakano, lntotrec, lntrnno
USEFILE('cuttm')
USEFILE('cuttct')
USEFILE('packtc')
lntakano = 0
Select cuttm
Set Order To takano
Select cuttct
Set Order To takano
Select packtm
Set Order To MASTERID
Select packtc
Set Order To takano
Select cuttct

Wait Window 'Working... Please Wait...' At Srows() / 2, Scols() / 2  Nowait

Select cuttct
Scan

   lntakano = takano
   If Not Empty(m.lntakano)
      **    Below code taking Maximum time in Coverage result
      Replace packed With ' ', packno With 0, recuttno With 0 In cuttct
      If Seek(m.lntakano, 'packtc', 'takano')
         lcmasterid	= packtc.MASTERID
         lnpackno	= Iif(Seek(m.lcmasterid, 'packtm', 'masterid'), packtm.packno, 0)
         **    Below code taking Maximum time in Coverage result
         Replace packed With Iif(m.lnpackno <> 0, 'Y', ' '), packno With m.lnpackno In cuttct
      Else
         lntrnno =	Iif(Seek(m.lntakano, 'cuttm', 'takano'), cuttm.trnno, 0)
         Replace packed With Iif(m.lntrnno <> 0, 'Y', ' '), recuttno With m.lntrnno In cuttct

         lntrnno =	Iif(Seek(m.lntakano, 'cuttm', 'takano1'), cuttm.trnno, 0)
         Replace packed With Iif(m.lntrnno <> 0, 'Y', ' '), recuttno With m.lntrnno In cuttct
      Endif
   Endif
Endscan
Wait Clear