37: a19 VARCHAR2(30);
38: a20 VARCHAR2(30);
39: CURSOR c1( pld_id IN NUMBER) IS
40: SELECT REQUESTED_QUANTITY
41: FROM so_picking_line_details
42: WHERE picking_line_detail_id = pld_id;
43: transfer_qty NUMBER;
44: BEGIN
45:
45:
46: IF (( original_detail_id > 0) AND
47: ( so_reservations = 'Y')) THEN
48: -- call transaction manager for demand / reservation transfer
49: -- The transfer routine need to update so_picking_line_details
50: -- and delete rows from so_freight_charges also.
51: -- but we raise a exception for now
52:
53: transfer_qty := 0;
73: end if;
74: END IF;
75: ELSE
76:
77: UPDATE so_picking_line_details
78: SET delivery_id = NULL,
79: departure_id = NULL,
80: shipped_quantity = NULL,
81: dpw_assigned_flag = 'N',