新建函数代码,PLSQL代码库,德仔网

代码语言

代码分类

【PLSQL】新建函数

作者:Dezai.CN / 发布于2011/7/14/ 832

<div>
<div>create function</div>
<div>CREATE OR REPLACE Function Check_Bond_By_Item(p_Organization_Id Number,</div>
<div>p_Dept_PartVarchar2,</div>
<div>p_ebpt_item_typenumber)</div>
<div>Return Varchar2 Is</div>
<div>x_Hs_Code_t Msl_Bnd_Ems_Lines.Hs_Code_t%Type;</div>
<div>x_sitevarchar2(10);</div>
<div>cursor Cur_ems is</div>
<div>Select Ems_No</div>
<div>From Msl_Bnd_Ems_Headers Mbeh</div>
<div>Where Mbeh.Site = x_Site</div>
<div>And Ems_Type = 8;</div>
<div>x_Return Varchar2(2);</div>
<div>Begin</div>
<div>begin</div>
<div>Select Site Into x_Site</div>
<div>From Org_Organization_Web Oow</div>
<div>Where Oow.Organization_Id = p_Organization_Id;</div>
<div>Exception</div>
<div>When Others Then</div>
<div>x_Site := '';</div>
<div>end;</div>
<div>for C1r in Cur_ems loop</div>
<div>Begin</div>
<div>Select Hs_Code_t Into x_Hs_Code_t</div>
<div>From Msl_Bnd_Ebpt</div>
<div>where Dept_Part = p_Dept_Part</div>
<div>And Ems_No = C1r.Ems_No</div>
<div>And Hs_Code_t is not null</div>
<div>And ebpt_item_type = p_ebpt_item_type</div>
<div>And rownum = 1;</div>
<div>Exception</div>
<div>When Others Then</div>
<div>Begin</div>
<div>Select Hs_Code_t Into x_Hs_Code_t</div>
<div>From Msl_Bnd_Twins_Ebpt</div>
<div>Where Dept_Part = p_Dept_Part</div>
<div>And Ems_No = C1r.Ems_No</div>
<div>And Hs_Code_t is not null</div>
<div>And ebpt_item_type = p_ebpt_item_type</div>
<div>And rownum = 1;</div>
<div>Exception</div>
<div>When Others Then</div>
<div>x_Return := 'N';</div>
<div>End;</div>
<div>End;</div>
<div>If x_Hs_Code_t is not null then</div>
<div>x_Return := 'Y';</div>
<div>goto return_value;</div>
<div>End If;</div>
<div>end loop;</div>
<div><<return_value>></div>
<div>Return nvl(x_Return, 'N');</div>
<div>End;</div>
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　新建函数　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)