lrpd.prg

来自「使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用」· PRG 代码 · 共 32 行

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


 GDBLR = 'n'
 IF SJDW = 1
 QPP = 1
 M_99 = '9999,999,999,999,999'
 ELSE 
 M_99 = '9,999,999,999,999.99'
 QPP = 100
 ENDIF 
 SELECT LRPD
  scan for  bh == m_bh and xm == &xmkname->xmdh
 IF QQQ = LS
 IF LRZ = 'b' .OR. LRZ = 'B'
 GDBLR = 'y'
 ENDIF 
 IF LRZ = 'z' .OR. LRZ = 'Z'
 QPP = 1
 M_99 = '9999,999,999,999,999'
 ENDIF 
 IF LRZ = 's' .OR. LRZ = 'S'
 M_99 = '9,999,999,999,999.99'
 QPP = 100
 ENDIF 
 ENDIF 
 ENDSCAN 
 SELECT (XMKNAME)
*