DDDW

[magni]

Hi,
could anyone go through my source code and tell me where I'm wrong.


//TODO ALL IDs MUST BE INCLUDED

for ll_row_class= 1 to ::mds.aso.ii_max_division
ls_find = "division_id_" + string(ai_division_number) + " = ~'"+ this.dw_criteria.getitemstring(1, "division_" + string(ai_division_number)) + "~' "
Next
ll_row_class= ::mds.aso.irs_as_classification.fn_action_find(ls_find, 0, 0, ::mds.dw.cs_FIND_SET)
do while ll_row_class >0
ls_division_ID = ::mds.aso.irs_as_classification.fn_get_string("division_id_" + string(ai_division_number + 1))
if ls_division_ID <> ls_division_FOUND then
ls_division_FOUND = ls_division_ID
ls_find_SUB = " division_number = " + string(ai_division_number + 1) &
+ " AND division_ID = ~'" + ls_division_ID + "~' "
if ::mds.aso.irs_as_division.fn_action_find(ls_find_SUB, ll_row_class, 0, ::mds.dw.cs_FIND_SET) > 0 then
ls_tmp = this.fn_replace:mds.aso.irs_as_division.fn_get_string("descr"))
ls_tmp = ::mdsfn_replace(this.ii_command_index, ls_tmp , ::mds.dw.ics_value_delim, ::mds.dw.ics_value_delim + ::mds.dw.ics_value_delim, 1)
ls_values+= ls_TMP + "~t" + ls_division_ID + ::mds.dw.ics_value_delim
end if
end if
ll_row_class ++
if ll_row_class > ::mds.aso.irs_as_classification.il_rows then
ll_row_class= 0
else
ll_row_class= ::mds.aso.irs_as_classification.fn_action_find(ls_find, ll_row_class, 0, ::mds.dw.cs_FIND_SET)
end if
loop