ls.prg

建设银行代发财政局工资接口系统

use 200071  
    lnFields = AFIELDS(laFields)
  public    js
  js=0
FOR lnI = lnFields TO 1 STEP -1
*    lnI=1
   * do while lnI<=lnFields
	IF INLIST(laFields(lnI, 1), "SFJE","RYXM","XYKBH")=.T.
    js=js+1
*		ADEL(laFields, lnI)
*		DIMENSION laFields(alen(laFields,1)-1, alen(laFields, 2))
	ENDIF 
 *  lnI=lnI+1
*   enddo
next lni