Oracle存储过程执行

1、执行注意事项

DECLARE
	v_taskCode VARCHAR2(100) := 'aaaaaa';
	v_workno VARCHAR2(100) := 'bbbbbb';
	v_procode VARCHAR2(100) := 'cccccc';
	returnMsg VARCHAR2(100) := '' ;
BEGIN
	-- 错误1: call proc_text(v_taskCode ,v_workno ,v_procode ,returnMsg );
	-- 错误2: proc_text(v_taskCode ,v_workno ,v_procode ,returnMsg out);
	proc_text(v_taskCode ,v_workno ,v_procode ,returnMsg );
	dbms_output.put_line(returnMsg);
END ;

2、循环执行过程/初始化数据

DECLARE
	       x_out_code        VARCHAR2(4000); -- 返回结果:S成功,E失败
	       x_out_msg         VARCHAR2(4000); -- 错误描述
	       p_orgid           NUMBER;
	       p_header_id       NUMBER;
	       p_line_id         NUMBER;
	       p_item_code       VARCHAR2(1000);
	       p_lot_no          VARCHAR2(1000);
	       p_supplier_lot_no VARCHAR2(1000);
	       p_stock_out_no    VARCHAR2(1000);
	       p_qty             NUMBER;
	       p_usercode        VARCHAR2(1000);
	       p_trans_date      DATE;
	       p_comments        VARCHAR2(100);
BEGIN
		FOR ROW IN (SELECT  t.ORGANIZATIONID,t.QUANTITY,t.LOTSNUM,t.TRANSDATE / (1000 * 60 * 60 * 24) + TO_DATE('1970-01-01 08:00:00', 'yyyy-MM-dd hh24:mi:ss') TRANSDATE,t.LINEID,t.MATERIALCODE,t.LABLECODE,t.CKNUMBER,t.HEADERID,t.OPERATOR FROM issue_bill_lot_FixedDataTable t)
		loop	
	       p_orgid :=ROW.ORGANIZATIONID; -- 组织ID
	       p_header_id :=ROW.HEADERID; -- 领料单ID
	       p_line_id :=ROW.LINEID; -- 领料单行ID
	       p_item_code :=ROW.MATERIALCODE; -- 料号
	       p_lot_no :=ROW.LABLECODE; -- 批次
	       p_supplier_lot_no :=ROW.LOTSNUM; -- 供应商批次
	       p_stock_out_no :=ROW.CKNUMBER; -- 出库单号
	       p_qty  :=ROW.QUANTITY; -- 数量
	       p_usercode  :=ROW.OPERATOR; -- 操作人
	       p_trans_date :=ROW.TRANSDATE; -- 发料时间
	       p_comments  :='补录数据'; -- 备注
		   wms_2_mes_issue_bill.issue_bill_lot(x_out_code,x_out_msg,p_orgid,p_header_id,p_line_id,p_item_code,p_lot_no,p_supplier_lot_no,p_stock_out_no,p_qty,p_usercode,p_trans_date,p_comments);
	       dbms_output.put_line('执行结果:' || x_out_code || '----' || x_out_msg );
END loop;
END;
posted @ 2022-07-10 21:56  Journey&Flower  阅读(1015)  评论(0编辑  收藏  举报