Всем доброй ночи. Стоит задача найти номенклатуру, у серии которой одинаковое наименование, но разные ссылки, и создать документ "корректировка серий и х-к", который заменит такие серии какой-нибудь одной.
Номенклатуру нашла, начинаю создавать документ, и заполнять его ТЧ. В переменную "НоваяСерия" кидаю серию из первой записи выборки. Соответственно, ее нужно подставить в другие записи.
Как перейти к следующей записи сразу после того, как записываю новую серию в переменную?
| 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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
| Процедура ЗаполнитьТЧ(Док)
НоваяСерия = "";
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ПартииТоваровНаСкладахБухгалтерскийУчетОстатки.Номенклатура КАК Номенклатура,
| ПартииТоваровНаСкладахБухгалтерскийУчетОстатки.СерияНоменклатуры.Ссылка КАК Серия,
| ПартииТоваровНаСкладахБухгалтерскийУчетОстатки.СерияНоменклатуры.Наименование КАК НаименованиеСерии,
| ПартииТоваровНаСкладахБухгалтерскийУчетОстатки.КоличествоОстаток КАК Остаток,
| ПартииТоваровНаСкладахБухгалтерскийУчетОстатки.Склад КАК Склад,
| ПартииТоваровНаСкладахБухгалтерскийУчетОстатки.Номенклатура.ЕдиницаХраненияОстатков КАК Ед
|ИЗ
| РегистрНакопления.ПартииТоваровНаСкладахБухгалтерскийУчет.Остатки(&Период, ) КАК ПартииТоваровНаСкладахБухгалтерскийУчетОстатки
|ГДЕ
| ПартииТоваровНаСкладахБухгалтерскийУчетОстатки.Склад = &Склад
|
|УПОРЯДОЧИТЬ ПО
| Номенклатура
|ИТОГИ
| КОЛИЧЕСТВО(Серия),
| СУММА(Остаток)
|ПО
| Номенклатура,
| НаименованиеСерии";
Запрос.УстановитьПараметр("Период", ЭтаФорма.Период);
Запрос.УстановитьПараметр("Склад", ЭтаФорма.Склад);
Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка.Следующий() Цикл
Если ЗначениеЗаполнено(Выборка.Серия) И Выборка.Серия >=2 Тогда
ВыборкаНом = Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаНом.Следующий() Цикл
Если ЗначениеЗаполнено(ВыборкаНом.Серия) И ВыборкаНом.Серия >= 2 Тогда
ВыборкаСерия = ВыборкаНом.Выбрать();
Пока ВыборкаСерия.Следующий() Цикл
//здесь заполняется тч
СтрокаТЧ = Док.Товары.Добавить();
Если НоваяСерия = "" Тогда НоваяСерия = ВыборкаСерия.Серия;
КонецЕсли;
СтрокаТЧ.Номенклатура = ВыборкаСерия.Номенклатура;
СтрокаТЧ.СерияНоменклатурыСтарая = ВыборкаСерия.Серия;
СтрокаТЧ.СерияНоменклатурыНовая = НоваяСерия;
СтрокаТЧ.Количество = ВыборкаСерия.Остаток;
СтрокаТЧ.Качество = Справочники.Качество.Новый;
СтрокаТЧ.ЕдиницаИзмерения = ВыборкаСерия.Ед;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЕсли;
НоваяСерия = "";
КонецЦикла;
КонецПроцедуры |
|
| 1C |
1
2
3
4
| Если НоваяСерия = "" Тогда
НоваяСерия = ВыборкаСерия.Серия;
ВыборкаСерия.Следующий();
КонецЕсли; |
|
Оказалось, все просто. Почему-то не отработало сначала.
(
