我编写了一个程序,用于在扫描时查找非顺序工单,如果找到了非顺序工单,则将弹出一个小窗口,并提醒用户是否接受进一步扫描。这里的问题是该程序在窗口服务器中运行良好,但在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 */
我不知道这里是什么问题。请帮我解决这个问题