Chuck,
I will open a case when I return to the office tomorrow. Although, I am not certain it is truly a WebFOCUS issue vs browser or computer settings. Since it works for some users and not others.
Mark,
It is an edit box already. Sorry for not making that clear earlier. Below is the steps users follow my code.
1. User clicks ‘Delete’ Button
2. Screen flashes. User can see lettering in text box, but does not have time to read it
3. Screen flashes, text box is cleared
Step 3 only happens for certain users. Based on what I have been able to determine, even though the last line of the code being executed is to populate the text box, something is happening to trigger PopEnrollment and/or PopAttendance to be executed a second time before control returns to the form.
Here is the code
CASE DeleteRecord
COMPUTE
StkEnrollment.FOCINDEX = EnrollmentIndex;
sqlErrorCode = 0;
UpdateMessage = '';
STACK CLEAR StkAttendance
REPOSITION attendance. ATTENDANCE. ATTENDANCEID
FOR 1 NEXT attendance. ATTENDANCE. ATTENDANCEID
INTO StkAttendance
WHERE attendance. ATTENDANCE. ENROLLMENTID EQ StkEnrollment ().ENROLLMENTID;
IF (StkAttendance.FOCCOUNT GT 0) THEN
BEGIN
COMPUTE
UpdateMessage = 'Attendance records exist. Unable to delete enrollment record.' ;
ENDBEGIN
ELSE
BEGIN
COMPUTE
UpdateMessage = ‘Enrollment record deleted.' ;
StkDeleteEnrollment (1). ENROLLMENTID = StkEnrollment ().ENROLLMENTID;
FOR 1 DELETE
enrollment.ENROLLMENT.ENROLLMENTID FROM StkDeleteEnrollment (1);
COMPUTE
sqlErrorCode = SYS_MGR.dbms_errorcode;
COMMIT
ENDBEGIN
PERFORM PopEnrollment -* Repopulates all enrollment information for the course
PERFORM PopAttendance -* Repopulates the current months enrollment for the course
COMPUTE
FormMessage = If (sqlErrorCode EQ 0) THEN UpdateMessage
ELSE 'An error occurred during the delete, please try again.';
InmateMessage = FormMessage;
ENDCASE
For now, I have created a form with a text box to display the message and a button to close the new form. This seems to work to display the message long enough for the user to see the message.
Deana
WebFOCUS 7.6.8 and 7.7.03; Windows Server 2003 R2 and Windows Server 2008 R2, respectively; Development environments - Windows Server 2003 R2 and Windows 7 Professional, respectively;
excel, html, pdf