declare
	TYPE cur IS REF CURSOR;
	cur_klient cur;
	Num NUMBER;
begin

  OPEN cur_klient FOR
  SELECT KlientID
  FROM klient
  WHERE KlientID = :DOGOVOR.KlientID;

	fetch cur_klient into Num;
	if cur_klient%ROWCOUNT < 1 THEN
		Set_Alert_Property('ALERT_DOG',TITLE,'Ошибка ввода данных.');
	Set_Alert_Property('ALERT_DOG',ALERT_MESSAGE_TEXT,'Клиента с          таким кодом не существует в БД.');
		Num := SHOW_ALERT('ALERT_DOG');
		Go_Item('DOGOVOR.KLIENTID');
		CLEAR_ITEM;

:DOGOVOR.KlientID := '';
	end if;

	CLOSE cur_klient;
end;