Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 12:12

помогите в чем ошибка

Автор zatochi, 11 мар 2016, 09:29

0 Пользователей и 1 гость просматривают эту тему.

zatochi

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

   // Подготовка к заполнению выходных форм данными запроса
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   // Заполнение полей "Заголовок"
   Таб.ВывестиСекцию("Заголовок");
   Состояние("Заполнение выходной таблицы...");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
   Пока Запрос.Группировка(1) = 1 Цикл
      // Заполнение полей контрагенты
      Таб.ВывестиСекцию("контрагенты");
      Пока Запрос.Группировка(2) = 1 Цикл
         // Заполнение полей Отгрузка
         Таб.ВывестиСекцию("Отгрузка");
         Пока Запрос.Группировка(3) = 1 Цикл
            // Заполнение полей ПРИХОД_НАЛИЧНЫХ
            Таб.ВывестиСекцию("ПРИХОД_НАЛИЧНЫХ");
            Пока Запрос.Группировка(4) = 1 Цикл
               // Заполнение полей Перечисление
               Таб.ВывестиСекцию("Перечисление");
            КонецЦикла;
         КонецЦикла;
      КонецЦикла;
   КонецЦикла;
   // Вывод заполненной формы
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать", "");
КонецПроцедуры



дфтын

В отсутствии вопроса - ошибка, как минимум

Gunner

Цитата: zatochi от 11 мар 2016, 09:29// Если ошибка в запросе, то выход из процедуры
:ooifh::D


zatochi

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

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




контрагенты НаименованиеотгрузкаСуммасдано_перечислениемСумма
АЗИЯ АРТ ПАРКЕТ1843.00пусто
АЛЕКСЕЙ (Мастер Стиль)1080.00пусто



в таблице выводится кантрагенты и его отгрузка, но графа сдано наличними пустая
Добавлено: 16 мар 2016, 10:13


Цитата: дфтын от 11 мар 2016, 17:33
В отсутствии вопроса - ошибка, как минимум

в таблице выводится кантрагенты и его отгрузка, но графа сдано наличними пустая

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск