MSTel =  Объект.КонтактнаяИнформация[1].Представление;  // Факт
    
    MSAdr = Объект.КонтактнаяИнформация[0].Представление;   //юр
    
    qq = Объект.КонтактнаяИнформация[2].Представление;      //почт
    qq1 = Объект.КонтактнаяИнформация[3].Представление;     //тел

    MSAdr     = ЭтаФорма.ЮрАдресКонтрагента;
    MSTel     = ЭтаФорма.ТелефонКонтрагента ;
    MSFax    = ЭтаФорма.ФаксКонтрагента;    
    MSEMail    = ЭтаФорма.EmailКонтрагента;

&НаСервере
Функция ПолучитьКонтактнуюИнформацию(ЧоБрать)
  СтрВозврата = "";
  Для Каждого СтрКИ ИЗ Объект.КонтактнаяИнформация Цикл
    Если СтрКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон И ЧоБрать = "Телефон" Тогда
      СтрВозврата = СтрКИ.НомерТелефона;
      Прервать;
    ИначеЕсли СтрКИ.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И ЧоБрать = "Адрес" Тогда
      СтрВозврата = СтрКИ.Представление;
      Прервать;
    КонецЕсли;
  КонецЦикла;
  Возврат СтрВозврата;
КонецФункции

&НаСервере  
  Функция ПолучитьБанковскуюИнформацию(ЧоБрать)  
    СтрВозврата = "";  
    Для Каждого СтрБИ ИЗ Объект.ОсновнойБанковскийСчет Цикл  
      Если СтрБИ.Тип = Справочники.БанковскиеСчета.НомерСчета И ЧоБрать = "НомерСчета" Тогда  
        СтрВозврата = СтрБИ.НомерСчета;  
        Прервать;  
      КонецЕсли;  
    КонецЦикла;  
    Возврат СтрВозврата;  
  КонецФункции

INSERT INTO БанковскиеСчета (Код, Контрагент, Счет) VALUES (1, Иванов, 12345)
INSERT INTO БанковскиеСчета (Код, Контрагент, Счет) VALUES (2, Иванов, 65433)

UPDATE Контрагенты SET ОсновнойБанковскийСчет = 2 WHERE Контрагент = Иванов

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

&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
    
    
    //Запись в МС 
    CmdMS = Новый COMОбъект("ADODB.Command");
    CmdMS.CommandType = 4;
    
      MStxt   =    ТекущийОбъект.Наименование;
       MStxtFull   = ТекущийОбъект.НаименованиеПолное;
    MScod1s = ТекущийОбъект.Код;
    MSinn = ТекущийОбъект.ИНН;
    MSKPP = ТекущийОбъект.КПП;                             
    
    MSAdr     = ПолучитьКонтактнуюИнформацию("Адрес");
    MSTel     = ПолучитьКонтактнуюИнформацию("Телефон");
    MSFax    = ПолучитьКонтактнуюИнформацию("Факс");
    MSEMail    = ПолучитьКонтактнуюИнформацию("АдресЭП");
    
    //йй = ЗначениеЗаполнено(ТекущийОбъект.ОсновнойБанковскийСчет) ;
    
    MSRasch = ТекущийОбъект.ОсновнойБанковскийСчет.НомерСчета;
    
    MSBik = ТекущийОбъект.ОсновнойБанковскийСчет.Банк.Код;  
    MSBank = ТекущийОбъект.ОсновнойБанковскийСчет.Банк.Наименование;  
    MSKorsch = ТекущийОбъект.ОсновнойБанковскийСчет.Банк.КоррСчет;    
    
    MSParent= ТекущийОбъект.Родитель.Наименование;
    
    Фамилия        =    ТекущийОбъект.ОсновноеКонтактноеЛицо.Фамилия;
    Имя            =    ТекущийОбъект.ОсновноеКонтактноеЛицо.Имя;
    Отчество    =    ТекущийОбъект.ОсновноеКонтактноеЛицо.Отчество;
    MSkont        =    Фамилия+" "+Имя+" "+Отчество;
    MSProf    =    ТекущийОбъект.ОсновноеКонтактноеЛицо.Должность;

    MSOKPO     = ТекущийОбъект.КодПоОКПО;    
    MSNote  =    Строка(СокрЛП(ТекущийОбъект.Комментарий)) ;
    
    CmdMS.CommandText = "aaaaaaa";
    
    CmdMS.Parameters.Append(CmdMS.CreateParameter("TXT",200,1,90,MStxt));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("TXTFUll",200,1,250,MStxtFull)); 
    CmdMS.Parameters.Append(CmdMS.CreateParameter("COD1S",129,1,9,MScod1s));    
    CmdMS.Parameters.Append(CmdMS.CreateParameter("INN",129,1,20,MSinn));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("kpp",200,1,40,MSKPP));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("Okpo",200,1,40,MSOKPO));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("Email",200,1,50,MSEMail));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("ADRES",200,1,250,MSAdr));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("TEL",200,1,40,MSTel));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("Fax",200,1,40,MSFax));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("parent",200,1,90,MSParent));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("kont",200,1,250,MSkont));
    
    CmdMS.Parameters.Append(CmdMS.CreateParameter("DirProf",200,1,100,MSProf));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("MNote",200,1,250,MSNote));
    
    CmdMS.Parameters.Append(CmdMS.CreateParameter("rasch",200,1,40,MSRasch));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("rasch",200,1,140,MSBank));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("rasch",200,1,40,MSKorsch));
    CmdMS.Parameters.Append(CmdMS.CreateParameter("rasch",200,1,40,MSBik));
    
    ЗаписьВMSSQL(CmdMS);
    ///////
    
    
    Если ТекущийОбъект.ДополнительныеСвойства.Свойство("ДанныеКонтактногоЛица")
        И НЕ ТекущийОбъект.Модифицированность() Тогда
        
        ДанныеКонтактногоЛица        = Неопределено;
        ПредставлениеКонтактногоЛица = Неопределено;
        УправлениеФормой(ЭтотОбъект);
        
    КонецЕсли;
    
КонецПроцедуры