Я написал программу для поиска непоследовательных заказов во время сканирования, и, если непоследовательный рабочий порядок найден, то появится одно маленькое окно и предупредит пользователя о том, принять или отклонить его для дальнейшего сканирования.Проблема в том, что эта программа очень хорошо работает на оконном сервере, но не показывает всплывающее окно на стороне 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 */
Я не знаю, в чем здесь проблема.Пожалуйста, помогите мне исправить это