标签：APS 汇总 技术 li T100 num ls error docno

技术1：当天pshaucdocno为空添加APS-APS-19070400001，不为空APS-APS-19070400002一次累加

DEFINE ls_docno        like pshauc_t.pshaucdocno          #定义 ls_docno        
 
CALL s_transaction_begin()

       select to_char(g_master.date1,'yyyymmdd') into l_date2 from dual   # g_master.date1批处理参数
       error l_date2
       select SUBSTR(l_date2,3,6) into l_date3 from dual         # 取20190704中190704
       
       error l_date3
          
         SELECT to_number(substr(MAX(pshaucdocno),15,5))+1    #如果不为空+1
         into li_num
         from pshauc_t where to_char(pshaucdocdt,'yyyymmdd') = l_date2
              and pshaucent = g_enterprise                          #取最大pshaucdocno
     #   error to_char(g_master.date1,'yyyymmdd')
         error li_num
       
         if  cl_null(li_num) then
          # LET ls_docno = g_enterprise +'-APS-'+ '190621'+ '00001'
           LET ls_docno = g_site ,'-APS-',l_date3,'00001'      #如果为空直接定义00001
            error ls_docno
         END IF
        If NOT cl_null(li_num) THEN
            select  trim(to_char(li_num,'00000')) INTO l_tmp  from dual  
            error l_tmp
          let ls_docno = g_site||'-APS-'||l_date3||l_tmp  
            error ls_docno
         end if

标签：APS,汇总,技术,li,T100,num,ls,error,docno
来源： https://www.cnblogs.com/pb272860193/p/11132906.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。