ДатаНапоминания = РабочаяДата; Подсказка = "Введите дату и время"; ЧастьДаты = ЧастиДаты.ДатаВремя; Если ВвестиДату(ДатаНапоминания, Подсказка, ЧастьДаты) Тогда...
8.x
Аналогично делается сторнирование по регистрам накопления и бухгалтерии Пример для регистра расчета ОсновныеНачисленияРаботниковОрганизации: ТаблицаСторноЗаписей = Движения.ОсновныеНачисленияРаботниковОрганизации.ПолучитьДополнение(); Для...
// Функция выполняет пропорциональное распределение суммы в соответствии с заданными коэффициентами распределения // // Параметры: // ИсхСумма...
&НаКлиенте Процедура ПоКнопкеЧтениеИзМетаданных(Команда) // Вставить содержимое обработчика. Перем СписокСправочников; СписокСправочников = Новый СписокЗначений; СписокСправочников = СправочникиИзМетаданных(); Для...
ИмяZIPФайла = ПолучитьИмяВременногоФайла(".zip"); ФайлАрхива = Новый ЗаписьZipФайла(ИмяZIPФайла, , , МетодСжатияZIP.Сжатие, УровеньСжатияZIP.Оптимальный); ФайлАрхива.Добавить(ИмяВременногоФайла, РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно); ФайлАрхива.Записать();
// Если передено число - то 1, иначе 0 Функция ЭтоЧисло(Знач ТекСтр) ТекСтр = СокрЛП(ТекСтр); ТекСтр =...
Если алгоритм должен выполняться по-разному в зависимости от места выполнения процедуры, то можно воспользоваться инструкциями препроцессора: #Если...
Выборка = Справочники.Номенклатура.Выбрать( , Владелец); Если Выборка.Следующий() = Истина Тогда // Есть подчиненные элементы. КонецЕсли; Запрос =...
// Заполним список доступных видов удержаний СпВидовРасчета = Новый СписокЗначений; Запрос = Новый Запрос( "ВЫБРАТЬ | УдержанияОрганизаций.Ссылка...
ВидУдерж=Неопределено; МассивТипов = Новый Массив; МассивТипов.Добавить(Тип("ПланВидовРасчетаСсылка.УдержанияОрганизаций")); ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); Если ВвестиЗначение(ВидУдерж,"Выберите вид удержания", ОписаниеВозможныхТипов) Тогда Сообщить(ВидУдерж);...
МойФайл = Новый ДвоичныеДанные(ПутьКФайлу); ХранилищеФайла = Новый ХранилищеЗначения(МойФайл); Новстр.ФайлDoc1=ХранилищеФайла; Новстр.ФайлDoc1Название = ПутьКФайлу;
Функция ЗаменитьПробелы(Строка, Символы) // Пишем все слова с больших букв, кому не надо закомментируйте СтрокаВозврата = СокрЛП(ТРег(Строка));...
ScriptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl"); ScriptCtrl.Language = "vbscript"; ScriptCtrl.AddCode(" Function PlayS() | Set Wrap = CreateObject(""DynamicWrapper"") | Wrap.Register...
// Проверка орфоргафии переданного текста с помощью средств MS Word // Параметры // <Текст> – <Строка> –...
// Необходимо выбрать документы за период по ответственному // В каждом документе, где в первой строке табличного...
// Открыть форму списка регистра накопления Форма = РегистрыНакопления.ОстаткиМатериалов.ПолучитьФормуСписка(); Форма.Открыть();
Для документов, как вариант: номискдок=ЭлементыФормы.ДокументСписок.ТекущиеДанные.Номер; ИскомыйДокумент=документы.Заявка.НайтиПоНомеру(номискдок); Форма = ИскомыйДокумент.ПолучитьФорму("ФормаДокументаПолная"); Форма.Открыть(); Но лучше все же( и ПРАВИЛЬНЕЕ )...
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); Диалог.Заголовок = "Выберите файл"; Диалог.ПолноеИмяФайла = ""; Фильтр = "Все файлы (*.*)|*.*"; Диалог.Фильтр...
Задача: Ноутбук с Windows 7 (Домашняя версия) должен работать с офисной ИБ 1С8. В офисе компьютеры объединены...
Вопрос: Есть возможность в запросе получить значение переодического регистра сведений если меняется дата в строке запроса. Например:...