Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Сортировка по алфавиту
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
wmatik
21.02.12, 13:07
При формировании отчета необходимо,чтобы контрагенты выводились в алфавитном порядке, но почему то не выводятся, что может быт не так,подскажите:
Процедура Сформировать()
    Перем Запрос, ТекстЗапроса, Таб;
      Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
    Таб.ВывестиСекцию("Заголовок");

    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = "
    |Период с ВыбНачПериода по ВыбКонПериода;
    |Обрабатывать НеПомеченныеНаУдаление;
    |ОбрабатыватьДокументы Проведенные; 
    |Док = Документ.ПриходнаяНакладнаяГТД.ТекущийДокумент, Документ.ПриходнаяНакладнаяЗапасы.ТекущийДокумент, Документ.ПриходнаяНакладнаяПрочие.ТекущийДокумент, Документ.УслугиСтороннихОрганизаций.ТекущийДокумент;
    |Группировка Док;";
    
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

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


где необходимо вставить Сортировать?
Valdi77
21.02.12, 13:18
1. Нельзя ли еще в Запросе добавить поле Контрагент и сортировать по нему (Контрагент.Наименование)
2. МожеТЕ результаті Запроса вігрузить В ТЗ, добавить поле котрагент уже туда, отсортировать по колонке ТЗ
и віводить в цикле последовательно


 i 

У нас принято на Вы
 
nysysimara
21.02.12, 13:26
вот эта фраза лишняя
Если (Док.Вид() = "УслугиСтороннихОрганизаций") ИЛИ
            (Док.Вид() = "ПриходнаяНакладнаяЗапасы") ИЛИ
            (Док.Вид() = "ПриходнаяНакладнаяПрочие") ИЛИ
            (Док.Вид() = "ПриходнаяНакладнаяГТД") Тогда

в запросе отобраны только эти документы

А по поводу сортировки, сделать такой запрос:
Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = "
    |Период с ВыбНачПериода по ВыбКонПериода;
    |Обрабатывать НеПомеченныеНаУдаление;
    |ОбрабатыватьДокументы Проведенные; 
    |Док = Документ.ПриходнаяНакладнаяГТД.ТекущийДокумент, Документ.ПриходнаяНакладнаяЗапасы.ТекущийДокумент, Документ.ПриходнаяНакладнаяПрочие.ТекущийДокумент, Документ.УслугиСтороннихОрганизаций.ТекущийДокумент;
    |Контрагент= Документ.ПриходнаяНакладнаяГТД.Контрагент, Документ.ПриходнаяНакладнаяЗапасы.Контрагент, Документ.ПриходнаяНакладнаяПрочие.Контрагент, Документ.УслугиСтороннихОрганизаций.Контрагент;
    |Группировка Контрагент упорядочить по ТМЦ.Наименование без групп;
    |Группировка Док;";

и соответственно обход по запросу
Пока Запрос.Группировка(1) = 1 Цикл 
    Контрагент = Запрос.Контрагент; 
    Если ПустоеЗначение(Контрагент) = 1 Тогда
        Продолжить;
    КонецЕсли; 
    Таб.ВывестиСекцию("Строка"); 
КонецЦикла;

или если нужны данные по документам
Пока Запрос.Группировка(1) = 1 Цикл 
    Контрагент = Запрос.Контрагент; 
    Если ПустоеЗначение(Контрагент) = 1 Тогда
        Продолжить;
    КонецЕсли; 
    Пока Запрос.Группировка(2) = 1 Цикл
        Док = Запрос.Док;    
        Таб.ВывестиСекцию("Строка"); 
    КонецЦикла;
КонецЦикла;
wmatik
21.02.12, 13:56
спасибо nysysimara, все получилось, только вот как без ТЗ заменить все повторяющиеся контрагенты на одну строку? или только с помощью ТаблицыЗначений?

уже сообразила, не грпуппировать по Группировка(2)
onis
06.06.12, 14:09
Здравствуйте, мне нужна помощь!!!
может кто то подсказать, как сделать в отчете, чтоб продукцию сортировало в алфавитном порядке.
За раннЕе спасибо


 ! 

Правила, п.2
 
mister-x
06.06.12, 15:25
опечатка, тут
Цитата(nysysimara @ 21.02.12, 13:26) необходимо зарегистрироваться для просмотра ссылки
|Группировка Контрагент упорядочить по ТМЦ.Наименование без групп;

мало б бути 
|Группировка Контрагент упорядочить по Контрагент.Наименование без групп;
onis
06.06.12, 15:47
Якщо я зроблю так 
|Группировка ТМЦ упорядочить по ТМЦ.Наименование без групп все ВошедшиеВЗапрос;

то так буде правильно?
mister-x
06.06.12, 15:50
покажіть код в новій темі, так як тут щось про ТМЦ не згадувалось - отже, у вас інший звіт ніж тут
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.