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

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

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

Как вывести результаты в алфавитном порядке?

Alinka
читатель
офлайн
Дата регистрации: 07.05.2005
Сообщений: 12
Пост №1
 
19.05.2005 13:46

Проблемка...<br><br>Есть запрос по полученным с/ф.<br><br>Вывод в печатную форму как по группам, так и в простой форме, т.е. если выбираем по "группировать", то выводится в печатную форму уже отобранные по контрагенту док-ты.<br><br>Но выводятся не в алфавитном порядке!!!<br><br>Как это сделать??? (если надо - приведу листинг)<br><br><br><br>

Vladimir 1С
читатель
офлайн
Дата регистрации: 23.12.2003
Сообщений: 212
Пост №2
 
19.05.2005 14:14

"Добрый день. В группировке же задается выборка:<br><br>Группировка(<Группировка>, <Направление>)<br><br><Направление> Необязательный параметр. Числовое выражение:1 — выборка значений группировки по возрастанию;-1 (минус единица) — выборка значений группировки по убыванию.Значение по умолчанию: 1."

Alinka
читатель
офлайн
Дата регистрации: 07.05.2005
Сообщений: 12
Пост №3
 
19.05.2005 14:24

"Пока Запрос.Группировка("Контрагент") = 1 Цикл<br><br><br><br>Вы это имеете ввиду?<br><br>Не работает.<br><br>Привожу полный листинг:<br><br><br><br>Процедура ЖурналУчета()<br><br> <br><br> Таб.ИсходнаяТаблица("ЖурналУчета");<br><br> УстановленныйОтбор = """";<br><br> Если СтандартнаяФорма = 0 Тогда<br><br> Если ВыбКонтрагент.Выбран() = 1 Тогда<br><br> УстановленныйОтбор = "Установлен отбор по контрагенту: "+СокрЛП(ВыбКонтрагент.Наименование);<br><br> КонецЕсли;<br><br> КонецЕсли;<br><br> Таб.ВывестиСекцию("Шапка");<br><br><br><br> ТекстЗапроса = "Период с ДатаНачала по ДатаКонца;<br><br> |ОбрабатыватьДокументы Все;<br><br> |Обрабатывать НеПомеченныеНаУдаление;<br><br> |Док = Документ.СчетФактураПолученный.ТекущийДокумент,<br><br> |      Документ.ПоступлениеТоваров.ТекущийДокумент,<br><br> |      Документ.ПоступлениеМатериалов.ТекущийДокумент,<br><br> |      Документ.ПоступлениеОборудования.ТекущийДокумент,<br><br> |      Документ.ПоступлениеОС.ТекущийДокумент,<br><br> |      Документ.ПоступлениеНМА.ТекущийДокумент,<br><br> |      Документ.УслугиСтороннихОрганизаций.ТекущийДокумент; <br><br> |ДокументОснование = Документ.СчетФактураПолученный.ДокументОприходования,<br><br> |                   Документ.ПоступлениеТоваров.ТекущийДокумент,<br><br> |                   Документ.ПоступлениеМатериалов.ТекущийДокумент,<br><br> |              Документ.ПоступлениеОборудования.ТекущийДокумент,<br><br> |                   Документ.ПоступлениеОС.ТекущийДокумент,<br><br> |                   Документ.ПоступлениеНМА.ТекущийДокумент,<br><br> |                   Документ.УслугиСтороннихОрганизаций.ТекущийДокумент;<br><br> |Контрагент = Документ.СчетФактураПолученный.Контрагент,<br><br> |             Документ.ПоступлениеТоваров.Контрагент,<br><br> |             Документ.ПоступлениеМатериалов.Контрагент,<br><br> |             Документ.ПоступлениеОборудования.Контрагент,<br><br> |             Документ.ПоступлениеОС.Контрагент,<br><br> |             Документ.ПоступлениеНМА.Контрагент,<br><br> |             Документ.УслугиСтороннихОрганизаций.Контрагент;<br><br> |Валюта = Документ.СчетФактураПолученный.Договор.ВалютаДоговора,<br><br> |       Документ.ПоступлениеТоваров.Договор.ВалютаДоговора,<br><br> |       Документ.ПоступлениеМатериалов.Договор.ВалютаДоговора,<br><br> |       Документ.ПоступлениеОборудования.Договор.ВалютаДоговора,<br><br> |       Документ.ПоступлениеОС.Договор.ВалютаДоговора,<br><br> |       Документ.ПоступлениеНМА.Договор.ВалютаДоговора,<br><br> |       Документ.УслугиСтороннихОрганизаций.Договор.ВалютаДоговора;<br><br> |ДатаНомер = Документ.СчетФактураПолученный.ДатаНомерСчетаФактуры,<br><br> |            Документ.ПоступлениеТоваров.ДатаНомерСчетаФактуры,<br><br> |            Документ.ПоступлениеМатериалов.ДатаНомерСчетаФактуры,<br><br> |            Документ.ПоступлениеОборудования.ДатаНомерСчетаФактуры,<br><br> |            Документ.ПоступлениеОС.ДатаНомерСчетаФактуры,<br><br> |            Документ.ПоступлениеНМА.ДатаНомерСчетаФактуры,<br><br> |            Документ.УслугиСтороннихОрганизаций.ДатаНомерСчетаФактуры;<br><br> |Всего = Документ.СчетФактураПолученный.Всего,<br><br> |       Документ.ПоступлениеТоваров.Всего,<br><br> |       Документ.ПоступлениеМатериалов.Всего,<br><br> |       Документ.ПоступлениеОборудования.Всего,<br><br> |       Документ.ПоступлениеОС.Всего,<br><br> |       Документ.ПоступлениеНМА.Всего,<br><br> |       Документ.УслугиСтороннихОрганизаций.Всего;";<br><br> Если СтандартнаяФорма = 0 Тогда<br><br> Если ГруппироватьПоКонтрагентам = 1 Тогда<br><br> ТекстЗапроса = ТекстЗапроса + "<br><br> |Группировка Контрагент;";<br><br> КонецЕсли;<br><br> КонецЕсли;<br><br> ТекстЗапроса = ТекстЗапроса + "<br><br> |Группировка Док;<br><br> |Функция ВсегоПокупок = Сумма(Всего);";<br><br> Если СтандартнаяФорма = 0 Тогда<br><br> Если ВыбКонтрагент.Выбран() = 1 Тогда<br><br> ТекстЗапроса = ТекстЗапроса + "<br><br> |Условие (Контрагент в ВыбКонтрагент);";<br><br> КонецЕсли;<br><br> КонецЕсли;<br><br> ТекстЗапроса = ТекстЗапроса + "<br><br> |Условие (ПустоеЗначение(ДатаНомер) = 0);";<br><br> <br><br> Запрос = СоздатьОбъект("Запрос");<br><br> Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br><br> Предупреждение("Невозможно выполнить запрос");<br><br> Возврат;<br><br> КонецЕсли;<br><br> <br><br> Ном = 1;<br><br> Пока Запрос.Группировка("Контрагент") = 1 Цикл<br><br> Если (СтандартнаяФорма = 1) или (ГруппироватьПоКонтрагентам = 0) Тогда<br><br> _Счет = """";<br><br> _Доктик = Запрос.Док; <br><br> Если _Доктик.Вид() = "СчетФактураПолученный" Тогда<br><br> _Счет = СокрЛП(Строка(_Доктик.Счет.Код));<br><br> КонецЕсли; <br><br> Таб.ВывестиСекцию("Строка");<br><br> Ном = Ном + 1;<br><br> <br><br> ИначеЕсли ГруппироватьПоКонтрагентам = 1 Тогда<br><br> Если Запрос.Контрагент.ЭтоГруппа() = 1 Тогда<br><br> Продолжить;<br><br> КонецЕсли;<br><br> Сообщить(Запрос.Контрагент);<br><br> Таб.ВывестиСекцию("Контрагент");<br><br> <br><br> Пока Запрос.Группировка("Док") = 1 Цикл<br><br> _Счет = """";<br><br> _Доктик = Запрос.Док; <br><br> Если _Доктик.Вид() = "СчетФактураПолученный" Тогда<br><br> _Счет = СокрЛП(Строка(_Доктик.Счет.Код));<br><br> КонецЕсли; <br><br> Таб.ВывестиСекцию("Строка");<br><br> Ном = Ном + 1;<br><br> КонецЦикла;<br><br> <br><br> КонецЕсли;<br><br> КонецЦикла;<br><br><br><br> ВерхнийКолонтитул = "Журнал учета полученных счетов-фактур ("+ПериодСтр(ДатаНачала, ДатаКонца)+")";<br><br> НижнийКолонтитул = "Отчет сформирован "+ТекущаяДата()+" "+ТекущееВремя()+?(ПустоеЗначение(ИмяПользователя())=0," Пользователь: "+ИмяПользователя(),"""");<br><br> <br><br> Таб.Опции(0,0,6,0, "Параметры печати журналы полученных счетов-фактур" );<br><br> Таб.ОбластьПечати(2);<br><br> Таб.ПовторятьПриПечатиСтроки(6, 6);<br><br> Таб.ПараметрыСтраницы(1,,,,,,,,,1);<br><br> Таб.ТолькоПросмотр(1);<br><br> Таб.Показать("Журнал учета полученных счетов-фактур",""""); <br><br> <br><br>КонецПроцедуры // ЖурналУчета()"

Vladimir 1С
читатель
офлайн
Дата регистрации: 23.12.2003
Сообщений: 212
Пост №4
 
19.05.2005 14:47

"Нет, конструкция типа:<br><br>|Контрагент = Документ.СчетФактураПолученный.Контрагент;<br><br>|Группировка Контрагент упорядочить по Контрагент.Наименование; "

Alinka
читатель
офлайн
Дата регистрации: 07.05.2005
Сообщений: 12
Пост №5
 
19.05.2005 15:01

и это знаю... не работает...

Vladimir 1С
читатель
офлайн
Дата регистрации: 23.12.2003
Сообщений: 212
Пост №6
 
19.05.2005 15:51

"Попробуйте упростить запрос по нужному и посмотрите, работает или нет:<br><br>Запрос = СоздатьОбъект("Запрос");<br><br>ТекстЗапроса = "<текст запроса по контрагенту>"<br><br>Запрос.Выполнить(ТекстЗапроса);<br><br><br><br>"

Alexor
читатель
офлайн
Дата регистрации: 08.07.2003
Сообщений: 201
Пост №7
 
19.05.2005 19:23

"Сделай так:<br><br><br><br>Если ГруппироватьПоКонтрагентам = 1 Тогда <br><br>ТекстЗапроса = ТекстЗапроса + " <br><br>|Группировка Контрагент Упорядочить по Контрагент.Наименование Без Групп;"; <br><br>КонецЕсли;<br><br>"

Daedal
читатель
офлайн
Дата регистрации: 20.09.2004
Сообщений: 632
Пост №8
 
20.05.2005 06:46

Хитрый запрос. Выбирай только то что нужно, а многое<br><br>можно и из самого документа получать когда надо.<br><br>Есть метод "выгрузить()". Выгружаешь в таблицу значений, а<br><br>в ней и сортируешь как хочешь, а от туда потом и в таблицу легче выводить.

Alinka
читатель
офлайн
Дата регистрации: 07.05.2005
Сообщений: 12
Пост №9
 
20.05.2005 14:01

Так, с сортировкой в ТЗ разобрались...<br><br><br><br>Как теперь все это отсортированное выдать в печатную форму?

Daedal
читатель
офлайн
Дата регистрации: 20.09.2004
Сообщений: 632
Пост №10
 
20.05.2005 14:32

"Элементарно.<br><br>допкстим ТЗ - таблица значений.<br><br><br><br>ТЗ.ВыбратьСтроки();<br><br>Пока ТЗ.ПолучитьСтроку() = 1 цикл<br><br>......<br><br>КонецЦикла;<br><br><br><br>Просто перебераешь строки таблицы значений и из нё запихиваешь в печатную форму таблицы."

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

Читают тему:

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