Q5/ws_objects/Ew_gz.pbl.src/f_getwrkprice.srf

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

forward prototypes
global function long f_getwrkprice (string arg_mtrlcode, string arg_procode)
end prototypes

global function long f_getwrkprice (string arg_mtrlcode, string arg_procode);Long rslt = 0
Decimal price 
 
 
select ISNULL(u_sc_workprice.workPrice,0) into :price 
		from u_sc_workprice inner join u_mtrldef 
		on u_sc_workprice.Mtrlid=u_mtrldef.mtrlid 
		where u_mtrldef.mtrlcode=:arg_mtrlcode 
		and u_sc_workprice.procode=:arg_procode;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		GOTO ext
	END IF
 
 
rslt = price
ext:
RETURN rslt

end function