FXApp/ws_objects/ljerp1_mrp_uo.pbl.src/f_pf_sonlossstr.srf

$PBExportHeader$f_pf_sonlossstr.srf
global type f_pf_sonlossstr from function_object
end type

forward prototypes
global subroutine f_pf_sonlossstr (string arg_sonlossstr, ref s_pf_sonlossstr_array arg_s_sonlossstr_array)
end prototypes

global subroutine f_pf_sonlossstr (string arg_sonlossstr, ref s_pf_sonlossstr_array arg_s_sonlossstr_array);String ls_sonlossstr
String ls_sonlossstr_l
Long ll_pos_1,i
ls_sonlossstr = Trim(arg_sonlossstr)

DO WHILE ls_sonlossstr <> ''
	ll_pos_1 = Pos(ls_sonlossstr,';')
	ls_sonlossstr_l = Left(ls_sonlossstr,ll_pos_1 - 1)
	
	i++
	IF Pos(ls_sonlossstr_l,'[') + 1 = Pos(ls_sonlossstr_l,']') THEN
		arg_s_sonlossstr_array.conditionstr[i] = ''
	ELSE
		arg_s_sonlossstr_array.conditionstr[i] = Mid(ls_sonlossstr_l,2,Pos(ls_sonlossstr_l,']') - 2)
	END IF
	
	arg_s_sonlossstr_array.sonlossstr[i] = Mid(ls_sonlossstr_l,Pos(ls_sonlossstr_l,'{') + 1,Pos(ls_sonlossstr_l,'}') - Pos(ls_sonlossstr_l,'{') - 1)
	ls_sonlossstr = Mid(ls_sonlossstr,ll_pos_1 + 1)
LOOP









end subroutine