long ll_id_status, ll_worker 
datetime ldt_data_change

ll_id_status = tab_1.tp_nz.dw_nz_detail.GetItemNumber( 1 ,'sc_nz_status')
ldt_data_change = f_b_datetime()
ll_worker = gu_user.il_id

dwItemStatus l_status

l_status = &
	tab_1.tp_nz.dw_nz_detail.GetItemStatus( 1 , "sc_nz_status", Primary!)
messageBox('',string(l_status))
	

if not isNull(ll_id_status) then
	insert into Sc_status_route (Kod_dog, Sc_nz_status, Data_change, Worker) values (:ll_kod_nz, :ll_id_status, :ldt_data_change, :ll_worker) using sqlca;
else
	return  1 
end if
if f_b_check_result('',sqlca) <>  0  then
	rollback using sqlca;
	return - 1 
end if

dwItemStatus l_status
l_status = &
tab_1.tp_nz.dw_nz_detail.GetItemStatus( 1 , "sc_nz_status", Primary!)

...if  not isNull(ll_id_status) and l_status = dataModified! then....