>>>>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... Taka... Please Wait...' At Srows() / 2, Scols() / 2 Nowait >>>> >>>>Select cuttct >>>>Scan For Not Empty(takano) && Created a BINARY index on empty(takano) >>>> lntakano = takano >>>> Do Case >>>> Case Seek(m.lntakano, 'packtc', 'takano') >>>> If Seek(packtc.MASTERID, 'packtm', 'masterid') >>>> lnpackno = packtm.packno >>>> Replace ; >>>> packed With Iif(m.lnpackno <> 0, 'Y', ' ') ; >>>> packno With m.lnpackno ; >>>> recuttno With 0 ; >>>> In cuttct >>>> Endif >>>> Case Seek(m.lntakano, 'cuttm', 'takano') >>>> lntrnno = cuttm.trnno >>>> Replace packed With Iif(m.lntrnno <> 0, 'Y', ' '), packno With 0, recuttno With m.lntrnno In cuttct >>>> Case Seek(m.lntakano, 'cuttm', 'takano1') >>>> lntrnno = cuttm.trnno >>>> Replace packed With Iif(m.lntrnno <> 0, 'Y', ' '), packno With 0, recuttno With m.lntrnno In cuttct >>>> Otherwise >>>> Replace packed With ' ', packno With 0, recuttno With 0 In cuttct >>>> Endcase >>>>Endscan >>>>Wait Clear >>>>>>>>