sys_menu.mpr

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

PROCEDURE _0up0qxdvx
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\进仓单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdvy
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\染厂转库
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdvz
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\染厂库存核销
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw0
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\染厂库存核销统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw1
 DO FORM d:\jxc\染厂设置
ENDPROC
*------
PROCEDURE _0up0qxdw2
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\染厂期初数录入.scx
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw3
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\染厂库存明细帐
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw4
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\染厂库存统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw5
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料入库统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw7
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\收货单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw8
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\收货统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw9
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\库存数量日报表
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwa
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\库存收付存月报表
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwb
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料明细帐
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwc
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\打印材料明细帐
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwd
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\转库
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwe
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料盘点
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwf
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料期初数录入
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwg
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\返修单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwh
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\返修交入单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwi
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\返修明细帐
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwj
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\返修统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwk
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\返修期初余额
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwm
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\码单录入 WITH '' , .F.
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwn
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\码单查询
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwo
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\销售日报表
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwp
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料成本计算
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwq
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料出库统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwt
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\经营成果统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------