Почтальон Печкин
Мини-склад
Работёнка
Почтальон Печкин
Игра "Реверси"
Игра "Охота на лис"
Денежки
Мини-библиотека
Доставочка
Простой склад
Кадровый учет в строительстве
Конкурент-магазин 3.18
Пример
// переместить все текстовые файлы (*.txt) из каталога информационной базы в каталог TXT.
ФС.УстТекКаталог(КаталогИБ());
ИмяФайла = "";
ИмяФайла = ФС.НайтиПервыйФайл("*.txt");
Если ИмяФайла <> "" Тогда
.... ФС.СоздатьКаталог("TXT");
.....ФС.КопироватьФайл(ИмяФайла,ФС.ТекКаталог() + "TXT" + ИмяФайла);
.....ФС.УдалитьФайл(ИмяФайла);
Пока 1=1 Цикл
ИмяФайла = " ";
.....ИмяФайла = ФС.НайтиСледующийФайл()
Если ИмяФайла <> "" Тогда
.....ФС.КопироватьФайл(ИмяФайла,ФС.ТекКаталог() + "TXT" + ИмяФайла);
.....ФС.УдалитьФайл(ИмяФайла);
Иначе
..... Прервать;
КонецЕсли;
КонецЦикла;
Пример
//выбрать файл с фотографией сотрудника
ИмяФайла = "";
ИмяКаталога = КаталогИБ();
Если ФС.ВыбратьФайлКартинки(0,ИмяФайла,ИмяКаталога,"Укажите файл с фотографией:",,20)=1 Тогда
ВремКартинка = СоздатьОбъект("Картинка");
ВремКартинка.Загрузить(ИмяКаталога + ИмяФайла);
КартинкаНаФорме.УстановитьКартинку(ВремКартинка);
КонецЕсли;
//1- й вариант: выборка по объекту
История = СоздатьОбъект("Периодический");
История.ИспользоватьОбъект("Оклад",ВыбСотрудник);
История.ВыбратьЗначения(ДатаНач,ДатаКон);
История.ОбратныйПорядок(1);
Пока История.ПолучитьЗначение()=1 Цикл
ОчерДата = История.ДатаЗнач;
ОчерДата = История.Значение;
Док = История.ТекущийДокумент();
КонецЦикла;
//2-й вариант: выборка по документу
История = СоздатьОбъект("Периодический");
История.ВыбратьПоДокументу(ДокКадровоеПеремещениеСписком);
Пока История.ПолучитьЗначение()=1 Цикл
ТекОбъект = История.ТекущийОбъект();
Если ТипЗначенияСтр(ТекОбъект) = "Справочник" Тогда
Если ТекОбъект.Вид()= "Сотрудники" Тогда
ТекСотр = ТекОбъект;
ТекРеквизит = История.ТекущийРеквизит();
ОчерДата = История.ДатаЗнач;
ОчерЗначение = История.Значение;
КонецЕсли;
КонецЕсли;
КонецЦикла;
//поиск
ЗначениеНаДату
НайтиЗначение
//корректировка
НазначитьТип
Записать
Удалить
