/*------------------------------------------------------------------------------

 Event   :			 u_dw_udim.ue_Opendddw

 Returns:         Long

 Parameters:      

 Copyright © DTI

 Date Created: 

 Description:	pbm_dwndropdown - Filters the dddw that's about to be shown
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
 3/19/2004		P. Salgannik		Make sure that ONLY one row shows as selected - 
 											the one corresponding to the current code value
											(Prompted by Issue 33077), see also ue_closedddw
------------------------------------------------------------------------------*/ 
DataWindowChild	dwch
String				filtr, s_this_field, s_dep_field, s_col_type, s_dep_value, s_filter_list, s_dep_rule
string				s_data_column, s_null_rule, s_undefined_rule
Int					rc, i
Date					ValDate
long					l_find, l_row, ll_row_id, ll_currentdddwrow 
boolean				b_set_filter, lb_selectrow

IF i_b_filter_dddw or i_b_dep_dddws_exist THEN
	// Get the DW child and its current filter.  If no filter then create one and add it
	l_row = this.GetRow()
	s_this_field = GetColumnName()
	this.GetChild(s_this_field, dwch)
	filtr = dwch.Describe("DataWindow.Table.Filter")

	IF filtr = DW_DESCRIBE_NOVALUE and i_b_filter_dddw and f_is_column3(dwch, "effective_from_date") THEN
		// Get the date to use with the filter
		ValDate = fu_get_validation_date()
		IF ValDate = Date("01/01/1900") OR IsNull(ValDate) THEN
			ValDate = today()
		END IF
		filtr = 	'Date("' + String(ValDate) + '") >= if(IsNull(effective_from_date),' + &
				    'date("01/01/1900"),  Date(effective_from_date))' + &
					' AND ' + &
					'Date("' + String(ValDate) + '") <= if(IsNull(effective_to_date),' + &
				    'date("12/31/2100"),  effective_to_date  )'
					 
		// Фильтрация части записей, которая неактивна :-))
		b_set_filter = TRUE
	END IF

	// check for dependency rules [SNIPPED]

	IF b_set_filter THEN
		// 3 / 19 / 2004 		P. Salgannik BEGIN!!!!!!!!!!!!!!!!!!!!!!!!
		ll_currentdddwrow = dwch.GetRow()
		IF ll_currentdddwrow >  0  THEN
			ll_row_id = dwch.GetRowIdFromRow(ll_currentdddwrow)
			lb_selectrow = TRUE
		END IF
		
		IF dwch.SetFilter(filtr) <> SUCCESS THEN
			f_printf("Failed to set DDDW filter: " + filtr)
		END IF
		
		IF dwch.Filter() <> SUCCESS THEN
			f_printf("Failed to filter DDDW: " + filtr)
		ELSE
			IF lb_selectrow THEN
				dwch.Selectrow(  0 , FALSE)
				ll_currentdddwrow = dwch.GetRowFromRowId(ll_row_id)
				IF ll_currentdddwrow >  0  THEN
					dwch.ScrollToRow(ll_currentdddwrow)
				END IF
			END IF
		END IF
		// 3 / 19 / 2004 		P. Salgannik END!!!!!!!!!!!!!!!!!!!!!!!!		
		
	END IF
		

END IF