Code: Select all

` ! function\merq_filterlist.brs`

! Created on 05/05/2014

!

! fnmerq_filterlist - This Function ...

!

!

def fnmerq_filterlist$(mat f$,mat f,ParentKey$,prefix$,mat Subscripts$,mat S$,Mat USERDATA$)

Let N11$="PIC(--------.##)"

Let CR=REC(DATAFILE) : Let SR=sio_fld_Check

let fnmerq_Filterlist$="/#000000:#FFFFFF"

IF F$(REQ_REQEBF)="1" Then let fnmerq_Filterlist$="/#F02207:#FFFFFF"

LET AMT=VAL(F$(REQ_REQTAM))

LET F$(REQ_REQTAM)=CNVRT$(N11$,AMT)

LET C=C+1 : LET PASSEDDATA$(C)=LPAD$(STR$(CR),10,"0")&F$(REQ_REQPON)&F$(REQ_REQBYR)

Merq_FilterList_Done: !

fnend