📄 begin.mpr

📁 2仍然
💻 MPR
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
*       *********************************************************
*       *                                                         
*       * 01/28/03              BEGIN.MPR               08:11:51  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 唐国春                                                  
*       *                                                         
*       * 版权所有 (C) 2003 广西兴安县供电公司                   
*       * 兴桂路13号                                              
*       * 桂林市兴安县, 广西  541300                                
*       * 中国                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0vd0hkjj0 OF _MSYSMENU PROMPT "系统维护[\<S]" COLOR SCHEME 3 ;
	KEY ALT+S, "ALT+S" ;
	MESSAGE '设定各种系统参数...'
DEFINE PAD _0vd0hkjj1 OF _MSYSMENU PROMPT "电费处理[\<E]" COLOR SCHEME 3 ;
	KEY ALT+E, "" ;
	MESSAGE "处理每月电费(任务)数据..."
DEFINE PAD _0vd0hkjj2 OF _MSYSMENU PROMPT "报表管理[\<B]" COLOR SCHEME 3 ;
	KEY ALT+B, "" ;
	MESSAGE '各种电费报表处理...'
DEFINE PAD _0vd0hkjj3 OF _MSYSMENU PROMPT "数据查询[\<F]" COLOR SCHEME 3 ;
	KEY ALT+F, "" ;
	MESSAGE '电费数据资料查询...'
DEFINE PAD _0vd0hkjj4 OF _MSYSMENU PROMPT "银行划账[\<Y]" COLOR SCHEME 3 ;
	KEY ALT+Y, "" ;
	MESSAGE "提取、合成各供电所电费数据..."
DEFINE PAD _0vd0hkjj5 OF _MSYSMENU PROMPT "数据传递[\<T]" COLOR SCHEME 3 ;
	KEY ALT+T, "" ;
	MESSAGE '提取、合成各供电所电费数据...'
DEFINE PAD _0vd0hkjj6 OF _MSYSMENU PROMPT "关于系统[\<I]" COLOR SCHEME 3 ;
	KEY ALT+I, "ALT+I" ;
	SKIP FOR helpbz=1 ;
	MESSAGE '关于系统...'
ON PAD _0vd0hkjj0 OF _MSYSMENU ACTIVATE POPUP 系统维护s
ON PAD _0vd0hkjj1 OF _MSYSMENU ACTIVATE POPUP 电费处理e
ON PAD _0vd0hkjj2 OF _MSYSMENU ACTIVATE POPUP 报表管理b
ON PAD _0vd0hkjj3 OF _MSYSMENU ACTIVATE POPUP 数据查询f
ON PAD _0vd0hkjj4 OF _MSYSMENU ACTIVATE POPUP 银行划账y
ON PAD _0vd0hkjj5 OF _MSYSMENU ACTIVATE POPUP 数据传递t
ON SELECTION PAD _0vd0hkjj6 OF _MSYSMENU ;
	DO _0vd0hkjj7 ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

DEFINE POPUP 系统维护s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护s PROMPT "[\<1] 更改处理日期" ;
	MESSAGE "更改当前日期为需要处理数据的日期..."
DEFINE BAR 2 OF 系统维护s PROMPT "\-"
DEFINE BAR 3 OF 系统维护s PROMPT "[\<2] 基本参数维护" ;
	MESSAGE '对一些系统参数库进行修改维护...'
DEFINE BAR 4 OF 系统维护s PROMPT "\-"
DEFINE BAR 5 OF 系统维护s PROMPT "[\<3] 操作人员登录" ;
	MESSAGE "更改操作人员..."
DEFINE BAR 6 OF 系统维护s PROMPT "\-"
DEFINE BAR 7 OF 系统维护s PROMPT "[\<4] 退出管理系统" ;
	KEY ALT+X, "ALT+X" ;
	MESSAGE '退出电费任务管理系统...'
ON SELECTION BAR 1 OF 系统维护s ;
	DO _0vd0hkjjj ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 3 OF 系统维护s ;
	DO _0vd0hkjjk ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 5 OF 系统维护s ;
	DO _0vd0hkjjl ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 7 OF 系统维护s ;
	DO _0vd0hkjjm ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

DEFINE POPUP 电费处理e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 电费处理e PROMPT "[\<1] 电费数据通讯程式"
DEFINE BAR 2 OF 电费处理e PROMPT "\-"
DEFINE BAR 3 OF 电费处理e PROMPT "[\<2] 电费抄收数据处理"
DEFINE BAR 4 OF 电费处理e PROMPT "\-"
DEFINE BAR 5 OF 电费处理e PROMPT "[\<3] 电费数据报表打印" ;
	KEY CTRL+P, "CTRL+P" ;
	MESSAGE '打印电费清单、报表、发票等...'
DEFINE BAR 6 OF 电费处理e PROMPT "\-"
DEFINE BAR 7 OF 电费处理e PROMPT "[\<4] 电费抄表本管理"
ON BAR 1 OF 电费处理e ACTIVATE POPUP _0rm017tue
ON BAR 3 OF 电费处理e ACTIVATE POPUP _0rm013xdy
ON SELECTION BAR 5 OF 电费处理e ;
	DO _0vd0hkjjo ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON BAR 7 OF 电费处理e ACTIVATE POPUP _0td0mjv1j

DEFINE POPUP _0rm017tue MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0rm017tue PROMPT "[\<1] ThinPad-600 掌上电脑数据通讯程式" ;
	KEY CTRL+L, "CTRL+L" ;
	MESSAGE "发送、接收掌上电脑通讯数据..."
ON SELECTION BAR 1 OF _0rm017tue ;
	DO _0vd0hkjjp ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

DEFINE POPUP _0rm013xdy MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0rm013xdy PROMPT "[\<1] 电费抄表数据处理" ;
	KEY CTRL+E, "CTRL+E" ;
	MESSAGE "电费数据录入、修改..."
DEFINE BAR 2 OF _0rm013xdy PROMPT "\-"
DEFINE BAR 3 OF _0rm013xdy PROMPT "[\<2] 电费应收月报表处理" ;
	MESSAGE '统计、打印电费月报表...'
DEFINE BAR 4 OF _0rm013xdy PROMPT "\-"
DEFINE BAR 5 OF _0rm013xdy PROMPT "[\<3] 丰水期<===>枯水期电价转换" ;
	MESSAGE "丰水期<===>枯水期电价转换..."
ON SELECTION BAR 1 OF _0rm013xdy ;
	DO _0vd0hkjjr ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 3 OF _0rm013xdy ;
	DO _0vd0hkjjs ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 5 OF _0rm013xdy ;
	DO _0vd0hkjjt ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

DEFINE POPUP _0td0mjv1j MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0td0mjv1j PROMPT "[\<1] 本月已开票电费区资料维护" ;
	MESSAGE '电费区号对照资料维护...'
DEFINE BAR 2 OF _0td0mjv1j PROMPT "\-"
DEFINE BAR 3 OF _0td0mjv1j PROMPT "[\<2] 电费区号资料维护(立新区)" ;
	MESSAGE '电费区号资料维护及建立新区...'
DEFINE BAR 4 OF _0td0mjv1j PROMPT "\-"
DEFINE BAR 5 OF _0td0mjv1j PROMPT "[\<3] 抄表本移表数据管理" ;
	MESSAGE '抄表本移表数据管理...'
DEFINE BAR 6 OF _0td0mjv1j PROMPT "\-"
DEFINE BAR 7 OF _0td0mjv1j PROMPT "[\<4] 年初自动誊换抄表本" ;
	MESSAGE '年初誊换抄表本...'
ON SELECTION BAR 1 OF _0td0mjv1j ;
	DO _0vd0hkjju ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 3 OF _0td0mjv1j ;
	DO _0vd0hkjjv ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 5 OF _0td0mjv1j ;
	DO _0vd0hkjjw ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 7 OF _0td0mjv1j ;
	DO _0vd0hkjjx ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

DEFINE POPUP 报表管理b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表管理b PROMPT "[\<1] 电费应收报表"
DEFINE BAR 2 OF 报表管理b PROMPT "\-"
DEFINE BAR 3 OF 报表管理b PROMPT "[\<2] 线路损耗报表"
ON BAR 1 OF 报表管理b ACTIVATE POPUP _0u60cp3nj
ON BAR 3 OF 报表管理b ACTIVATE POPUP _0u60cp3nk

DEFINE POPUP _0u60cp3nj MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0u60cp3nj PROMPT "[\<1] 提取各区电费数据资料" ;
	MESSAGE "提取各区电费数据资料..."
DEFINE BAR 2 OF _0u60cp3nj PROMPT "\-"
DEFINE BAR 3 OF _0u60cp3nj PROMPT "[\<2] 录入手工应收报表数据" ;
	MESSAGE "录入手工应收报表数据..."
DEFINE BAR 4 OF _0u60cp3nj PROMPT "\-"
DEFINE BAR 5 OF _0u60cp3nj PROMPT "[\<3] 抄收员应收电费任务表" ;
	MESSAGE '处理抄收员电费应收任务...'
DEFINE BAR 6 OF _0u60cp3nj PROMPT "\-"
DEFINE BAR 7 OF _0u60cp3nj PROMPT "[\<4] 抄收员应收电费任务结构表" ;
	MESSAGE '处理抄收员电费任务结构报表...'
ON SELECTION BAR 1 OF _0u60cp3nj ;
	DO _0vd0hkjjz ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 3 OF _0u60cp3nj ;
	DO _0vd0hkjk0 ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 5 OF _0u60cp3nj ;
	DO _0vd0hkjk1 ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 7 OF _0u60cp3nj ;
	DO _0vd0hkjk2 ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

DEFINE POPUP _0u60cp3nk MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0u60cp3nk PROMPT "[\<1] 各电费区供电量数据录入" ;
	MESSAGE "各电费区供电量数据录入..."
DEFINE BAR 2 OF _0u60cp3nk PROMPT "\-"
DEFINE BAR 3 OF _0u60cp3nk PROMPT "[\<2] 按(抄收员)分类汇总线路损耗表" ;
	MESSAGE "按(抄收员)分类汇总线路损耗表..."
DEFINE BAR 4 OF _0u60cp3nk PROMPT "\-"
DEFINE BAR 5 OF _0u60cp3nk PROMPT "[\<3] 按(线路)分类汇总线路损耗表" ;
	MESSAGE "按(线路)分类汇总线路损耗表..."
ON SELECTION BAR 1 OF _0u60cp3nk ;
	DO _0vd0hkjk3 ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 3 OF _0u60cp3nk ;
	DO _0vd0hkjk4 ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 5 OF _0u60cp3nk ;
	DO _0vd0hkjk5 ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

DEFINE POPUP 数据查询f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据查询f PROMPT "[\<1] 电费数据参数查询" ;
	KEY CTRL+F, "CTRL+F" ;
	MESSAGE '电费基本参数查询...'
DEFINE BAR 2 OF 数据查询f PROMPT "\-"
DEFINE BAR 3 OF 数据查询f PROMPT "[\<2] 电费抄收区号清单查询" ;
	MESSAGE "查询打印电费区号清单资料..."
ON SELECTION BAR 1 OF 数据查询f ;
	DO _0vd0hkjk6 ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 3 OF 数据查询f ;
	DO _0vd0hkjk7 ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

DEFINE POPUP 银行划账y MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 银行划账y PROMPT "[\<1] 处理报送工商银行代扣电费数据"
DEFINE BAR 2 OF 银行划账y PROMPT "\-"
DEFINE BAR 3 OF 银行划账y PROMPT "[\<2] 处理报送农业银行代扣电费数据"
ON BAR 1 OF 银行划账y ACTIVATE POPUP _0te0kaxtk
ON BAR 3 OF 银行划账y ACTIVATE POPUP _0ui00huoa

DEFINE POPUP _0te0kaxtk MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0te0kaxtk PROMPT "[\<1] 生成报送工商银行代扣电费数据" ;
	MESSAGE '生成报送工商银行代扣电费数据...'
DEFINE BAR 2 OF _0te0kaxtk PROMPT "\-"
DEFINE BAR 3 OF _0te0kaxtk PROMPT "[\<2] 处理工商银行代扣电费返回数据" ;
	MESSAGE '处理工商银行找扣电费返回数据...'
DEFINE BAR 4 OF _0te0kaxtk PROMPT "\-"
DEFINE BAR 5 OF _0te0kaxtk PROMPT "[\<3] 处理工商银行划帐报表" ;
	MESSAGE "处理工商银行划帐报表..."
DEFINE BAR 6 OF _0te0kaxtk PROMPT "\-"
DEFINE BAR 7 OF _0te0kaxtk PROMPT "[\<4] 银行划帐发票处理" ;
	MESSAGE '处理打印银行划帐发票...'
ON SELECTION BAR 1 OF _0te0kaxtk ;
	DO _0vd0hkjka ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 3 OF _0te0kaxtk ;
	DO _0vd0hkjkb ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 5 OF _0te0kaxtk ;
	DO _0vd0hkjkc ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 7 OF _0te0kaxtk ;
	DO _0vd0hkjkd ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

DEFINE POPUP _0ui00huoa MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0ui00huoa PROMPT "[\<1] 生成报送农业银行代扣电费数据磁盘" ;
	MESSAGE '生成报送农业银行代扣电费磁盘...'
DEFINE BAR 2 OF _0ui00huoa PROMPT "\-"
DEFINE BAR 3 OF _0ui00huoa PROMPT "[\<2] 处理农业银行代扣电费返回数据" ;
	MESSAGE '处理农业银行找扣电费返回数据...'
DEFINE BAR 4 OF _0ui00huoa PROMPT "\-"
DEFINE BAR 5 OF _0ui00huoa PROMPT "[\<3] 处理农业银行划帐报表" ;
	MESSAGE "处理农业银行划帐报表..."
ON SELECTION BAR 1 OF _0ui00huoa ;
	DO _0vd0hkjke ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 3 OF _0ui00huoa ;
	DO _0vd0hkjkf ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 5 OF _0ui00huoa ;
	DO _0vd0hkjkg ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

DEFINE POPUP 数据传递t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据传递t PROMPT "[\<1] (提取)各供电所电费数据" ;
	SKIP FOR menushow=0 ;
	MESSAGE '提取各供电所电费数据...'
DEFINE BAR 2 OF 数据传递t PROMPT "\-"
DEFINE BAR 3 OF 数据传递t PROMPT "[\<2] (合成)各供电所电费数据" ;
	SKIP FOR menushow=0 ;
	MESSAGE '合成各供电所电费数据...'
ON SELECTION BAR 1 OF 数据传递t ;
	DO _0vd0hkjkh ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 3 OF 数据传递t ;
	DO _0vd0hkjki ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

ON SELECTION POPUP ALL ;
	DO _0vd0hkjkj ;
	IN LOCFILE("\YDGLXT\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")

*       *********************************************************
*       *                                                         
*       * _0VD0HKJJ7  ON SELECTION PAD                            
*       *
12 3 下一页
💿 文件大小 4559 K
👤 上传用户 bi_yangfeng
📂 所属分类其他行业
⌨️ 快捷键说明

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