Разузлование спецификаций

@TaPaH · Регистрация: 01.04.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте. Получил задание разузловать спецификации в документе, т.е. выбираем в строке выбора спецификацию из справочника, а она в свою очередь может состоять еще из нескольких, вот такое дерево мне нужно вывести списком в таблицу на форме документа.

+ к этому посчитать удельную стоимость спецификации в цикле, т.е. в графе сумма вводим число, нажимаем на кнопку и для каждой спецификации считается удельная стоимость по формуле:
((Сумма/КоличествоСпецификацийОбщее)*ДанноеКолич ествоСпецификации)
Примерно набросал код для цикла, но по нажатию по кнопке происходит подсчет для текущей строки - видимо делаю что-то не так.

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
Процедура РасчитатьНажатие(Элемент)
    Если Сумма > 0  Тогда
        ЭлементыФормы.НеСумма.Видимость = Не Истина;
        Для Каждого ТекСтрокаРазузловкаСпецификаций из РазузловкаСпецификаций Цикл 
            СтрокаТабличнойЧасти = ЭлементыФормы.РазузловкаСпецификаций.ТекущиеДанные;
            СтрокаТабличнойЧасти.УдельнаяСтоимость = (Сумма / РазузловкаСпецификаций.Итог("Количество")) * СтрокаТабличнойЧасти.Количество;
        КонецЦикла;
    Иначе 
        ЭлементыФормы.НеСумма.Видимость = Истина;
                
    КонецЕсли;
    
КонецПроцедуры

Все бы хорошо, но в 1с я пока что 0. Прощу помощи, основная задача разузловать документ. На фото - форма документа.

@duk337 · 09.10.2013, 10:02

Напишите не на 1с, а мы Вам с переводом поможем. Рекурсивная декомпозиция - дело скрупулёзное, чувствительное к контексту и структурам хранения и ввода данных.

Сообщение от TaPaH

удельную стоимость спецификации

- опишите своими словами, что это такое. Комплектующие - это ТЧ или регистр? Ну и т.д. Всё от алгоритма.

@TaPaH · 09.10.2013, 10:34 **[ТС]**

Сообщение от duk337

Напишите не на 1с, а мы Вам с переводом поможем. Рекурсивная декомпозиция - дело скрупулёзное, чувствительное к контексту и структурам хранения и ввода данных. - опишите своими словами, что это такое. Комплектующие - это ТЧ или регистр? Ну и т.д. Всё от алгоритма.

удельная стоимость считается просто в ТЧ и потом никуда не берется, формулу я выше написал.
ИсходныеКомплектующие вроде ТЧ справочника.
Есть еще регистр сведений, но ,я полагаю, он тут не нужен?
все на скринах

P.S. Забыл сказать: 8.1 Предприятие, Управление производственным предприятием - адаптация для РБ.

@duk337 · 09.10.2013, 12:43

Сообщение от TaPaH

Получил задание разузловать спецификации в документе,

Давайте с начала. Платформа, конфигурация? Это 8.0, что ли?

Добавлено через 2 минуты

Сообщение от TaPaH

формулу я выше написал

Ваша задача полное разузлование или как? Возьмите "ОтчетПроизводстваЗаСмену" и разберитесь. Там есть заполнение ТЧ Материалы по Спец. и даже должно быть рспределение на выпуск ГП.

@TaPaH · 09.10.2013, 14:23 **[ТС]**

Давайте с начала. Платформа, конфигурация? Это 8.0, что ли?

Сообщение от TaPaH

P.S. Забыл сказать: 8.1 Предприятие, Управление производственным предприятием - адаптация для РБ.

Ваша задача полное разузлование или как?

Да, именно так.

Про формулу. Она используется отдельно от разузловки спецификаций при подсчете удельной стоимости, удельная стоимость считается от суммы (значение в поле ввода), что-то вроде "какую часть от суммы заказа составляет эта деталь/детали".

Добавлено через 8 минут
Я совсем уже запутался в соображениях. Может кто подскажет пример разузлования в документе, а не в отчете? Вроде бы нашел выборку комплектующих в отчете:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Процедура ВыборкаКомлектующих(ПарСпецификация)
    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |   СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура,
    |   СпецификацииНоменклатурыИсходныеКомплектующие.Количество,
    |   СпецификацииНоменклатурыВыходныеИзделия.Номенклатура КАК НоменклатураИсточник
    |ИЗ
    |   Справочник.СпецификацииНоменклатуры.ИсходныеКомплектующие КАК СпецификацииНоменклатурыИсходныеКомплектующие
    |       ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СпецификацииНоменклатуры.ВыходныеИзделия КАК СпецификацииНоменклатурыВыходныеИзделия
    |       ПО СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка = СпецификацииНоменклатурыВыходныеИзделия.Ссылка
    |ГДЕ
    |   СпецификацииНоменклатурыИсходныеКомплектующие.Ссылка = &ПарСпецификация
    |   И (СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.ВидНоменклатуры = &ПарВидНоменклатурыСборка
    |           ИЛИ СпецификацииНоменклатурыИсходныеКомплектующие.Номенклатура.ВидНоменклатуры = &ПарВидНоменклатурыДеталь)";
 
    Сборка = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Сборка");
    Деталь = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Деталь");
    Запрос.УстановитьПараметр("ПарСпецификация", ПарСпецификация);
    Запрос.УстановитьПараметр("ПарВидНоменклатурыСборка", Сборка);
    Запрос.УстановитьПараметр("ПарВидНоменклатурыДеталь", Деталь);
 
    Результат = Запрос.Выполнить();
 
    ВыборкаНоменклатура = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    Пока ВыборкаНоменклатура.Следующий() Цикл
        Стр = ИтогТЗ.Добавить();
        Стр.НоменклатураОбозначение = ВыборкаНоменклатура.НоменклатураИсточник.ЦИКС;
        Стр.ВходящаяНоменклатураОбозначение = ВыборкаНоменклатура.Номенклатура.ЦИКС;
        Стр.ВидНоменклатуры = ВыборкаНоменклатура.Номенклатура.ВидНоменклатуры;
        Стр.ВходщаяНоменклатураНаименование = ВыборкаНоменклатура.Номенклатура.НаименованиеПолное;
        Стр.Количество = ВыборкаНоменклатура.Количество;
        Стр.Номенклатура = ВыборкаНоменклатура.Номенклатура;
        Стр.НоменклатураИсточник = ВыборкаНоменклатура.НоменклатураИсточник; 
        Если ВыборкаНоменклатура.Номенклатура.ВидНоменклатуры = Сборка Тогда
            Отбор = Новый Структура("Номенклатура");
            Отбор.Номенклатура = ВыборкаНоменклатура.Номенклатура;
            ВыборкаСпец = РегистрыСведений.ОсновныеСпецификацииНоменклатуры.СрезПоследних(ТекущаяДата(), Отбор);
            Если ВыборкаСпец.Количество() = 1 Тогда
                ВыборкаКомлектующих(ВыборкаСпец[0].СпецификацияНоменклатуры);
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

может из этого что-то можно взять в мой документ?

@duk337 · 09.10.2013, 17:30

Сообщение от duk337

Возьмите "ОтчетПроизводстваЗаСмену"

Это документ такой.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/