Автоматичне визначення валюти

[Artem_Pronin]

Хотів створити скрипт який автоматично конвертував би прихідну ціну із дол. та євро в роздрібну ціну гривнях, та не змінював ціну якщо вона вже в гривнях за допомогою скрипта, але щось не виходить. 
Для експерименту написав такий скрипт:

IF(grupa_id_in IN (4)) THEN
BEGIN
  IF(valuta_id IN (1)) THEN
  BEGIN
  SELECT
    kurs
  FROM
    currency
  WHERE
    num = 1
  INTO
    :valuta_kurs;
  cena_r_out = ROUND(cena_in * valuta_kurs, 2);
  END
  ELSE
  IF(valuta_id IN (0)) THEN
  BEGIN
  cena_r_out = ROUND(cena_in, 2);
  END
END

не працює, скоріше за все через нестачу знань програми. Буду дуже вдячний якщо хтось знає як це зробити.