Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 16:57

Запрос выдает не верные данные из регистра сведений

Автор andryus, 08 ноя 2023, 15:57

0 Пользователей и 1 гость просматривают эту тему.

andryus

Сделал при помощи таблицы значений, вроде как получилось добавлять туда записи
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Устройство");
ТЗ.Колонки.Добавить("Компьютер");

Для Каждого ТекСтрокаПартияПоставки Из ПартияПоставки Цикл
Если ЗначениеЗаполнено(ТекСтрокаПартияПоставки.Монитор) Тогда
Стр = ТЗ.Добавить();
Стр.Устройство = ТекСтрокаПартияПоставки.Монитор;
Стр.Компьютер = ТекСтрокаПартияПоставки.Компьютер;
КонецЕсли;

Если ЗначениеЗаполнено(ТекСтрокаПартияПоставки.Принтер) Тогда
Стр = ТЗ.Добавить();
Стр.Устройство = ТекСтрокаПартияПоставки.Принтер;
Стр.Компьютер = ТекСтрокаПартияПоставки.Компьютер; 
КонецЕсли;

Если ЗначениеЗаполнено(ТекСтрокаПартияПоставки.ИБП) Тогда
Стр = ТЗ.Добавить();
Стр.Устройство = ТекСтрокаПартияПоставки.ИБП;
Стр.Компьютер = ТекСтрокаПартияПоставки.Компьютер;
КонецЕсли;
КонецЦикла;

Движения.СоставКомпьютера.Записывать = Истина;
Для Каждого ТекСтрокаТЗ Из ТЗ Цикл
    Движение = Движения.СоставКомпьютера.Добавить();
    Движение.Период = Дата;
    Движение.Устройство = ТекСтрокаТЗ.Устройство;
    Движение.Компьютер = ТекСтрокаТЗ.Компьютер;
КонецЦикла;

andryus


andryus

Еще возник вопрос а как можно сделать чтобы проведенный документ нельзя было не изменить не перепроверки? Чтобы при открытии проведенного документа там все было не активно кроме кнопки ЗАКРЫТЬ есть какая-то встроенная функция, процедура или надо код писать?

Максим75

andryus, если обычные формы, то

ЭтаФорма.ТолькоПросмотр=Истина;

запихнуть в событии ПриОткрытии формы документа, проверить на то, что проведен и все.

andryus

Цитата: Максим75 от 09 ноя 2023, 09:32andryus, если обычные формы, то

ЭтаФорма.ТолькоПросмотр=Истина;


А если управляемая форма?

Максим75


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск