📄 commfoun.prg

📁 吐血贡献纺织上的进销存原码,功能齐全,给大家吧.
💻 PRG
字号:
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: COMMFOUN.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-



PROCEDURE comm1
 CLOSE TABLE ALL
 DO FORM d:\jxc\操作员录入
 RETURN 
ENDPROC
*------
PROCEDURE comm3
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\材料类别
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm4
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料代码
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm5
 CLOSE TABLE ALL
 DO FORM d:\jxc\供货单位录入
 RETURN 
ENDPROC
*------
PROCEDURE comm6
 CLOSE TABLE ALL
 DO FORM d:\jxc\客户单位录入
 RETURN 
ENDPROC
*------
PROCEDURE comm7
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料期初数录入
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm8
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\进仓单
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm9
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\染厂转库
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm10
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料入库统计
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm11
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\染厂库存明细帐
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm12
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\码单录入 WITH '' , .F.
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm13
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\销售日报表
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm14
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料出库统计
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm15
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料成本计算
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm17
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\库存数量日报表
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm18
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\库存收付存月报表
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm20
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料明细帐
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm21
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\打印材料明细帐
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm22
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\染厂库存统计
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm23
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\收货单
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm24
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\转库
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm25
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料盘点
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm26
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\付款单
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm27
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\收款单
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm28
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\供货余额
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm29
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\客户余额
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm30
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\客户明细
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm31
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\供货明细
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm32
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\代垫费用
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm33
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\费用日记帐
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm34
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\收入日记帐
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm35
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\费用统计表
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm36
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\资金日报表
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm40
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\经营成果统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE comm37
 DO FORM d:\jxc\系统设置
 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 d:\jxc\数据备份恢复
 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 d:\jxc\数据整理
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm41
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\商品报价单
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm42
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料库存报警
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm44
 CLOSE TABLE ALL
 DO FORM d:\jxc\关于
 RETURN 
ENDPROC
*------
PROCEDURE comm45
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\码单查询
     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 d:\jxc\加载程序
    DO FORM d:\jxc\购销存总表
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm81
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\统计图表
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------*
💿 文件大小 1795 K
👤 上传用户 jzp_home_2009
📂 所属分类企业管理
🏷️ 相关标签

#纺织 #家 #进销
⌨️ 快捷键说明

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