Ошибка отображения типов отсутствует отображение для типа интернетпочтовыйпрофиль

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

https://disk.yandex.ru/i/bTk0282HaaGC2Q

https://disk.yandex.ru/i/Y2undFzJ11HVSQ

Получаю ошибку:

Ошибка отображения типов:

Отсутствует отображение для типа ‘{http://v8.1c.ru/8.1/data/core}ValueTable’

Не могу понять, что не так?

Причем процедура ПриСозданииНаСервере() открываемой формы отрабатывает без ошибок. Ошибка возникает, когда вызов возвращается в ОткрытьФорму().

Подскажите, что делаю не так, в чем ошибка?

(1) Поэтому и не понимаю, где ошибка. Вижу, что говорит, но так же вижу и в отладке, что я передаю — см. 2 скриншот, там ТЗ нет, только ссылки и простые типы.

(2) Если вы про поиск, то, естественно, им пользовался, ответа на свой вопрос не нашел.

>> Причем процедура ПриСозданииНаСервере() открываемой формы отрабатывает без ошибок. Ошибка возникает, когда вызов возвращается в ОткрытьФорму()

Значит скрины не актуальны. Вы нас в заблуждение ими вводите.

«Курите» код по всем событиям в открываемой форме , начина с ПриСозданииНаСервере()

Всем спасибо, разобрался, проблема оказалась в другом. (5) Вот тут на скрине полностью не видно, но в открываемой форме я создаю ТЗ и пытаюсь передать ее в качестве параметра в динамический список, чего, оказывается делать нельзя.

Ввело в заблуждение то, что исключение вызывалось после вызова ОткрытьФорму(), а само создание формы (ПриСозданииНаСервере) отрабатывало без ошибок.

ДедМорроз

14 — 26.02.22 — 19:56

Здравствуйте, есть функция на сервере , она возвраша5ет переменую на клиент с типом «ТаблицаЗначений»

но выскакиет ошибка Ошибка отображения типов:

Отсутствует отображение для типа ‘{http://v8.1c.ru/8.1/data/core}ValueTable’,

я как понял он не может передать данный тип переменной обраьно на клиент, как с этим бороться и как передать результат фунции на клиент обратно если у нее тип ТаблицаЗначений

ТаблицаЗначений. Доступность: Сервер, толстый клиент, внешнее соединение.

Если клиент тонкий или веб, то использовать ТЗ нельзя.

Как вариант использовать массив структур

(21) ТЗ может быть реквизитом формы. В этом случае работать с ней на клиенте можно.

Программно создать объект на клиенте нельзя.

(22) а начнем сначала, а зачем ТЗ на клиенте?

(23) лично я не могу раличать интерфейсы тонкого и толстого клиента

&НаСервере

Функция ПолучитьМакет()
ЭтотОбъект = РеквизитФормыВЗначение("Объект");
Возврат ЭтотОбъект.ПолучитьМакет("Макет");
КонецФункции
&НаСервере
Функция ДайВидИТС(Вид)
Если Вид = Перечисления.ВидыИТС.ИТСПрофПлат Тогда
Возврат 10;
ИначеЕсли    Вид = Перечисления.ВидыИТС.ИТСТехно Тогда     
Возврат 4;      
ИначеЕсли    Вид = Перечисления.ВидыИТС.ИТСПрофБесплатный Тогда 
Возврат 16;      
ИначеЕсли    Вид = Перечисления.ВидыИТС.ИТСБюджет Тогда 
Возврат 7;      
ИначеЕсли    Вид = Перечисления.ВидыИТС.ИТСБюджетПроф Тогда 
Возврат 8;      
ИначеЕсли    Вид = Перечисления.ВидыИТС.ИТСБюджетПрофБесплатный Тогда 
Возврат 9;      
ИначеЕсли    Вид = Перечисления.ВидыИТС.ИТССтроительство Тогда 
Возврат 18;      
ИначеЕсли    Вид = Перечисления.ВидыИТС.ИТССтроительствоБесплатный Тогда 
Возврат 17;      
ИначеЕсли    Вид = Перечисления.ВидыИТС.ИТСМедицина Тогда 
Возврат 65;      
ИначеЕсли    Вид = Перечисления.ВидыИТС.ИТСПрофГоловной Тогда 
Возврат 19;      
ИначеЕсли    Вид = Перечисления.ВидыИТС.ИТСДляУдаленного Тогда 
Возврат 20;      
КонецЕсли;
КонецФункции// ДайВидИТС()

&НаСервере
Функция ДайМыло()
Возврат Справочники.ВидыКонтактнойИнформации.EmailКонтрагента;
КонецФункции// ДайМыло()

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

&НаСервере
Функция ДайПолнНаименование (Контрагент)
Возврат  Контрагент.НаименованиеПолное;
КонецФункции// ДайПонНаименование (Контрагент)()

&НаСервере
Функция ДайИНН (Контрагент)
Возврат  Контрагент.ИНН;
КонецФункции// ДайПонНаименование (Контрагент)()

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

&НаКлиенте
Процедура Заполнить()
попытка
Макет = ПолучитьМакет();
Эксель = Новый COMОбъект("Excel.Application");
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("XLS");
Макет.Записать(ИмяВременногоФайла);
Книга = Эксель.WorkBooks.Open(ИмяВременногоФайла);
//Эксель.Documents.Open(ИмяВременногоФайла);

Исключение
Сообщить("Возможно у вас не установлена программа Microsoft Office: Word ("+ОписаниеОшибки()+")");
Возврат ;
конецпопытки;
Лист = Книга.WorkSheets(1);
i = 11;
j = 1;
Для каждого Стр из Таблица Цикл
Контрагент = Стр.Контрагент;     
//  Договор = Стр.Договор;

//-- Заполнение строки Excel

Книга.Sheets(1).Cells(i,1).Value  = j;
Книга.Sheets(1).Cells(i,2).Value  = "13942-78";
Книга.Sheets(1).Cells(i,3).Value  = 1;
Книга.Sheets(1).Cells(i,4).Value  = "32855-40";
Книга.Sheets(1).Cells(i,5).Value = ДайВидИТС(Стр.ВидИТС);
Книга.Sheets(1).Cells(i,6).Value  = Стр.РегНомер;
Книга.Sheets(1).Cells(i,7).Value  = ДайПолнНаименование(Стр.Контрагент);
Книга.Sheets(1).Cells(i,8).Value  = ДайИНН (Стр.Контрагент);
Книга.Sheets(1).Cells(i,9).Value  = Стр.КолВоРабМест;
Книга.Sheets(1).Cells(i,10).Value  = "";
Книга.Sheets(1).Cells(i,11).Value  = "";
Книга.Sheets(1).Cells(i,12).Value  = Стр.Контакт;
Книга.Sheets(1).Cells(i,13).Value  = "";
Книга.Sheets(1).Cells(i,14).Value  = ДайГород (Стр.Контрагент);  // фактический

Книга.Sheets(1).Cells(i,15).Value  = "";
Книга.Sheets(1).Cells(i,16).Value  = "";
Книга.Sheets(1).Cells(i,17).Value  = "";
Книга.Sheets(1).Cells(i,18).Value  = "";
Книга.Sheets(1).Cells(i,19).Value  = Стр.КодГорода;//ручками

Книга.Sheets(1).Cells(i,20).Value  = Стр.Телефон;//ручками

Книга.Sheets(1).Cells(i,21).Value  = "";
Книга.Sheets(1).Cells(i,22).Value  = ДайМыло2(Стр.Контрагент, ДайМыло());
Книга.Sheets(1).Cells(i,23).Value  = "";
Книга.Sheets(1).Cells(i,24).Value  = "";
Книга.Sheets(1).Cells(i,25).Value  = "";
Книга.Sheets(1).Cells(i,26).Value  = Формат(Стр.ДатаНачала,"ДФ=MM.yy");
Книга.Sheets(1).Cells(i,27).Value  = Стр.Выпусков; 
Книга.Sheets(1).Cells(i,28).Value  = Стр.Способ; 
Книга.Sheets(1).Cells(i,29).Value  = Стр.РегНомер1; 
Книга.Sheets(1).Cells(i,30).Value  = Стр.РегНомер2; 
Книга.Sheets(1).Cells(i,31).Value  = Стр.РегНомер3; 
Книга.Sheets(1).Cells(i,32).Value  = Стр.РегНомер4; 
Книга.Sheets(1).Cells(i,32).Value  = Стр.РегНомер5; 
//+ рег номера

//-- -- -- -- -- -- -- -- --

j = j + 1;
i = i + 1;
КонецЦикла;     
Попытка
Книга.SaveAs("C:1.xls");
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
КонецПопытки;
Эксель.Application.Quit(); 
НоваяКартинка = БиблиотекаКартинок.СостояниеОбменаДаннымиУспех;
Элементы.Заполнить.Картинка = НоваяКартинка;
Элементы.Заполнить.Заголовок = "Заполнено!";
КонецПроцедуры// Заполнить()

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

ТаблицаРезультатов = Результат.Выгрузить();
МассивТоваров = ТаблицаРезультатов.ВыгрузитьКолонку("РегНомер");
ДанныеВыбора = Новый СписокЗначений;
ДанныеВыбора.ЗагрузитьЗначения(МассивТоваров);
Элементы.ТаблицаРегНомер.СписокВыбора.ЗагрузитьЗначения(МассивТоваров);
Элементы.ТаблицаРегНомер1.СписокВыбора.ЗагрузитьЗначения(МассивТоваров);
Элементы.ТаблицаРегНомер2.СписокВыбора.ЗагрузитьЗначения(МассивТоваров);
Элементы.ТаблицаРегНомер3.СписокВыбора.ЗагрузитьЗначения(МассивТоваров);
Элементы.ТаблицаРегНомер4.СписокВыбора.ЗагрузитьЗначения(МассивТоваров);
Элементы.ТаблицаРегНомер5.СписокВыбора.ЗагрузитьЗначения(МассивТоваров);
//    Пока Выборка.Следующий() Цикл

//        ДанныеВыбора.Добавить(Выборка.РегНомер);
//    КонецЦикла;

Возврат ДанныеВыбора;
КонецФункции// ДайРегНомера()

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

&НаКлиенте
Процедура ТаблицаКонтрагентПриИзменении(Элемент)
Строка = Элементы.Таблица.ТекущиеДанные;    
Список =  ДайРегНомера(Строка.Контрагент); 
Контакты = ДайКонтакты(Строка.Контрагент); 
КонецПроцедуры
&НаКлиенте
Процедура Запустить(Команда)
ЗапуститьПриложение("C:1.xls");
КонецПроцедуры
&НаКлиенте
Процедура Отправить(Команда)
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru"; 
Профиль.ПортSMTP = 587;
Профиль.Пользователь = "info@allzon.ru";
Профиль.Пароль = "38gjgeuftd";
Профиль.АутентификацияSMTP     = СпособSMTPАутентификации.Login;
Профиль.ПарольSMTP           = "38gjgeuftd";
Профиль.ПользовательSMTP     = "info@allzon.ru"; 
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Исключение
Сообщить("Ошибка при подключении к серверу" + ОписаниеОшибки());
Возврат;
КонецПопытки;
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Отправитель = "info@allzon.ru";
Сообщение.Получатели.Добавить("itsrobot@1c.ru");
Сообщение.Тема = "Выгрузка ИТС";
Сообщение.Тексты.Добавить("Сабж",ТипТекстаПочтовогоСообщения.HTML);
Сообщение.Вложения.Добавить("C:1.xls");
Почта.Послать(Сообщение);
Почта.Отключиться();
//Попытка

//    УдалитьФайлы ("C:1.xls");

//Исключение

//    Сообщить(ОписаниеОшибки());

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

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

&НаСервере
Функция ПустойКонтрагент()
Возврат Справочники.Контрагенты.ПустаяСсылка();
КонецФункции// ПустойКонтрагент()

&НаСервере
Функция ВидИТС (Строка)
Если строка = "ИТС Проф DVD Бесплатный" Тогда
Возврат  Перечисления.ВидыИТС.ИТСПрофБесплатный;
ИначеЕсли строка = "ИТС Бюджет Проф" Тогда    
Возврат  Перечисления.ВидыИТС.ИТСБюджетПроф;
ИначеЕсли строка = "ИТС Бюджет Проф Бесплатный" Тогда    
Возврат  Перечисления.ВидыИТС.ИТСБюджетПрофБесплатный;
ИначеЕсли строка = "ИТС Технологическая поставка" Тогда    
Возврат  Перечисления.ВидыИТС.ИТСТехно;    
ИначеЕсли строка = "ИТС для удаленного офиса" Тогда    
Возврат  Перечисления.ВидыИТС.ИТСДляУдаленного;    
ИначеЕсли строка = "ИТС Франчайзинговый" Тогда    
Возврат  Перечисления.ВидыИТС.Отсутствует;    
ИначеЕсли строка = "ИТС Проф DVD" Тогда    
Возврат  Перечисления.ВидыИТС.ИТСПрофПлат;        
ИначеЕсли строка = "ИТС Строительство Бесплатный" Тогда    
Возврат  Перечисления.ВидыИТС.ИТССтроительствоБесплатный;            
ИначеЕсли строка = "ИТС Медицина" Тогда    
Возврат  Перечисления.ВидыИТС.ИТСМедицина;                
КонецЕсли;    
КонецФункции// ВидИТС()

&НаКлиенте
Функция Дата_(стрДата)
стрДата_ = СокрЛП(СтрЗаменить(стрДата,".",""));
датДата = Сред(стрДата_,5)+Сред(стрДата_,3,2)+Лев(стрДата_,2);
Если СтрДлина(стрДата_)=6 Тогда
датДата = "20"+датДата;
КонецЕсли;            
//Сообщить(датДата+"="+стрДата);

Попытка
Возврат Дата(датДата);
Исключение
Возврат Дата(0);
КонецПопытки;
КонецФункции   // Дата_

&НаКлиенте
Процедура Загрузить(Команда)
перем ИмяФайла;
Попытка
Ex = Новый COMОбъект("Excel.Application");
Ex.WorkBooks.Open(ИмяФайла);
Состояние("Обработка файла Microsoft Excel...");
Исключение
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбораФайла.Заголовок = "Прочитать табличный документ из файла";
ДиалогВыбораФайла.Фильтр    = "Лист Excel (*.xls)|*.xls|";
Если ДиалогВыбораФайла.Выбрать() Тогда
ИмяФайла = ДиалогВыбораФайла.ПолноеИмяФайла;
КонецЕсли;
Ex = Новый COMОбъект("Excel.Application");
Ex.WorkBooks.Open(ИмяФайла);
КонецПопытки;
Элементы.Состояние.Заголовок = "Открыт файл: " + ИмяФайла;
i=7;
j = 0;
ActiveCell = Ex.ActiveCell.SpecialCells(11);
RowCount = ActiveCell.Row;
Пока (НЕ ПустаяСтрока(ex.Sheets(1).Cells(i,1).Value))  Цикл
Строка = НайдиКонтрагента (строка(ex.Sheets(1).Cells(i,3).Value),строка(ex.Sheets(1).Cells(i,2).Value));
Если Строка <> ПустойКонтрагент () Тогда
Стр = Загрузка.Добавить();
Стр.Контрагент = Строка;
Стр.ВидИТС =  ВидИТС (ex.Sheets(1).Cells(i,7).Value);
Стр.Дата  = Дата_(ex.Sheets(1).Cells(i,5).Value);
j = j + 1;
Иначе
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не найден контрагент: " + строка(ex.Sheets(1).Cells(i,3).Value) + " с номером " + строка(ex.Sheets(1).Cells(i,2).Value);
Сообщение.Сообщить();
КонецЕсли;
i = i + 1;
КонецЦикла;    
Элементы.Состояние.Заголовок = Элементы.Состояние.Заголовок + " ---  Загружено " + j + " позиций из " + (i-7) ;    
Ex.Application.Quit();     
КонецПроцедуры
&НаСервере
Процедура ИзменитьКонтрагента(Контрагент, ВидИТС, Дата)
СпрК = Контрагент.ПолучитьОбъект ();
СпрК.ВидИТС = ВидИТС;
СпрК.ДатаОкончанияПодпискиИТС = Дата;
СпрК.Записать ();
КонецПроцедуры// ИзменитьКонтрагента()

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

&НаКлиенте
Процедура ДайТелефон(Команда)
Элементы.Телефоны.Заголовок = ОтобразитьТелефоны (Элементы.Таблица.ТекущиеДанные.Контрагент);
КонецПроцедуры

&НаСервере

Функция ПроверьДату(Дата)
Если Дата > ТекущаяДата () Тогда
Возврат ИСТИНА;
ИначеЕсли (Месяц(Дата) = Месяц(ТекущаяДата ()))  И (Год(Дата) = Год(ТекущаяДата ())) Тогда
Возврат ИСТИНА;
КонецЕсли;
Возврат Ложь;
КонецФункции// ПроверьДату()

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

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

&НаКлиенте
Процедура ЗаполнитьДокументы(Команда)
Список = АктуальныеКонтрагенты ();
Документы.Очистить();
Для каждого элем из Список Цикл
Стр = Документы.Добавить();    
Стр.Контрагент = элем.Контрагент;
Стр.Дата = элем.Дата;
Стр.ВидИТС = элем.ВидИТС;
Стр.Город = элем.Город;
Если Элем.Метка = 1 Тогда
Стр.Метка = Истина;     
//Элементы.Документы.ТекущийЭлемент.Шрифт = Новый Шрифт(,,Истина);

КонецЕсли; 
КонецЦикла;    
Документы.Индекс("Контрагент");
КонецПроцедуры

&НаСервере

Функция ДайИТСПоВиду(ВидИТС)
Если ВидИТС = Перечисления.ВидыИТС.ИТСПрофБесплатный Тогда
Возврат Справочники.Номенклатура.НайтиПоКоду("00000000266");
ИначеЕсли ВидИТС = Перечисления.ВидыИТС.ИТСБюджетПроф Тогда    
Возврат Справочники.Номенклатура.НайтиПоКоду("00000000268");
ИначеЕсли ВидИТС = Перечисления.ВидыИТС.ИТСБюджетПрофБесплатный Тогда    
Возврат Справочники.Номенклатура.НайтиПоКоду("00000000268");
ИначеЕсли ВидИТС = Перечисления.ВидыИТС.ИТСТехно Тогда    
Возврат Справочники.Номенклатура.НайтиПоКоду("00000000271");
ИначеЕсли ВидИТС = Перечисления.ВидыИТС.ИТСДляУдаленного Тогда    
Возврат Справочники.Номенклатура.НайтиПоКоду("00000000272");
ИначеЕсли ВидИТС = Перечисления.ВидыИТС.Отсутствует Тогда    
Возврат Справочники.Номенклатура.ПустаяСсылка();
ИначеЕсли ВидИТС = Перечисления.ВидыИТС.ИТСПрофПлат Тогда    
Возврат Справочники.Номенклатура.НайтиПоКоду("00000000266");
ИначеЕсли ВидИТС = Перечисления.ВидыИТС.ИТССтроительствоБесплатный Тогда    
Возврат Справочники.Номенклатура.НайтиПоКоду("00000000269");
ИначеЕсли ВидИТС = Перечисления.ВидыИТС.ИТСМедицина Тогда
Возврат Справочники.Номенклатура.НайтиПоКоду("00000000270");
КонецЕсли;
КонецФункции// ДайИТСПоВиду()

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

&НаКлиенте
Процедура РасходныеНакладные(Команда) 
Для каждого Строка из Документы Цикл 
Форма = ПолучитьФорму("Документ.РасходнаяНакладная.ФормаОбъекта");
ДанныеФормы = Форма.Объект;
ЗаполнитьДокументНаСервере(ДанныеФормы, Строка.Контрагент, Строка.ВидИТС);
КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);
Форма.Записать();
КонецЦикла;    
КонецПроцедуры
&НаКлиенте
Процедура ТаблицаРегНомерПриИзменении(Элемент)
Строка = Элементы.Таблица.ТекущиеДанные;    
Список =  ДайРегНомера(Строка.Контрагент); 
КонецПроцедуры
&НаКлиенте
Процедура УдалитьПомеченныхКонтрагентов(Команда)
//Документы.Очистить();

//

//Список = АктуальныеКонтрагенты ();

//Документы.Очистить();

//

//Для каждого элем из Список Цикл

// Если Элем.Метка <> 1 Тогда    

//     Стр = Документы.Добавить();    

//     Стр.Контрагент = элем.Контрагент;

//     Стр.Дата = элем.Дата;

//    Стр.ВидИТС = элем.ВидИТС;

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

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

СписокСтрок = Новый Массив();
Для Каждого Эл Из Документы Цикл
Если Эл.Метка Тогда
СписокСтрок.Добавить(Эл);
КонецЕсли;
КонецЦикла;
// КоличествоСтрок = СписокСтрок.Количество();

Для каждого Стр Из СписокСтрок  Цикл        
Документы.Удалить(Стр);    
КонецЦикла;
КонецПроцедуры

&НаКлиенте

Процедура ПриОткрытии(Отказ)
//Элементы.Документы.Контрагент.НомерСоглашения.Доступность=Истина;

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

&НаСервере Функция АктуальныеКонтрагенты () 

…

 Возврат Сп; КонецФункции //

&НаКлиенте Процедура Сформировать(Команда) Доки.Очистить(); НайтиДоговора(); КонецПроцедуры 

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

(40) как заполнить , выдает ошибку {Обработка.НайтиДоговораНаОплату.Форма.Форма.Форма(4)}: Ошибка при установке значения атрибута контекста (Доки) НайтиДоговора(Доки); Нельзя изменять поле, содержащее объект данных формы

Автор идъётЪ :) ...жги еще :)

Какой шикарный баг: если между тэгами [ 1C ] [ /1C ] есть код (1), то это тоже считается за ссылку на сообщение темы.

Только не говорите, что это фича =)))

Описание ошибки:
Ошибка при программировании, конфигурировании кода в 1С 8:

Ошибка отображения типов:
Отсутствует отображение для типа ‘ЭлементСпискаЗначений’
по причине:
Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства ‘v’:
форма: Элемент
имя: {http://v8.1c.ru/8.2/uobjects}v
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства ‘value’:
форма: Элемент
имя: {http://v8.1c.ru/8.1/data/core}value

Найденные решения:

Нажатие на изображении увеличит его

Возникла при написании кода индивидуальной конфигурации. Но, как оказалось, может подстерегать программиста из-за его невнимательности и при конфигурировании в других конфигурациях. Итак, в чем же причина возникновения данной ошибки. В управляемой форме был создан реквизит типа «СписокЗначений». При открытии формы по коду срабатывает обработчик заполнения этого списка значений. Т.е. в коде создается переменная с помощью конструктора «Новый СписокЗначений», значение которой потом и устанавливается реквизиту формы. Но, перед тем как это происходит, в коде список значений изменяется — в частности выполняется его дополнительная сортировка. Конечно, ошибка «Ошибка отображения типов: Отсутствует отображение для типа ‘ЭлементСпискаЗначений’» может возникнуть у Вас не только в такой ситуации. Сейчас разберемся в чем ее суть.

Как было отмечено в этой частной задаче выполняется сортировка исходного заполненного списка значений. Но, т.к. в этой частной задаче не подходило использование метода «СортироватьПоЗначению(<Направление>)«, т.к. сортировка более сложная (по текстовым данным с разделителями порядка, содержащих разделитель «.», пример: 1.1, 2.2, 2.2.1, 2.2.2, 3.1, 3.2, 3.3.1, 3.3.2). Поэтому сортировка выполнялась программно с созданием новой переменной типа «СписокЗначений» и ее заполнением по данным исходного списка.

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

Нажатие на изображении увеличит его

Не смотря на то, что в методической информации «Синтакс-помощника» 1С 8 указано, что значение элемента списка значений может быть любым (произвольным), все-таки для случая использования в управляемой форме в качестве реквизита накладывается ограничение по типу. И нельзя в значение такого списка значений поместить «ЭлементСискаЗначений» другого списка значений.

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

Нажатие на изображении увеличит его

Было выполнено исправление в коде для обращения к значениям и передачи их в качестве значений нового списка значений. 

Нажатие на изображении увеличит его

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

Нажатие на изображении увеличит его

Таким образом на примере данной частной ситуации возникновения ошибки при конфигурировании в 1С 8 «Отсутствует отображение для типа ЭлементСпискаЗначений, по причине, ошибка передачи данных между клиентом и сервером, значение недопустимого типа» извлекаем вывод о том, что нужно быть внимательным и не заполнять значения объекта «Список значений» элементами другого списка значений. А передавать значения элемента списка значений, если одна переменная типа «СписокЗначений» заполняется за счет другой подобной.

Оцените, помогло ли Вам предоставленное описание решения ошибки?

© www.azhur-c.ru 2014-2020. Все права защищены. Использование текстов и изображений с данной страницы без письменного разрешения владельца запрещено. При использовании материалов с данной страницы обязательно указание ссылки на данную страницу.

16-03-2022

Журавлев А.С.
(Сайт azhur-c.ru)

Здравствуйте.Платформа 1с 8.3.437 . Выгружаю результат запроса в таблицу значений, в ответ возникает ошибка отображение типов: отсутствует отображение типа ValueTable.

&НаКлиенте
Процедура Ант_Вес_РостПриИзменении(Элемент)
Возраст=СТрока(Объект.Возраст);
Пол=Объект.Пол;
//обращение к табличной чати
СтрТабЧ=Элементы.Ант_Вес_Рост.ТекущиеДанные;
СтрокаВыборки=ВыборРезультатаЗапросаРоста(Возраст,Пол);

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

Так же можно использовать временное хранилище для передачи таких значений.

Цитата: MuI_I_Ika от 17 апр 2014, 19:17
Да действительно нельзя передавать таблицу значений с сервера на клиент. Мутабельные переменные не передаются между серверным и клиентским контекстом. Попробуйте максимально перенести логику выполнения на сервер, а  на клиенте получайте уже готовый результат.

Так же можно использовать временное хранилище для передачи таких значений.

То есть вы имеете ввиду, что можно использовать объект «Хранилище значений» для передачи таблицы значений?

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

&НаКлиенте
Процедура Ант_Вес_РостПриИзменении(Элемент)
Возраст=СТрока(Объект.Возраст);
Пол=Объект.Пол;
//обращение к табличной чати
СтрТабЧ=Элементы.Ант_Вес_Рост.ТекущиеДанные;
Рост=СтрТабЧ.Рост;
СтрТабЧ.ОценкаРоста=ВыборКритерияРоста(Возраст,Пол,Рост);
КонецПроцедуры

Вопрос решен, всем спасибо.