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

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

forward prototypes
global function integer f_check_inoutdate_wfjg (long arg_scid, long arg_sptid, datetime arg_date, ref string arg_msg)
end prototypes

global function integer f_check_inoutdate_wfjg (long arg_scid, long arg_sptid, datetime arg_date, ref string arg_msg);Int rslt = 1
DateTime ld_balcdate

SELECT max(balcdate)
	INTO :ld_balcdate
	FROM ow_wfjgbalc
	WHERE balcdateint > 0
	AND scid = :arg_scid
	AND sptid = :arg_sptid;
IF sqlca.SQLCode = -1 THEN
	rslt = 0
	arg_msg = '查询最后结存日期出错'
	GOTO ext
ELSEIF sqlca.SQLCode = 100 THEN
	rslt = 1
	GOTO ext
END IF

IF arg_date <= ld_balcdate THEN
	arg_msg = '非法发生日期,日期:'+String(arg_date,'yyyy-mm-dd')+'小于最后结存日期:'+String(ld_balcdate,'yyyy-mm-dd')
	rslt = 0
	GOTO ext
END IF



ext:
RETURN rslt


end function