Q5/ws_objects/Ew_bsnobj.pbl.src/f_get_planprice.srf

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

forward prototypes
global function decimal f_get_planprice (long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, boolean arg_getdft)
end prototypes

global function decimal f_get_planprice (long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, boolean arg_getdft);//arg_GetDft 是否取默认

Dec lde_planprice

SELECT planprice
	INTO :lde_planprice
	FROM u_mtrl_planprice
	WHERE mtrlid = :arg_mtrlid
	AND status = :arg_status
	AND woodcode = :arg_woodcode
	And pcode = :arg_pcode;
IF sqlca.SQLCode <> 0 THEN
	lde_planprice = 0
END IF

IF IsNull(lde_planprice) THEN lde_planprice = 0

IF lde_planprice = 0 THEN
	IF arg_GetDft THEN
		SELECT planprice
			INTO :lde_planprice
			FROM u_mtrldef
			Where mtrlid = :arg_mtrlid;
		IF sqlca.SQLCode <> 0 THEN
			lde_planprice = 0
		END IF
		
		IF IsNull(lde_planprice) THEN lde_planprice = 0
		
	END IF
END IF

RETURN lde_planprice















end function