4GL 单身输入，项次自动加1

xxy02是项次

BEFORE INSERT
     LET l_n = ARR_COUNT()
     LET p_cmd='a'
     INITIALIZE g_tc_xxy[l_ac].* TO NULL       #900423
     LET g_tc_xxy_t.* = g_tc_xxy[l_ac].*          #新輸入資料
#180731-A-项次加1
     SELECT MAX(xxy02)+1 INTO g_tc_xxy[l_ac].xxy02 FROM xxy_file
     WHERE xxy01 = g_tc_xxy01
     IF g_tc_xxy[l_ac].xxy02 IS NULL THEN
       LET g_tc_xxy[l_ac].xxy02 = g_tc_xxy[l_ac-1].xxy02+1
     END IF
#180731-A-项次加1
     CALL cl_show_fld_cont()     #FUN-550037(smin)
     NEXT FIELD xxy02

  #180731-A-项次加1   
  BEFORE FIELD xxy02                        #default 序號
         IF g_tc_xxy[l_ac].xxy02 IS NULL OR g_tc_xxy[l_ac].xxy02 = 0 THEN
            SELECT MAX(xxy02)+1 INTO g_tc_xxy[l_ac].xxy02 FROM xxy_file
             WHERE xxy01 = g_tc_xxy01
             IF g_tc_xxy[l_ac].xxy02 IS NULL THEN
               LET g_tc_xxy[l_ac].xxy02 = 1
             END IF
         END IF
  #180731-A-项次加1