Hi friends,
I am working in a migration project where we are migrating from eb2 to eb2.1.
we have .net 2011 version of QAD also.
There are some customized programs as well which are need to converted.
Overlay frames are creating issues when we check in .Net version of QAD. Basically, the cursor is not coming out from the overlay frames which contanins some fields.
Can anyone suggest how we can solve this issue? Thanks in advance !
Below is the customized program for site security maintenance. It is basically a wrapper program. the cursor is not coming out from the overlay frame even after pressing "Back" button in .Net 2011.
{mfdeclre.i}
DEFINE VARIABLE lch_entity LIKE en_mstr.en_entity.
DEFINE VARIABLE lch_userid LIKE global_userid.
DEFINE VARIABLE llg_flag AS LOGICAL LABEL "AP".
DEFINE VARIABLE llg_flg1 AS LOGICAL LABEL "AR".
DEFINE VARIABLE llg_flg2 AS LOGICAL LABEL "GL".
ON GO, TAB, ENTER, RETURN,CURSOR-UP, CURSOR-DOWN, cursor-right, cursor-left ANYWHERE DO:
IF FRAME-FIELD = 'code_value' THEN DO:
lch_userid = FRAME-VALUE.
FIND FIRST usr_mstr WHERE usr_userid = lch_userid NO-LOCK NO-ERROR.
IF NOT AVAILABLE usr_mstr THEN DO:
/* MESSAGE "Error: Entered User-Id does not exist in User master, cannot proceed" VIEW-AS ALERT-BOX. */
{pxmsg.i &MSGTEXT = """ Entered User-Id does not exist in User master, cannot proceed """ &ERRORLEVEL=4}
RETURN NO-APPLY.
END.
END.
IF FRAME-NAME = "b" AND FRAME-FIELD = "w1_entity" THEN DO:
lch_entity = FRAME-VALUE.
FIND FIRST usrw_wkfl WHERE usrw_domain = global_domain AND
usrw_key1 = lch_userid AND
usrw_key2 = lch_entity NO-LOCK NO-ERROR.
IF AVAILABLE usrw_wkfl THEN
ASSIGN llg_flag = usrw_logfld[1]
llg_flg1 = usrw_logfld[2]
llg_flg2 = usrw_logfld[3].
ELSE
ASSIGN llg_flag = NO
llg_flg1 = NO
llg_flg2 = NO.
UPDATE llg_flag SPACE(5) llg_flg1 SPACE(5) llg_flg2 WITH FRAME acc
WIDTH 30 OVERLAY CENTERED ROW 10 TITLE "Transaction Access".
FIND FIRST usrw_wkfl WHERE usrw_domain = global_domain AND
usrw_key1 = lch_userid AND
usrw_key2 = lch_entity SHARE-LOCK NO-ERROR.
IF AVAILABLE usrw_wkfl THEN
ASSIGN usrw_logfld[1] = llg_flag
usrw_logfld[2] = llg_flg1
usrw_logfld[3] = llg_flg2.
ELSE DO:
CREATE usrw_wkfl.
ASSIGN usrw_domain = global_domain
usrw_logfld[1] = llg_flag
usrw_logfld[2] = llg_flg1
usrw_logfld[3] = llg_flg2
usrw_key1 = lch_userid
usrw_key2 = lch_entity.
END.
HIDE FRAME acc.
END.
IF FRAME-FIELD = "del-yn" THEN DO:
IF STRING(FRAME-VALUE) = "YES" THEN DO:
FIND FIRST usrw_wkfl WHERE usrw_domain = global_domain AND
usrw_key1 = global_userid AND
usrw_key2 = lch_entity SHARE-LOCK NO-ERROR.
IF AVAILABLE usrw_wkfl THEN
DELETE usrw_wkfl.
END.
END.
END.
{gprun.i ""glsecmt.p""}
I am working in a migration project where we are migrating from eb2 to eb2.1.
we have .net 2011 version of QAD also.
There are some customized programs as well which are need to converted.
Overlay frames are creating issues when we check in .Net version of QAD. Basically, the cursor is not coming out from the overlay frames which contanins some fields.
Can anyone suggest how we can solve this issue? Thanks in advance !
Below is the customized program for site security maintenance. It is basically a wrapper program. the cursor is not coming out from the overlay frame even after pressing "Back" button in .Net 2011.
{mfdeclre.i}
DEFINE VARIABLE lch_entity LIKE en_mstr.en_entity.
DEFINE VARIABLE lch_userid LIKE global_userid.
DEFINE VARIABLE llg_flag AS LOGICAL LABEL "AP".
DEFINE VARIABLE llg_flg1 AS LOGICAL LABEL "AR".
DEFINE VARIABLE llg_flg2 AS LOGICAL LABEL "GL".
ON GO, TAB, ENTER, RETURN,CURSOR-UP, CURSOR-DOWN, cursor-right, cursor-left ANYWHERE DO:
IF FRAME-FIELD = 'code_value' THEN DO:
lch_userid = FRAME-VALUE.
FIND FIRST usr_mstr WHERE usr_userid = lch_userid NO-LOCK NO-ERROR.
IF NOT AVAILABLE usr_mstr THEN DO:
/* MESSAGE "Error: Entered User-Id does not exist in User master, cannot proceed" VIEW-AS ALERT-BOX. */
{pxmsg.i &MSGTEXT = """ Entered User-Id does not exist in User master, cannot proceed """ &ERRORLEVEL=4}
RETURN NO-APPLY.
END.
END.
IF FRAME-NAME = "b" AND FRAME-FIELD = "w1_entity" THEN DO:
lch_entity = FRAME-VALUE.
FIND FIRST usrw_wkfl WHERE usrw_domain = global_domain AND
usrw_key1 = lch_userid AND
usrw_key2 = lch_entity NO-LOCK NO-ERROR.
IF AVAILABLE usrw_wkfl THEN
ASSIGN llg_flag = usrw_logfld[1]
llg_flg1 = usrw_logfld[2]
llg_flg2 = usrw_logfld[3].
ELSE
ASSIGN llg_flag = NO
llg_flg1 = NO
llg_flg2 = NO.
UPDATE llg_flag SPACE(5) llg_flg1 SPACE(5) llg_flg2 WITH FRAME acc
WIDTH 30 OVERLAY CENTERED ROW 10 TITLE "Transaction Access".
FIND FIRST usrw_wkfl WHERE usrw_domain = global_domain AND
usrw_key1 = lch_userid AND
usrw_key2 = lch_entity SHARE-LOCK NO-ERROR.
IF AVAILABLE usrw_wkfl THEN
ASSIGN usrw_logfld[1] = llg_flag
usrw_logfld[2] = llg_flg1
usrw_logfld[3] = llg_flg2.
ELSE DO:
CREATE usrw_wkfl.
ASSIGN usrw_domain = global_domain
usrw_logfld[1] = llg_flag
usrw_logfld[2] = llg_flg1
usrw_logfld[3] = llg_flg2
usrw_key1 = lch_userid
usrw_key2 = lch_entity.
END.
HIDE FRAME acc.
END.
IF FRAME-FIELD = "del-yn" THEN DO:
IF STRING(FRAME-VALUE) = "YES" THEN DO:
FIND FIRST usrw_wkfl WHERE usrw_domain = global_domain AND
usrw_key1 = global_userid AND
usrw_key2 = lch_entity SHARE-LOCK NO-ERROR.
IF AVAILABLE usrw_wkfl THEN
DELETE usrw_wkfl.
END.
END.
END.
{gprun.i ""glsecmt.p""}
Last edited: