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

Программирование отчета "Движения на складах"

Автор Лунатик, 05 апр 2016, 10:05

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

Лунатик

Создал Процедурку, выходят ошибки, что приход и расход неопределено, помогите плиз
Запрос вроде верный в консоле провял
П.С. я новичок

Процедура Печать(ТабДок) Экспорт
   
   ТабДок.Очистить();
   
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |   Номенклатура.Ссылка
                  |ПОМЕСТИТЬ Товары
                  |ИЗ
                  |   Справочник.Номенклатура КАК Номенклатура
                  |ГДЕ
                  |   Номенклатура.Ссылка В ИЕРАРХИИ(&ВыбНоменклатура)
                  |;
                  |
                  |////////////////////////////////////////////////////////////////////////////////
                  |ВЫБРАТЬ
                  |   ЦеныСрезПоследних.Номенклатура,
                  |   ЦеныСрезПоследних.Цена
                  |ПОМЕСТИТЬ Цены
                  |ИЗ
                  |   РегистрСведений.Цены.СрезПоследних(
                  |         &ДатаЦен,
                  |         ТипЦены = &ТипЦены
                  |            И Номенклатура В
                  |               (ВЫБРАТЬ
                  |                  Товары.Ссылка
                  |               ИЗ
                  |                  Товары КАК Товары)) КАК ЦеныСрезПоследних
                  |;
                  |
                  |////////////////////////////////////////////////////////////////////////////////
                  |ВЫБРАТЬ
                  |   Товары.Ссылка КАК Номенклатура,
                  |   Цены.Цена КАК Цена
                  |ПОМЕСТИТЬ ТоварыИЦены
                  |ИЗ
                  |   Товары КАК Товары
                  |      ЛЕВОЕ СОЕДИНЕНИЕ Цены КАК Цены
                  |      ПО Товары.Ссылка = Цены.Номенклатура
                  |;
                  |
                  |////////////////////////////////////////////////////////////////////////////////
                  |ВЫБРАТЬ
                  |   ОстаткиНаСкладахОстаткиИОбороты.Склад,
                  |   ОстаткиНаСкладахОстаткиИОбороты.Номенклатура,
                  |   ОстаткиНаСкладахОстаткиИОбороты.КоличествоНачальныйОстаток,
                  |   ОстаткиНаСкладахОстаткиИОбороты.КоличествоКонечныйОстаток,
                  |   ОстаткиНаСкладахОстаткиИОбороты.КоличествоПриход,
                  |   ОстаткиНаСкладахОстаткиИОбороты.КоличествоРасход
                  |ПОМЕСТИТЬ Остатки
                  |ИЗ
                  |   РегистрНакопления.ОстаткиНаСкладах.ОстаткиИОбороты(
                  |         &ДатаНачало,
                  |         &ДатаКонец,
                  |         ,
                  |         ,
                  |         Склад = &Склад
                  |            И Номенклатура В
                  |               (ВЫБРАТЬ
                  |                  Товары.Ссылка
                  |               ИЗ
                  |                  Товары КАК Товары)) КАК ОстаткиНаСкладахОстаткиИОбороты
                  |;
                  |
                  |////////////////////////////////////////////////////////////////////////////////
                  |ВЫБРАТЬ
                  |   ТоварыИЦены.Номенклатура КАК Номенклатура,
                  |   ТоварыИЦены.Цена КАК Цена,
                  |   Остатки.КоличествоНачальныйОстаток КАК КоличествоНачальныйОстаток,
                  |   Остатки.КоличествоКонечныйОстаток КАК КоличествоКонечныйОстаток,
                  |   Остатки.КоличествоПриход КАК КоличествоПриход,
                  |   Остатки.КоличествоРасход КАК КоличествоРасход
                  |ИЗ
                  |   ТоварыИЦены КАК ТоварыИЦены
                  |      ЛЕВОЕ СОЕДИНЕНИЕ Остатки КАК Остатки
                  |      ПО ТоварыИЦены.Номенклатура = Остатки.Номенклатура";
   
   
   Запрос.УстановитьПараметр("ВыбНоменклатура",ВыбНоменклатура );
   Запрос.УстановитьПараметр("ДатаЦен",КонецДня(ДатаЦен) );
   Запрос.УстановитьПараметр("ТипЦены",ТипЦены );
   Запрос.УстановитьПараметр("ДатаНачало",ДатаНачало) ;
   Запрос.УстановитьПараметр("ДатаКонец",ДатаКонец) ;
   Запрос.УстановитьПараметр("Склад",Склад) ;
   
      
   Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();

   
   //{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать1)
   // Данный фрагмент построен конструктором.
   // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
   //ТабДок = Новый ТабличныйДокумент;
   Макет = Обработки.Прайс.ПолучитьМакет("Печать");
   // Заголовок
   Область = Макет.ПолучитьОбласть("Заголовок");
   Область.Параметры.Дата=ДатаЦен;
   ТабДок.Вывести(Область);
   // Шапка
   Шапка = Макет.ПолучитьОбласть("Шапка");
   Шапка.Параметры.Заполнить(ЭтотОбъект);
   ТабДок.Вывести(Шапка);
   // Товары
   Область = Макет.ПолучитьОбласть("ТоварыШапка");
   ТабДок.Вывести(Область);

   //Если ВыводитьОстатки Тогда
   //   ОбластьОстаткиШапка=Макет.ПолучитьОбласть("ТоварыШапка|Остатки");
   //   ТабДок.Присоединить(ОбластьОстаткиШапка);
   //   
   //КонецЕсли;
   
   НомерСтроки=0;
   
   НомерСтроки=0;
   
   Пока Выборка.Следующий() Цикл
      НомерСтроки=НомерСтроки+1;
      ОбластьТовары = Макет.ПолучитьОбласть("Товары");
      ОбластьТовары.Параметры.Номенклатура=Выборка.Номенклатура;
      ОбластьТовары.Параметры.Цена=Выборка.Цена;
      ОбластьТовары.Параметры.НомерСтроки=НомерСтроки;
      ОбластьТовары.Параметры.КоличествоПриход=Выборка.КоличествоРасход;
      ОбластьТовары.Параметры.КоличествоПриход=Выборка.КоличествоПриход;
      ОбластьТовары.Параметры.НомерСтроки=НомерСтроки;
      ОбластьТовары.Параметры.КоличествоНачальныйОстаток= Выборка.КоличествоНачальныйОстаток;
      ОбластьТовары.Параметры.КоличествоКонечныйОстаток= Выборка.КоличествоКонечныйОстаток;
            
      ТабДок.Вывести(ОбластьТовары);


      
      
      
   КонецЦикла;
   
   Подвал = Макет.ПолучитьОбласть("Подвал");
   Подвал.Параметры.Заполнить(ЭтотОбъект);
   ТабДок.Вывести(Подвал);
   
   ТабДок.ОтображатьСетку = Ложь;
   ТабДок.Защита = Истина;
   ТабДок.ТолькоПросмотр = Истина;
   ТабДок.ОтображатьЗаголовки = Ложь;
   ТабДок.Показать();
   //}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
   
КонецПроцедуры

vitasw

Цитата: Лунатик от 05 апр 2016, 10:05что приход и расход неопределено

Полный текст ошибки пожалуйста. Слов "приход" и "расход" в тексте вашей процедуры нет.

Теги:

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

Рейтинг@Mail.ru

Поиск