zhact.prg

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

PRG
647 行
字号
12
 CASE ABS(DA03) < 100000000 AND ABS(DA03) >= 10000000
 IF (DA03) >= 0
 DA03C = '+0000000' - ALLTRIM(STR(DA03,15,0))
 ELSE 
 DA03C = '-0000000' - ALLTRIM(STR(ABS(DA03),15,0))
 ENDIF 
 CASE ABS(DA03) < 1000000000 AND ABS(DA03) >= 100000000
 IF (DA03) >= 0
 DA03C = '+000000' - ALLTRIM(STR(DA03,15,0))
 ELSE 
 DA03C = '-000000' - ALLTRIM(STR(ABS(DA03),15,0))
 ENDIF 
 CASE ABS(DA03) < 10000000000 AND ABS(DA03) >= 1000000000
 IF (DA03) >= 0
 DA03C = '+00000' - ALLTRIM(STR(DA03,15,0))
 ELSE 
 DA03C = '-00000' - ALLTRIM(STR(ABS(DA03),15,0))
 ENDIF 
 CASE ABS(DA03) < 100000000000 AND ABS(DA03) >= 10000000000
 IF (DA03) >= 0
 DA03C = '+0000' - ALLTRIM(STR(DA03,15,0))
 ELSE 
 DA03C = '-0000' - ALLTRIM(STR(ABS(DA03),15,0))
 ENDIF 
 CASE ABS(DA03) < 1000000000000 AND ABS(DA03) >= 100000000000
 IF (DA03) >= 0
 DA03C = '+000' - ALLTRIM(STR(DA03,15,0))
 ELSE 
 DA03C = '-000' - ALLTRIM(STR(ABS(DA03),15,0))
 ENDIF 
 CASE ABS(DA03) < 10000000000000 AND ABS(DA03) >= 1000000000000
 IF (DA03) >= 0
 DA03C = '+00' - ALLTRIM(STR(DA03,15,0))
 ELSE 
 DA03C = '-00' - ALLTRIM(STR(ABS(DA03),15,0))
 ENDIF 
 CASE ABS(DA03) < 100000000000000 AND ABS(DA03) >= 10000000000000
 IF (DA03) >= 0
 DA03C = '+0' - ALLTRIM(STR(DA03,15,0))
 ELSE 
 DA03C = '-0' - ALLTRIM(STR(ABS(DA03),15,0))
 ENDIF 
 OTHERWISE 
 ENDCASE 
 DO CASE 
 CASE ABS(DA04) < 10
 IF (DA04) >= 0
 DA04C = '+00000000000000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-00000000000000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 100 AND ABS(DA04) >= 10
 IF (DA04) >= 0
 DA04C = '+0000000000000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-0000000000000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 1000 AND ABS(DA04) >= 100
 IF (DA04) >= 0
 DA04C = '+000000000000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-000000000000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 10000 AND ABS(DA04) >= 1000
 IF (DA04) >= 0
 DA04C = '+00000000000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-00000000000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 100000 AND ABS(DA04) >= 10000
 IF (DA04) >= 0
 DA04C = '+0000000000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-0000000000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 1000000 AND ABS(DA04) >= 100000
 IF (DA04) >= 0
 DA04C = '+000000000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-000000000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 10000000 AND ABS(DA04) >= 1000000
 IF (DA04) >= 0
 DA04C = '+00000000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-00000000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 100000000 AND ABS(DA04) >= 10000000
 IF (DA04) >= 0
 DA04C = '+0000000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-0000000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 1000000000 AND ABS(DA04) >= 100000000
 IF (DA04) >= 0
 DA04C = '+000000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-000000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 10000000000 AND ABS(DA04) >= 1000000000
 IF (DA04) >= 0
 DA04C = '+00000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-00000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 100000000000 AND ABS(DA04) >= 10000000000
 IF (DA04) >= 0
 DA04C = '+0000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-0000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 1000000000000 AND ABS(DA04) >= 100000000000
 IF (DA04) >= 0
 DA04C = '+000' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-000' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 10000000000000 AND ABS(DA04) >= 1000000000000
 IF (DA04) >= 0
 DA04C = '+00' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-00' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 CASE ABS(DA04) < 100000000000000 AND ABS(DA04) >= 10000000000000
 IF (DA04) >= 0
 DA04C = '+0' - ALLTRIM(STR(DA04,15,0))
 ELSE 
 DA04C = '-0' - ALLTRIM(STR(ABS(DA04),15,0))
 ENDIF 
 OTHERWISE 
 ENDCASE 
 DO CASE 
 CASE ABS(DA05) < 10
 IF (DA05) >= 0
 DA05C = '+00000000000000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-00000000000000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 100 AND ABS(DA05) >= 10
 IF (DA05) >= 0
 DA05C = '+0000000000000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-0000000000000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 1000 AND ABS(DA05) >= 100
 IF (DA05) >= 0
 DA05C = '+000000000000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-000000000000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 10000 AND ABS(DA05) >= 1000
 IF (DA05) >= 0
 DA05C = '+00000000000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-00000000000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 100000 AND ABS(DA05) >= 10000
 IF (DA05) >= 0
 DA05C = '+0000000000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-0000000000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 1000000 AND ABS(DA05) >= 100000
 IF (DA05) >= 0
 DA05C = '+000000000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-000000000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 10000000 AND ABS(DA05) >= 1000000
 IF (DA05) >= 0
 DA05C = '+00000000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-00000000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 100000000 AND ABS(DA05) >= 10000000
 IF (DA05) >= 0
 DA05C = '+0000000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-0000000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 1000000000 AND ABS(DA05) >= 100000000
 IF (DA05) >= 0
 DA05C = '+000000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-000000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 10000000000 AND ABS(DA05) >= 1000000000
 IF (DA05) >= 0
 DA05C = '+00000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-00000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 100000000000 AND ABS(DA05) >= 10000000000
 IF (DA05) >= 0
 DA05C = '+0000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-0000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 1000000000000 AND ABS(DA05) >= 100000000000
 IF (DA05) >= 0
 DA05C = '+000' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-000' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 10000000000000 AND ABS(DA05) >= 1000000000000
 IF (DA05) >= 0
 DA05C = '+00' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-00' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 CASE ABS(DA05) < 100000000000000 AND ABS(DA05) >= 10000000000000
 IF (DA05) >= 0
 DA05C = '+0' - ALLTRIM(STR(DA05,15,0))
 ELSE 
 DA05C = '-0' - ALLTRIM(STR(ABS(DA05),15,0))
 ENDIF 
 OTHERWISE 
 ENDCASE 
 DO CASE 
 CASE ABS(DA06) < 10
 IF (DA06) >= 0
 DA06C = '+00000000000000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-00000000000000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 100 AND ABS(DA06) >= 10
 IF (DA06) >= 0
 DA06C = '+0000000000000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-0000000000000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 1000 AND ABS(DA06) >= 100
 IF (DA06) >= 0
 DA06C = '+000000000000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-000000000000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 10000 AND ABS(DA06) >= 1000
 IF (DA06) >= 0
 DA06C = '+00000000000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-00000000000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 100000 AND ABS(DA06) >= 10000
 IF (DA06) >= 0
 DA06C = '+0000000000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-0000000000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 1000000 AND ABS(DA06) >= 100000
 IF (DA06) >= 0
 DA06C = '+000000000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-000000000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 10000000 AND ABS(DA06) >= 1000000
 IF (DA06) >= 0
 DA06C = '+00000000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-00000000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 100000000 AND ABS(DA06) >= 10000000
 IF (DA06) >= 0
 DA06C = '+0000000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-0000000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 1000000000 AND ABS(DA06) >= 100000000
 IF (DA06) >= 0
 DA06C = '+000000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-000000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 10000000000 AND ABS(DA06) >= 1000000000
 IF (DA06) >= 0
 DA06C = '+00000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-00000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 100000000000 AND ABS(DA06) >= 10000000000
 IF (DA06) >= 0
 DA06C = '+0000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-0000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 1000000000000 AND ABS(DA06) >= 100000000000
 IF (DA06) >= 0
 DA06C = '+000' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-000' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 10000000000000 AND ABS(DA06) >= 1000000000000
 IF (DA06) >= 0
 DA06C = '+00' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-00' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 CASE ABS(DA06) < 100000000000000 AND ABS(DA06) >= 10000000000000
 IF (DA06) >= 0
 DA06C = '+0' - ALLTRIM(STR(DA06,15,0))
 ELSE 
 DA06C = '-0' - ALLTRIM(STR(ABS(DA06),15,0))
 ENDIF 
 OTHERWISE 
 ENDCASE 
 DNSJ = DA0 + DA01C - DA02C - DA03C - DA04C - DA05C - DA06C
 IF  .NOT. EOF()
 SKIP 
 ELSE 
 ENDIF 
 SELECT ZHACT
 APPEND BLANK
 GO BOTTOM
 REPLACE RQXMDH WITH DNSJ
 ENDFOR 
 SELECT ZHACT
 FILEA00 = 'a' - CL_YEAR - MONTH_A - M_DQDH - '.dat'
 COPY TO (FILEA00) TYPE SDF 
  MESSAGEBOX(MONTH_A - '月份' - M_DQDH - '地区业务状表转ACT上报文件完毕！',64,'完成信息提示')
 CLOSE DATABASES 
ENDPROC
*------*
12

zhact.prg - 源码说明

本页面展示了「使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用社会计报表系统」中的 zhact.prg 源码文件，采用 PRG 编程语言编写，共 647 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与VFP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?