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

   Vbonivur

17.05.10 — 19:14

   Vbonivur

5 — 19.05.10 — 11:37

В платформе 1С сообщения об ошибках бывают достаточно запутаны, и без должных навыков разобраться в причинах достаточно сложно. Вот и сообщение об ошибке при вызове контекста может ввести в ступор начинающего разработчика. Однако в подавляющем большинстве случаев мы видим подобное сообщение, если разработчик допустил ошибку в своем коде. Причем речь зачастую идет не об орфографических ошибках, а о логических.

Исправляем ситуацию

Чтобы избавиться от этого неприятного сообщения об ошибке при вызове метода контекста, следует понимать, что контекстом называют методы платформы 1С. Значит в определенной строке кода воспользовались методом с неверными параметрами или вызвали его не от того владельца. Всегда внимательно и полностью читайте сообщения об ошибках – часто в них содержится указание на строку и метод, вызвавший ошибку. Это поможет сэкономить время на отладку и поиск проблемного места в коде.

Рассмотрим действия разработчика на примере со специально допущенной ошибкой. Мы запускаем на исполнение нижеприведенный кусок кода с запросом, в котором забыли дописать условие отбора. Компилятор 1С пропускает такую процедуру, так как орфографических ошибок в написании команд мы не допустили. Однако в режиме предприятия нас ждет такое сообщение об ошибке:

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

Приведенный текст ошибки программисту 1С скажет, что в модуле формы обработки «ЧтениеЗаписьXML на 152 строчке кода не может выполниться запрос. Причина в том, что на 17 строчке запроса нет чего-то, что ждал компилятор. Таким образом, чтобы убрать подобное сообщение, необходимо выяснить, что там должно быть и написать недостающий код.

Увидев вышеприведенный кусок кода, разработчик заметит, что в запросе есть служебное слово «ГДЕ», дающее сигнал 1С, что дальше будет условие. Но мы забыли дописать его и, естественно, система с помощью сообщения об ошибке спрашивает нас – «а где условие?». Чтобы исправить эту ситуацию необходимо либо убрать оператор «ГДЕ» из запроса, либо добавить условие.

Но ошибки могут быть не только в текстах запросов. Допустим, мы хотим выбрать всю номенклатуру и узнать, входит ли она в определенную группу. Проверка происходит с помощью метода «ПринадлежитЭлементу» и его параметра, который должен быть типа СправочникСсылка. Мы опять допускаем ошибку и вместо ссылки в параметр метода помещаем строку, содержащую имя переменной.

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

1С выдает настолько же информативное сообщение, из которого мы понимаем, что на 158 строке у 1 параметра неправильный тип. Но что же делать, если мы не знаем, какой тип должен быть? В этом нам поможет Синтакс-помощник, встроенный в платформу 1С.

В конфигураторе находим строку и метод, на который указывало сообщение об ошибке, и нажимаем на него правой кнопкой мыши. Выбираем пункт «Поиск в синтакс-помощнике» и платформа самостоятельно ищет справочную информацию по выделенному методу. В справке мы видим не только подробное описание параметров и самого метода, но и пример. Сверив пример с нашим кодом, приходит понимание, что кавычки не нужны и без них все работает.

Чаще всего причиной подобных ошибок выступают следующие факторы:

1. Невнимательность;
2. Отсутствие опыта или знаний;
3. Несогласованность действий разработчиков друг с другом;
4. Изменения в методах контекста в новых версиях платформы.

Но ошибки при разработке ПО случаются постоянно, поскольку иногда ошибаются даже специалисты с многолетним опытом. Самое главное – уметь исправлять их и учиться на них. Постепенно вы будете видеть сообщения об ошибках все реже и научитесь замечать подобные «опечатки» еще до запуска 1С.

Подсказка: Вы можете приложить к ответу файл или изображение щелкнув по значку или в редакторе.

Пишу а вот загрузить не проходит, на выходе — пустая ТЗ чяднт?

типы колонок совпадают…

может СП почитать все-таки?

Строки должны быть созданы, по-моему.

ТаблицаЗначений.ВыгрузитьКолонку (ValueTable.UnloadColumn) ВыгрузитьКолонку (UnloadColumn) Синтаксис: ВыгрузитьКолонку(<Колонка>) Параметры: <Колонка> (обязательный) Тип: Число, Строка, КолонкаТаблицыЗначений. Колонка, значения которой необходимо выгрузить. В качестве значения параметра может выступать индекс колонки, имя колонки, сама колонка. Возвращаемое значение: Тип: Массив. Описание: Создает массив и копирует в него значения, содержащиеся в колонке таблицы значений. Пример: Синтаксис: ЗагрузитьКолонку(<Массив>, <Колонка>) Параметры: <Массив> (обязательный) Тип: Массив. Массив значений, который выступает в качестве источника данных для колонки. <Колонка> (обязательный) Тип: Число, Строка, КолонкаТаблицыЗначений. Колонка, в которую будут загружены значения из массива. В качестве значения параметра может выступать индекс колонки, имя колонки, сама колонка. Описание: Загружает колонку таблицы значений из массива значений. Примечание: Значения из массива загружаются в колонку в порядке индексов. Пример: ТаблицаРезультат = Новый ТаблицаЗначений; Для каждого ИмяКолонки Из МассивИменКолонок Цикл что еще почитать?

Ну так пример посмотри… Может так лучше:

+7 ну почему такой изврат?

во-во… смотрю в книгу — вижу фигу.

может и проще только захотелось попробовать…

если такой умный — ткни носом, а не говори про нее

Содержание:

1.       Несоответствие типов данных

2.       Ошибка внутри таблицы в запросе

3.       Причина ошибки внутри команды

Приветствую, коллеги! В данной статье рассмотрим понятие и описание типа данных и переменных в системе 1С версии 8.3. Также поговорим о распространенной ошибке «Несоответствие типов», изложим инструкцию с по ее устранению. 

1.    Несоответствие типов данных

Тип – это характеристика у значения, которая определяет поведение и свойства, которые имеет данное значение.

В командах внутри системы 1С параметры имеют некую специальную очерёдность, а также все параметры имеют ссылку на данные, которые связаны с каким-либо типом. В случае, когда какой-то из параметров находится в неположенном месте, либо название не соответствует типу, выполняются невозможные действия для конкретного типа – появляется сообщение, в котором говорится о несоответствии типов данных (показано на скриншоте ниже):

Рис. 1 Сообщение об ошибке несоответствии типов

Чаще всего данная неполадка возникает, когда при написании запроса внутри команды не верно указывают параметры. Исправление подобной ошибки производится при помощи изменения типа передаваемого параметра или используемой переменной на правильный тип данных.  

2.    Ошибка внутри таблицы в запросе

Рассмотрим пример: при чтении цен из номенклатуры согласно регистру данных «Цены номенклатуры» с общего внешнего отчёта всплывает ошибка «Неоднозначное поле «ТипЦен.Номенклатура».

Рис. 2 Ошибка Неоднозначное поле

Видим, что в окне с сообщением о неполадке указано место в коде, где возникла ошибка несоответствия типов: «Параметр номер «1», в строчке вида:

«РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&&ТипЦен,) КАК ЦеныНоменклатурыСрезПоследних.

Чтобы устранить данную ошибку в первую очередь откроем конфигурацию с данным отчётом и найдем внутри кода с формой строчку, которая была приведена выше:

Рис. 3 Исправление ошибки несоответствия типов (Параметр номер 1)

При помощи «Синтаксис-Помощника», в меню конфигурации 1С можно сверить, насколько правильно была написана команда:

Рис. 4 Проверка написания команды с помощью Синтаксис-Помощника

Согласно описанию, в команде «СрезПоследних» находится два параметра: «Отбор» и «Период».

В случае, когда параметр «Период» не был указан, в данной команде будет пустое поле, а после запятой будет написан параметр для отбора. Для нашего примера этим параметром будет «ТипЦен». После правок команда видоизменится так: «СрезПоследних(,ТипЦен = &ТипЦен).

Рис. 5 Исправление команды СрезПоследних

После того как команда СрезПоследних была исправлена, стоит снова сформировать отчёт из «Главное меню → Файл → Открыть». 

3.    Причина ошибки внутри команды

Имеем такую ошибку: когда происходит поиск вариантов ссылок на контрагента в отчёте системы 1С, то возникает ошибка «Несоответствие типов (параметр номер «2»), как на скриншоте ниже:

Рис. 6 Несоответствие типов (параметр номер «2»)

В системе 1С указано то место, где произошла неполадка – это недопустимый параметр номер 2, если кликнуть на кнопку «ERROR». Чтобы её исправить нужно запустить отчёт в конфигураторе системы 1С, далее ищем форму строчки, в которой написана команда «НайтиПоСсылкам», внутри модуля.

Рис. 7 Команда НайтиПоСсылкам внутри модуля

Можно проверить верность того, как написана команда при помощи «Синтаксис-Помощника» в панели меню системы 1С, кнопка будет выделена:

Рис. 8 Команда НайтиПоСсылкам в Синтаксис-Помощнике

По описанию следует: в команде «НайтиПоСсылкам» находится такие четыре параметра: СписокСсылок, ИсключитьОбъекты, ВключитьОбъекты и ОбластьПоиска.

В параметре с названием «ОбластьПоиска» будет тип «массив», в примере указана единица. Параметр «ОбластьПоиска» — не является обязательным, так что команда, которую исправили будет иметь следующий новый вид: НайтиПоСсылкам(МассивПоиска, , , МассивИсключений).

Рис. 9 Тип массив в НайтиПоСсылкам

Далее запускаем наш отчёт в системе 1С.

После наших действий команда работает исправно и ошибки нет.

Рис. 10 Проверка на наличие ошибок в системе конфигурации 1С

В данной статье было рассмотрено как устранить ошибку несоответствия типов в 1С. На примерах была устранена эта ошибка для запроса и для команды. По данному алгоритму можно всегда устранять данную ошибку.

Специалист компании «Кодерлайн»

Айдар Фархутдинов

Перем ИмяМакета;

Перем мВалютаРегламентированногоУчета;

Функция Печать()Экспорт;

Запрос = Новый Запрос;

Запрос.УстановитьПараметр(«ТекущийДокумент», СсылкаНаОбъект.Ссылка);

Запрос.УстановитьПараметр(«Дата», СсылкаНаОбъект.Дата);

Запрос.Текст = «ВЫБРАТЬ

               | ДокЧек.Номер КАК Номер,

               | ДокЧек.Дата КАК Дата,

               | ДокЧек.КассаККМ КАК КассаККМ,

               | ДокЧек.Организация КАК Организация,

               | ВЫБОР

               | КОГДА ДокЧек.Организация.ЮрФизЛицо = ЗНАЧЕНИЕ(Перечисление.ЮрФизЛицо.ЮрЛицо)

               | ТОГДА ДокЧек.Организация.НаименованиеПолное

               | ИНАЧЕ «»ИП «» + ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследнихИП.Фамилия, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ ФИОФизЛицСрезПоследнихИП.Фамилия + «» «» + ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследнихИП.Имя, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ (ВЫРАЗИТЬ(ФИОФизЛицСрезПоследнихИП.Имя КАК СТРОКА(1))) + «». «»

               | КОНЕЦ + ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследнихИП.Отчество, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ (ВЫРАЗИТЬ(ФИОФизЛицСрезПоследнихИП.Отчество КАК СТРОКА(1))) + «».»»

               | КОНЕЦ

               | КОНЕЦ + «»»»

               | КОНЕЦ КАК НаименованиеОрганизации,

               | ДокЧек.СуммаДокумента КАК СуммаДокумента,

               | ДокЧек.ВидОперации КАК ВидОперации,

               | ДокЧек.Товары.(

               | НомерСтроки КАК НомерСтроки,

               | Номенклатура КАК Номенклатура,

               | Номенклатура.Представление КАК Товар,

               | Номенклатура.НаименованиеПолное КАК ТоварПолноеНаименование,

               | Номенклатура.Код КАК Код,

               | Номенклатура.Артикул КАК Артикул,

               | Количество КАК Количество,

               | ЕдиницаИзмерения.Представление КАК ЕдиницаИзмерения,

               | Цена КАК Цена,

               | ПроцентСкидкиНаценки КАК Скидка,

               | ПроцентАвтоматическихСкидок КАК СкидкаАвтоматическая,

               | Сумма КАК Сумма,

               | ХарактеристикаНоменклатуры КАК Характеристика,

               | СерияНоменклатуры КАК Серия,

               | БИТ_Склад КАК БИТ_Склад

               | ) КАК Товары,

               | ДокЧек.Оплата.(

               | НомерСтроки КАК НомерСтроки,

               | ВидОплаты КАК ВидОплаты,

               | Сумма КАК Сумма

               | ) КАК Оплата,

               | ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследних.Фамилия, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ ФИОФизЛицСрезПоследних.Фамилия + «» «» + ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследних.Имя, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ (ВЫРАЗИТЬ(ФИОФизЛицСрезПоследних.Имя КАК СТРОКА(1))) + «». «»

               | КОНЕЦ + ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследних.Отчество, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ (ВЫРАЗИТЬ(ФИОФизЛицСрезПоследних.Отчество КАК СТРОКА(1))) + «».»»

               | КОНЕЦ

               | КОНЕЦ КАК ФИО,

               | ВложенныйЗапрос.БИТ_Склад КАК БИТ_Склад

               |ИЗ

               | Документ.ЧекККМ КАК ДокЧек

               | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Пользователи КАК Пользователи

               | ПО (Пользователи.Ссылка = ДокЧек.Ответственный)

               | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ФизическиеЛица КАК ФизическиеЛица

               | ПО (Пользователи.ФизЛицо = ФизическиеЛица.Ссылка)

               | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&Дата, ) КАК ФИОФизЛицСрезПоследних

               | ПО (ФизическиеЛица.Ссылка = ФИОФизЛицСрезПоследних.ФизЛицо)

               | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&Дата, ) КАК ФИОФизЛицСрезПоследнихИП

               | ПО ДокЧек.Организация.ИндивидуальныйПредприниматель = ФИОФизЛицСрезПоследнихИП.ФизЛицо,

               | (ВЫБРАТЬ

               | ЧекККМТовары.Ссылка КАК Ссылка,

               | ЧекККМТовары.БИТ_Склад КАК БИТ_Склад

               | ИЗ

               | Документ.ЧекККМ.Товары КАК ЧекККМТовары

               | ГДЕ

               | ЧекККМТовары.Ссылка = &ТекущийДокумент

               |

               | СГРУППИРОВАТЬ ПО

               | ЧекККМТовары.БИТ_Склад,

               | ЧекККМТовары.Ссылка) КАК ВложенныйЗапрос

               |ГДЕ

               | ДокЧек.Ссылка = &ТекущийДокумент

               |

               |УПОРЯДОЧИТЬ ПО

               | ДокЧек.Товары.НомерСтроки

               |ИТОГИ ПО

               | БИТ_Склад»;

Шапка = Запрос.Выполнить().Выбрать();

Шапка.Следующий();

ТабДокумент = Новый ТабличныйДокумент;

ТабДокумент.ИмяПараметровПечати = «ПАРАМЕТРЫ_ПЕЧАТИ_Товарный_Чек»;

Макет = ПолучитьМакет(«Товарный_Чек»);

// Выводим шапку накладной.

ОбластьМакета = Макет.ПолучитьОбласть(«Заголовок»);

Если Шапка.ВидОперации = Перечисления.ВидыОперацийЧекККМ.Возврат Тогда

ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, «Чек (возврат)»);

Иначе

ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка,      «Товарный чек»);

КонецЕсли;

ОбластьМакета.Параметры.ПредставлениеПоставщика = «ИП Мерзакулов Р.М»;

//ОбластьМакета.Параметры.ПредставлениеПоставщика = Шапка.Организация;

ОбластьМакета.Параметры.ИНН = «235703731865»;

ТабДокумент.Вывести(ОбластьМакета);

ЕстьСкидки = Ложь;

ВыборкаСтрокТовары = Шапка.Товары.Выбрать();

Пока ВыборкаСтрокТовары.Следующий() Цикл

Если ВыборкаСтрокТовары.Скидка + ВыборкаСтрокТовары.СкидкаАвтоматическая <> 0 Тогда

ЕстьСкидки = Истина;

КонецЕсли;

КонецЦикла;

//ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();

//Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда

// ВыводитьКоды = Истина;

// Колонка = «Артикул»;

//ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда

// ВыводитьКоды = Истина;

// Колонка = «Код»;

//Иначе

// ВыводитьКоды = Ложь;

//КонецЕсли;

ОбластьНомера = Макет.ПолучитьОбласть(«ШапкаТаблицы|НомерСтроки»);

//ОбластьКодов  = Макет.ПолучитьОбласть(«ШапкаТаблицы|КолонкаКодов»);

ОбластьДанных = Макет.ПолучитьОбласть(«ШапкаТаблицы|Данные»);

//ОбластьСкидок = Макет.ПолучитьОбласть(«ШапкаТаблицы|Скидка»);

ОбластьСуммы  = Макет.ПолучитьОбласть(«ШапкаТаблицы|Сумма»);

ОбластьСклад = Макет.ПолучитьОбласть(«ШапкаТаблицы|Склад»);

ТабДокумент.Вывести(ОбластьНомера);

//Если ВыводитьКоды Тогда    ///Артикул

// ОбластьКодов.Параметры.ИмяКолонкиКодов = Колонка;

// ТабДокумент.Присоединить(ОбластьКодов);

//КонецЕсли;

ТабДокумент.Присоединить(ОбластьДанных);

//Если ЕстьСкидки Тогда

// ТабДокумент.Присоединить(ОбластьСкидок);

//КонецЕсли;

ТабДокумент.Присоединить(ОбластьСуммы);

ТабДокумент.Присоединить(ОбластьСклад);

ОбластьКолонкаТовар = Макет.Область(«Товар»);

//Если Не ВыводитьКоды Тогда

// ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки

//                                   + Макет.Область(«КолонкаКодов»).ШиринаКолонки;

//КонецЕсли;

Если Не ЕстьСкидки Тогда

ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки

                                  + Макет.Область(«Сумма»).ШиринаКолонки;

КонецЕсли;

ОбластьНомера = Макет.ПолучитьОбласть(«Строка|НомерСтроки»);

//ОбластьКодов  = Макет.ПолучитьОбласть(«Строка|КолонкаКодов»);

ОбластьДанных = Макет.ПолучитьОбласть(«Строка|Данные»);

//ОбластьСкидок = Макет.ПолучитьОбласть(«Строка|Скидка»);

ОбластьСуммы  = Макет.ПолучитьОбласть(«Строка|Сумма»);

ОбластьСклад= Макет.ПолучитьОбласть(«Строка|Склад»);

Сумма          = 0;

ВсегоСкидок    = 0;

ВсегоБезСкидок = 0;

ВыборкаСтрокТовары = Шапка.Товары.Выбрать();

Пока ВыборкаСтрокТовары.Следующий() Цикл

Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда

Сообщить(«В одной из строк не заполнено значение номенклатуры — строка при печати пропущена.», СтатусСообщения.Важное);

Продолжить;

КонецЕсли;

ОбластьНомера.Параметры.Заполнить(ВыборкаСтрокТовары);

ТабДокумент.Вывести(ОбластьНомера);

//Если ВыводитьКоды Тогда

// Если Колонка = «Артикул» Тогда

// ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Артикул;

// Иначе

// ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Код;

// КонецЕсли;

// ТабДокумент.Присоединить(ОбластьКодов);

//КонецЕсли;

ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокТовары);

ОбластьДанных.Параметры.Товар = ?(НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.ТоварПолноеНаименование),

                                ВыборкаСтрокТовары.Товар, ВыборкаСтрокТовары.ТоварПолноеНаименование)

                              + ФормированиеПечатныхФорм.ПредставлениеСерий(ВыборкаСтрокТовары);

ТабДокумент.Присоединить(ОбластьДанных);

//Скидка = ВыборкаСтрокТовары.Цена * ВыборкаСтрокТовары.Количество — ВыборкаСтрокТовары.Сумма;

//Если ЕстьСкидки Тогда

// ОбластьСкидок.Параметры.Скидка         = Скидка;

// ОбластьСкидок.Параметры.СуммаБезСкидки = ВыборкаСтрокТовары.Сумма + Скидка;

// ТабДокумент.Присоединить(ОбластьСкидок);

//КонецЕсли;

ОбластьСуммы.Параметры.Заполнить(ВыборкаСтрокТовары);

ТабДокумент.Присоединить(ОбластьСуммы);

ТабДокумент.Присоединить(ОбластьСклад);//Выводим склад в таличную часть печатной формы 

Сумма          = Сумма + ВыборкаСтрокТовары.Сумма;

//ВсегоСкидок    = ВсегоСкидок + Скидка;

ВсегоБезСкидок = Сумма + ВсегоСкидок;

//КонецЕсли;

КонецЦикла;

// Вывести Итого.

ОбластьНомера = Макет.ПолучитьОбласть(«Итого|НомерСтроки»);

//ОбластьКодов  = Макет.ПолучитьОбласть(«Итого|КолонкаКодов»);

ОбластьДанных = Макет.ПолучитьОбласть(«Итого|Данные»);

//ОбластьСкидок = Макет.ПолучитьОбласть(«Итого|Скидка»);

ОбластьСуммы  = Макет.ПолучитьОбласть(«Итого|Сумма»);

ТабДокумент.Вывести(ОбластьНомера);

//Если ВыводитьКоды Тогда

// ТабДокумент.Присоединить(ОбластьКодов);

//КонецЕсли;

ТабДокумент.Присоединить(ОбластьДанных);

//Если ЕстьСкидки Тогда

// ОбластьСкидок.Параметры.ВсегоСкидок    = ВсегоСкидок;

// ОбластьСкидок.Параметры.ВсегоБезСкидок = ВсегоБезСкидок;

// ТабДокумент.Присоединить(ОбластьСкидок);

//КонецЕсли;

ОбластьСуммы.Параметры.Всего = Сумма;

ТабДокумент.Присоединить(ОбластьСуммы);

мВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();

// Вывести Сумму прописью.

ОбластьМакета = Макет.ПолучитьОбласть(«СуммаПрописью»);

ОбластьМакета.Параметры.ИтоговаяСтрока = «Всего наименований » + ВыборкаСтрокТовары.Количество()

                                       + «, на сумму » + ОбщегоНазначения.ФорматСумм(Шапка.СуммаДокумента, мВалютаРегламентированногоУчета);

ОбластьМакета.Параметры.СуммаПрописью  = ОбщегоНазначения.СформироватьСуммуПрописью(Шапка.СуммаДокумента, мВалютаРегламентированногоУчета);

ТабДокумент.Вывести(ОбластьМакета);

// Вывести Оплату и Сдачу.

СуммаОплат = 0;

СуммаБезналичныхОплат = 0;

СписокОплат = Новый Соответствие();

ВыборкаОплат = Шапка.Оплата.Выбрать();

Пока ВыборкаОплат.Следующий() Цикл

Если Шапка.ВидОперации = Перечисления.ВидыОперацийЧекККМ.Возврат

   И ВыборкаОплат.ВидОплаты.ТипОплаты <> Перечисления.ТипыОплатЧекаККМ.Наличные Тогда

СуммаБезналичныхОплат = СуммаБезналичныхОплат + ВыборкаОплат.Сумма;

КонецЕсли;

ЗаписьОплаты = СписокОплат.Получить(Строка(ВыборкаОплат.ВидОплаты.ТипОплаты));

Если ЗаписьОплаты = Неопределено Тогда

СписокОплат.Вставить(Строка(ВыборкаОплат.ВидОплаты.ТипОплаты), ВыборкаОплат.Сумма);

Иначе

СписокОплат.Вставить(Строка(ВыборкаОплат.ВидОплаты.ТипОплаты), ЗаписьОплаты + ВыборкаОплат.Сумма);

КонецЕсли;

СуммаОплат = СуммаОплат + ВыборкаОплат.Сумма;

КонецЦикла;

//Отдельная подготовка наличной оплаты для чека возврата

Если Шапка.ВидОперации = Перечисления.ВидыОперацийЧекККМ.Возврат Тогда

СписокОплат.Вставить(Строка(Перечисления.ТипыОплатЧекаККМ.Наличные), Шапка.СуммаДокумента — СуммаБезналичныхОплат);

КонецЕсли;

//ОбластьМакета = Макет.ПолучитьОбласть(«Оплата»);

//ОплатаДобавлена = Ложь;

//Для Каждого ЗнПеречисления Из Перечисления.ТипыОплатЧекаККМ Цикл

// ЗаписьОплаты = СписокОплат.Получить(Строка(ЗнПеречисления));

// Если ЗаписьОплаты <> Неопределено Тогда

// ОбластьМакета.Параметры.Оплата = ?(ОплатаДобавлена, ОбластьМакета.Параметры.Оплата + Символы.ПС, «»)

//                                + Строка(ЗнПеречисления) + «: »  + Формат(ЗаписьОплаты, «ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧН=; ЧГ=0»);

// ОплатаДобавлена = Истина;

// КонецЕсли;

//КонецЦикла;

//Если Шапка.ВидОперации = Перечисления.ВидыОперацийЧекККМ.Продажа Тогда

// ОбластьМакета.Параметры.Сдача = Формат(СуммаОплат — Шапка.СуммаДокумента, «ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧН=; ЧГ=0»);

//Иначе

// ОбластьМакета.Параметры.Сдача = «0.00»;

//КонецЕсли;

//ТабДокумент.Вывести(ОбластьМакета);

// Вывести подписи.

ОбластьМакета = Макет.ПолучитьОбласть(«Подвал»);

ТабДокумент.Вывести(ОбластьМакета);

  Возврат ТабДокумент;

///Печать Для кладовщика

Запрос = Новый Запрос;

Запрос.УстановитьПараметр(«ТекущийДокумент», СсылкаНаОбъект.Ссылка);

Запрос.УстановитьПараметр(«Дата», СсылкаНаОбъект.Дата);

Запрос.Текст = «ВЫБРАТЬ

               | ДокЧек.Номер,

               | ДокЧек.Дата,

               | ДокЧек.КассаККМ,

               | ДокЧек.Организация КАК Организация,

               | ВЫБОР

               | КОГДА ДокЧек.Организация.ЮрФизЛицо = ЗНАЧЕНИЕ(Перечисление.ЮрФизЛицо.ЮрЛицо)

               | ТОГДА ДокЧек.Организация.НаименованиеПолное

               | ИНАЧЕ «»ИП «» + ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследнихИП.Фамилия, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ ФИОФизЛицСрезПоследнихИП.Фамилия + «» «» + ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследнихИП.Имя, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ (ВЫРАЗИТЬ(ФИОФизЛицСрезПоследнихИП.Имя КАК СТРОКА(1))) + «». «»

               | КОНЕЦ + ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследнихИП.Отчество, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ (ВЫРАЗИТЬ(ФИОФизЛицСрезПоследнихИП.Отчество КАК СТРОКА(1))) + «».»»

               | КОНЕЦ

               | КОНЕЦ + «»»»

               | КОНЕЦ КАК НаименованиеОрганизации,

               | ДокЧек.СуммаДокумента,

               | ДокЧек.ВидОперации,

               | ДокЧек.Товары.(

               | НомерСтроки,

               | Номенклатура,

               | Номенклатура.Представление КАК Товар,

               | Номенклатура.НаименованиеПолное КАК ТоварПолноеНаименование,

               | Номенклатура.Код КАК Код,

               | Номенклатура.Артикул КАК Артикул,

               | Количество,

               | ЕдиницаИзмерения.Представление КАК ЕдиницаИзмерения,

               | Цена,

               | ПроцентСкидкиНаценки КАК Скидка,

               | ПроцентАвтоматическихСкидок КАК СкидкаАвтоматическая,

               | Сумма,

               | ХарактеристикаНоменклатуры КАК Характеристика,

               | СерияНоменклатуры КАК Серия,

               | БИТ_Склад КАК БИТ_Склад

               | ),

               | ДокЧек.Оплата.(

               | НомерСтроки,

               | ВидОплаты,

               | Сумма

               | ),

               | ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследних.Фамилия, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ ФИОФизЛицСрезПоследних.Фамилия + «» «» + ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследних.Имя, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ (ВЫРАЗИТЬ(ФИОФизЛицСрезПоследних.Имя КАК СТРОКА(1))) + «». «»

               | КОНЕЦ + ВЫБОР

               | КОГДА ЕСТЬNULL(ФИОФизЛицСрезПоследних.Отчество, «»»») = «»»»

               | ТОГДА «»»»

               | ИНАЧЕ (ВЫРАЗИТЬ(ФИОФизЛицСрезПоследних.Отчество КАК СТРОКА(1))) + «».»»

               | КОНЕЦ

               | КОНЕЦ КАК ФИО,

               | ВложенныйЗапрос.БИТ_Склад КАК БИТ_Склад

               |ИЗ

               | Документ.ЧекККМ КАК ДокЧек

               | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Пользователи КАК Пользователи

               | ПО (Пользователи.Ссылка = ДокЧек.Ответственный)

               | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ФизическиеЛица КАК ФизическиеЛица

               | ПО (Пользователи.ФизЛицо = ФизическиеЛица.Ссылка)

               | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&Дата, ) КАК ФИОФизЛицСрезПоследних

               | ПО (ФизическиеЛица.Ссылка = ФИОФизЛицСрезПоследних.ФизЛицо)

               | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних(&Дата, ) КАК ФИОФизЛицСрезПоследнихИП

               | ПО ДокЧек.Организация.ИндивидуальныйПредприниматель = ФИОФизЛицСрезПоследнихИП.ФизЛицо

               | ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ

               | ЧекККМТовары.Ссылка КАК Ссылка,

               | ЧекККМТовары.БИТ_Склад КАК БИТ_Склад

               | ИЗ

               | Документ.ЧекККМ.Товары КАК ЧекККМТовары

               | ГДЕ

               | ЧекККМТовары.Ссылка = &ТекущийДокумент

               |

               | СГРУППИРОВАТЬ ПО

               | ЧекККМТовары.Ссылка,

               | ЧекККМТовары.БИТ_Склад) КАК ВложенныйЗапрос

               | ПО ДокЧек.Ссылка = ВложенныйЗапрос.Ссылка

               |ГДЕ

               | ДокЧек.Ссылка = &ТекущийДокумент

               |

               |УПОРЯДОЧИТЬ ПО

               | ДокЧек.Товары.НомерСтроки

               |ИТОГИ ПО

               | БИТ_Склад»;

ВыборкаСклад=Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока ВыборкаСклад.Следующий()Цикл

ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();

        Шапка = Запрос.Выполнить().Выбрать();

Пока Шапка.Следующий()Цикл

ТабДокумент = Новый ТабличныйДокумент;

ТабДокумент.ИмяПараметровПечати = «ПАРАМЕТРЫ_ПЕЧАТИ_Товарный_Чек»;

Макет = ПолучитьМакет(«Товарный_Чек»);

// Выводим шапку накладной.

ОбластьМакета = Макет.ПолучитьОбласть(«Заголовок1»);

Если Шапка.ВидОперации = Перечисления.ВидыОперацийЧекККМ.Возврат Тогда

ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, «Чек (возврат)»);

Иначе

ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка,      «Товарный чек»);

КонецЕсли;

ОбластьМакета.Параметры.ПредставлениеПоставщика = «ИП Мерзакулов Р.М»;

ОбластьМакета.Параметры.ИНН = «»;

ОбластьМакета.Параметры.Склад= ВыборкаСклад.БИТ_Склад;

ТабДокумент.Вывести(ОбластьМакета);

ЕстьСкидки = Ложь;

//ВыборкаСтрокТовары = Шапка.Товары.Выбрать();

//Пока ВыборкаСтрокТовары.Следующий() Цикл

// Если ВыборкаСтрокТовары.Скидка + ВыборкаСтрокТовары.СкидкаАвтоматическая <> 0 Тогда

// ЕстьСкидки = Истина;

// КонецЕсли;

//КонецЦикла;

ОбластьНомера = Макет.ПолучитьОбласть(«ШапкаТаблицы1|НомерСтроки»);

ОбластьДанных = Макет.ПолучитьОбласть(«ШапкаТаблицы1|Данные»);

ОбластьСуммы  = Макет.ПолучитьОбласть(«ШапкаТаблицы1|Сумма»);

//ОбластьСклад = Макет.ПолучитьОбласть(«ШапкаТаблицы1|Склад»);

ТабДокумент.Вывести(ОбластьНомера);

ТабДокумент.Присоединить(ОбластьДанных);

ТабДокумент.Присоединить(ОбластьСуммы);

ОбластьКолонкаТовар = Макет.Область(«Товар»);

Если Не ЕстьСкидки Тогда

ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки

                                  + Макет.Область(«Сумма»).ШиринаКолонки;

КонецЕсли;

ОбластьНомера = Макет.ПолучитьОбласть(«Строка1|НомерСтроки»);

ОбластьДанных = Макет.ПолучитьОбласть(«Строка1|Данные»);   

ОбластьСуммы  = Макет.ПолучитьОбласть(«Строка1|Сумма»);   

//ОбластьСклад= Макет.ПолучитьОбласть(«Строка|Склад»);   Убираем область склад 

Сумма          = 0;

ВсегоСкидок    = 0;

ВсегоБезСкидок = 0;

ВыборкаСтрокТовары = Шапка.Товары.Выбрать();

Пока ВыборкаСтрокТовары.Следующий() Цикл

Если ВыборкаСтрокТовары.БИТ_Склад=ВыборкаСклад.БИТ_Склад ТОгда

  Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда

Сообщить(«В одной из строк не заполнено значение номенклатуры — строка при печати пропущена.», СтатусСообщения.Важное);

Продолжить;

КонецЕсли;

ОбластьНомера.Параметры.Заполнить(ВыборкаСтрокТовары); ///????

ТабДокумент.Вывести(ОбластьНомера);

ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокТовары);

ОбластьДанных.Параметры.Товар = ?(НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.ТоварПолноеНаименование),

                                ВыборкаСтрокТовары.Товар, ВыборкаСтрокТовары.ТоварПолноеНаименование)

                              + ФормированиеПечатныхФорм.ПредставлениеСерий(ВыборкаСтрокТовары);

ТабДокумент.Вывести(ОбластьНомера);   

ТабДокумент.Присоединить(ОбластьДанных);   

ТабДокумент.Вывести(ОбластьМакета);

Сумма          = Сумма + ВыборкаСтрокТовары.Сумма;

ВсегоБезСкидок = Сумма + ВсегоСкидок;

ТабДокумент.Присоединить(ОбластьСуммы);

КонецЕсли;

КонецЦикла;

// Вывести Итого.

ОбластьНомера = Макет.ПолучитьОбласть    («Итого1|НомерСтроки»);

ОбластьДанных = Макет.ПолучитьОбласть(«Итого1|Данные»);

ОбластьСуммы  = Макет.ПолучитьОбласть(«Итого1|Сумма»);

ТабДокумент.Вывести(ОбластьНомера);

ТабДокумент.Присоединить(ОбластьДанных);

ОбластьСуммы.Параметры.Всего = Сумма;

ТабДокумент.Присоединить(ОбластьСуммы);

    мВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();

// Вывести Сумму прописью.

ОбластьМакета = Макет.ПолучитьОбласть(«СуммаПрописью1»);

ОбластьМакета.Параметры.ИтоговаяСтрока = «Всего наименований » + ВыборкаСтрокТовары.Количество()

                                       + «, на сумму » + ОбщегоНазначения.ФорматСумм(Шапка.СуммаДокумента, мВалютаРегламентированногоУчета);

ОбластьМакета.Параметры.СуммаПрописью  = ОбщегоНазначения.СформироватьСуммуПрописью(Шапка.СуммаДокумента, мВалютаРегламентированногоУчета);

ТабДокумент.Вывести(ОбластьМакета);

// Вывести Оплату и Сдачу.

СуммаОплат = 0;

СуммаБезналичныхОплат = 0;

СписокОплат = Новый Соответствие();

ВыборкаОплат = Шапка.Оплата.Выбрать();

Пока ВыборкаОплат.Следующий() Цикл

Если Шапка.ВидОперации = Перечисления.ВидыОперацийЧекККМ.Возврат

   И ВыборкаОплат.ВидОплаты.ТипОплаты <> Перечисления.ТипыОплатЧекаККМ.Наличные Тогда

СуммаБезналичныхОплат = СуммаБезналичныхОплат + ВыборкаОплат.Сумма;

КонецЕсли;

ЗаписьОплаты = СписокОплат.Получить(Строка(ВыборкаОплат.ВидОплаты.ТипОплаты));

Если ЗаписьОплаты = Неопределено Тогда

СписокОплат.Вставить(Строка(ВыборкаОплат.ВидОплаты.ТипОплаты), ВыборкаОплат.Сумма);

Иначе

СписокОплат.Вставить(Строка(ВыборкаОплат.ВидОплаты.ТипОплаты), ЗаписьОплаты + ВыборкаОплат.Сумма);

КонецЕсли;

СуммаОплат = СуммаОплат + ВыборкаОплат.Сумма;

КонецЦикла;

//Отдельная подготовка наличной оплаты для чека возврата

Если Шапка.ВидОперации = Перечисления.ВидыОперацийЧекККМ.Возврат Тогда

СписокОплат.Вставить(Строка(Перечисления.ТипыОплатЧекаККМ.Наличные), Шапка.СуммаДокумента — СуммаБезналичныхОплат);

КонецЕсли;

// Вывести подписи.

ОбластьМакета = Макет.ПолучитьОбласть(«Подвал1»);

ТабДокумент.Вывести(ОбластьМакета);

КонецЦикла

  КонецЦикла;

//Возврат ТабДокумент;

КонецФункции // ПечатьЧека(