Почему VIEW-AS ALERT BOX не работает на стороне Linux? - PullRequest
0 голосов
/ 15 июня 2019

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

Я не знаю, в чем здесь проблема.Пожалуйста, помогите мне исправить это

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...