Задача была поставлена бухгалтером, им необходимы физ.лица в БП 3.0, для выписывания документа Доверенность.
Было сделано:
Расширение, которое позволяет нажатием одной кнопки в ЗУП 3.1, выгрузить из формы элемента справочника Сотрудники, физическое лицо и его реквизиты, включая паспортные данные, в справочник Физические лица в БП 3.0 используя COM соединение.
Чтоб заработало COM соединение необходимо вписать свои данные для подключения вот сюда:
&НаСервере
Функция ПодключитьБД()
// Данный формат используется, если надо подключиться – файл. ИБ
//ПараметрыПодключенияИБ = "File=""D:\BUH30""; Usr=""administrator"";Pwd=""123456""";
// Данный формат используется для подключения к клиент-сервер. ИБ
// ПараметрыПодключенияИБ = "Srvr=""НаименованиеСервера"";Ref=""ИмяИБ"";Usr=""ЛогинПользователя"";Pwd=""ПарольПользователя""";
V83COMCon= Новый COMОбъект("V83.COMConnector");
Попытка
Возврат V83COMCon.Connect(ПараметрыПодключенияИБ);
Исключение
Сообщить(ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;
КонецФункции
Поиск физ.лица в БП3.0 происходит по коду.
Паспортные данные добавляются вот так:
Если Не ПаспортныеДанныеЗаписаны Тогда
Запись = СоединениеБУХ.РегистрыСведений.ДокументыФизическихЛиц.СоздатьМенеджерЗаписи();
Запись.ФизЛицо = БУХФизлицо.Ссылка;
Запись.Период = ТекущаяДата();
БУХВидДокумента = СоединениеБУХ.Справочники.ВидыДокументовФизическихЛиц.НайтиПоНаименованию(ВыборкаФЛицо.ДокументВид.Наименование);
Если БУХВидДокумента = СоединениеБУХ.Справочники.ВидыДокументовФизическихЛиц.ПустаяСсылка() Тогда
БухВидДокумента = СоединениеБУХ.Справочники.ВидыДокументовФизическихЛиц.СоздатьЭлемент;
БухВидДокумента.Наименование = ВыборкаФЛицо.ДокументВид.Наименование;
БУХВидДокумента.КодИМНС = ВыборкаФЛицо.ДокументВид.КодИМНС;
БУХВидДокумента.КодПФР = ВыборкаФЛицо.ДокументВид.КодПФР;
БУХВидДокумента.Записать();
БУХВидДокумента = БУХВидДокумента.Ссылка;
КонецЕсли;
Запись.ВидДокумента = БУХВидДокумента;
Запись.Серия = ВыборкаФЛицо.Серия;
Запись.Номер = ВыборкаФЛицо.Номер;
Запись.ДатаВыдачи = ВыборкаФЛицо.ДатаВыдачи;
Запись.ЯвляетсяДокументомУдостоверяющимЛичность = ВыборкаФЛицо.ЯвляетсяДокументомУдостоверяющимЛичность;
Запись.КемВыдан = ВыборкаФЛицо.КемВыдан;
Запись.КодПодразделения = ВыборкаФЛицо.КодПодразделения;
Запись.Записать();
ПаспортныеДанныеЗаписаны = Истина;
КонецЕсли;
Тестировалось на:
Платформа: 1С:Предприятие 8.3 (8.3.13.1513)
Конфигурации:
Зарплата и управление персоналом, редакция 3.1 (3.1.8.246)
Бухгалтерия предприятия, редакция 3.0 (3.0.67.72)
Удачного использования!
Вступайте в нашу телеграмм-группу Инфостарт
