7.7 Сортировка ТЗ без сортировки многострочной части. Как сделать?
Показывать по
10
20
40
сообщений
- 1
- 2
02.07.2009
13:22
#11
"МОЛ=СоздатьОбъект("Справочник.МОЛ");
Если МОЛ.Выбрать("Выберите МОЛ","ДляВыбора")=1 Тогда
НужныйМОЛ=МОЛ.ТекущийЭлемент();
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если Товар.МОЛ=НужныйМОЛ Тогда
...
КонецЕсли;
КонецЦикла;
КонецЕсли;
"
Если МОЛ.Выбрать("Выберите МОЛ","ДляВыбора")=1 Тогда
НужныйМОЛ=МОЛ.ТекущийЭлемент();
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если Товар.МОЛ=НужныйМОЛ Тогда
...
КонецЕсли;
КонецЦикла;
КонецЕсли;
"
06.07.2009
14:17
#13
"Мне кажется, что код написан некорректно.
Почему...
ТЗ.ВыбратьСтроки();
МОЛ="""";
Пока ТЗ.ПолучитьСтроку()=1 Цикл
Если ТЗ.МОЛ=МОЛ Тогда
Товар=ТЗ.Товар; // !!!
...
Иначе
МОЛ=ТЗ.Товар.МОЛ; // !!!
...
Товар=ТЗ.Товар; // !!!
...
КонецЕсли;
КонецЦикла;
Переменные Товар и МОЛ есть в многострочной части документа. Следовательно, при таком написании очень велика вероятность, что Вы просто переписываете значения из ТЗ в многострочную часть...
Хотя по идее такого не должно быть
Измените название переменных Товар и МОЛ (например _Товар, _МОЛ) и попробуйте.
...
ТЗ.ВыбратьСтроки();
_МОЛ="""";
Пока ТЗ.ПолучитьСтроку()=1 Цикл
Если ТЗ.МОЛ <> _МОЛ Тогда
_МОЛ = ТЗ.Товар.МОЛ;
Таб.ВывестиСекцию("МОЛ");
КонецЕсли;
_Товар = ТЗ.Товар;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
.."
Почему...
ТЗ.ВыбратьСтроки();
МОЛ="""";
Пока ТЗ.ПолучитьСтроку()=1 Цикл
Если ТЗ.МОЛ=МОЛ Тогда
Товар=ТЗ.Товар; // !!!
...
Иначе
МОЛ=ТЗ.Товар.МОЛ; // !!!
...
Товар=ТЗ.Товар; // !!!
...
КонецЕсли;
КонецЦикла;
Переменные Товар и МОЛ есть в многострочной части документа. Следовательно, при таком написании очень велика вероятность, что Вы просто переписываете значения из ТЗ в многострочную часть...
Хотя по идее такого не должно быть
Измените название переменных Товар и МОЛ (например _Товар, _МОЛ) и попробуйте.
...
ТЗ.ВыбратьСтроки();
_МОЛ="""";
Пока ТЗ.ПолучитьСтроку()=1 Цикл
Если ТЗ.МОЛ <> _МОЛ Тогда
_МОЛ = ТЗ.Товар.МОЛ;
Таб.ВывестиСекцию("МОЛ");
КонецЕсли;
_Товар = ТЗ.Товар;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
.."
- 1
- 2
Почему при обновлении не дает обновлять отдельные докумменты? 1C7.7 Sql Бухучет4.5 507Проблема с количеством пользователей
Читают тему
(гостей: 1)