通用发票打印管理系统1.0源代码

通用发票打印管理系统1.0.

部分代码如下:PARAMETERS nAmount,IsDW
nDZS=STRTRAN(ALLTRIM(STR(nAmount,18,2)),".","")   &&把小数点去掉
cHZDX="零壹贰叁肆伍陆柒捌玖"
cDW="分角元拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿"
cRMBDX=""
nCd=LEN(nDZS)
FOR i=1 TO LEN(nDZS)
  cNumbers=SUBSTRC(cHZDX,INT(VAL(SUBSTR(nDZS,i,1))+1),1)  && 数字转换   
  IF IsDW=1     &&如果要单位
    cDWs=SUBSTRC(cDW,nCd,1)  
  ELSE
    cDWs=SPACE(0)  &&不要单位的情况下
  ENDIF
    cRMBDX=cRMBDX+cNumbers+cDWS
    nCd=nCd-1
ENDFOR
FOR i=LEN(nDZS)+1 TO 6
  cRMBDX=SPACE(2)+cRMBDX
ENDFOR     
RETURN  cRMBDX