БланкСШаблоном "Список авансов с.ф. поставщика";


-- Если ТипЗакрытияБланка = 0 - ничего не выбрано
-- Если ТипЗакрытияБланка = 1 - выбрали код аванса
-- Если ТипЗакрытияБланка = 2 - выбрали добавления кода

ТипЗакрытияБланка:Integer;
НомерВыбранногоАванса:Integer;
ИзАванса :Logical; -- Если ИзАванса=true, то можно добавлять новый код аванса, если false, то код создать нельзя


секКолАв:Integer;
КодАванса[] :String;
Комментарий[] :String;
НВыбора[]:String = "Выбрать";

кнДобавитьКодАванса:Object;


proc ПриОткрытии(Создать: Logical);
  ТипЗакрытияБланка = 0;
  кнДобавитьКодАванса.Visible = ИзАванса;
end;


proc ДобавитьНовыйКодАванса_ПриНажатии(Кнопка:String);
  ТипЗакрытияБланка = 2;
  НомерВыбранногоАванса = 0;
  Close;
end;


func ВыбратьКодАванса_ПриВходе(Клетка:String; Итер: Integer):Logical;
  ТипЗакрытияБланка = 1;
  НомерВыбранногоАванса = Итер;
  Close;
  ^false;
end;


Конец
