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);
 
    Результат = Запрос.Выполнить();
    Выборка = Результат.Выбрать();
    
    Сп = Новый ТаблицаЗначений;
    Сп.Колонки.Добавить("Дата");  
    Сп.Колонки.Добавить("Контрагент");

    Сп.Колонки.Добавить("ВидДоговора");
    Сп.Колонки.Добавить("Сумма");
    
    Пока Выборка.Следующий() Цикл
        строка = сп.Добавить();
        Строка.Контрагент = Выборка.ссылка;
         строка.Дата = Выборка.Дата;
        строка.ВидДоговора =Выборка.ВидДоговора; 
        строка.сумма = выборка.сумма;
    КонецЦикла;
    
   //
 
        
    Для каждого строчка из сп Цикл
     Стр = Доки.Добавить();    
     Стр.Контрагент = строчка.Контрагент;
     Стр.Дата = строчка.Дата;
     Стр.ВидДоговора = строчка.ВидДоговора;
     Стр.сумма = строчка.сумма;
    КонецЦикла;    
 /// Доки - таблица значений на форме, но пишет ошику что якобы ее нельзя заполнять на сервере
 
КонецПроцедуры

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

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

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

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

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

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

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

КонецЕсли; 

<<<<>>>>>>

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

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

КонецЕсли;

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

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

КонецЕсли;

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

1. Суть проблемы в следующем. Есть форма документа «ВыдачаКнигНаРуки». Необходимо в этом документе автоматически заполнять поле «ВидКниги», его можно вытащить из реквизита «Произведение» с типом данных «СправочникСсылка.Произведения». Никак не могу разобраться с типами данных при передачи их с клиента на сервер и обратно. Хотела все это реализовать через запрос в модуле объекта, но запуталась с типами данных.

   Вот процедура с модуле объекта:

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

   Вот в модуле формы:

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

   И все это выдает следующую ошибку:
   {Документ.ВыдачаКнигНаРуки.Форма.ФормаДокумента.Форма(20)}: Ошибка при вызове метода контекста (ПолучитьВидКнигиНаСервере)
   ПолучитьВидКнигиНаСервере(Стр);
   по причине:
   Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
   по причине:
   Ошибка преобразования данных XDTO:
   НачалоСвойства: param Форма: Элемент Тип: {http://www.w3.org/2001/XMLSchema}anyType
   по причине:
   Ошибка отображения типов:
   Отсутствует отображение для типа ‘{http://v8.1c.ru/8.1/data/core}ValueTable’

   Как это можно исправить? Или может есть способ, как вытащить ВидКниги попроще?

2. 
   

   Offline

   alexburn
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   5 янв 2009

   Сообщения:

   15.150

   Симпатии:

   560

   Баллы:

   204

   ТЗ нельзя гонять просто так между клиентом и сервером

3. Это я уже поняла. Я не понимаю, что можно гонять. Как ошибку исправить?

4. 
   

   Offline

   alexburn
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   5 янв 2009

   Сообщения:

   15.150

   Симпатии:

   560

   Баллы:

   204

   На форуме неоднократно поднимался этот вопрос. Воспользуйтесь поиском.

5. 
   

   Offline

   nomad_irk
   Гуру в 1С

   Регистрация:

   20 окт 2008

   Сообщения:

   9.890

   Симпатии:

   1.030

   Баллы:

   204

   Модуль объекта вам не нужен вообще.
   Форма доступна на клиенте и сервере.
   Значение в строке ТЧ можно получить через конструкцию вида СсылкаНаОбъект[ИмяРеквизитаЗначениеКоторогоНужноПолучить] выполненого на стороне сервера без контекста.