>>sele 6 >>set filter to >>set order to code >>*SET FILTER TO admtd=1.and.lcode=thisform.lcodec.value.and.sec=thisform.secc.value >>SET FILTER TO lcode=thisform.container4.lcodec.value.and.sec=thisform.container4.secc.value; >>.and.admtd=thisform.container4.inout.value >> >> >>locate for allt(code)=allt(thisform.code.value) >>if !bof() >> skip -1 >> dis=1 >> this.parent.init >>endif >>thisform.container3.visible=.t. >>photo_file=allt(thisform.code.value)+".jpg" >>thisform.container3.image1.picture="stpics\"+(photo_file) >>ThisForm.ox.CalculateAge(ThisForm.dbirth.Value,ThisForm.text5.Value) >>ThisForm.year.value = ThisForm.ox.nYears >>ThisForm.month.value = ThisForm.ox.nMonths >>ThisForm.day.value = ThisForm.ox.nDays >>