📄 commfoun.prg
字号:
RETURN
ENDPROC
*------
PROCEDURE comm30
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\客户明细
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm30_1
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序.SCX
DO FORM FRM\打印客户明细.SCX
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm31
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\供货明细
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm31_1
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\打印供货明细.SCX
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm32
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\代垫费用
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm33
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\费用日记帐
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm34
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\收入日记帐
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm34_1
DO FORM FRM\费用科目设置.SCX
ENDPROC
*------
PROCEDURE comm35
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\费用统计表
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm35_1
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\费用支出明细统计
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm35_2
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\染厂费用统计
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm36_1
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\现金交款单
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm36_2
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\银行转帐.SCX
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm36
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\资金日报表
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm36_3
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\现金日记帐 WITH '现金日记帐'
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm36_4
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\现金日记帐 WITH '银行日记帐'
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm36_5
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\银行分户日记帐.scx
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm36_6
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\银行余额.scx
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm36_7
DO FORM FRM\银行分户余额.scx
ENDPROC
*------
PROCEDURE comm40
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\经营成果统计
QDFORM.RELEASE
ENDIF
ENDPROC
*------
PROCEDURE comm37
DO FORM FRM\系统设置
RETURN
ENDPROC
*------
PROCEDURE comm38
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
SELECT 0
USE SHARED (MLPATH + 'data\sysuser.dbf')
LOCATE FOR ALLTRIM(用户) <> ALLTRIM(SYS(0)) AND 登录
IF FOUND()
= MESSAGEBOX(ALLTRIM(用户) + '已经登录，请退出后再备份！',16,'警告')
USE
RETURN
ENDIF
USE
DO FORM FRM\数据备份恢复
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm39
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
SELECT 0
USE SHARED (MLPATH + 'data\sysuser.dbf')
LOCATE FOR ALLTRIM(用户) <> ALLTRIM(SYS(0)) AND 登录
IF FOUND()
= MESSAGEBOX(ALLTRIM(用户) + '已经登录，请退出后再整理！',16,'警告')
USE
RETURN
ENDIF
USE
DO FORM FRM\数据整理
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm41
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\商品报价单
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm42
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\材料库存报警
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm44
CLOSE TABLE ALL
DO FORM FRM\关于
RETURN
ENDPROC
*------
PROCEDURE comm45
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\码单查询
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE sc
PARAMETER BH
IF .NOT. USED('sc')
SELECT 0
USE SHARED (MLPATH + 'data\' + MYEAR + '\sc.dbf')
ENDIF
SELECT SC
LOCATE FOR ALLTRIM(编号) == ALLTRIM(BH)
SCMC = ALLTRIM(名称)
RETURN SCMC
ENDPROC
*------
PROCEDURE nh
PARAMETER BH
SELECT NH
LOCATE FOR ALLTRIM(编号) == ALLTRIM(BH)
SCMC = ALLTRIM(名称)
SELECT NHMXZ
RETURN SCMC
ENDPROC
*------
PROCEDURE nhzz
PARAMETER BH
SELECT NH
LOCATE FOR ALLTRIM(编号) == ALLTRIM(BH)
SCMC = ALLTRIM(名称)
SELECT NHZZ
RETURN SCMC
ENDPROC
*------
PROCEDURE kf
PARAMETER KFBM
IF .NOT. USED('kfdw')
SELECT 0
USE SHARED (MLPATH + 'data\' + MYEAR + '\kfdw.dbf')
ENDIF
SELECT KFDW
LOCATE FOR ALLTRIM(编号) == ALLTRIM(KFBM)
SCMC = ALLTRIM(单位名称)
RETURN SCMC
ENDPROC
*------
PROCEDURE gh
PARAMETER GHBM
IF .NOT. USED('ghdw')
SELECT 0
USE SHARED (MLPATH + 'data\' + MYEAR + '\ghdw.dbf')
ENDIF
SELECT GHDW
LOCATE FOR ALLTRIM(编号) == ALLTRIM(GHBM)
SCMC = ALLTRIM(单位名称)
RETURN SCMC
ENDPROC
*------
PROCEDURE fkfs
N10 = ''
SELECT MDPRINT
IF 预付款 + 欠付款 = 0
N10 = '货款即付'
ENDIF
IF 欠付款 = 金额 AND 预付款 = 0
N10 = '货款记帐'
ENDIF
IF 预付款 <> 0
N10 = '货款预付：' + ALLTRIM(STR(预付款,12,2)) + '元'
ENDIF
SELECT DDFY
LOCATE FOR ALLTRIM(码单序号) == ALLTRIM(MDPRINT.序号)
IF FOUND()
N10 = ;
N10 + ' 代垫费用:' + ALLTRIM(DDFY.备注) + ALLTRIM(STR(DDFY.金额,12,2)) + '元。'
ENDIF
SELECT MDGS
RETURN N10
ENDPROC
*------
PROCEDURE comm80
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\购销存总表
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------
PROCEDURE comm81
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
DO FORM FRM\加载程序
DO FORM FRM\统计图表
QDFORM.RELEASE
ENDIF
RETURN
ENDPROC
*------*
PROCEDURE comm82
IF CWIN = .T.
= MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
RETURN
ELSE
CLOSE TABLE ALL
SELECT 0
USE SHARED (MLPATH + 'data\sysuser.dbf')
LOCATE FOR ALLTRIM(用户) <> ALLTRIM(SYS(0)) AND 登录
IF FOUND()
= MESSAGEBOX(ALLTRIM(用户) + '已经登录，请退出后再结转！',16,'警告')
USE
RETURN
ENDIF
USE
DO FORM FRM\年末结转.SCX
ENDIF
ENDPROC
*------*------
PROCEDURE comm83
DOC = WINDIR + '\calc.exe'
DOC1 = ''
DOC2 = ''
IF FILE(DOC)
run /n1 &doc
RETURN
ENDIF
IF USED('redid')
SELECT REDID
ELSE
USE DXPATH + 'data\regid.dbf'
DOC2 = ALLTRIM(CALCPATH)
SELECT REGID
USE
ENDIF
IF EMPTY(DOC2)
C = MESSAGEBOX(WINDIR + '目录中找不到calc.exe文件，您是否亲自查找？',36,'')
IF C = 6
DOC1 = GETFILE('exe')
IF .NOT. EMPTY(DOC1)
IF UPPER('calc.exe') $ UPPER(DOC1)
SELECT 0
USE DXPATH + 'regid.dbf'
SELECT REGID
GO TOP
REPLACE CALCPATH WITH DOC1
USE
run /n1 &doc1
RETURN
ELSE
= MESSAGEBOX('这不是一个计算器程序！',16,'')
ENDIF
ENDIF
ENDIF
ELSE
IF FILE(DOC2)
run /n1 &doc2
RETURN
ELSE
MESSAGEBOX('您指定的目录中找不到calc.exe文件，请再次启动？',16,'计算器找不到')
SELECT 0
USE DXPATH + 'data\regid.dbf'
SELECT REGID
GO TOP
REPLACE CALCPATH WITH ''
USE
ENDIF
ENDIF
ENDPROC
*------
PROCEDURE comm84
DO FORM FRM\计算器.SCX
ENDPROC
*------⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -