GOR_QTY st_order_line_yh.gor_qty%TYPE,
RECODE_DATE st_order_line_yh.recode_date%TYPE,
NN_BUY_PRICE st_order_line_yh.sell_pr%TYPE);
real_record_line strecord_line;
BEGIN
OPEN st_order_line;
LOOP
FETCH st_order_line INTO real_record_line;
EXIT WHEN st_order_line%NOTFOUND;
IF real_record_line.MMAIL_NO=2
THEN
real_record_line.nn_buy_price := real_record_line.NN_BUY_PRICE/real_record_line.CONT_SELL_UNIT;
real_record_line.ord_qty := real_record_line.ord_qty/real_record_line.CONT_SELL_UNIT;
real_record_line.gor_qty := real_record_line.gor_qty/real_record_line.CONT_SELL_UNIT;
insert into peisong.ps_order_line_yh@&store_no
(seq_no,area_no,storege_no,ord_no,mut_arT_no,ord_qty,gor_qty,recode_date,nn_buy_price,ps_gor_qty,ps_nn_buy_price)
VALUES(real_record_line.seq_no,real_record_line.area_no,real_record_line.storege_no,
real_record_line.ord_no,real_record_line.mut_arT_no,
real_record_line.ord_qty,real_record_line.gor_qty,
real_record_line.recode_date,real_record_line.nn_buy_price,
real_record_line.gor_qty,real_record_line.nn_buy_price);
commit;
ELSIF real_record_line.MMAIL_NO=0
THEN
real_record_line.nn_buy_price := real_record_line.NN_BUY_PRICE;
real_record_line.ord_qty := real_record_line.ord_qty;
real_record_line.gor_qty := real_record_line.gor_qty;
insert into peisong.ps_order_line_yh@&store_no
(seq_no,area_no,storege_no,ord_no,mut_arT_no,ord_qty,gor_qty,recode_date,nn_buy_price,ps_gor_qty,ps_nn_buy_price)
VALUES(real_record_line.seq_no,real_record_line.area_no,real_record_line.storege_no,
real_record_line.ord_no,real_record_line.mut_arT_no,
real_record_line.ord_qty,real_record_line.gor_qty,
real_record_line.recode_date,real_record_line.nn_buy_price,
real_record_line.gor_qty,real_record_line.nn_buy_price);
commit;
ELSIF real_record_line.MMAIL_NO=1
THEN
real_record_line.nn_buy_price := real_record_line.NN_BUY_PRICE;
real_record_line.ord_qty := real_record_line.ord_qty;
real_record_line.gor_qty := real_record_line.gor_qty;
insert into peisong.ps_order_line_yh@&store_no
(seq_no,area_no,storege_no,ord_no,mut_arT_no,ord_qty,gor_qty,recode_date,nn_buy_price,ps_gor_qty,ps_nn_buy_price)
VALUES(real_record_line.seq_no,real_record_line.area_no,real_record_line.storege_no,
real_record_line.ord_no,real_record_line.mut_arT_no,
real_record_line.ord_qty,real_record_line.gor_qty,
real_record_line.recode_date,real_record_line.nn_buy_price,
real_record_line.gor_qty,real_record_line.nn_buy_price);
commit;
END IF;
END LOOP;
CLOSE st_order_line;
END;
/
本文出自 “MT.sh” 博客