Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Отфильтровать шт и кг в запросе
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
Misjkakend
Написал вот такой код

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

    // Подготовка к заполнению выходных форм данными запроса
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("ТаблПоставщики");
    // Заполнение полей "Заголовок"
    Таб.ВывестиСекцию("Заголовок");
    Состояние("Заполнение выходной таблицы...");
    Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
    ОбщВес = 0;
    ОбщВесШт = 0;
    Пока Запрос.Группировка(1) = 1 Цикл
        // Заполнение полей Контрагент
        Таб.ВывестиСекцию("Поставщик");
        Пока Запрос.Группировка(2) = 1 Цикл
            // Заполнение полей Товар
            Таб.ВывестиСекцию("Товар");            
            Если Запрос.ЕдВес<>"шт."
                    Тогда    ОбщВес = ОбщВес + Запрос.КоличествоСумма;    
                    Иначе    ОбщВесШт = ОбщВесШт + Запрос.КоличествоСумма;
            КонецЕсли;            
        КонецЦикла;
    КонецЦикла;
    // Заполнение полей "Итого"
    Таб.ВывестиСекцию("Итого");
    // Вывод заполненной формы
    Таб.ТолькоПросмотр(1);
    Таб.Показать("ТаблПоставщики", "");
КонецПроцедуры


проблема в том что данный кусок
Если Запрос.ЕдВес<>"шт."
                    Тогда    ОбщВес = ОбщВес + Запрос.КоличествоСумма;    
                    Иначе    ОбщВесШт = ОбщВесШт + Запрос.КоличествоСумма;

не работает. Он все суммирует как кг. А мне надо что отделально кг а отдельно шт. Кто скажет где ошибка?
Домовик
а группировка по ЕдВес, пробовали?..
|Группировка ЕдВес;



второй вариант , можно использовать оператор Когда в функции, но это если единиц одна две три...
  |Функция КоличествоСуммаШт = Сумма(Количество) когда (ЕдВес=НужнаяЕдВес);



1Cv77
Доброго времени суток

|ЕдВес = Документ.НедостачаТовара.Единица; - это разве строчная величина?

Там скорее всего ссылка на Спр или перечисление.....

вот тут и "собака" закопана

Соответственно и условие Если Запрос.ЕдВес<>"шт." нужно проверить
Misjkakend
все решилось гораздо проще

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

    // Подготовка к заполнению выходных форм данными запроса
    ОбщВес = 0;
    ОбщВесШт = 0;
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("ТаблПоставщики");
    // Заполнение полей "Заголовок"
    Таб.ВывестиСекцию("Заголовок");
    Состояние("Заполнение выходной таблицы...");
    Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
    Пока Запрос.Группировка(1) = 1 Цикл
        // Заполнение полей Контрагент
        Таб.ВывестиСекцию("Поставщик");
        Пока Запрос.Группировка(2) = 1 Цикл
            // Заполнение полей Товар
            Таб.ВывестиСекцию("Товар");
            Пернестат = СокрЛП(Запрос.ЕдВес);
            Если Пернестат<>"шт."
                    Тогда    ОбщВес = ОбщВес + Запрос.КоличествоСумма;    
                    Иначе    ОбщВесШт = ОбщВесШт + Запрос.КоличествоСумма;
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;
    // Заполнение полей "Итого"
    Таб.ВывестиСекцию("Итого");
    // Вывод заполненной формы
    Таб.ТолькоПросмотр(1);
    Таб.Показать("ТаблПоставщики", "");
КонецПроцедуры
1Cv77
Извиняюсь за развитие можно сказать "закрытой" темы

Советую заменить Пернестат = СокрЛП(Запрос.ЕдВес);
на Пернестат = СокрЛП(НРег(Запрос.ЕдВес));

а то бывают шутки типа "Шт." или "ШТ." .....
mister-x
так, це було б універсально, можливість передбачити помилки користувачів наперед, але порівняння із стрічкою містить підводні камені, - знову ж таки можлива ситуація "шт" і похідні від неї
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.