if yn('Подтверждаете выплату процентов ?') then
  --
  go_r;
  msg('Проводки сформированы');
  go_block('b_log');
  execute_query;
  --
end if;

if length(C_WRK.C_ACC.Value)= 0  then
end if;

msg('"'||:b_wrk.c_acc||'"');

if length(:b_wrk.c_acc)< 20  then
  msg('Неверно заполнено поле "СЧЕТ"! Поле обязательно для ввода.');
	return;
end if;

if length(nvl(:b_wrk.c_acc,'%'))!= 20  then
  msg('Неверно заполнено поле "СЧЕТ"!'||chr( 13 )||'Поле обязательно для ввода.');
	return;
end if;