Genero 的部落格

   # 要找到HAC7單別最近一次入庫日期和數量 
     # SELECT MAX(tlf026) INTO l_1no FROM tlf_file 
     #     WHERE tlf01 = sr.imn03 AND tlf902= 'HS24' AND tlf904 = sr.imn17 
     #           AND tlf026 LIKE 'HAC7%'
     # 上面的寫法只會找到最大的號碼，並不是最近一次的入庫
     # 用 FETCH FIRST 來找，CURSOR 需要先 OPEN ，並且需要設為 SCROLL CURSOR
     # 先找出那張入庫單 
       DECLARE r512_x_cur SCROLL CURSOR FOR
       SELECT tlf026  FROM tlf_file
           WHERE tlf01 = sr.imn03 AND tlf902= 'HS24' AND tlf904 = sr.imn17
                 AND tlf026 LIKE 'HAC7%'  ORDER BY tlf06 DESC
      
       OPEN r512_x_cur
       FETCH FIRST r512_x_cur INTO l_1no             
      
       IF NOT cl_null(l_1no) THEN
          SELECT tlf06, tlf10  INTO l_1d, l_1q  FROM tlf_file WHERE tlf026 = l_1no
       END 
       # tlf026為單據編號 
       # tlf06  為入庫日期
       # tlf10  為入庫數量