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

   Vbonivur

17.05.10 — 19:14

Процедура КоманднаяПанельНУЗаполнить(Кнопка)

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

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

                  |    НалоговыйОстатки.Счет КАК СчетКт,

                  |    НалоговыйОстатки.Субконто1 КАК СубконтоКт1,

                  |    НалоговыйОстатки.Субконто2 КАК СубконтоКт2,

                  |    НалоговыйОстатки.Субконто3 КАК СубконтоКт3,

                  |    НалоговыйОстатки.Организация КАК Организация,

                  |    НалоговыйОстатки.ВидУчета КАК ВидУчета,

                  |    НалоговыйОстатки.СуммаОстаток,

                  |    НалоговыйОстатки.СуммаОстатокДт КАК Сумма,

                  |    НалоговыйОстатки.СуммаОстатокКт,

                  |    НалоговыйОстатки.СуммаРазвернутыйОстатокДт,

                  |    НалоговыйОстатки.СуммаРазвернутыйОстатокКт,

                  |    НалоговыйОстатки.КоличествоОстаток,

                  |    НалоговыйОстатки.КоличествоОстатокДт КАК КоличествоКт,

                  |    НалоговыйОстатки.КоличествоОстатокКт,

                  |    НалоговыйОстатки.КоличествоРазвернутыйОстатокДт,

                  |    НалоговыйОстатки.КоличествоРазвернутыйОстатокКт

                  |{ВЫБРАТЬ

                  |    СчетКт.*,

                  |    СубконтоКт1.*,

                  |    СубконтоКт2.*,

                  |    СубконтоКт3.*,

                  |    Организация.*,

                  |    ВидУчета.*,

                  |    СуммаОстаток,

                  |    Сумма,

                  |    СуммаОстатокКт,

                  |    СуммаРазвернутыйОстатокДт,

                  |    СуммаРазвернутыйОстатокКт,

                  |    КоличествоОстаток,

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

                  |    КоличествоОстатокКт,

                  |    КоличествоРазвернутыйОстатокДт,

                  |    КоличествоРазвернутыйОстатокКт}

                  |ИЗ

                  |    РегистрБухгалтерии.Налоговый.Остатки КАК НалоговыйОстатки

                  |ГДЕ

                  |    НалоговыйОстатки.Счет = &Счет

                  |    И НалоговыйОстатки.Организация = &Орг

                  |

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

                  |    НалоговыйОстатки.Субконто3,

                  |    НалоговыйОстатки.Субконто2,

                  |    НалоговыйОстатки.Счет,

                  |    НалоговыйОстатки.Субконто1,

                  |    НалоговыйОстатки.Организация,

                  |    НалоговыйОстатки.ВидУчета,

                  |    НалоговыйОстатки.СуммаОстаток,

                  |    НалоговыйОстатки.СуммаОстатокДт,

                  |    НалоговыйОстатки.СуммаОстатокКт,

                  |    НалоговыйОстатки.СуммаРазвернутыйОстатокДт,

                  |    НалоговыйОстатки.СуммаРазвернутыйОстатокКт,

                  |    НалоговыйОстатки.КоличествоОстаток,

                  |    НалоговыйОстатки.КоличествоОстатокДт,

                  |    НалоговыйОстатки.КоличествоОстатокКт,

                  |    НалоговыйОстатки.КоличествоРазвернутыйОстатокДт,

                  |    НалоговыйОстатки.КоличествоРазвернутыйОстатокКт»;

   
   Запрос.УстановитьПараметр(«Орг»,Орг);

   Запрос.УстановитьПараметр(«Счет»,Счет);

   
   Док = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();

   Док.Дата = ТекущаяДата();

   НоваяСтрокаРегБух = Док.ТаблицаРегистровБухгалтерии.Добавить();

   НоваяСтрокаРегБух.Имя = «Налоговый»;

   НоваяСтрокаРегБух.Представление = «Журнал проводок (налоговый учет)»;

   НЗНалоговый = РегистрыБухгалтерии.Налоговый.СоздатьНаборЗаписей();

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

   Результат = Запрос.Выполнить();

   Док.Движения.Налоговый.Загрузить(Результат.Выгрузить());

   
   
   Форма = Док.ПолучитьФорму();

   Форма.Открыть();

   
   
КонецПроцедуры

При Выполнение это процедуры вылетает ошибка:

{Форма.Форма(78)}: Ошибка при вызове метода контекста (Загрузить): Требуется колонка вида субконто! (ВидСубконтоКт1)

   Док.Движения.Налоговый.Загрузить(Результат.Выгрузить());

по причине:

Требуется колонка вида субконто! (ВидСубконтоКт1)

Что делать не знаю. Помогите пожалуйста!

   Vbonivur

5 — 19.05.10 — 11:37

Процедура КоманднаяПанельНУЗаполнить(Кнопка)

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

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

   |    НалоговыйОстатки.Счет КАК СчетДт,

   |    НалоговыйОстатки.Субконто1,

   |    НалоговыйОстатки.Субконто2,

   |    НалоговыйОстатки.Субконто3,

   |    НалоговыйОстатки.Организация,

   |    НалоговыйОстатки.ВидУчета КАК ВидУчетаДт,

   |    НалоговыйОстатки.СуммаОстатокДт КАК Сумма,

   |    НалоговыйОстатки.КоличествоОстатокДт КАК КоличествоДт

   |{ВЫБРАТЬ

   |    СчетДт.*,

   |    Субконто1.*,

   |    Субконто2.*,

   |    Субконто3.*,

   |    Организация.*,

   |    ВидУчетаДт.*,

   |    Сумма,

   |    КоличествоДт}

   |ИЗ

   |    РегистрБухгалтерии.Налоговый.Остатки(&ДатаКон, Счет = &Счет, , Организация = &Орг) КАК НалоговыйОстатки

   |

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

   |    НалоговыйОстатки.Субконто3,

   |    НалоговыйОстатки.Субконто2,

   |    НалоговыйОстатки.Счет,

   |    НалоговыйОстатки.Субконто1,

   |    НалоговыйОстатки.Организация,

   |    НалоговыйОстатки.ВидУчета,

   |    НалоговыйОстатки.СуммаОстатокДт,

   |    НалоговыйОстатки.КоличествоОстатокДт»;

   
   Запрос.УстановитьПараметр(«Орг»,Орг);

   Запрос.УстановитьПараметр(«Счет»,Счет);

   Запрос.УстановитьПараметр(«ДатаКон»,ДатаКон);

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

   
   ДокКорректировка = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();

   ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокКорректировка.ЭтотОбъект, ПараметрыСеанса.ТекущийПользователь);

   ДокКорректировка.Дата = ДатаКон;

   ДокКорректировка.Комментарий = «Сторно остатков по счету: » + Счет + » (налоговый учет)»;

   НоваяСтрокаРегБух = ДокКорректировка.ТаблицаРегистровБухгалтерии.Добавить();

   НоваяСтрокаРегБух.Имя = «Налоговый»;

   НоваяСтрокаРегБух.Представление = «Журнал проводок (налоговый учет)»;

   
   НаборЗаписей = ДокКорректировка.Движения.Налоговый;

   
   НомСтр=0;

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

       НомСтр = НомСтр + 1;

       
       НоваяСтрока = НаборЗаписей.Добавить();

       ЗаполнитьЗначенияСвойств(НоваяСтрока,Выборка);

       НоваяСтрока.Период = ДатаКон;

       НоваяСтрока.ВидУчетаКт = Выборка.ВидУчетаДт;

       НоваяСтрока.СчетКт = ПланыСчетов.Налоговый.НайтиПоКоду(«000»);

       НоваяСтрока.КоличествоДт = (Выборка.КоличествоДт*-1);

       НоваяСтрока.Сумма = (Выборка.Сумма*-1);

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

           Для каждого ВидыСубконто Из НоваяСтрока.СчетДт.ВидыСубконто Цикл

               Для каждого ТипСубконто Из ВидыСубконто.ВидСубконто.ТипЗначения.Типы() Цикл

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

                       БухгалтерскийУчет.УстановитьСубконто(НоваяСтрока.СчетДт, НоваяСтрока.СубконтоДт,ВидыСубконто.ВидСубконто.Наименование, Выборка.Субконто1);

                       Прервать;

                   КонецЕсли;

               КонецЦикла;

           КонецЦикла;

       КонецЕсли;

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

           Для каждого ВидыСубконто Из НоваяСтрока.СчетДт.ВидыСубконто Цикл

               Для каждого ТипСубконто Из ВидыСубконто.ВидСубконто.ТипЗначения.Типы() Цикл

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

                       БухгалтерскийУчет.УстановитьСубконто(НоваяСтрока.СчетДт, НоваяСтрока.СубконтоДт,ВидыСубконто.ВидСубконто.Наименование, Выборка.Субконто2);

                       Прервать;

                   КонецЕсли;

               КонецЦикла;

           КонецЦикла;

       КонецЕсли;

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

           Для каждого ВидыСубконто Из НоваяСтрока.СчетДт.ВидыСубконто Цикл

               Для каждого ТипСубконто Из ВидыСубконто.ВидСубконто.ТипЗначения.Типы() Цикл

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

                       БухгалтерскийУчет.УстановитьСубконто(НоваяСтрока.СчетДт, НоваяСтрока.СубконтоДт,ВидыСубконто.ВидСубконто.Наименование, Выборка.Субконто3);

                       Прервать;

                   КонецЕсли;

               КонецЦикла;

           КонецЦикла;

       КонецЕсли;

       
       ОбработкаПрерыванияПользователя();

       
   КонецЦикла;

   
   Попытка

   Исключение

   КонецПопытки;

   
   
   ФормаДок = ДокКорректировка.ПолучитьФорму();

   ФормаДок.Открыть();                

   
   
КонецПроцедуры

Выше процедура по заполнению документа корректировка записей ригистра по регистрам бухгалтерии (налоговый учет). Работает в УПП.

Может кому пригодится…

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

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

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

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

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

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

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

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

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

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

Содержание:

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

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

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

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


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

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

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

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

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

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

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

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

Ошибка Неоднозначное поле

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

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

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

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

Исправление ошибки несоответствия типов (Параметр номер 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»);

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

КонецЦикла

  КонецЦикла;

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

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

Довольно часто начинающие 1С разработчики сталкиваются с ошибками, которых достаточно легко избежать. Ниже мы рассмотрим топ 11 ошибок и способы их исправления. Также доступна видеоверсия статьи

Содержание

Поле объекта не обнаружено

1С ошибка Поле объекта не обнаружено

Существует множество статей, которые описывают возможные причины возникновения в 1С ошибки “Поле объекта не обнаружено”. Порой это связывают с обновлением платформы, обновлением типового релиза, или с какими-то другими причинами.

Мы же будем оперировать фактами. В конце статьи прилагается внешняя обработка, в которой воспроизведена данная ошибка.

Такое сообщение платформа выдает, когда пытается обратиться к свойству объекта языка, которого у данного объекта нет. Не важно, что это за объект – документ, справочник, таблица значений , или сообщение пользователю.

  • Удалили табличную часть, к которой обращаемся в коде?
  • Переименовали реквизит, а в коде не исправили?
  • Заменили значение со ссылки на неопределено?

Вуаля – платформа выдаст ошибку “Поле объекта не обнаружено”!

Как исправить? Исходя из природы ошибки – переименовать реквизит на нужное имя, отредактировать код, или использовать правильные обращения к стандартным свойствам объекта.

Например, у объекта “СообщениеПользователю” нет свойства “Таблица”, и следующий код приведет к ошибке:

Сообщение = Новый СообщениеПользователю;
Сообщение.Таблица = “Ошибка”;

Индекс находится за границами массива

1С ошибка Индекс находится за пределами массива

Что означает такое сообщение системы? Как правило, с данной ошибкой разработчик сталкивается при некорректной работе с коллекциями. Самые частые случаи появления ошибки “Индекс находится за границами массива”.

  • Использование при обходе коллекции количества элементов вместо индекса. Индексы начинаются с нуля, а количество элементов – с единицы. Поэтому следующий код гарантированно приведет к ошибке: Массив[Массив.Количество()]
  • Последствия удаления элементов из коллекции, очистки коллекции или замены коллекции на пустую
  • Ошибочное увеличение счетчика в цикле “Для”

 Как исправить? Для удаления элементов из коллекции по условию – использовать обратный цикл. Добавлять условие на соответствие счетчика цикла и индекса массива. Не увеличивать счетчик внутри кода цикла Для … Цикл … КонецЦикла

Обращение к процедуре как к функции

ОШибка

Суть этой ошибки в том, что процедура не может возвращать значение. И если мы в коде используем вызов процедуры справа от знака присваивания, это приведет к ошибке.

Данная ошибка имеет две вариации – если используется стандартная процедура из методов какого-нибудь объекта, то фраза будет звучать “Обращение к процедуре объекта как к функции”. Если же использовать процедуру, объявленную в коде, то текст ошибки будет “Обращение к процедуре как к функции”.
При этом ошибка использования процедуры объекта является ошибкой времени выполнения – т.е. на этапе сохранения и проверки конфигурации платформа эту ошибку не обнаружит.

А вот неправильное использование процедуры синтаксическая проверка (Ctrl + F7) успешно обнаруживает, и не даст сохранить конфигурацию или внешнюю обработку/отчет, пока ошибка не будет устранена.

Рассмотрим два примера:

1. Воспроизведем ошибку “Обращение к процедуре как к функции”. При этом платформа не даст сохранить изменения, т.к. не проходит синтакс-контроль.

2. Воспроизведем ошибку “Обращение к процедуре объекта как к функции”. Здесь мы неверно используем метод объекта массива “Добавить”, который является процедурой.

Как исправить? Ошибка тривиальная, и исправление тоже. Чаще всего, достаточно внимательно прочитать описание методов объекта во встроенной справке или синтакс-помощнике. Если метод является процедурой, то значений он возвращать не может. Следовательно, нужно модифицировать код так, чтобы такого ошибочного вызова не было.
Если же используется процедура, объявленная в коде, возможно, есть необходимость изменить ее на функцию, либо также скорректировать код, который эту процедуру использует.

Процедура не может возвращать значение

Родственная предыдущей ошибка. Для того, чтобы код возвращал какое-то значение, следует этот код размещать в функции, а не в процедуре.

В процедуре можно написать ключевое слово “Возврат” без параметров. Это будет означать выход из процедуры.

Следующий код является ошибочным, т.к. в теле процедуры Возврат используется с параметром:

Процедура ПроцедураНеМожетВозвращатьЗначение(Команда)
Возврат "Ошибка";
КонецПроцедуры

Как исправить? Платформа сама подсказывает, в каком месте кода ошибка. Нужно изменить текст модуля – либо удалить параметр у ключевого слова Возврат, либо убрать его вовсе, либо изменить процедуру на функцию – зависит от того, какая логика у вашей процедуры, и как вы предполагаете ее использовать.

Переменная не определена

Такой текст ошибки платформа 1С выдает на этапе синтаксического контроля, при сохранении конфигурации, внешнего отчета или обработки.
Причин у этой ошибки может быть несколько.

  • Опечатка в имени переменной
  • Обращение к переменной, которая нигде в области видимости не объявлена (неявной инициализацией с присвоением значения, явным образом с использованием ключевого слова “Перем”, или передана в качестве параметра)
  • Написание на клиенте серверного кода. Например, обращение к менеджеру справочников “Справочники”, и т.п. Клиентская часть приложения “не видит ” серверные объекты языка
  • Также ошибка может появиться, если ранее код использовался в режиме толстого клиента, но после был запущен в тонком клиенте.

Как исправить?

Внимательно следить за правильностью набранного кода, своевременно объявлять переменные или передавать их в качестве параметров. Писать серверный код только в серверных модулях, а также использовать соответствующие инструкции препроцессора, например “&НаСервере”.

Значение не является значением объектного типа

Ошибка “Значение не является значением объектного типа” может возникнуть при неверном обращении к объекту языка. Объектный тип – это такие объекты языка, которые содержат в себе другие объекты – свойства, реквизиты и т.п. Эти свойства доступны через точку, например “Объект.СвойствоЭтогоОбъекта”

Но если через точку попытаться использовать какое-то значение, которое внутри себя свойств не имеет – например, любое значение примитивного типа – это и приведет к ошибке.

Разберем более сложный пример:

&НаСервере
Процедура ЗначениеНеЯвляетсяЗначениемОбъектногоТипаНаСервере(Справочники = Ложь)
Сообщить(Справочники.Сотрудники.ПустаяСсылка());
КонецПроцедуры

Ошибка может быть “плавающей”. Если вместо параметра по умолчанию “Справочники = Ложь” будет передан менеджер справочников, то ошибки возникать не будет. А если вызвать процедуру без параметров, то будет использоваться параметр по умолчанию с типом Булево, что и приведет к ошибке.

Чаще всего чтобы исправить ошибку, нужно в отладчике посмотреть, какой тип значения используется. Можно внести изменения в код, чтобы обеспечить корректное поведение (например, в запросе вместо наименования товара выбрать ссылку, и в коде через точку уже обращаться к свойствам ссылки, а не текстового наименования). А можно добавить проверку на нужный тип значения. Т.е. – если значение того типа, который мы ожидаем – выполняем код. Иначе – не выполняем.

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

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

Обнаружены ошибки в 1С Синтаксическая ошибка

В языке 1С у разных объектов (запросов, справочников, табличных документов и др.) есть предопределенные методы, предусмотренные платформой. Обращение к этим методам требует соблюдения порядка и параметров, правильного синтаксиса и соблюдения условий использования. Например, при чтении табличного документа из файла он не должен быть открыт в другой программе, при подключении к http-соединению оно должно быть доступно, и т.п.

Если эти условия не соблюдать, платформа в зависимости от версии может выдавать сообщения вида “Ошибка при вызове метода контекста”, и далее будут следовать более подробные сведения об ошибке – стек вызовов, приведших к ошибке, номер строки и позиции в строке, где произошла ошибка.

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

  1. Записать
  2. Прочитать
  3. Выполнить
  4. Создать
  5. ПроверитьВывод

Разберем эту ошибку на примере метода Выполнить объекта Запрос:

Запрос = Новый Запрос("ВЫБРАТЬ ПЕРВЫЕ 1 1 ГДЕ ИСТИНА И");
Запрос.Выполнить();

В тексте запроса допущена ошибка –  после первого условия “ГДЕ ИСТИНА” указан оператор И, но после него нет еще одного условия. В результате при попытке выполнения запроса, платформа вернет ошибку.

Для исправления ошибки зачастую достаточно внимательно использовать методы, при необходимости уточнять порядок, количество и тип параметров – это можно сделать в справке или синтакс-помощнике (встать курсором на имя метода в коде, и нажать сочетание клавиш Ctrl+F1). В случае запроса – нужно передавать синтаксически корректный текст запроса; в случае проверки вывода на печать – в системе должен быть установлен принтер; в случае подключения к почте – должны быть корректно указаны логин и пароль, и т.п.

Тип не может быть выбран в запросе в 1С 8.3 (8.2)

Ошибка Тип не может быть выбран в запросе

С такой ошибкой начинающие разработчики (да и не только начинающие 😉 ) сталкиваются чаще всего, при чтении запросом данных из таблиц значений, либо из регистров сведений. Все дело в том, что запросы поддерживают далеко не все типы значений. Так, например, нельзя запросом выбрать тип Картинка, ХранилищеЗначений, Шрифт, и многие другие типы, которые не относятся к примитивным или ссылочным типам значений.

Так, если ресурс регистра сведений имеет тип ХранилищеЗначений, выбрать его запросом будет нельзя. Также, если в таблицу значений поместить значения не подходящих типов, а после передать эту таблицу в качестве параметра-источника данных, выполнение запроса также приведет к ошибке “Тип не может быть выбран в запросе”.

Еще одна ситуация, когда запрос будет выдавать ошибку – если таблица значений, которая передается в качестве параметра, имеет не типизированные колонки.

Неверно:

//ТЗОшибочныйТип.Колонки.Добавить("Контрагент");

Верно:

//ТЗОшибочныйТип.Колонки.Добавить("Контрагент", Новый ОписаниеТипов("СправочникСсылка.Контрагенты"));

Для исправления ошибки нужно правильным образом инициализировать колонки таблицы значений, а также не обращаться в запросе к полям, типы которых запросами не поддерживаются.

Использование в 1С модальных окон в данном режиме запрещено

Ошибка Использование в 1С модальных окон в данном режиме запрещено​

Платформа будет выдавать такое сообщение, если в коде используются методы, приводящие к открытию модальных окон. Модальные окна – это окна, которые при открытии блокируют весь остальной интерфейс. В 1С есть несколько модальных методов – например – “Вопрос”, “ОткрытьЗначение”, “Предупреждение”. Кроме того, в коде может использоваться модальный синтаксис открытия форм: “ОткрытьМодально()”

Если в свойствах конфигурации выбран режим использования модальности “Не использовать”, то выполнение модальных методов будет приводить к этой ошибке “Использование в 1С модальных окон в данном режиме запрещено”.

Для устранения ошибки можно пойти несколькими путями. Как водится, один – быстрый, другой – правильный 🙂

Быстрый способ – переключить режим использования модальности в положение “Использовать”.

Более правильный способ – использовать в коде немодальные вызовы методов. Например, у метода “Вопрос” есть немодальный аналог  – “ПоказатьВопрос”, у метода “Предупреждение” – “ПоказатьПредупреждение”, и т.п. Чаще всего об этих методах дополнительно указано в синтакс-помощнике и справке.

Кроме того, в последних версиях платформы появились асинхронные методы – “ВопросАсинх”, “ПредупреждениеАсинх” и др. Появление этих методов позволяет писать более простой и понятный асинхронный код, и направлено в первую очередь, на более полноценную поддержку браузерами и работу в веб-клиенте.

1С 8.3 и 8.2: Запись с такими ключевыми полями существует!

Данная ошибка появляется при некорректной записи в регистр сведений. Чаще всего с этой ошибкой сталкиваются начинающие разработчики, не до конца понимающие механизмы работы с ключевыми полями (измерениями).

Суть ошибки следующая – регистр сведений позволяет записать запись (строку таблицы) с уникальным набором ключевых полей – а для периодических регистров также и поля Период. Если следующая запись полностью повторяет значение ключевых полей, но осуществляется методом Записать с параметром Замещать = Истина, то запись в таблице регистра просто заменится на идентичную.

Однако если поместить две абсолютно одинаковые записи в набор записей, и попытаться его записать – платформа выдаст ошибку. Еще один распространенный случай, когда 1С сообщает “Запись с такими ключевыми полями существует” – это запись в периодический регистр сведений с периодичностью от “День” и выше, подчиненный регистратору.

В типовых конфигурациях часто эту ошибку можно воспроизвести, если в пользовательском режиме создать два документа “Установка цен номенклатуры” с одной и той же номенклатурой и за один и тот же день. Попытка провести второй документ приведет к ошибке.

В случае, когда ошибка возникает не в результате действий пользователя, а при выполнении кода, чтобы устранить ее, чаще всего необходимо проанализировать алгоритм записи в регистр. Если запись осуществляется одним набором данных, его предварительно нужно свернуть до уникальных записей. Например, выгрузить в таблицу значений, свернуть, и загрузить в набор записей.

Поле объекта недоступно для записи в 1С

Ошибка Поле объекта недоступно для записи в 1С​

Чаще всего начинающие программисты 1С сталкиваются с этой ошибкой в двух ситуациях.

Первый случай – это попытка редактирования системных полей, недоступных для записи. Например, в модуле формы сама форма будет содержаться в объекте ЭтаФорма. И попытка присвоить этому реквизиту любое значение приведет к ошибке “Поле объекта недоступно для записи”.

Второй случай – и с ним новички как раз допускают больше всего ошибок – это попытка редактирования полей ссылки, а не самого объекта. Чаще всего код выглядит примерно так:

Элемент = Справочники.Сотрудники.НайтиПоКоду("12345");
Элемент.Наименование = "Новое наименование";

 

Исполнение данного кода приведет к ошибке, т.к. поля ссылки доступны только для чтения, а метод НайтиПоКоду вернет именно ссылку. Чтобы можно было внести изменения, следует из ссылки получить сам объект – используя соответствующий метод ПолучитьОбъект().

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

Ссылка на обработку

По ссылке вы можете скачать внешнюю обработку, в которой воспроизводится большая часть ошибок, описанных в статье. Для воспроизведения части ошибок нужно будет убрать комментарии в коде.

Заключение

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

Ermak
11.10.2012 18:42 Прочитано: 5762

Добрый вечер! Создал Табличное поле, добавил три колонки (Флажок, Код, Имя), сделал запрос по заполнению Код 1C v 8.х

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

Таблица заполнилась, только колонка Флажок пустая, Код заполнился, имя тоже пустое, в чем дело может быть?

Yandex
Возможно, вас также заинтересует

Реклама на портале

Ermak
11.10.2012 18:50 Ответ № 1

Исправил:Код 1C v 8.х

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

Теперь заполняет колонку Имя, но выдает ошибку

{Форма.Форма.Форма(60)}: Ошибка при вызове метода контекста (ВыгрузитьКолонку)
ТЗ2=ТабличноеПоле.ВыгрузитьКолонку(«Наименование»);
по причине:
Недопустимое значение параметра (параметр номер ‘1’) (Колонка не принадлежит коллекции)

Ermak
11.10.2012 18:52 Ответ № 2

Разобрался с ошибкой, но еще не понятно почему колонка Флажок пустая?

E_Migachev
11.10.2012 23:42 Ответ № 3

(2) Ermak, так колонку флажок тоже нужно заполнить

Ermak
12.10.2012 16:32 Ответ № 4

(3) E_Migachev, В справочнике этой колонки нет я ее создаю сам, как мне ее заполнить? Еще пытался через запрос выполнить выгрузку моего Табличного поля так и не получилось, можете подсказать как.
P.S. Если справочник выгружать в файл через запрос это у меня получилось а как табличное поле обработки выгружать через запрос не знаю.

Ermak
12.10.2012 16:58 Ответ № 5

С колонкой я разобрался, спасибо, как теперь выгрузить?

E_Migachev
12.10.2012 23:10 Ответ № 6

(5) Ermak, выгрузить что? то что получилось в ТЗ?

Ermak
13.10.2012 00:18 Ответ № 7

да то что получится в ТЗ

Ermak
15.10.2012 16:49 Ответ № 8

Вопрос закрыт!

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

Понравилась статья? Поделить с друзьями:
  • Ошибка при вызове метода контекста заблокировать конфликт блокировок
  • Ошибка при вызове метода контекста заблокировать использование
  • Ошибка при вызове метода контекста заблокировать блокировка заблокировать
  • Ошибка при вызове метода контекста документ не выбран
  • Ошибка при вызове метода контекста вызватьhttpметод