Перебор табличных частей

&НаСервере
Процедура  ЗаполнитьНаСервере()
    тДерево = РеквизитФормыВЗначение("Объект.Дерево");
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    МаршрутныйЛистПроизводстваМатериалыИУслуги.Номенклатура,
    |    СУММА(МаршрутныйЛистПроизводстваМатериалыИУслуги.Количество) КАК Количество,
    |    МаршрутныйЛистПроизводстваМатериалыИУслуги.Ссылка.Подразделение
    |ПОМЕСТИТЬ ВТ_МаршрутныеЛисты
    |ИЗ
    |    Документ.МаршрутныйЛистПроизводства.МатериалыИУслуги КАК МаршрутныйЛистПроизводстваМатериалыИУслуги
    |ГДЕ
    |    МаршрутныйЛистПроизводстваМатериалыИУслуги.Ссылка.Проведен = ИСТИНА
    |    И МаршрутныйЛистПроизводстваМатериалыИУслуги.Ссылка.ПометкаУдаления = ЛОЖЬ
    |    И МаршрутныйЛистПроизводстваМатериалыИУслуги.Ссылка.Статус <> &Статус
    |    И МаршрутныйЛистПроизводстваМатериалыИУслуги.ПроизводитсяВПроцессе = ЛОЖЬ
    |    И МаршрутныйЛистПроизводстваМатериалыИУслуги.Ссылка.Начало >= &НачалоПериода
    |    И МаршрутныйЛистПроизводстваМатериалыИУслуги.Ссылка.Окончание <= &КонецПериода
    |
    |СГРУППИРОВАТЬ ПО
    |    МаршрутныйЛистПроизводстваМатериалыИУслуги.Номенклатура,
    |    МаршрутныйЛистПроизводстваМатериалыИУслуги.Ссылка.Подразделение
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |    ВТ_МаршрутныеЛисты.Номенклатура,
    |    ВТ_МаршрутныеЛисты.Количество,
    |    ВТ_МаршрутныеЛисты.Подразделение,
    |    НастройкаПередачиМатериаловВПроизводство.Склад
    |ПОМЕСТИТЬ ВТ_2
    |ИЗ
    |    ВТ_МаршрутныеЛисты КАК ВТ_МаршрутныеЛисты
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НастройкаПередачиМатериаловВПроизводство КАК НастройкаПередачиМатериаловВПроизводство
    |        ПО ВТ_МаршрутныеЛисты.Номенклатура = НастройкаПередачиМатериаловВПроизводство.Номенклатура
    |            И ВТ_МаршрутныеЛисты.Подразделение = НастройкаПередачиМатериаловВПроизводство.Подразделение
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |    Влож.Номенклатура КАК Номенклатура,
    |    Влож.Количество КАК Количество,
    |    Влож.Подразделение,
    |    Влож.Склад КАК СкладОсновной,
    |    Влож.ВНаличииОстаток КАК ОстатокНаОсновномСкладе,
    |    Влож.Поле1 КАК СкладМОЕ,
    |    СвободныеОстаткиОстатки.ВНаличииОстаток КАК ОстатокНаМОЕ,
    |    Влож.Количество - СвободныеОстаткиОстатки.ВНаличииОстаток КАК Нужно
    |ИЗ
    |    (ВЫБРАТЬ
    |        ВТ_2.Номенклатура КАК Номенклатура,
    |        ВТ_2.Количество КАК Количество,
    |        ВТ_2.Подразделение КАК Подразделение,
    |        ВТ_2.Склад КАК Склад,
    |        СвободныеОстаткиОстатки.ВНаличииОстаток КАК ВНаличииОстаток,
    |        ВЫБОР
    |            КОГДА ВТ_2.Подразделение.Код = ""00007F008""
    |                    И Склады.Наименование = ""00021 MOE1""
    |                ТОГДА Склады.Ссылка
    |            КОГДА ВТ_2.Подразделение.Код = ""00007F010""
    |                    И Склады.Наименование = ""00022 MOE3""
    |                ТОГДА Склады.Ссылка
    |            КОГДА ВТ_2.Подразделение.Код = ""00007F011""
    |                    И Склады.Наименование = ""00023 MOE3""
    |                ТОГДА Склады.Ссылка
    |            ИНАЧЕ ""0""
    |        КОНЕЦ КАК Поле1
    |    ИЗ
    |        ВТ_2 КАК ВТ_2
    |            ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СвободныеОстатки.Остатки(&КонецПериода, ) КАК СвободныеОстаткиОстатки
    |            ПО ВТ_2.Номенклатура = СвободныеОстаткиОстатки.Номенклатура
    |                И ВТ_2.Склад = СвободныеОстаткиОстатки.Склад,
    |        Справочник.Склады КАК Склады) КАК Влож
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СвободныеОстатки.Остатки(&КонецПериода, ) КАК СвободныеОстаткиОстатки
    |        ПО Влож.Номенклатура = СвободныеОстаткиОстатки.Номенклатура
    |            И Влож.Поле1 = СвободныеОстаткиОстатки.Склад
    |ГДЕ
    |    Влож.Поле1 <> ""0""
    |ИТОГИ ПО
    |    СкладМОЕ,
    |    СкладОсновной";

    Запрос.УстановитьПараметр("КонецПериода", Объект.ДатаКонца);
    Запрос.УстановитьПараметр("НачалоПериода", Объект.ДатаНачала);
    Запрос.УстановитьПараметр("Статус", Перечисления.СтатусыМаршрутныхЛистовПроизводства.Выполнен);

    РезультатЗапроса = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
    тДерево = ВыборкаДетальныеЗаписи;

    ЗначениеВРеквизитФормы(тДерево, "Объект.Дерево");

КонецПроцедуры

&НаКлиенте
Процедура Заполнить(Команда)
    ЗаполнитьНаСервере();
КонецПроцедуры

&НаКлиенте
Процедура ФлажокПриИзменении(Элемент)

    ИДТекущейСтроки = Элементы.Дерево.ТекущаяСтрока;

    Если ИДТекущейСтроки <> Неопределено Тогда

        ЭлементКоллекции = Объект.Дерево.НайтиПоИдентификатору(ИДТекущейСтроки);

        Если ЭлементКоллекции.Галка = 2 Тогда
            ЭлементКоллекции.Галка = 0;
        КонецЕсли;

        УстановкаФлажков(ЭлементКоллекции, ЭлементКоллекции.Галка);

        Родитель = ЭлементКоллекции.ПолучитьРодителя();
        Пока Родитель <> Неопределено Цикл
            Родитель.Галка = ?(УстановленноДляВсех(ЭлементКоллекции),
            ЭлементКоллекции.Галка, 2);
            ЭлементКоллекции = Родитель;
            Родитель = ЭлементКоллекции.ПолучитьРодителя();
        КонецЦикла;

    КонецЕсли;


КонецПроцедуры

&НаКлиенте
Процедура УстановкаФлажков(ЭлементКоллекции, ЗначениеПометки)

    ПодчинЭлементы = ЭлементКоллекции.ПолучитьЭлементы();
    Для Каждого ТекЭлемент Из ПодчинЭлементы Цикл
        ТекЭлемент.Галка = ЗначениеПометки;
        УстановкаФлажков(ТекЭлемент, ТекЭлемент.Галка);
    КонецЦикла;

КонецПроцедуры

&НаКлиенте
Функция УстановленноДляВсех(ЭлементКоллекции)

    СоседниеЭлементы = ЭлементКоллекции.ПолучитьРодителя().ПолучитьЭлементы();
    Для Каждого ТекЭлемент Из СоседниеЭлементы Цикл
        Если ТекЭлемент.Галка <> ЭлементКоллекции.Галка Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат Истина;

КонецФункции

&НаСервере
Процедура СоздатьДокументыНаСервере()
    Дерево = РеквизитФормыВЗначение("Объект.Дерево");
    ОбходДерева(Дерево);
    СоздатьПеремещение();
    Объект.MOE1A.Очистить();
    Объект.MOE1A.Очистить();
    Объект.MOE1B.Очистить();
    Объект.MOE1C.Очистить();
    Объект.MOE1D.Очистить();
    Объект.MOE2A.Очистить();
    Объект.MOE2B.Очистить();
    Объект.MOE2C.Очистить();
    Объект.MOE2D.Очистить();
    Объект.MOE3A.Очистить();
    Объект.MOE3B.Очистить();
    Объект.MOE3C.Очистить();
    Объект.MOE3D.Очистить();
КонецПроцедуры

&НаКлиенте
Процедура СоздатьДокументы(Команда)
    СоздатьДокументыНаСервере();
КонецПроцедуры

&НаСервере
Процедура ОбходДерева(Дерево)

    Для Каждого тСтр Из Дерево.Строки Цикл


        Если тСтр.СкладМОЕ <> Справочники.Склады.ПустаяСсылка() И тСтр.СкладОсновной <> Справочники.Склады.ПустаяСсылка() И тСтр.Номенклатура  <> Справочники.Номенклатура.ПустаяСсылка() Тогда

            Если тСтр.СкладМОЕ         = Справочники.Склады.НайтиПоНаименованию("00021 MOE1") Тогда  // СКЛАД МОЕ1
                ДобавлениеСтроки(тСтр);
            ИначеЕсли тСтр.СкладМОЕ = Справочники.Склады.НайтиПоНаименованию("00022 MOE2") Тогда  // СКЛАД МОЕ2
                ДобавлениеСтроки(тСтр);
            ИначеЕсли тСтр.СкладМОЕ = Справочники.Склады.НайтиПоНаименованию("00023 MOE3") Тогда  // СКЛАД МОЕ3
                ДобавлениеСтроки(тСтр);
            Иначе
                Сообщить("Удалите из обработки справочники кроме МОЕ1 МОЕ2 и МОЕ3");
            КонецЕсли;

        КонецЕсли;

        Если тСтр.Строки.Количество()>0 Тогда
            ОбходДерева(тСтр);
        КонецЕсли;
    КонецЦикла;

КонецПроцедуры

Процедура ДобавлениеСтроки(тСтр)

    Если тСтр.СкладОсновной = Справочники.Склады.НайтиПоНаименованию("Основное Хранение (А)") И тСтр.Галка = 1 Тогда // СКЛАД А
        Если тСтр.ОстатокНаОсновномСкладе < тСтр.Нужно Тогда
            Сообщить("На основном складе не хватает /"+ Строка(тСтр.Нужно - тСтр.ОстатокНаОсновномСкладе) +"/ед. "+ тСтр.Номенклатура.Наименование );
        ИначеЕсли тСтр.Нужно > 0 Тогда
            НоваяСтрока = Объект[ПРав(тСтр.СкладМОЕ.Наименование,4)+"A"].Добавить();
            ЗаполнитьЗначенияСвойств(НоваяСТрока, тСтр);
        Иначе
            Сообщить("Номенклатура "+ тСтр.Номенклатура.Наименование +" на складе "+ тСтр.СкладМОЕ.Наименование + " в избытке и в пополнение не нуждается");
        КонецЕсли

    ИначеЕсли тСтр.СкладОсновной = Справочники.Склады.НайтиПоНаименованию("Металл Хранение (B)")  И тСтр.ОстатокНаОсновномСкладе > тСтр.Нужно И тСтр.Галка = 1 Тогда // СКЛАД B
        Если тСтр.ОстатокНаОсновномСкладе < тСтр.Нужно Тогда
            Сообщить("На основном складе не хватает /"+ Строка(тСтр.Нужно - тСтр.ОстатокНаОсновномСкладе) +"/ед. "+ тСтр.Номенклатура.Наименование);
        ИначеЕсли тСтр.Нужно > 0 Тогда
            НоваяСтрока = Объект[ПРав(тСтр.СкладМОЕ.Наименование,4)+"B"].Добавить();
            ЗаполнитьЗначенияСвойств(НоваяСТрока, тСтр);
        Иначе
            Сообщить("Номенклатура "+ тСтр.Номенклатура.Наименование +" на складе "+ тСтр.СкладМОЕ.Наименование + " в избытке и в пополнение не нуждается");
        КонецЕсли

    ИначеЕсли тСтр.СкладОсновной = Справочники.Склады.НайтиПоНаименованию("Вспомогательное Хранение (С)")  И тСтр.ОстатокНаОсновномСкладе > тСтр.Нужно И тСтр.Галка = 1 Тогда // СКЛАД C
        Если тСтр.ОстатокНаОсновномСкладе < тСтр.Нужно Тогда
            Сообщить("На основном складе не хватает /"+ Строка(тСтр.Нужно - тСтр.ОстатокНаОсновномСкладе) +"/ед. "+ тСтр.Номенклатура.Наименование );
        ИначеЕсли тСтр.Нужно > 0 Тогда
            НоваяСтрока = Объект[ПРав(тСтр.СкладМОЕ.Наименование,4)+"C"].Добавить();
            ЗаполнитьЗначенияСвойств(НоваяСТрока, тСтр);
        Иначе
            Сообщить("Номенклатура "+ тСтр.Номенклатура.Наименование +" на складе "+ тСтр.СкладМОЕ.Наименование + " в избытке и в пополнение не нуждается");
        КонецЕсли
    ИначеЕсли тСтр.СкладОсновной = Справочники.Склады.НайтиПоНаименованию("Опасное Хранение (D)") И тСтр.ОстатокНаОсновномСкладе > тСтр.Нужно И тСтр.Галка = 1  Тогда // СКЛАД D
        Если тСтр.ОстатокНаОсновномСкладе < тСтр.Нужно Тогда
            Сообщить("На основном складе не хватает /"+ тСтр.Нужно - тСтр.ОстатокНаОсновномСкладе +"/ед. "+ тСтр.Номенклатура.Наименование );
        ИначеЕсли тСтр.Нужно > 0 Тогда
            НоваяСтрока = Объект[ПРав(тСтр.СкладМОЕ.Наименование,4)+"D"].Добавить();
            ЗаполнитьЗначенияСвойств(НоваяСТрока, тСтр);
        Иначе
            Сообщить("Номенклатура "+ тСтр.Номенклатура.Наименование +" на складе "+ тСтр.СкладМОЕ.Наименование + " в избытке и в пополнение не нуждается");
        КонецЕсли
    КонецЕсли;
КонецПроцедуры

Процедура СоздатьПеремещение();

    Массивчик = Новый Массив;
    Массивчик.Добавить("1A");
    Массивчик.Добавить("1B");
    Массивчик.Добавить("1C");
    Массивчик.Добавить("1D");
    Массивчик.Добавить("2A");
    Массивчик.Добавить("2B");
    Массивчик.Добавить("2C");
    Массивчик.Добавить("2D");
    Массивчик.Добавить("3A");
    Массивчик.Добавить("3B");
    Массивчик.Добавить("3C");
    Массивчик.Добавить("3D");


    Для каждого М из Массивчик Цикл

        Если Объект["MOE"+М].Количество() >0 Тогда

            ТЗ = Объект["MOE"+М].Выгрузить();

            Док = Документы.ПеремещениеТоваров.СоздатьДокумент();
            Док.Дата = ТекущаяДата();
            Док.СкладОтправитель = ТЗ[0].СкладОсновной;
            Док.СкладПолучатель = ТЗ[0].СкладМОЕ;
            Док.Организация = Справочники.Организации.НайтиПоРеквизиту("ИНН","6449074016");
            Док.Статус = Перечисления.СтатусыПеремещенийТоваров.КОтгрузке;
            Для Каждого Строка из ТЗ Цикл
                НоваяСтрока = Док.Товары.Добавить();
                НоваяСтрока.Номенклатура = Строка.Номенклатура;
                НоваяСтрока.КоличествоУпаковок = Строка.Нужно;
            КонецЦикла;

            Док.Записать(РежимЗаписиДокумента.Запись);
        КонецЕсли;
    КонецЦикла;

КонецПроцедуры