为什么VIEW-AS ALERT BOX在Linux端不起作用?

时间:2019-06-15 12:39:34

标签: openedge progress-4gl

我编写了一个程序,用于在扫描时查找非顺序工单,如果找到了非顺序工单,则将弹出一个小窗口,并提醒用户是否接受进一步扫描。这里的问题是该程序在窗口服务器中运行良好,但在Linux端却没有显示弹出窗口。让我分享程序。

DEFINE VARIABLE OERROR          AS CHARACTER NO-UNDO.
DEFINE VARIABLE lpc_valid       AS LOGICAL NO-UNDO.
DEFINE VARIABLE opi_ExpectedSeq AS CHARACTER NO-UNDO.
DEFINE VARIABLE iCurrentSeq     AS INTEGER NO-UNDO.
DEFINE VARIABLE iPrevscandSeq   AS INTEGER NO-UNDO.
DEFINE VARIABLE cMessageTxt     AS CHARACTER NO-UNDO.

ASSIGN
       iPrevscandSeq = 20
      iCurrentSeq = 22.


IF iCurrentSeq NE (iPrevscandSeq + 1) THEN DO:

            cMessageTxt = "Current WO Seq : " + STRING(iCurrentSeq) + " EXPECTED SEQ : " + STRING(iPrevscandSeq + 1).

            MESSAGE cMessageTxt 
            VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO-CANCEL
            TITLE 'Wrong WO Seq'UPDATE lChoice AS LOGICAL.

            CASE lChoice:
                WHEN FALSE THEN DO:
                    ASSIGN
                    OERROR                   = "User Rejected For Non Sequence WO- Current Seq -"
                    lpc_valid                = FALSE.
                END.
            END.
       END.


/* The data is retriving from the databases which is running in linux and window sever side also. 
The program that you are seeing now is calling by window application which is also running in linux side */

我不知道这里是什么问题。请帮我解决这个问题

0 个答案:

没有答案