gifts2017

Обработка загрузки справочника клиентов из файла Excel в Салон красоты 1с

Опубликовал 1 2 (nigman) в раздел Программирование - Практика программирования

Обработка из выгруженного справочника клиентов в excel. Загружает данные в справочник 1С "Контрагенты" подгруппу "клиенты"

Ничего военного тут нет...но вдруг кому пригодится.

Вот как выглядит выгруженный файл:

Задача загрузить данные из файла в справочник 1С: Салон Красоты Контрагеты.

В начале обработки в процедуре Команда на клиенте подключаемся к файлу Excel и узнаем количество строк в файле

	Ексель  = новый COMобъект("Excel.Application"); 
	Ексель.Workbooks.Open("C:\1.xls"); 

	Лист = Ексель.WorkSheets(1); 
	КолСтрок = Ексель.ActiveSheet.UsedRange.Rows.Count;

затем запускаем цикл для построчного чтения. И в соответствующие переменные записываем значения из excel ячеек

пример чтения ячейки:

ДатаРегистрации = Ексель.ActiveSheet.Cells(ТекСтрока,13).Value;

Дата из Excel передается в текстовом виде, сформируем по строке Дату типа Дата 1С

Год = Прав(ДатаРегистрации,4);
Месяц = Сред(ДатаРегистрации,4,2);
День = Лев(ДатаРегистрации,2);
Если Год<>"" Тогда ОбщаяДата = Дата(Год,Месяц,День); КонецЕсли;

Затем для создания нового клиента в справочнике Контрагенты вызывается серверная процедура НовыйКлиент();

НовыйКлиент(Фамилия, Имя, Отчество, ОбщаяДата, Телефон,ДатаРождения);

В процедуре НовыйКлиент создаем новый элемент справочника контрагенты, заполняем его реквизиты и табличную часть, а затем производим запись в БД:

Клиент = Справочники.Контрагенты.СоздатьЭлемент();
	Клиент.Родитель = Справочники.Контрагенты.НайтиПоНаименованию("Клиенты");
	Клиент.Фамилия = Фамилия;
	Клиент.Имя = Имя;
	Клиент.Отчество = Отчество;
	.
        .
        .	
	строка = Клиент.КонтактнаяИнформация.Добавить();
	строка.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Телефон");	
	строка.НомерТелефонаБезКодов = Телефон;
	строка.ЗначенияПолей = "НомерТелефона="+Телефон; 	
	
	Клиент.Телефон =Телефон;
	
	Клиент.Записать();

Надеюсь кому-то пригодится, полный код представлен в обработке.

Скачать файлы

Наименование Файл Версия Размер Кол. Скачив.
ЗагрузкаКлиентовИзExcelВ1С
.epf 6,44Kb
16.02.15
4
.epf 6,44Kb 4 Скачать

См. также

Подписаться Добавить вознаграждение
В этой теме еще нет сообщений.
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа