[TITOP]单据自动编码的给大家收藏-来自nicker

 

FUNCTION i100_code() #单据自动编码
   DEFINE l_year1    LIKE azn_file.azn02
   DEFINE l_month1   LIKE azn_file.azn04
   DEFINE l_day1     LIKE type_file.dat
   DEFINE l_code     LIKE type_file.num20
   DEFINE l_code1    LIKE type_file.chr20
   DEFINE l_tc_ccc01 LIKE tc_ccc_file.tc_ccc01
   DEFINE l_tc_ccc02 LIKE tc_ccc_file.tc_ccc01
   DEFINE l_nn       LIKE type_file.num20

   #取流水号 年月日
   SELECT MAX(tc_ccc01) INTO l_tc_ccc01  FROM tc_ccc_file WHERE tc_ccc38 = g_tc_ccc.tc_ccc38
   IF cl_null(l_tc_ccc01) THEN
     LET l_tc_ccc01 = YEAR(g_tc_ccc.tc_ccc38) USING "&&&&",MONTH(g_tc_ccc.tc_ccc38) USING "&&",
                      DAY(g_tc_ccc.tc_ccc38) USING "&&","0001"
     LET l_tc_ccc02 = l_tc_ccc01[3,12]
     LET g_tc_ccc.tc_ccc01 = g_tc_ccc.tc_ccc01||l_tc_ccc02
   ELSE
     LET l_tc_ccc02 = l_tc_ccc01[7,16]
     SELECT CAST(l_tc_ccc02 AS int) INTO l_code from dual
     LET l_code = l_code+1
     LET l_tc_ccc01 = l_code
     LET g_tc_ccc.tc_ccc01 = g_tc_ccc.tc_ccc01||l_tc_ccc01
   END IF
   #自动编码检查
   SELECT COUNT(*) INTO l_nn FROM tc_ccc_file WHERE tc_ccc01=g_tc_ccc.tc_ccc01
   IF l_nn > 0 THEN
      CALL s_errmsg('','','','sub-144',0)
   END IF
END FUNCTION