🚀 go-pugleaf

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