TIPTOP ERP 常用重要s_ & cl_ 函数总结

TIPTOP ERP 常用s_ & cl_ 函数总结

     .持续更新................

001、营运中心、帐套、帐别权限检查

A、检查营运中心工厂是否开放使用 

s_chkplt(p_plant,p_sys,p_toSys)  
#代码：s_chknplt.4gl   
Input Parameter：p_plant   工厂代号  
                           p_sys     使用系统代号  
                           p_toSys  关连系统代号  
Return code....:：1  YES  
                  0  NO  
Demo：IF NOT s_chkplt('DS1','AAP','MFG') THEN CALL cl_err(p_plant,g_errno,0) END IF    

B、检查使用者是否有该 帐套使用权限

s_chk_demo(ps_user,ps_plant) RETURNING li_result  
#代码：s_chk_demo.4gl   
# Input Parameter: ps_user      使用者      
#                  ps_plant     营运中心编号        
# Return Code....: li_result    結果(TRUE/FALSE)     
Demo：IF NOT s_chk_demo(ps_user,ps_plant) ...  

C、检查使用者是否有该 帐别使用权限 

s_check_bookno("00",g_user) RETURNING li_result  
#代码：s_check_bookno.4gl   
# Input Parameter: ps_bookno      帳別      
#                  ps_user        使用者        
# Return Code....: li_result      結果(TRUE/FALSE)     
Demo：IF NOT s_check_bookno(g_bookno,g_user) ...  

002、日期相关计算、会计期间计算

A、取一个日期的年、月、日、星期

#TODAY、YEAR(日期)、MONTH(日期)、DAY(日期)、WEEKDAY(日期)
LET l_today   = TODAY                 #当前日期
LET l_year    = YEAR(2014/02/13)      #取日期的年：2014
LET l_month   = MONTH(2014/02/13)     #取日期的月：2
LET l_day     = DAY(2014/02/13)       #取日期的日：13
              = s_day(2014/02/13)
LET l_weekday = WEEKDAY(2014/02/13)   #取日期是星期几：4

B、取一个日期所在月份的 第一天、最后一天、所在月一共多少天

#s_months(日期)、s_first(日期)、s_getfirstday(日期)、s_last(日期)、s_getlastday(日期)
#下面是只计算日期，不是会计期间的月初、月末天、一个会计期间多少天
#如果是12期制，则一般都是一样；具体还要考虑aoos010、aoos021、aoos031的期间设置
LET l_monDays      = s_months(2014/02/13)        #返回日期所在月份的月天数：28
LET l_monFirstDay  = s_first(2014/02/13)         #返回日期所在月份的第一天：1
                   = s_getfirstday(2014/02/13)
LET l_monLastDay   = s_last(2014/02/13)          #返回日期所在月份的最后一天：28
                   = s_getlastday(2014/02/13)  

http://blog.csdn.net/yihuiworld