Как программно заполнить регистр сведений в 1с 8? 1C 8. Примеры кода 14

Как открыть подчиненный справочник в 1с 8?

Справочник-владелец “Сотрудники”, ему подчинен справочник “ТрудоваяКнижка”:

тк = Справочники.ТрудоваяКнижка; сотр = Справочники.Сотрудники; ссылка = сотр.НайтиПоНаименованию(«Иванов Иван Иванович»); выборка = тк.Выбрать(, ссылка); Сообщить(ссылка.Наименование + «: трудовая деятельность:»); пока выборка.Следующий() цикл Сообщить(выборка.Наименование); конецЦикла;

Как задать вопрос в 1с 8?

ответ = Вопрос(«Закрыть форму?», РежимДиалогаВопрос.ДаНет,,КодВозвратаДиалога.Да); если ответ = КодВозвратаДиалога.Да тогда этаФорма.Закрыть(); конецЕсли;

Список значений в 1с 8

список = Новый СписокЗначений; список.Добавить(«Иванов»); список.Добавить(«Петров»); список.Добавить(«Сидоров»); массив = Новый Массив; массив = список.ВыгрузитьЗначения(); для инн = 0 по массив.Количество()-1 цикл Сообщить(массив.Получить(инн)); конецЦикла;

Как добавить новый элемент в справочник в 1с 8?

сотр = Справочники.Сотрудники; новыйЭлемент = сотр.СоздатьЭлемент(); новыйЭлемент.Код = 9; новыйЭлемент.Наименование = «Николаев Николай Николаевич»; сотрРодитель = сотр.НайтиПоНаименованию(«Менеджеры»); новыйЭлемент.Родитель = сотрРодитель; новыйЭлемент.Записать();

Как получить значение константы в 1с 8?

Константы.ГлавныйБухгалтер.Получить();

Как организовать подбор в 1с 8?

Форма справочника должна быть открыта как подчинённая данной форме (или элементу формы), а в нашей форме (или элементе формы) кодируем событие “Обработка выбора”:

Процедура кнПодборНажатие(Элемент) ОчиститьСообщения(); форма = Справочники.Номенклатура.ПолучитьФормуВыбора(); форма.ВладелецФормы = ЭтаФорма;//указали владельца; форма.РежимВыбора = Истина; форма.ЗакрыватьПриВыборе = Ложь; форма.Открыть(); КонецПроцедуры //Это обработчик выбора для формы, т.к. форма — владелец //открываемой формы выбора справочника; Процедура ОбработкаВыбора(значениеВыбора, Источник) перем стр; стр = табл.Найти(строка(значениеВыбора), «Вторая»); если стр = Неопределено тогда кол = табл.Количество(); новаяСтрока = табл.Добавить(); новаяСтрока.Первая = кол + 1; новаяСтрока.Вторая = строка(значениеВыбора); иначе Сообщить(«Наименование » + строка(значениеВыбора) + » уже имеется в таблице.»); конецЕсли; конецПроцедуры

Как к дате прибавить день в 1с 8?

Один день равен 60 секунд в минуте умножить на 60 минут в часе, умножить на 24 часа в сутках, итого 60 * 60 * 24 = 86400

датаПлюсОдинДень = датаИсходная + 86400;

Как перебрать строки табличной части документа в 1с 8?

Табличная часть называется Расчет, в ней есть поле Сотрудник: Процедура кнПодборНажатие(Элемент) для каждого стр из Расчет цикл Сообщить(стр.Сотрудник); конецЦикла;

Как программно заполнить регистр сведений в 1с 8?

Заполняем регистр сведений в 1С 8 так:

менеджер = РегистрыСведений.Календарь.СоздатьМенеджерЗаписи(); менеджер.Календарь = кален.Ссылка; менеджер.Дата = нач; менеджер.Время = часы; менеджер.Записать();