* Create a second usage of cuttm select cuttm use (fullpath(dbf())) again in 0 alias cuttm2 set order to takano * Set relationships Select cuttct set relation to takano into packtc select packtc set relation to masterid into packtm select cuttct set relation to takano into cuttm set relation to takano1 into cuttm2 additive * Perform a single replace select cuttct REPLACE ALL FOR not empty(takano) ; packed With iif(not eof('packtc'), iif(eof('packtm'), 'Y', space(1)), falseLogic code), ; packno With iif(not eof('packtc'), iif(eof('packtm'), packtm.packno, 0), falseLogic code), ; recuttno With && I think there's an error in your logic hereBest regards,
>*- 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 >>