FXApp/ws_objects/l1_uo.pbl.src/f_get_dft_wp.srf

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

forward prototypes
global function string f_get_dft_wp (long arg_mtrlid)
end prototypes

global function string f_get_dft_wp (long arg_mtrlid);String rst_wpcode

SELECT wpcode INTO :rst_wpcode
	FROM u_mtrl_workprice
	WHERE mtrlid = :arg_mtrlid
	And ifdft = 1;
	
IF sqlca.SQLCode <> 0 THEN rst_wpcode = ''

RETURN rst_wpcode

end function