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

forward prototypes
global function integer f_set_accsetmessage ()
end prototypes

global function integer f_set_accsetmessage ();//f_set_accsetmessage
SELECT cw_accset.accsetname,
	cw_accset.Cropname,
	cw_accset.Cropid,
	cw_accset.startyear,
	cw_accset.startyearmon,
	cw_accset.Curryear,
	cw_accset.Currmon,
	cw_accset.mustcheck,
	cw_accset.Sameuser,
	cw_accset.Step1,
	cw_accset.Step2,
	cw_accset.Step3,
	cw_accset.Step4,
	cw_accset.Step5,
	cw_accset.Step6,
	cw_accset.LawPerson,
	cw_accset.Bank,
	cw_accset.Accounts,
	cw_accset.TaxNumber,
	cw_accset.Telephone,
	cw_accset.Address,
	cw_accset.curyearmon,
	cw_accset.ifnewsubid
	INTO :s_sys_accset.accsetname,
	:s_sys_accset.Cropname,
	:s_sys_accset.Cropid,
	:s_sys_accset.startyear,
	:s_sys_accset.startyearmon,
	:s_sys_accset.Curryear,
	:s_sys_accset.Currmon,
	:s_sys_accset.mustcheck,
	:s_sys_accset.Sameuser,
	:s_sys_accset.Step1,
	:s_sys_accset.Step2,
	:s_sys_accset.Step3,
	:s_sys_accset.Step4,
	:s_sys_accset.Step5,
	:s_sys_accset.Step6,
	:s_sys_accset.LawPerson,
	:s_sys_accset.Bank,
	:s_sys_accset.Accounts,
	:s_sys_accset.TaxNumber,
	:s_sys_accset.Telephone,
	:s_sys_accset.Address,
	:sys_curyearmon,
	:s_sys_accset.ifnewsubid
	FROM cw_accset where accsetid = :sys_accsetid;
IF sqlca.SQLCode <> 0 THEN
	RETURN 0
END IF

IF sys_curyearmon = 0 THEN
	sys_accsetbegin = FALSE
ELSE
	sys_accsetbegin = TRUE
END IF
//启用时间
sys_startyearmon = Long(String(s_sys_accset.startyear) + String(s_sys_accset.startyearmon,'00'))


RETURN 1

end function