Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

7.7 ТиС для Украины Как сделать запрос?

maestro_voln
читатель
офлайн
Дата регистрации: 04.03.2009
Сообщений: 289
Пост №21
 
30.06.2009 16:27

"Док=ТекущийДокумент();<br><br><br>ТЗ=СоздатьОбъект("ТаблицаЗначений");<br>ТЗ.НоваяКолонка("Товар", "Справочник.Номенклатура");<br>ТЗ.НоваяКолонка("МОЛ", "Справочник.МОЛ");<br>Док.ВыбратьСтроки();<br>Пока Док.ПолучитьСтроку() = 1 Цикл <br> ТЗ.НоваяСтрока();<br> ТЗ.Товар = Док.Товар;<br> ТЗ.Мол=Док.Товар.МОЛ;<br> <br>КонецЦикла;<br><br>ТЗ.Сортировать("МОЛ");<br>ТЗ.ВыбратьСтроки();<br>МОЛ="""";<br>Пока ТЗ.ПолучитьСтроку()=1 Цикл <br> Если ТЗ.МОЛ=МОЛ Тогда<br> Товар=ТЗ.Товар;<br> Таб.ВывестиСекцию("Строка");<br> <br> Иначе<br> МОЛ=ТЗ.Товар.МОЛ; <br> Таб.ВывестиСекцию("МОЛ"); <br> Товар=ТЗ.Товар;<br> Таб.ВывестиСекцию("Строка");<br>КонецЕсли; <br>КонецЦикла;"

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация