🚀 go-pugleaf

Isaac wrote:
> please also look at my procedure I got a weird problem the first 
> update is executed normally but the second one never executed !! 
> although I did the debug work with live numbers
>
> CREATE PROCEDURE PROC_TRANS_ITEMS (
>    p_old_qty float,
>    p_new_qty float,
>    p_from_inv_code integer,
>    p_to_inv_code integer,
>    p_item_code varchar(25),
>    p_to_item_code varchar(25))
> as
> declare variable v_cur_qty float;
> declare variable v_item_name varchar(150) character set win1252;
> begin
>  /* ---------- >>>>>>>> check old onventory first */
>  select cur_qty, item_name from inventory_items
>  where (inventory_items.inv_code = :p_from_inv_code)
>  and (inventory_items.item_code = :p_item_code)
>  into :v_cur_qty, :v_item_name;
>
>  if (v_cur_qty is null) then v_cur_qty = 0;
>
>  v_cur_qty = v_cur_qty - p_new_qty + p_old_qty;
>  if (v_cur_qty < 0) then exception EXCP_BAL_IS_UNDER_ZERO;
>
>  update inventory_items set CUR_QTY = :v_cur_qty
>  where (inventory_items.inv_code = :p_from_inv_code)
>  and (inventory_items.item_code = :p_item_code);
>
>  /* -------------->>>>>>>>> check new inventory */
>  v_cur_qty = null;
>  select cur_qty from inventory_items
>  where (inventory_items.inv_code = :p_to_inv_code)
>  and (inventory_items.item_code = :p_to_item_code)
>  into :v_cur_qty;
>
>  if (v_cur_qty is null) then exception EXCP_NO_ITEM_FOUND;
>
>  /*if (v_cur_qty = -1) then begin
>    v_cur_qty = 0;
>
>    select max(item_code) from inventory_items
>    where (inventory_items.inv_code = :p_to_inv_code)
>    and (inventory_items.item_code = :p_to_item_code)
>    into :v_max_item_code;
>
>    if (v_max_item_code is null) then
>      v_max_item_code = 1;
>    else
>      v_max_item_code = v_max_item_code + 1;
>
>    insert into inventory_items (INV_CODE, ITEM_CODE, ITEM_NAME, CUR_QTY,
>      MIN_QTY, OB_QTY, OB_TOTAL_COST, UNIT_PRICE, UNIT_COST)
>    values (:p_to_inv_code, :v_max_item_code,
>      :v_item_name, :v_cur_qty, 0, 0, 0, 0, 0);
>  end */
>
>  v_cur_qty = v_cur_qty + p_new_qty - p_old_qty;
>  if (v_cur_qty < 0) then exception EXCP_BAL_IS_UNDER_ZERO;
>
>  update inventory_items set CUR_QTY = :v_cur_qty
>  where (inventory_items.inv_code = :p_to_inv_code)
>  and (inventory_items.item_code = :p_to_item_code);
>
> end
Is this possible !!!!!!!!!!! I discovered that the problem because I did 
not made a proper foreign key and after I made one the second update 
worked !! which make me wonder does the update statement inside a stored 
procedure need a foreign key to work !!