>I tested your example but it works with menu but does not work with popup.
>Please help again

What problems do you have? Try this in MenuIsUp_Assign:

LPARAMETERS vNewVal
IF !THIS.MenuIsUP
  * Display Menu
  DEFINE POPUP ABC SHORTCUT RELATIVE FROM MROW(),MCOL() TITLE 'I N P U T S'
  DEFINE BAR 1 OF ABC PROMPT '\<1- Receipt Voucher'FONT "Verdana",10 COLOR ,RGB(0,0,255,0,255,128)
  DEFINE BAR 2 OF ABC PROMPT '\<2- Payment Voucher'FONT "Verdana",10 COLOR ,RGB(0,0,255,0,255,128)
  DEFINE BAR 3 OF ABC PROMPT '\<3- Journal Voucher'FONT "Verdana",10 COLOR ,RGB(0,0,255,0,255,128)
  ON SELECT BAR 1 OF ABC SELE1 =1
  ON SELECT BAR 2 OF ABC SELE1 =2
  ON SELECT BAR 3 OF ABC SELE1 =3
  ACTIVATE POPUP ABC NOWAIT
ELSE
  * Remove Menu
  DEACTIVATE POPUP abc
ENDIF
THIS.MenuIsUP = m.vNewVal