В начало

Процедура ЗагрКарт

 

Процедура ЗагрКарт()

   ИмяВыбрФайла = "";

   ИмяПути = "";

 

   // Выбор файла с просмотром

   Если ФСыбратьФайлКартинки(0, ИмяВыбрФайла, ИмяПути, "Выберите файл", "bmp", ) = 1 Тогда

      Фотоагрузить(ИмяПути + ИмяВыбрФайла);

   КонецЕсли;

КонецПроцедуры