存储过程中调存储过程代码,PLSQL代码库,德仔网

代码语言

代码分类

【PLSQL】存储过程中调存储过程

作者:Dezai.CN / 发布于2011/9/14/ 761

<div>
CREATE OR REPLACE PROCEDURE PCB_BALANCESTATIC_FUR(P_PLANTID VARCHAR2,
P_BEGINTIME VARCHAR2,
P_ENDTIME VARCHAR2,
P_ACCOUNTTIME VARCHAR2,
P_Lastyear VARCHAR2,--上年
P_lastmonth VARCHAR2,--上月
P_year VARCHAR2,
P_month VARCHAR2/*,
p_out out VARCHAR2*/
) AS
M_OUT VARCHAR2(2);
M_TWOOUT VARCHAR2(2);
BEGIN
--delete from tcb_balancestatic_fur where plantid=P_PLANTID and time= to_date(P_ACCOUNTTIME,'yyyy-mm-dd');
------------------------------------------------------------------------


-----------------------------------------------------------------------
/* p_out :='F';*/
tcb_updatesteelnumber_furnew2(P_PLANTID =>P_PLANTID,
P_BEGINTIME =>P_BEGINTIME,
P_ENDTIME =>P_ENDTIME,
P_Lastyear => P_Lastyear,
P_lastmonth => P_lastmonth,
P_ACCOUNTTIME => P_ACCOUNTTIME,
p_out =>M_OUT);
tcb_ffffffnew2(P_PLANTID =>P_PLANTID,
P_BEGINTIME =>P_BEGINTIME,
P_ENDTIME =>P_ENDTIME,
p_out => M_TWOOUT);
delete tcb_balancestatic_fur f where f.time between
to_date(P_BEGINTIME, 'yyyy-mm-dd hh24:mi:ss') and
to_date(P_ENDTIME, 'yyyy-mm-dd hh24:mi:ss') 
and f.plantid=P_PLANTID
and f.consumecost = 0
and f.consumeweight = 0
and f.beginperiodmoney = 0
and f.beginperiodweight = 0
and f.endperiodmoney = 0
and f.endperiodweight = 0
and f.reveivemoney = 0
and f.receiveweight = 0;
COMMIT;
/*if M_TWOOUT='T' and M_OUT='T' then
p_out :='T';
else
p_out :='F';
end if;*/
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('WARNNING!........');
DBMS_OUTPUT.PUT_LINE('MISTAKE CODEQUERY :' || SQLCODE);
DBMS_OUTPUT.PUT_LINE(SQLERRM);
/* p_out :='F';*/
END;

</div>

试试其它关键字

　调存储过程　

同语言下

可能有用的

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