| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273 |
- $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
|
