📄 zhact.prg

📁 使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用社会计报表系统
💻 PRG
📖 第 1 页 / 共 2 页
字号:
上一页 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
💿 文件大小 2087 K
👤 上传用户 junbo2009
📂 所属分类金融证券系统
🏷️ 相关标签

#VFP #会计 #报表系统 #编写
⌨️ 快捷键说明

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