Q5/ws_objects/cw_account.pbl.src/f_del_cred.srf

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

forward prototypes
global function integer f_del_cred (long arg_subaccsetid, long arg_credid, ref string arg_msg, boolean arg_ifcommit)
end prototypes

global function integer f_del_cred (long arg_subaccsetid, long arg_credid, ref string arg_msg, boolean arg_ifcommit);int rslt = 1
uo_credence uo_cred
uo_cred = Create uo_credence

//撤审凭计
IF uo_cred.cancel_check_1(arg_subaccsetid,arg_credid,0,arg_msg,False) = 0  THEN
	arg_msg = '撤审凭证失败!~n' + arg_msg
	rslt = 0
	GOTO ext
END IF

//删除凭计
IF uo_cred.del(1,arg_subaccsetid,arg_credid,arg_msg,False) = 0  THEN
	arg_msg = '删除凭证失败!~n' + arg_msg
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

Destroy uo_cred
return rslt
end function