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

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

forward prototypes
global function integer f_get_itemid (long arg_dfttype, ref long arg_itemid, ref string arg_msg)
end prototypes

global function integer f_get_itemid (long arg_dfttype, ref long arg_itemid, ref string arg_msg);Long rslt = 1
Long ll_itemid

SELECT itemid INTO :ll_itemid
	FROM u_itemdef
	Where dfttype = :arg_dfttype;
IF sqlca.SQLCode <> 0 THEN
	IF arg_dfttype = 1 THEN
		arg_msg = '查询默认销售收款项目资料失败'
	ELSEIF arg_dfttype = 2 THEN
		arg_msg = '查询默认采购外协付款项目资料失败'
	ELSEIF arg_dfttype = 3 THEN
		arg_msg = '查询默认销售优惠项目资料失败'
	ELSEIF arg_dfttype = 4 THEN
		arg_msg = '查询默认销售退货项目资料失败'
	ELSEIF arg_dfttype = 5 THEN
		arg_msg = '查询默认采购外协退货项目资料失败'
	ELSEIF arg_dfttype = 6 THEN
		arg_msg = '查询默认销售税金项目资料失败'
	ELSEIF arg_dfttype = 7 THEN
		arg_msg = '查询默认采购税金项目资料失败'
	ELSEIF arg_dfttype = 8 THEN
		arg_msg = '查询默认采购优惠项目资料失败'
	ELSE
		arg_msg = '查询收入支出项目资料失败,类型:'+string(arg_dfttype)
	END IF
	rslt = 0
	arg_itemid = 0
	goto ext
END IF
arg_itemid = ll_itemid
ext:
RETURN rslt


end function