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