myprg.prg

java源码

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: MYPRG.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-



PROCEDURE jisuan
 PARAMETER H
 SELECT MAIN_NANBU
 LOCATE FOR ALLTRIM(SUBSTR(牌号,9)) == H AND 当前状态 = '消费待结'
 A = 0
 IF FOUND()
    MY_ZUHAO = MAIN_NANBU.组号
    GO TOP
    N = 1
    DO WHILE  .NOT. EOF()
       DIMENSION MONE( 1 , 20 )
       IF MAIN_NANBU.组号 = MY_ZUHAO
          A = A + MAIN_NANBU.消费总计
          B = 'L' + SUBSTR(MAIN_NANBU.牌号,9)
          STORE B TO MONE( N )
          N = N + 1
       ENDIF 
       SKIP 
    ENDDO 
    STORE A TO MONE( 20 )
    RETURN MONE(1,20)
 ELSE 
    RETURN .F.
 ENDIF 
ENDPROC
*------
PROCEDURE caidan
 PARAMETER H
 SELECT MAIN_NANBU
 LOCATE FOR ALLTRIM(SUBSTR(牌号,9)) == H AND 当前状态 = '消费待结'
 IF FOUND()
    MY_ID = MAIN_NANBU.ID
    MY_PAIHAO = ALLTRIM(MAIN_NANBU.牌号)
    MY_ZUHAO = MAIN_NANBU.组号
    DO short_nanbu.mpr WITH MY_ID , MY_PAIHAO , MY_ZUHAO
 ENDIF 
 RETURN 
ENDPROC
*------*