public function string of_getdisplayvalue (readonly long al_row, readonly string as_column);


string s,f,t
long		i,pos
any 		la_value
datawindowchild ldwc

//this script is so big because in PB10 DW becomes crazy about message boxes!
// check parameters
if isnull(al_row) or al_row <=  0  then return ''
if isnull(as_column) or as_column = "" then return ''

//get item value
t=idw_requestor.Describe ( as_column + ".ColType" )
CHOOSE CASE Left ( t ,  5  )
		CASE "char(",'char'				//  CHARACTER DATATYPE
			la_value = idw_requestor.GetItemString ( al_row, as_column)
		CASE "date"					//  DATE DATATYPE
			la_value = idw_requestor.GetItemDate ( al_row, as_column) 
		CASE "datet"				//  DATETIME DATATYPE
			la_value = idw_requestor.GetItemDateTime ( al_row, as_column) 
		CASE "decim"				//  DECIMAL DATATYPE
			la_value = idw_requestor.GetItemDecimal ( al_row, as_column) 
		CASE "numbe", "long", "ulong", "real"				//  NUMBER DATATYPE	
			la_value = idw_requestor.GetItemNumber ( al_row, as_column) 
		CASE "time", "times"		//  TIME DATATYPE
			la_value = idw_requestor.GetItemTime ( al_row, as_column) 
		CASE ELSE 					//  should not happend
			return ''
END CHOOSE

//format the received value
choose case idw_requestor.describe(as_column+'.type')
	case 'compute'
		f=idw_requestor.describe(as_column+'.format')
		if f='!' or f='?' or f='' or lower(f)='[general]' then return string(la_value)
		return string(la_value,f )
	case 'column'
		choose case idw_requestor.describe(as_column+'.edit.style')
			case 'edit'//,'checkbox','radiobuttons'
				f=idw_requestor.describe(as_column+'.format')
				if f='!' or f='?' or f='' or lower(f)='[general]' then return string(la_value)
				return string(la_value,f )
			case 'editmask'
				f=idw_requestor.describe(''+as_column+'.editmask.mask')
				if f='!' or f='?' or f='' or lower(f)='[general]' then return string(la_value)
				return string(la_value,f )
			case 'ddlb', 'radiobuttons'
				// get values
				i= 1 
				f=idw_requestor.GetValue( as_column, i )
				if f<>'' then
					s=string(la_value)
					if isnull(s) then s=''
					do 
						pos=pos(f,'~t')
						if mid(f,pos+ 1 )=s then return left(f,pos -  1 )
						i++
						f=idw_requestor.GetValue( as_column, i )
					loop while f<>''
				end if
				return string(la_value)
			case 'dddw'
				if idw_requestor.getchild(as_column, ldwc) <>  1  then return string(la_value)
				// get datacolumn name
				f = idw_requestor.describe(as_column + ".dddw.DataColumn")
				if f = "!" or f = "?" or f = "" then return string(la_value)
				// get display column name
				s = idw_requestor.describe(as_column + ".dddw.DisplayColumn")
				if s = "!" or s = "?" or s = "" then return string(la_value)			
				if isnull(la_value) then
					i = ldwc.find("isnull(" +f+ ")",  1 , ldwc.rowcount() )
				else
					CHOOSE CASE Left ( t ,  5  )
							CASE "char(",'char'				//  CHARACTER DATATYPE
								t='="'+string(la_value)+'"'
							CASE "date"					//  DATE DATATYPE
								t='=date("'+string(la_value)+'")'
							CASE "datet"				//  DATETIME DATATYPE
								t='=datetime("'+string(la_value)+'")'
							CASE "decim"				//  DECIMAL DATATYPE
								n_string_operations n_str
								t='='+n_str.of_decimaltostring(la_value)+''
							CASE "numbe", "long", "ulong", "real"				//  NUMBER DATATYPE	
								t='='+string(la_value)+''
							CASE "time", "times"		//  TIME DATATYPE
								t='=time("'+string(la_value)+'")'
							CASE ELSE 					//  should not happend
								return string(la_value)
					END CHOOSE
					i = ldwc.find(f + t ,  1 , ldwc.rowcount() )
				end if
				if i >  0  then
					CHOOSE CASE Lower ( Left ( ldwc.Describe ( s + ".ColType" ) ,  5  ) )
						CASE "char(", "char" // string
							la_value = ldwc.getitemstring(i, s)
						CASE "date"					//  DATE DATATYPE
							la_value = ldwc.GetItemDate ( i, s) 
						CASE "datet"				//  DATETIME DATATYPE
							la_value = ldwc.GetItemDateTime ( i, s)
						CASE "decim"				//  DECIMAL DATATYPE
							la_value = ldwc.GetItemDecimal ( i, s)
						CASE "numbe", "long", "ulong", "real"				//  NUMBER DATATYPE	
							la_value = ldwc.GetItemNumber ( i, s)	
						CASE "time", "times"		//  TIME DATATYPE
							la_value = ldwc.GetItemTime ( i, s)						
					end choose
				end if
				return string(la_value)
		end choose
end choose


return ''


end function