** usefile.prg Lparameter m.FILENAME, m.AFILENAME If Empty(m.AFILENAME) AFILENAME = m.FILENAME Endif Local FILENAME2 FILENAME2 = Alltrim(OAPP.ZDATAPATH) + m.FILENAME If Not Used(m.AFILENAME) Use (m.FILENAME2) Again In 0 Alias (m.AFILENAME) Shared Select (m.AFILENAME) Go Top Endif Select (m.AFILENAME)How REPLACE can change the order of records ?
Select cuttct set order to takano 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 Endif EndscanWarm 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 >>>>