popnewworker.mpr

应用篇－人力资源管理系统

*       *********************************************************
*       *                                                         
*       * 06/03/03          POPNEWWORKER.MPR            09:11:08  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "添加(\<A)"
ON SELECTION BAR 1 OF 快捷菜单 ;
	DO _0yv0jos4y ;
	IN LOCFILE("应用篇－人力资源管理系统\POPNEWWORKER" ,"MPX;MPR|FXP;PRG" ,"WHERE is POPNEWWORKER?")

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _0YV0JOS4Y  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  POPNEWWORKER.MPR,            Record:    5   
*       * Called By:  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       * Prompt:     添加(A)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jos4y
*添加数据
append Blank
replace 人员编号 with GNewWorkerNum