reporttablereporttableCREATE OR REPLACE PROCEDURE PCB_REPORTTABLE(P_TIME VARCHAR2,P_FLAG OUT VARCHAR2) ASTYPE CUR IS REF CURSOR;C_GETPLANTID CUR;M_PLANTID TJC_PLANTID.PLANTID%TYPE;BEGIN- 删除已有数据- 收支余 分厂成本项目DELETE FROM tcbbb_subjectsumWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);- 收支余表DELETE FROM TCBBB_BALANCEDETAILWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);- 收支余表 锻钢DELETE FROM TCBBB_BALANCEDETAILdgWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);- 收支余 改钢表DELETE FROM TCBBB_BALANCEDETAILGGWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);- 收支余 按炉号改钢表DELETE FROM tcbbb_furbalancedetailggWHERE time = TO_DATE(P_TIME, yyyy-mm-dd);- 收支余 按炉号锻钢表DELETE FROM tcbbb_furbalancedetaildgWHERE time = TO_DATE(P_TIME, yyyy-mm-dd);- 收支余 按炉号表DELETE FROM tcbbb_furbalancedetailWHERE time = TO_DATE(P_TIME, yyyy-mm-dd);- 成本计算表（锻钢）DELETE FROM TCBBB_ACCOUNTINGTABLE_DGWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);- 成本计算表DELETE FROM TCBBB_ACCOUNTINGTABLEWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);- 成本计算表 炉号DELETE FROM TCBBB_FURNACENUMBERACCTABLEWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);- 成本计算表 （锻钢） 炉号DELETE FROM TCBBB_FURNACENUMBERACCTABLEDGWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);/* - 成本分析表DELETE FROM TCBBB_COSTANALYZEWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);*/* - 成本分析表 （锻钢）DELETE FROM TCBBB_COSTANALYZEDGWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);*/- 吨钢步骤费用明细/* DELETE FROM TCBBB_VARIETYSTRUCTUREWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);*/*- 成本结转表DELETE FROM TCBBB_CARRY WHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);*/- 成本接收表DELETE FROM TCBBB_RECEIVE WHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);- 工序成本汇总表DELETE FROM TCBBB_PROCESSCOSTWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);- 商品成本分析表DELETE FROM TCBBB_GOODCOSTANALYSISWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);/* - 在制品成本分析表DELETE FROM TCBBB_MATERIALCOSTWHERE COSTDATE = TO_DATE(P_TIME, yyyy-mm-dd);*/* -在制品成本分析表pcb_materialcost(P_TIME);/* -吨钢步骤费用明细 （不用区分分厂）*PCB_VARIETYSTRUCTURE(M_PLANTID, P_TIME);*/ -pcb_costsubjectAnalysis_test(P_TIME);- 冶炼分厂OPEN C_GETPLANTID FORSELECT PLANTID FROM TJC_PLANTID WHERE CB_TYPEID = 1;LOOPFETCH C_GETPLANTIDINTO M_PLANTID;EXIT WHEN C_GETPLANTID%NOTFOUND;-商品成本分析表pcb_goodCostAnalysis(M_PLANTID, P_TIME);pcb_furbalancedetailyl(M_PLANTID, P_TIME); - 收支余 冶炼 炉号PCB_BALANCEDETAILYL(M_PLANTID, P_TIME); - 收支余 冶炼pcb_subjectsumyl(M_PLANTID, P_TIME);PCB_ACCOUNTINGTABLE_YL(M_PLANTID, P_TIME); - 成本计算表 冶炼PCB_FURACCOUNTINGTABLE_YL(M_PLANTID, P_TIME); - 成本计算表 冶炼炉号PCB_COSTANALYZE_YL(M_PLANTID, P_TIME); -成本分析表 冶炼PCB_PROCESSCOSTYL(M_PLANTID, P_TIME); - 工序成本汇总表- PCB_CARRY(M_PLANTID, P_TIME); - 成本结转表 END LOOP;CLOSE C_GETPLANTID;- 电渣分厂M_PLANTID := ;OPEN C_GETPLANTID FORSELECT PLANTID FROM TJC_PLANTID WHERE CB_TYPEID = 2;LOOPFETCH C_GETPLANTIDINTO M_PLANTID;EXIT WHEN C_GETPLANTID%NOTFOUND;-商品成本分析表pcb_goodCostAnalysis(M_PLANTID, P_TIME);pcb_furbalancedetaildzd(M_PLANTID, P_TIME); - 收支余 电渣锭 炉号pcb_furbalancedetaildjp(M_PLANTID, P_TIME); - 收支余 电极坯 炉号PCB_BALANCEDETAILDZD(M_PLANTID, P_TIME); - 收支余 电渣锭PCB_BALANCEDETAILDJP(M_PLANTID, P_TIME); - 收支余 电极坯pcb_subjectsumdz(M_PLANTID, P_TIME);PCB_ACCOUNTINGTABLE_JG(M_PLANTID, P_TIME); - 成本计算表 加工PCB_FURACCOUNTINGTABLE_JG(M_PLANTID, P_TIME); - 成本计算表 加工(炉号)PCB_COSTANALYZE_JG(M_PLANTID, P_TIME); -成本分析表 加工PCB_PROCESSCOSTJG(M_PLANTID, P_TIME); - 工序成本汇总表PCB_PROCESSCOSTDZ(M_PLANTID, P_TIME); - 工序成本汇总- PCB_CARRY(M_PLANTID, P_TIME); - 成本结转表PCB_RECEIVE(M_PLANTID, P_TIME); - 成本接收表END LOOP;CLOSE C_GETPLANTID;- 加工分厂M_PLANTID := ;OPEN C_GETPLANTID FORSELECT PLANTID FROM TJC_PLANTID WHERE CB_TYPEID = 3;LOOPFETCH C_GETPLANTIDINTO M_PLANTID;EXIT WHEN C_GETPLANTID%NOTFOUND;-商品成本分析表pcb_goodCostAnalysis(M_PLANTID, P_TIME);pcb_furbalancedetail(M_PLANTID, P_TIME); -收支余 加工 炉号pcb_furbalancedetailgg(M_PLANTID, P_TIME); -收支余 改钢 加工 炉号PCB_BALANCEDETAILJG(M_PLANTID, P_TIME); - 收支余 加工PCB_BALANCEDETAILGG(M_PLANTID, P_TIME); - 收支余 改钢 加工 pcb_subjectsumjg(M_PLANTID, P_TIME);PCB_ACCOUNTINGTABLE_JG(M_PLANTID, P_TIME); - 成本计算表 加工PCB_FURACCOUNTINGTABLE_JG(M_PLANTID, P_TIME); - 成本计算表 加工(炉号) PCB_COSTANALYZE_JG(M_PLANTID, P_TIME); -成本分析表 加工PCB_PROCESSCOSTJG(M_PLANTID, P_TIME); - 工序成本汇总表- PCB_CARRY(M_PLANTID, P_TIME); - 成本结转表PCB_RECEIVE(M_PLANTID, P_TIME); - 成本接收表END LOOP;CLOSE C_GETPLANTID;COMMIT;P_FLAG := YES;EXCEPTIONWHEN OTHERS THENP_FLAG := NO;DBMS_OUTPUT.PUT_LINE(WARNNING!.);DBMS_OUTPUT.PUT_LINE(MISTAKE CODEQUERY : | SQLCODE);DBMS_OUTPUT.PUT_LINE(SQLERRM);END;