>>>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 >>>>>>