1:

Send popup to (oOrderEntryView(Self)) 

1:
2:
3:
4:
5:
6:
7:

Object oButton1 is a Button         
  Set Location to 4 172         
  Set Label to "oButton1"              
  Procedure OnClick           
    Send popup to (oOrderEntryView(Self))          
  End_Procedure          
End_Object

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Use Windows.pkg
Use DFClient.pkg

Deferred_View Activate_oTestaufruf for ;
Object oTestaufruf is a dbView

    Set Border_Style to Border_Thick
    Set Size to 0 0
    Set Sysmenu_Icon to False

    Procedure Activating Returns Integer
        Integer iRetVal
        Forward Get msg_Activating to iRetVal
           Send popup to (oOrderEntryView(Self)) 
        Procedure_Return iRetVal
    End_Procedure

Cd_End_Object

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Object oOrderEntryMenuItem is a cCJMenuItem
    Set psCaption to "Order Entry"
    Set psShortcut to "Ctrl+3"
    Set psDescription to "Add, edit and delete Order data."
    Set psToolTip to "Order Entry"
   Procedure OnExecute Variant vCommandBarControl
        Handle hoClient
        Get Client_Id to hoClient
        Send Activate_OrderEntryView of hoClient
        Send popup to (oOrderEntryView(hoClient)) //so ist es richtig
     // Send popup to (oOrderEntryView(self))   //hatte bloss "self" hingeschrieben 
   End_Procedure
End_Object