tjia.mpr

来自「仓库管理系统」· MPR 代码 · 共 81 行

*       *********************************************************
*       *                                                         
*       * 03/24/09              TJIA.MPR                05:49:46  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 王永成                                                  
*       *                                                         
*       * 版权所有 (C) 2009 检修公司                             
*       * 齐鲁石化                                                
*       * 淄博, 山东  255400                                        
*       * 中国                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "填加一条"
DEFINE BAR 2 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 3 OF 快捷菜单 PROMPT "删除所选定的一条"
DEFINE BAR 4 OF 快捷菜单 PROMPT "恢复"
ON SELECTION BAR 1 OF 快捷菜单 ;
	DO _2m20cht0c ;
	IN LOCFILE("QDDOWN_VF61058903577\TJIA" ,"MPX;MPR|FXP;PRG" ,"WHERE is TJIA?")
ON SELECTION BAR 3 OF 快捷菜单 ;
	DO _2m20cht0d ;
	IN LOCFILE("QDDOWN_VF61058903577\TJIA" ,"MPX;MPR|FXP;PRG" ,"WHERE is TJIA?")
ON SELECTION BAR 4 OF 快捷菜单 recall all

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _2M20CHT0C  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  TJIA.MPR,            Record:    5           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       * Prompt:     填加一条                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2m20cht0c
locat for ls.cksl=0
if found()
 messagebox('请填写数量',16,'提示信息')
 return
endif
append blank


*       *********************************************************
*       *                                                         
*       * _2M20CHT0D  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  TJIA.MPR,            Record:    8           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       * Prompt:     删除所选定的一条                            
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2m20cht0d
if messagebox( '是否真的删除该行？',36,'提示信息')=6
 dele
endif