Mehram
asked on
To refina a function or give a new one if any of the expert has.
PB7
I have a function which is meant to do the following.
It checks thoses columns of datawindow whoose required property is checked.
If data is note entered in that column then it throws message like this
'Value required for column +[column in question]'
It is working for one column.
For example, if the datawindow has more than one required columns and it would
throw message for the first column. ok.
But when I click the save button again , it does not do anything.
Calling method:
IF f_checkrequired (dw_master) = 0 THEN RETURN
I have a function which is meant to do the following.
It checks thoses columns of datawindow whoose required property is checked.
If data is note entered in that column then it throws message like this
'Value required for column +[column in question]'
It is working for one column.
For example, if the datawindow has more than one required columns and it would
throw message for the first column. ok.
But when I click the save button again , it does not do anything.
Calling method:
IF f_checkrequired (dw_master) = 0 THEN RETURN
$PBExportHeader$f_checkrequired.srf
$PBExportComments$Checks that all required columns in a DataWindow control are filled in
global type f_checkrequired from function_object
end type
forward prototypes
global function integer f_checkrequired (datawindow adw_control)
end prototypes
global function integer f_checkrequired (datawindow adw_control);integer li_colnbr = 1
long ll_row = 1
string ls_colname, ls_textname
IF adw_control.AcceptText() = -1 THEN
adw_control.SetFocus()
RETURN 0
END IF
IF adw_control.FindRequired( primary!, ll_row, li_colnbr, ls_colname, true ) < 1 THEN
RETURN 0
END IF
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 '" + ls_colname , exclamation!)
// Make the problem column current.
adw_control.SetColumn(li_colnbr)
adw_control.ScrollToRow(ll_row)
adw_control.SetFocus()
RETURN 0
END IF
RETURN 1
end function
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I have already done that.
We probably have suppresed error message throwing by field required, I dont know how and where.