1с ошибка отображения типов valuetable

(10) вполне возможно, ибо «Возможен обмен с сервером», но тогда

(11) таки клиент тонкий

(17) тогда СП меня обманывает:

«Доступность:

Сервер, толстый клиент, внешнее соединение.

Возможен обмен с сервером. Сериализуется. Данный объект может быть сериализован в/из XDTO. Тип XDTO, соответствующий данному объекту, определяется в пространстве имен {http://v8.1c.ru/8.1/data/core}. Имя типа XDTO: ValueTable»

&НаСервере

Функция ПолучитьМакет()

   ЭтотОбъект = РеквизитФормыВЗначение(«Объект»);

     Возврат ЭтотОбъект.ПолучитьМакет(«Макет»);

КонецФункции

&НаСервере

Функция ДайВидИТС(Вид)

Если Вид = Перечисления.ВидыИТС.ИТСПрофПлат Тогда

     Возврат 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);

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

   Выборка = Результат.Выбрать();

   
   Сп = Новый ТаблицаЗначений;

   Сп.Колонки.Добавить(«Дата»);  

   Сп.Колонки.Добавить(«Контрагент»);

   Сп.Колонки.Добавить(«ВидДоговора»);

   Сп.Колонки.Добавить(«Сумма»);

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

       строка = сп.Добавить();

       Строка.Контрагент = Выборка.ссылка;

       строка.Дата = Выборка.Дата;

       строка.ВидДоговора =Выборка.ВидДоговора;

       строка.сумма = выборка.сумма;

   КонецЦикла;

   
   //

       
   Для каждого строчка из сп Цикл

    Стр = Доки.Добавить();    

    Стр.Контрагент = строчка.Контрагент;

    Стр.Дата = строчка.Дата;

    Стр.ВидДоговора = строчка.ВидДоговора;

    Стр.сумма = строчка.сумма;

   КонецЦикла;    

 /// Доки — таблица значений на форме, но пишет ошику что якобы ее нельзя заполнять на сервере

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

тДанныеВФорму = Ложь;

Если тОсновнаяТаблица = Неопределено Тогда

тОсновнаяТаблица = Новый ТаблицаЗначений;

тОсновнаяТаблица.Колонки.Добавить(«Ссылка»);

тДанныеВФорму = Истина;

КонецЕсли; 

<<<<>>>>>>

Если <<<<>>>>>> Тогда 

ПоискСсылокНаСервере(МассивСсылок,тОсновнаяТаблица);

КонецЕсли;

Если тДанныеВФорму Тогда

ЗначениеВРеквизитФормы(тОсновнаяТаблица,»ТаблицаСсылок»);

КонецЕсли;

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

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

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

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

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

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

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

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

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

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

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