upc.prg

门诊收费管理系统

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


 PARAMETER M.NUM
 IF M.NUM >= 1000000 .OR. M.NUM <= 0
    RETURN ALLTRIM(TRANSFORM(M.NUM,'999,999,999,999.99元'))
 ENDIF 
 PRIVATE M.ZS0 , M.RMBDX , M.CZS1 , M.PRN1 , M.PRN00 , M.KN0 , M.ZS2 , M.RR , M.RD ,  ;
      M.LEN0
 M.ZS0 = STR(M.NUM,9,2)
 M.RMBDX = '零壹贰叁肆伍陆柒捌玖'
 M.DWDX = '拾万仟佰拾元  角分'
 M.CZS1 = ''
 M.PRN1 = .F.
 M.PRN00 = .F.
 FOR M.KN0 = 1 TO 9
    M.ZS2 = VAL(SUBSTR(M.ZS0,M.KN0,1))
    M.RR = SUBSTR(M.RMBDX,2 * M.ZS2 + 1,2)
    M.RD = SUBSTR(M.DWDX,2 * M.KN0 - 1,2)
    IF M.ZS2 <> 0
       M.CZS1 = M.CZS1 + M.RR + M.RD
       M.PRN1 = .T.
       M.PRN00 = .F.
    ELSE 
       IF M.PRN1
          IF LEN(ALLTRIM(STR(INT(M.NUM)))) = 6 AND M.KN0 = 2
             M.CZS1 = M.CZS1 + '万'
          ELSE 
             M.CZS1 = M.CZS1 + IIF(M.PRN00,'','零')
             PRN0 = .T.
             M.PRN00 = .T.
          ENDIF 
       ENDIF 
    ENDIF 
    IF M.KN0 = 6
       IF M.ZS2 = 0 AND M.PRN1
          M.LEN0 = LEN(M.CZS1) - 2
          M.CZS1 = LEFT(M.CZS1,M.LEN0) + '元'
          M.PRN00 = .F.
       ENDIF 
       M.KN0 = 7
    ENDIF 
 ENDFOR 
 IF M.ZS2 = 0
    M.LEN0 = LEN(M.CZS1) - 2
    M.CZS1 = LEFT(M.CZS1,M.LEN0) + '整'
 ENDIF 
 RETURN M.CZS1
*