45 个非常有用的 Oracle 查询语句

IF  (g_plant='01HZJM'  OR  g_plant='JBJMT' ) AND (l_oga.oga09='5' OR  l_oga.oga09='1') THEN
INITIALIZE l_ogb31,l_ogb32,l_ogb03 TO NULL
DECLARE ogb3132 CURSOR FOR
SELECT ogb31,ogb32,ogb03 FROM ogb_file WHERE ogb01 = l_oga.oga01
FOREACH ogb3132 INTO l_ogb31,l_ogb32,l_ogb03
LET l_cnt=0
SELECT count(*) INTO l_cnt FROM oeb_file WHERE oeb01=l_ogb31 AND oeb03=l_ogb32  AND ta_oeb15='2'
IF l_cnt>0  THEN
LET g_mess = " ",l_ogb03," :此出货通知单项次对应的订单为Forecast不允许出货！"
CALL cl_err(g_mess,'cim-003',1)
LET g_success='N'
END IF
END FOREACH
END IF
#ADD BY HXP 2016/5/17 END
IF  (g_plant='01HZJM'  OR  g_plant='JBJMT' ) AND (l_oga.oga09='5' OR  l_oga.oga09='1') THEN
LET l_cnt=0
SELECT count(*) INTO l_cnt  FROM ogb_file WHERE substr(ogb01,1,4) IN ('555A','555B','555C')
AND SUBSTR(ogb31,1,1) NOT IN ('G','F') AND ogb01=l_oga.oga01
IF l_cnt>0  THEN
LET g_mess = "555A/555B/555C单别只允许出货KPE/XPNA的量产订单！"
CALL cl_err(g_mess,'cim-003',1)
LET g_success='N'
END IF
END IF
#by hxp 14/08/20  start
IF  (g_plant='01HZJM'  OR  g_plant='JBJMT' )  AND  (g_prog='cxmt610' OR g_prog='cxmt850' )  AND l_oga.oga01[1,4]='5551'  THEN
LET l_cnt=0
SELECT COUNT(*) INTO l_cnt FROM ogb_file WHERE ogb01=l_oga.oga01 AND ogbud13 IS NULL
IF cl_null(l_cnt) THEN LET l_cnt=0  END IF
IF l_cnt>0 THEN
LET l_sql = "出货通知单'客户实际约定交货日'不可为空..."
CALL cl_err(l_sql,'cim-003',0)
LET g_success='N'
END IF
END IF
#hxp 14/08/20  end