Hello Sir,
Thank you so much for the response. Your response has given me the drive to move.
I did effect the suggestions you made and tried to trace from the Calling program as follows:
COMMAND KEY (A, a) "Amend" "Amend Payments & Deductions"
CALL RqestEmployee() RETURNING w_manno
IF w_manno != " "
THEN
CALL AmendPaymentDeduction(w_manno)
END IF
display " Inside infield manno 1 "
sleep 5
LET GetInput = TRUE
WHILE GetInput
INPUT w_manno,
w_surname
WITHOUT DEFAULTS
FROM manno,
surname
display " Inside infield manno 1 "
sleep 5
ON KEY (CONTROL-B)
IF INFIELD(surname)
THEN
LET StringSearch = FALSE
LET PartEntry = get_fldbuf(surname)
CALL Help_Surname(15, 19) RETURNING w_surname
DISPLAY w_surname TO surname
END IF
AFTER FIELD manno
IF w_manno <> " "
AND w_manno IS NOT NULL
THEN
SELECT COUNT(*)
INTO w_cnt
FROM personnel per,
payrollstatus prs
WHERE per.manno = prs.manno
AND prs.manno = w_manno
{IF w_cnt != 1
THEN
PROMPT "No Personnel Record Exists With This Man Number ",
" - Press Return"
ATTRIBUTE(BOLD) FOR CHAR Answer---}
IF w_cnt != 1
THEN
CALL my_prompt()
NEXT FIELD manno
END IF
END IF
END INPUT
FUNCTION my_prompt()
DEFINE answer CHAR(1)
OPEN WINDOW m_wsu AT 4,6 WITH FORM "my_wsu"
ATTRIBUTE(BORDER,FORM LINE 2, COMMENT LINE LAST-1,PROMPT LINE LAST,MESSAGE LINE LAST)
PROMPT "No Personnel Record Exists With This Man Number ", " - Press Return" FOR CHAR answer
CLOSE WINDOW m_wsu
END FUNCTION
From the look of things, it is like, the "ON KEY (CONTROL-B" is not being recognised. What can I use instead ?
Thanking you once again.
Regards
Felix Mwango Mutale
Thank you so much for the response. Your response has given me the drive to move.
I did effect the suggestions you made and tried to trace from the Calling program as follows:
COMMAND KEY (A, a) "Amend" "Amend Payments & Deductions"
CALL RqestEmployee() RETURNING w_manno
IF w_manno != " "
THEN
CALL AmendPaymentDeduction(w_manno)
END IF
display " Inside infield manno 1 "
sleep 5
LET GetInput = TRUE
WHILE GetInput
INPUT w_manno,
w_surname
WITHOUT DEFAULTS
FROM manno,
surname
display " Inside infield manno 1 "
sleep 5
ON KEY (CONTROL-B)
IF INFIELD(surname)
THEN
LET StringSearch = FALSE
LET PartEntry = get_fldbuf(surname)
CALL Help_Surname(15, 19) RETURNING w_surname
DISPLAY w_surname TO surname
END IF
AFTER FIELD manno
IF w_manno <> " "
AND w_manno IS NOT NULL
THEN
SELECT COUNT(*)
INTO w_cnt
FROM personnel per,
payrollstatus prs
WHERE per.manno = prs.manno
AND prs.manno = w_manno
{IF w_cnt != 1
THEN
PROMPT "No Personnel Record Exists With This Man Number ",
" - Press Return"
ATTRIBUTE(BOLD) FOR CHAR Answer---}
IF w_cnt != 1
THEN
CALL my_prompt()
NEXT FIELD manno
END IF
END IF
END INPUT
FUNCTION my_prompt()
DEFINE answer CHAR(1)
OPEN WINDOW m_wsu AT 4,6 WITH FORM "my_wsu"
ATTRIBUTE(BORDER,FORM LINE 2, COMMENT LINE LAST-1,PROMPT LINE LAST,MESSAGE LINE LAST)
PROMPT "No Personnel Record Exists With This Man Number ", " - Press Return" FOR CHAR answer
CLOSE WINDOW m_wsu
END FUNCTION
From the look of things, it is like, the "ON KEY (CONTROL-B" is not being recognised. What can I use instead ?
Thanking you once again.
Regards
Felix Mwango Mutale