powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / Создание НомГруппы при переносе в другую НомГр
14 сообщений из 14, страница 1 из 1
Создание НомГруппы при переносе в другую НомГр
    #37004468
bura_limon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый День.Есть обработка Перемещение Номенклатуры из Одной группы в Другую.Создал НомГр"Неиспользованные"теперь хочу При перемещении создать такие же НомГруппы В НомГр НеИспольз.,как они выглядат в Использованных(С Номенклатурой)

Процедура КнопкаВыполнитьНажатие(Кнопка)
Для каждого ТекЭлем Из ТабличнаяЧасть1 Цикл
НоменОбраб = ТекЭлем.Номенклатура.ПолучитьОбъект();
НоменОбраб.Родитель = ГруппаНоменклатуры ;
КонецЕсли;
НоменОбраб.Записать();
КонецЦикла;
ТабличнаяЧасть1.Очистить();
ПоискНажатие(Кнопка);
КонецПроцедуры

Процедура ПоискНажатие(Элемент)
ТабличнаяЧасть1.Очистить();
Запрос = Новый Запрос;
Запрос.Текст="ВЫБРАТЬ РАЗЛИЧНЫЕ
.....
.....
.....
Запрос.УстановитьПараметр("ДатаНач",ДатаНач);
Запрос.УстановитьПараметр("ДатаКон",ДатаКон);
Запрос.УстановитьПараметр("Группа",Группа);
Результат = Запрос.Выполнить().Выгрузить();
Для каждого Строка Из Результат Цикл
НоваяСтрока = ТабличнаяЧасть1.Добавить();
НоваяСтрока.Номенклатура = Строка.Номенклатура;
НоваяСтрока.Код = Строка.Код;
КонецЦикла;
КонецПроцедуры
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37004522
bura_limon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Господа будут предложения?!
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37004653
bura_limon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
то есть Я переношу Номенклатуру(где номенклатура по Группам Номенкл.) в НеИспользованную номенклатуру в НомГруппу"Неиспользованные",то есть что бы мне не создавать в НомГруппе "Неиспользованные"эти НомГруппы,а скопир/перенести из Использованной НомГруппы,и сделать это программно..Вообщем вот запрос:
Процедура ПоискНажатие(Элемент)
ТабличнаяЧасть1.Очистить();
Запрос = Новый Запрос;
Запрос.Текст="ВЫБРАТЬ РАЗЛИЧНЫЕ
| ЕСТЬNULL(ТО.КоличествоОстаток, 0) КАК Остаток,
| ЕСТЬNULL(ТОб.КоличествоРасход, 0) КАК Расход,
| ЕСТЬNULL(ТОб.КоличествоПриход, 0) КАК Приход,
| СпрНоменклатура.Код,
| СпрНоменклатура.Ссылка КАК Номенклатура,
| ЕСТЬNULL(ТОб.КоличествоОборот, 0) КАК Поле1,
| ЕСТЬNULL(ЗаказыНаПроизводствоОбороты.КоличествоПриход, 0) КАК Поле2,
| ЕСТЬNULL(ЗаказыНаПроизводствоОбороты.КоличествоРасход, 0) КАК Поле3,
| ЕСТЬNULL(ЗаказыНаПроизводствоОстатки.КоличествоОстаток, 0) КАК Поле4,
| ЕСТЬNULL(ВыпускПродукции.Количество, 0) КАК Поле8,
| ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0) КАК Поле5,
| ЕСТЬNULL(ЗаказыПокупателейОбороты.КоличествоПриход, 0) КАК Поле6,
| ЕСТЬNULL(ЗаказыПокупателейОбороты.КоличествоРасход, 0) КАК Поле7,
| ЕСТЬNULL(ЗаказыПоставщикамОбороты.КоличествоПриход, 0) КАК Поле9,
| ЕСТЬNULL(ЗаказыПоставщикамОбороты.КоличествоРасход, 0) КАК Поле10,
| ЕСТЬNULL(ЗаказыПоставщикамОстатки.КоличествоОстаток, 0) КАК Поле11,
| ЕСТЬNULL(ПотребностиЗаказовНаПроизводствоОбороты.КоличествоПриход, 0) КАК Поле12,
| ЕСТЬNULL(ПотребностиЗаказовНаПроизводствоОбороты.КоличествоРасход, 0) КАК Поле13,
| ЕСТЬNULL(ПотребностиЗаказовНаПроизводствоОстатки.КоличествоОстаток, 0) КАК Поле14
|ИЗ
| Справочник.Номенклатура КАК СпрНоменклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах.Обороты(&ДатаНач, &ДатаКон, , ) КАК ТОб
| ПО СпрНоменклатура.Ссылка = ТОб.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах.Остатки(&ДатаКон, ) КАК ТО
| ПО СпрНоменклатура.Ссылка = ТО.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыНаПроизводство.Обороты(&ДатаНач, &ДатаКон, , ) КАК ЗаказыНаПроизводствоОбороты
| ПО СпрНоменклатура.Ссылка = ЗаказыНаПроизводствоОбороты.Номенклатура
| И СпрНоменклатура.Ссылка = ЗаказыНаПроизводствоОбороты.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыНаПроизводство.Остатки(&ДатаКон, ) КАК ЗаказыНаПроизводствоОстатки
| ПО СпрНоменклатура.Ссылка = ЗаказыНаПроизводствоОстатки.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ВыпускПродукции КАК ВыпускПродукции
| ПО СпрНоменклатура.Ссылка = ВыпускПродукции.Продукция
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПокупателей.Обороты(&ДатаНач, &ДатаКон, , ) КАК ЗаказыПокупателейОбороты
| ПО СпрНоменклатура.Ссылка = ЗаказыПокупателейОбороты.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПокупателей.Остатки(&ДатаКон, ) КАК ЗаказыПокупателейОстатки
| ПО СпрНоменклатура.Ссылка = ЗаказыПокупателейОстатки.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПоставщикам.Обороты(&ДатаНач, &ДатаКон, , ) КАК ЗаказыПоставщикамОбороты
| ПО СпрНоменклатура.Ссылка = ЗаказыПоставщикамОбороты.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ЗаказыПоставщикам.Остатки(&ДатаКон, ) КАК ЗаказыПоставщикамОстатки
| ПО СпрНоменклатура.Ссылка = ЗаказыПоставщикамОстатки.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПотребностиЗаказовНаПроизводство.Обороты(&ДатаНач, &ДатаКон, , ) КАК ПотребностиЗаказовНаПроизводствоОбороты
| ПО СпрНоменклатура.Ссылка = ПотребностиЗаказовНаПроизводствоОбороты.Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПотребностиЗаказовНаПроизводство.Остатки(&ДатаКон, ) КАК ПотребностиЗаказовНаПроизводствоОстатки
| ПО СпрНоменклатура.Ссылка = ПотребностиЗаказовНаПроизводствоОстатки.Номенклатура
|ГДЕ
| ЕСТЬNULL(ТО.КоличествоОстаток, 0) = 0
| И СпрНоменклатура.Родитель В ИЕРАРХИИ(&Группа)
| И ЕСТЬNULL(ТОб.КоличествоПриход, 0) = 0
| И ЕСТЬNULL(ТОб.КоличествоРасход, 0) = 0
| И СпрНоменклатура.ЭтоГруппа = ЛОЖЬ
| И ЕСТЬNULL(ТОб.КоличествоОборот, 0) = 0
| И ЕСТЬNULL(ЗаказыНаПроизводствоОбороты.КоличествоПриход, 0) = 0
| И ЕСТЬNULL(ЗаказыНаПроизводствоОбороты.КоличествоРасход, 0) = 0
| И ЕСТЬNULL(ТО.КоличествоОстаток, 0) = 0
| И ЕСТЬNULL(ВыпускПродукции.Количество, 0) = 0
| И ЕСТЬNULL(ЗаказыПокупателейОбороты.КоличествоРасход, 0) = 0
| И ЕСТЬNULL(ЗаказыПокупателейОбороты.КоличествоПриход, 0) = 0
| И ЕСТЬNULL(ЗаказыПокупателейОстатки.КоличествоОстаток, 0) = 0
| И ЕСТЬNULL(ЗаказыПоставщикамОбороты.КоличествоПриход, 0) = 0
| И ЕСТЬNULL(ЗаказыПоставщикамОбороты.КоличествоРасход, 0) = 0
| И ЕСТЬNULL(ПотребностиЗаказовНаПроизводствоОбороты.КоличествоПриход, 0) = 0
| И ЕСТЬNULL(ПотребностиЗаказовНаПроизводствоОбороты.КоличествоРасход, 0) = 0
| И ЕСТЬNULL(ПотребностиЗаказовНаПроизводствоОстатки.КоличествоОстаток, 0) = 0"
;
Запрос.УстановитьПараметр("ДатаНач",ДатаНач);
Запрос.УстановитьПараметр("ДатаКон",ДатаКон);
Запрос.УстановитьПараметр("Группа",Группа);
Результат = Запрос.Выполнить().Выгрузить();
Для Каждого Группа из Результат Цикл
новаяГруппа= ТабличнаяЧасть1.Добавить();
Для каждого Строка Из Результат Цикл
НоваяСтрока = ТабличнаяЧасть1.Добавить();
НоваяСтрока.Номенклатура = Строка.Номенклатура;
НоваяСтрока.Код = Строка.Код;
КонецЦикла;
КонецПроцедуры
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37004744
bura_limon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ну же товарищи программисты,может что то не понятно в вопросе?!
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37004788
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
все понятно... вам вредно программировать
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37004824
bura_limon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Господин ПЖ по ржал?!Попкорн+колу щас принесу
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37004835
The Dim!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Оно конечно вам видней, но может не переносить... а форму подбора как-то сделать, по доступным остаткам.

Было б лучше, если б была озвучена задача.

По делу, как-то так примерно:
Код: plaintext
1.
2.
3.
4.
5.
Для каждого Строка Из Результат Цикл
             Объект = Строка.ПолучитьОбъект();
             Объект.Родитель = НоваяГруппа;
             Объект.Записать();
КонецЦикла;
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37004874
Программист 1с
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bura_limonну же товарищи программисты,может что то не понятно в вопросе?!Сорри но я до сих пор не понял вопроса.
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37004936
bura_limon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The Dim!,
Задача:
НеИспользованую Номенклатуру перенести в НоменклГруппу НеИспользованные(обработка уже работает так)
пример:
В подборе Выбрать из:выбераю Гр"Прочие"(Группа"Прочие"в нем под группа"Гвозди(где и лежат номеклатур)" и "Крышки(где и лежат номеклатура)") по поиску нашлись НеиспользованныеНомекл(все в табл.часте"Гвозди","Крышки"),в отборе Переместить:выбераю ГрупНеиспользованные,и вот теперь когда нажать на Переместить нужно что бы в ГрНеИспол. создалась Гр"Прочие"в ней группы"Гвозди"(Номеклатура),"Крышки"(Номеклатура)
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37004946
The Dim!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ты с терминологией определись.
Номенклатурная группа или группа в справочнике номенклатура.

Так а в чем проблема проибежаться по реквизиту родитель и проверить/создать нужную структуру справочника ?
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37004995
bura_limon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The Dim!,
терминология:
1)группа в справочнике номенклатура
2)создать нужную структуру
Вот как то так начил писать:
"ВЫБРАТЬ
| Номенклатура.Ссылка КАК НомГр
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.ЭтоГруппа
|ИТОГИ ПО
| НомГр ИЕРАРХИЯ"
НГ = Справочники.Номенклатура.СоздатьГруппу();
НГ.Записать();
Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
Пока Выборка.следующий() Цикл
НГ_1 = Справочники.Номенклатура.СоздатьГруппу();
ЗаполнитьЗначенияСвойств(НГ_1,Выборка.НомГР);
НГ_1.Родитель = НГ.Ссылка;
НГ_1.Записать();
СоздатьПодчиненуюГруппу(Выборка, НГ_1);
КонецЦикла;
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37005076
Хитроглазый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Видимо он хочет, чтобы "неиспользованная" номенклатура не в одной куче лежала, а таком же дереве. Только непонятно, что он хочет делать при изменении структуры исходного дерева (или смене наименований папок)
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37005081
The Dim!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
э... так раньше ж тебя остатки интересовали... ?
...
Рейтинг: 0 / 0
Создание НомГруппы при переносе в другую НомГр
    #37005087
The Dim!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ХитроглазыйВидимо он хочет, чтобы "неиспользованная" номенклатура не в одной куче лежала, а таком же дереве. Только непонятно, что он хочет делать при изменении структуры исходного дерева (или смене наименований папок)

Есть основания так считать.

Еще интересный момент как он будет это использовать... откуда ком вызываться будет. Ну и в придачу, наверное. следует использовать предопределенные элементы.
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Создание НомГруппы при переносе в другую НомГр
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]