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

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

forward prototypes
global function integer f_get_dcflag (string arg_subid, ref string arg_msg)
end prototypes

global function integer f_get_dcflag (string arg_subid, ref string arg_msg);//====================================================================
// Subroutine: f_get_dcflag()
//--------------------------------------------------------------------
// Description:查询会计科目余额方向 
//--------------------------------------------------------------------
// Arguments: 
//		string	arg_subid		
//		string	arg_msg  		
//--------------------------------------------------------------------
// Returns:  (None)
//--------------------------------------------------------------------
// Author:	yyx		Date: 2004.11.09
//--------------------------------------------------------------------
// Modify History: 
//	
//====================================================================

int rslt_dcflag
select dcflag into :rslt_dcflag from cw_subject
	where accsetid = :sys_accsetid
	  and subid =:arg_subid;
if sqlca.sqlcode <> 0 then
	arg_msg = '查询会计科目:'+arg_subid+'余额方向失败'
	rslt_dcflag = -1
end if	

return rslt_dcflag
end function