📄
字号:
STORE m1 TO MD && 记下付款贷方科目明细个数
** 付款记帐凭证 借方处理
DIME fkjf(300,7) && 定维付款借方数组
&& 列:1摘要 2结算方式 3票号 4科目名称 5明细名称 6借方金额 7库名（数据表名）
FOR i=1 TO 300 && 循环
STORE ' ' TO fkjf(i,1),fkjf(i,2),fkjf(i,3),fkjf(i,4),fkjf(i,5),fkjf(i,7)
STORE 0.00 TO fkjf(i,6) && 初始化数组元素
NEXT && 下一个FOR循环
ACTI WINDOW fwj && 激活付款借方科目窗口
STORE 0 TO a && 数组清零
FOR i=1 TO 23 && 循环
IF b(i,5)='暂不使用' && 如果选用与否为暂不使用
@ i-1,0 GET a(i) FUNC "*C "+b1(i) DISA && 列出复选框，禁止选用
ELSE && 否则
@ i-1,0 GET a(i) FUNC "*C "+b1(i) && 列出复选框
ENDIF
NEXT && 下一个 FOR 循环
FOR i=24 TO 46 && 循环
IF b(i,5)='暂不使用' && 如果选用与否为暂不使用
@ i-24,22 GET a(i) FUNC "*C "+b1(i) DISA && 列出复选框，禁止选用
ELSE && 否则
@ i-24,22 GET a(i) FUNC "*C "+b1(i) && 列出复选框
ENDIF
NEXT && 下一个 FOR 循环
FOR i=47 TO 67 && 循环
IF b(i,5)='暂不使用' && 如果选用与否为暂不使用
@ i-47,44 GET a(i) FUNC "*C "+b1(i) DISA && 列出复选框，禁止选用
ELSE && 否则
@ i-47,44 GET a(i) FUNC "*C "+b1(i) && 列出复选框
ENDIF
NEXT
FOR i=68 TO 85 && 循环
IF b(i,5)='暂不使用' && 如果选用与否为暂不使用
@ i-68,66 GET a(i) FUNC "*C "+b1(i) DISA && 列出复选框，禁止选用
ELSE && 否则
@ i-68,66 GET a(i) FUNC "*C "+b1(i) && 列出复选框
ENDIF
NEXT && 下一个 FOR 循环
@ 21,55 GET kk DEFA 1 FUNC '*th 确认;取消' SIZE 2,6,4 && 命令按钮
READ CYCLE && 激活对象
DO rk && 键控过程，按Ctrl+End结束程序
IF kk=2 && 如果选择了取消
CLEAR ALL && 释放变量、窗口，关闭表
CANCEL && 终止程序的执行
ENDIF
DIME z(6) && 定维数组
STORE ' ' TO z && 初始化数组
STORE 0 TO j && 初始化变量
FOR i=1 TO 85 && 循环
IF a(i)=1 && 如果复选付款借方科目时选中
j=j+1 && 计数器加1
z(j)=b1(i) && 记下科目名称
hh(j)=i && 记下科目序号
ENDIF
NEXT && 下一个FOR循环
DEAC WINDOW fwj
* 付款凭证 借方明细
STORE 0 TO m1 && 变量清零
FOR i=1 TO j && 循环，终值为复选时选中的科目个数
STORE ' ' TO mx,mxmc1 && 初始化变量
IF USED('ZK85') && 如果表已打开
SELECT ZK85 && 激活工作区
ELSE && 否则
SELECT 3 && 激活工作区
USE 科目总控!zk85 && 打开表‘ZK85’（总控85,内含85个科目）
ENDIF
LOCATE FOR 会计科目名=z(i) && 根据科目名称定位
mx=明细库名 && 记下名细表名，明细联系表
DECLARE mxj(300,2),mxj1(300) && 定维数组
STORE ' ' TO mxj,mxj1 && 初始化数组
IF 选用与否='选用明细' && 如果 选用与否='选用明细'
SELECT 4 && 激活工作区
USE &mx && 打开明细联系表
rec=RECC() && 记下记录个数
COPY TO ARRAY mxj && 复制到数组
FOR k=1 TO rec && 循环
STORE mxj(k,1) TO mxj1(k) && 明细名称过渡到一维数组
NEXT && 下一个FOR循环
IF rec<=21 && 如果记录个数小于等于21
DEFI WINDOW fwjmx1 FROM 0,3 TO 28,43 TITLE ' '+z(i)+" 借方明细 ";
ZOOM MINIMIZE FLOAT DOUB && 定义窗口
ACTI WINDOW fwjmx1 && 激活窗口
STORE 0 TO a && 数组清零
FOR k=1 TO rec && 循环
@ k-1,0 GET a(k) FUNC "*c "+ mxj1(k) && 排布明细名称复选框
NEXT && 下一个FOR循环
@ 24,1 GET kk DEFA 1 FUNC '*th 确认;取销' SIZE 2,4,4 && 命令按钮
READ CYCLE && 激活对象
DO rk && 键控过程，按Ctrl+End结束程序
IF kk=2 && 如果选择了取消
CLEAR ALL && 释放变量、窗口，关闭表
CANCEL && 终止程序的执行
ENDIF
DEAC WINDOW fwjmx1 && 挂起窗口
ELSE && 否则，记录个数大于21
DEFI WINDOW fwjmx FROM 0,1 TO 28,70 TITLE ' '+z(i)+" 借方明细 ";
ZOOM MINIMIZE FLOAT DOUB && 定义窗口
ACTI WINDOW fwjmx && 激活窗口
STORE 0 TO a && 数组清零
DO CASE && 根据情况判断处理
CASE rec<=42 && 当记录个数小于等于42
FOR k=1 TO 21 && 循环
@ k-1,0 GET a(k) FUNC "*c "+ mxj1(k) && 排布明细名称复选框
NEXT && 下一个FOR循环
FOR k=22 TO rec && 循环
@ k-22,24 GET a(k) FUNC "*c "+ mxj1(k) && 排布明细名称复选框
NEXT && 下一个FOR循环
@ 24,5 GET kk DEFA 1 FUNC '*th 确认;取消' SIZE 2,4,4 && 命令按钮
READ CYCLE && 激活对象
DO rk && 键控过程，按Ctrl+End结束程序
IF kk=2 && 如果选择了取消
CLEAR ALL && 释放变量、窗口，关闭表
CANCEL && 终止程序的执行
ENDIF
CASE rec<=80 && 记录个数小于登于80
DEFI WINDOW fwjmx FROM 0,0 TO 28,350 FLOAT CLOSE;
TITLE ' 借方科目:'+z(i)+' 左右拖动此线 ───── 选择明细 ──'+;
'──────── 移动此线 ────────────────── '+;
' 移动此线 ─── ' && 定义活动窗口
ACTI WINDOW fwjmx && 激活窗口
STORE 0 TO a && 数组清零
FOR k=1 TO rec && 循环
@ k%22,INT(k/22)*30 GET a(k) FUNC '*c '+mxj1(k) && 排布明细名称复选框
NEXT && 下一个FOR循环
@ 23,84 GET kk DEFA 1 FUNC '*th 确认;取消' SIZE 2,4,4 && 命令按钮
READ CYCLE && 激活对象
DO rk && 键控过程，按Ctrl+End结束程序
IF kk=2 && 如果选择了取消
CLEAR ALL && 释放变量、窗口，关闭表
CANCEL && 终止程序的执行
ENDIF
DEAC WINDOW fwjmx && 挂起窗口
OTHERWISE && 其他（当明细个数大于80）
IF USED('明细复选框表') && 如果校验框表已经打开
SELECT 明细复选框表 && 激活校验框表工作区
ELSE && 否则
SELECT 0 && 激活工作区
USE 明细复选框表 && 打开校验框表文件
ENDIF &&
SET SAFETY OFF && 关闭安全提示窗口
ZAP && 清除全部记录
SET SAFETY ON && 打开安全提示窗口
FOR kk=1 TO rec && 循环
APPEND BLANK && 追加空记录
REPLACE 明细名称 WITH MXJ1(KK) && 替换字段
REPLACE 校验框 WITH 0 && 冲零
ENDFOR && 下一个FOR循环
GOTO TOP && 指针指向文件顶
DO 浏览复选框 && 运行校验框子程序
FOR kk=1 TO rec && 循环
GOTO KK && 移动指针
STORE 校验框 TO a(kk) && 字段值（1或0）赋给数组元素
NEXT && 下一个FOR循环
DEAC WINDOW fwjmx && 挂起窗口
ENDCASE
DEAC WINDOW fwjmx && 挂起窗口
ENDIF
IF a(rec)=1 && 如果选中了添加新明细
h=hh(i) && 选中科目的记录号1-85
DO 添加新明细 && 运行子程序
ENDIF
FOR k=1 TO rec && 循环
IF a(k)=1 && 如果复选付款借方明细时选中
m1=m1+1 && 计数器加1
fkjf(m1,4)=z(i) && 记下科目名称
fkjf(m1,5)=mxj1(k) && 记下明细名称
fkjf(m1,7)=mxj(k,2) && 记下明细表名
ENDIF
NEXT && 下一个FOR循环
ELSE && 否则，意味着 选用与否#'选用明细'
m1=m1+1 && 计数器加1
fkjf(m1,4)=z(i) && 记下科目名称
IF USED('ZK85') && 如果表已打开
SELECT ZK85 && 激活工作区
ELSE && 否则
SELECT 3 && 激活工作区
USE 科目总控!zk85 && 打开表‘ZK85’（总控85,内含85个科目）
ENDIF
LOCATE FOR 会计科目名=z(i) && 根据科目名称定位
STORE 科目库名 TO fkjf(m1,7) && 记下科目表名
ENDIF
NEXT && 下一个FOR循环
IF m1<=6 && 如果付款借方科目或明细个数小于等于6
FOR k=1 TO m1 && 循环
@ k*2.2+5,40 GET fkjf(k,4) SIZE 1,10 DISA && 显示科目名称，禁止编辑
@ k*2.2+5,52 GET fkjf(k,5) SIZE 1,14 DISA && 显示明细名称，禁止编辑
NEXT && 下一个FOR循环
READ && 激活对象
** 填写摘要、结算方式、票号
FOR i=1 TO m1 && 循环
@ 5+2.2*i,3.5 SAY '☆_' && 显示☆_，指示位置
DEFI WINDOW zyw FROM 6,77 TO 26,103 TITLE ' '+fkjf(i,5)+" 摘要 ";
ZOOM MINIMIZE FLOAT DOUB && 定义摘要窗口
ACTI WINDOW zyw && 激活窗口
STORE 1 TO h && 初始化变量
@ 1,1 GET h DEFA 1 FUNC '&t' FROM zhai1 && 摘要List列表
READ CYCLE && 激活对象
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -