/**********************************************************************************************************************
Acc:	public
-----------------------------------------------------------------------------------------------------------------------
Dscr:	Reports if in the passed DW, DS or DWC exists a row which satisfies the passed logical expression.
		Should be used instead of the built-in DW's Find(). Advantages:
		
		1. Decreases the number of code lines in the calling script:
				A. Var ll_found_row must not be declared and checked if it's more than 0.
				B. The searched DW / DS must not be checked for validity (error es displayed if it is invalid).
				
				So, the fragment
				
						long ll_found_row
						
						if not IsValid(ads) then
							gnvuo_util.uf_msg("Invalid DataStore passed to function", "uf_...", this)
						end if
						ll_found_row = ads.Find(ls_search_expr, 1, ads.RowCount())
						if ll_found_row > 0 then...
						
				shrinks to one line:
				
						if gnvuo_util.uf_row_found(ads, ls_search_expr) then...
				
		2. If the search expression is incorrect, PB's Find() function displays the message "Expression is not valid"
			which doesn't help a lot. The function uf_row_found displays an additional message which:
				A. Explains exactly what and where has happened so the bug will be found quickly and easily.
				B. Displays the incorrect expression (usually it is built dynamically, so it saves extra debugging).
				C. Displays the DW/DS/DWC's DataObject and suggests to check if it has all the fields, mentioned in the expression.
-----------------------------------------------------------------------------------------------------------------------
Arg:	apo_data_widget (PowerObject) - DataWindow, DataStore or DataWindowChild to search in
		as_search_expr - the logical expression to search by
-----------------------------------------------------------------------------------------------------------------------
Ret:	boolean
-----------------------------------------------------------------------------------------------------------------------
Thr:	nvuo_ex
**********************************************************************************************************************/
long					ll_found_row
string				ls_dataobject
Object				lo_type_of_arg
DataWindow			ldw
DataStore			lds
DataWindowChild	ldwc

if uf_empty(as_search_expr) then
	return false
end if

lo_type_of_arg = apo_data_widget.TypeOf()
choose case lo_type_of_arg
case DataWindow!
	ldw = apo_data_widget
	if not IsValid(ldw) then f_throw(PopulateError(1, "Invalid DataWindow passed to function"))
	ll_found_row = ldw.Find(as_search_expr, 1, ldw.RowCount())
case DataStore!
	lds = apo_data_widget
	if not IsValid(lds) then f_throw(PopulateError(2, "Invalid DataStore passed to function"))
	ll_found_row = lds.Find(as_search_expr, 1, lds.RowCount())
case DataWindowChild!
	ldwc = apo_data_widget
	if not IsValid(ldwc) then f_throw(PopulateError(3, "Invalid DataWindowChild passed to function"))
	ll_found_row = ldwc.Find(as_search_expr, 1, ldwc.RowCount())
case else
	f_throw(PopulateError(4, "Type of argument apo_data_widget must be DataWindow, DataStore or DataWindowChild."))
end choose

choose case ll_found_row
case is > 0
	return true
case 0
	return false
case -1 // General error
	f_throw(PopulateError(5, "Find() failed."))
case -5 // Bad argument
	choose case lo_type_of_arg
	case DataWindow!
		ls_dataobject = ldw.DataObject
	case DataStore!
		ls_dataobject = lds.DataObject
	case DataWindowChild!
//		ls_dataobject = ldwc.DataObject
	end choose
	f_throw(PopulateError(6, "Invalid search expression passed to Find():~r~n~r~n~"" + as_search_expr + &
						"~"~r~n~r~nCheck if all fields, mentioned in the expression, exist in " + ls_dataobject + "."))
end choose

return false

ls_dataobject = "the DataObject"