Before Update Call:

IF dw_1.accepttext() <> 1 THEN RETURN


//check reqired columns
IF f_required_fields (dw_1) <> 1 THEN RETURN


where f_required_fields() >>>>>>



global type f_required_fields from function_object
end type

forward prototypes
global function integer f_required_fields (ref datawindow adw_control)
end prototypes

global function integer f_required_fields (ref datawindow adw_control);
integer li_colnbr = 1

long ll_row = 1
long l_row_count
string ls_colname, ls_textname
boolean b_status

// These next 6 lines of code were added on 7/2/96 to check for required
// fields in w_a_sp windows as well as the parm windows.

l_row_count = adw_control.RowCount()
IF l_row_count > 1 THEN
b_status = TRUE
ELSE
b_status = FALSE
END IF

// Make sure the last entry is accepted
IF adw_control.AcceptText() = -1 THEN
adw_control.SetFocus()
RETURN -2
END IF

// Find the first empty row and column, if any
IF adw_control.FindRequired( Primary!, ll_row, &
li_colnbr, ls_colname, b_status ) < 0 THEN
//If the search fails due to an error, then return
RETURN -2
END IF

// Was any row found?
IF ll_row <> 0 THEN
// Get the text of that column's label.
ls_textname = ls_colname + "_t.Text"
ls_colname = adw_control.Describe(ls_textname)


// Tell the user which column to fill in.
MessageBox("Required Value Missing", &
"Please enter a value for ~n '" &
+ ls_colname &
+ "', row " &
+ String(ll_row) + ".", &
StopSign! )

// Make the problem column current.
adw_control.SetFocus()
adw_control.SetColumn(li_colnbr)
adw_control.ScrollToRow(ll_row)
RETURN -1
END IF

// Return success code if all required
// rows and columns have data
RETURN 1

end function