Перенос e-mail контрагентов из БП 2.0 в БП 3.0

10.11.17

Функциональные - Управление взаимоотношениями с клиентами (CRM)

Перенос E-Mail и контактной информации в конфигурации БП 3.0 после обновления с 2.0. Из РегистраСведений.УдалитьКонтактнаяИнформация в Табличную часть КонтактнаяИнформация по Контрагентам.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Перенос e-mail контрагентов из БП 2.0 в БП 3.0:
.epf 6,40Kb
9 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Как известно, контактная информация хранилась в 2.0 в соответствующем регистре сведений.

В 3.0 она хранится в Табличной Части Справочника Контрагенты.

Обработка ищет в регистре сведений записи по контрагентам и в случае если Тип = Адресу электронной почты или содержит в Представлении символ @ то добавляет в табличную часть Контактной информации соответствующую запись.

Код обработки открыт и свободен для доработок. 

В результате работы обработки выводятся Сообщения о добавлении Контрагенту - значения из Регистра сведений.

Тестировалось на Релизе 3.0.54.15, 3.0.52.42, 3.0.51.27.

Вступайте в нашу телеграмм-группу Инфостарт

Обработка

См. также

Пользователь 1С:Предприятие 8 Управленческий учет Платные (руб)

Решение 1С:CRM 3.1 предназначено для компаний с потребностью совместной работы более 5 пользователей в единой информационной базе. Решение позволяет автоматизировать все бизнес-процессы компании в соответствии с концепцией CRM, включая закупки, продажи, маркетинг, сервисное обслуживание и пр.

6500 руб.

10.11.2015    46509    50    1    

29

Перенос данных 1C Программист 1С:Предприятие 8 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос документов, начальных остатков и справочной информации из УПП 1.3 в ERP 2 | из УПП 1.3 в УТ 11 | из УПП в КА 2 | Правила конвертации (КД 2) | Более 360 предприятий выполнили переход с использованием этого продукта! | Сэкономьте время - используйте готовое решение для перехода! | Позволяет перенести из УПП 1.3 в ERP / УТ 11 / КА 2 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор

58000 руб.

04.08.2015    186092    437    300    

445

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.267.x) и БП 3.0 (3.0.194.x). Правила подходят для версии ПРОФ и КОРП.

38000 руб.

15.12.2021    33364    250    64    

190

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

50050 руб.

25.02.2015    187343    355    287    

415

SALE! 10%

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27633 24870 руб.

12.06.2017    159407    953    317    

479

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Платные (руб)

Правила переноса кадровых и расчетных данных и справочной информации из "1С:УПП1.3" или "1С:КА 1.1" в "1С:ЗУП 3.1 | Разработан в формате КД 2 (правила конвертации данных) | При выгрузке есть фильтр по организациям | Обновляется при выходе новых релизов 1С | Развитие алгоритмов | Расчетные документы переносятся в документ "Перенос данных" | Создаются документы "Начальная штатная расстановка" и "Начальная задолженность по зарплате", переносятся кадровые документы

58000 руб.

29.10.2018    62291    80    130    

78

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Россия Платные (руб)

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 3, УНФ 3 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

16531 руб.

18.02.2016    201872    670    543    

561

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Управление торговлей 10 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.88.x) и УТ 11.5 (11.5.25.x).

38000 руб.

23.07.2020    67146    312    94    

251
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. TrinitronOTV 11.11.17 14:07 Сейчас в теме
Без вашей обработки адреса что ли не переносятся?
2. Guyer 11.11.17 19:31 Сейчас в теме
1. Адреса переносятся штатным способом при обновлении инф базы
2. Код обработки открыт и изменив всего одну строчку Вы можете спокойно перенести адреса
3. Чуть позже сделаю более полную версию переноса
3. Светлый ум 25.01.19 12:30 Сейчас в теме
-1
Меняйте заголовок публикации, вашу обработку - нельзя назвать переносом!

- Вы сделали конвертацию данных архивного регистра в данные справочника - в рамках одной конфигурации.

Весь код обработки:

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

			
		КонецЕсли;
		
		
	КонецЦикла;
	
	

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

&НаКлиенте
Процедура Перенести(Команда)
	ПеренестиНаСервере();
КонецПроцедуры
Показать
Для отправки сообщения требуется регистрация/авторизация