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

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

forward prototypes
global function integer f_moneyid_rate_check (long arg_moneyid, decimal arg_mrate, ref string arg_msg)
end prototypes

global function integer f_moneyid_rate_check (long arg_moneyid, decimal arg_mrate, ref string arg_msg);Int rslt = 1
Long ll_moneyid_native

SELECT moneyid INTO :ll_moneyid_native
	FROM cw_currency
	Where native = 1;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询本位币种失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF arg_moneyid = ll_moneyid_native THEN
	IF arg_mrate <> 1 THEN
		arg_msg = '单据币种为人民币,但汇率不等于1,请检查'
		rslt = 0
		GOTO ext
	END IF
ELSE
	IF arg_mrate = 1 THEN
		arg_msg = '单据币种为外币,但汇率等于1,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
RETURN rslt



end function