0

この手順をパッケージに実装しようとしていますが、パッケージでは何らかの理由でカーソルを使用できません。誰でも助けることができますか？ありがとうございました。

また、プロシージャをパッケージに入れようとすると、「バインド変数を入力してください」ボックスが表示され、バインド変数を入力する場所が表示されず、このエラーが発生します

Not found
The requested URL /apex/wwv_flow.show was not found on this server

私のコードは

  PROCEDURE total_calc(p_order NUMBER)
IS
   c_price product.unit_price%type;
   c_prod_desc product.product_desc%type;
   v_total_cost NUMBER := 0;
   v_c1 REFCURSOR;
   CURSOR c1 IS
      SELECT product_desc, unit_price 
      FROM product 
      WHERE product_id IN (SELECT fk2_product_id 
                           FROM order_line 
                            WHERE fk1_order_id = p_order);
BEGIN
   OPEN c1;
   LOOP
      FETCH c1 into c_prod_desc, c_price;
      dbms_output.put_line(c_prod_desc || ': ' || c_price);
      v_total_cost := v_total_cost + c_price;
      EXIT WHEN c1%notfound;
   END LOOP;
   CLOSE c1;
   dbms_output.put_line('Total Cost:' || v_total_cost);
END;

これがパッケージの残りのコードです

CREATE OR REPLACE PACKAGE orders_salary_manage AS
  FUNCTION tax_func (p_sal IN NUMBER)
  RETURN NUMBER;
  PROCEDURE reduce_price(p_product_id NUMBER, p_sub_price NUMBER);
  PROCEDURE increase_price(p_product_id NUMBER, p_add_price NUMBER);
  PROCEDURE remove_order(p_order_id NUMBER);  
  PROCEDURE add_order(p_order_id NUMBER,
                                      p_order_date VARCHAR2,
                                      p_delivery_date VARCHAR2,
                                      p_customer_id NUMBER,
                                      p_employee_id NUMBER,
                                      p_order_type_id NUMBER);
END orders_salary_manage;

CREATE OR REPLACE PACKAGE BODY orders_salary_manage AS
  tot_orders NUMBER;

FUNCTION tax_func (p_sal IN NUMBER)
   RETURN NUMBER
IS
   tax_rate NUMBER := 0;
   v_netsal   NUMBER := 0;
   v_sal    NUMBER;
BEGIN
   v_sal := p_sal;
IF v_sal > 70000 THEN
   tax_rate := (v_sal * 0.4);
   v_netsal := v_sal - tax_rate;
END IF;
IF v_sal < 70000 THEN
   tax_rate := (v_sal * 0.2);
   v_netsal := v_sal - tax_rate;
END IF;

RETURN v_netsal;
END;


PROCEDURE reduce_price(p_product_id NUMBER, p_sub_price NUMBER)
IS v_price NUMBER;
   e_invalid_price EXCEPTION;
BEGIN
  SELECT unit_price
  INTO v_price
  FROM product
  WHERE product_id = p_product_id;

  v_price := v_price - p_sub_price;

  IF v_price < 1 THEN
    RAISE e_invalid_price;
  ELSE
      UPDATE product SET unit_price = v_price WHERE product_id = p_product_id; 
  END IF;

END;

PROCEDURE increase_price(p_product_id NUMBER, p_add_price NUMBER)
IS v_price NUMBER;
BEGIN
  SELECT unit_price
  INTO v_price
  FROM product
  WHERE product_id = p_product_id;

  v_price := v_price + p_add_price;

  UPDATE product SET unit_price = v_price WHERE product_id = p_product_id; 

END;

PROCEDURE remove_order(p_order_id NUMBER)
IS 
BEGIN

  DELETE FROM placed_order WHERE order_id = p_order_id;
  DELETE FROM order_line WHERE fk1_order_id = p_order_id; 

END;

PROCEDURE add_order(p_order_id NUMBER,
                                      p_order_date VARCHAR2,
                                      p_delivery_date VARCHAR2,
                                      p_customer_id NUMBER,
                                      p_employee_id NUMBER,
                                      p_order_type_id NUMBER)
IS new_order NUMBER;
BEGIN


  INSERT INTO placed_order (order_id, order_date, delivery_date, fk1_customer_id, fk2_employee_id, fk3_order_type_id)
  VALUES (p_order_id, p_order_date, p_delivery_date, p_customer_id, p_employee_id, p_order_type_id);

END;
END;
4

1 に答える 1