>hi ,
>thank you very much,
>
>if you have a time ,i need example to make this via mycode under .
>

>SELECT mstr
>LOCATE FOR BILLNO=THISFORM.TEXT1.VALUE .AND. DATEIN=THISFORM.TEXT2.VALUE
>IF FOUND()
>SET FILTER TO BILLNO=THISFORM.TEXT1.VALUE .AND. DATEIN=THISFORM.TEXT2.VALUE
>

>

LOCAL m.lnSelect, m.lcOldFilter, m.lcBillNo, m.lcDateIn
m.lnSelect = SELECT()
SELECT mstr
m.lcOldFilter = FILTER()
m.lcBillNo = THISFORM.TEXT1.VALUE && should be THISFORM.txtBillNo.Value
m.lcDateIn = THISFORM.TEXT2.VALUE && should be THISFORM.txtDateIn.Value
SET FILTER TO BILLNO=&lcBillNo. AND DATEIN=&lcDateIn.
LOCATE
IF NOT FOUND()
  SET FILTER TO &lcOldFilter.
ENDIF
SELECT (m.lnSelect)