Форум Программирование Общие вопросы программирования (Dev)

Найти и изменить записи в периодическом регистре сведений (данными с Excell)

1. 28.12.16 16:51 Сейчас в теме
Подскажите как сделать обработку для изменения записей в регистре - данными с Excell. Есть табличка экселя в которой номер телефона и номер контракта и тарифный план нужно найти записи в регистре сведений по полю номер телефона и контракта и посмотреть если тарифный план отличается то сделать ещё одну запись в регистр. С экселя всё взял и не знаю что дальше делать (
Попытка
Эксель = новый COMОбъект("Excel.Application");


Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
книга = Эксель.WorkBooks.Open("C:\Users\Downloads\IT_COPY\TP2016.xls");
Лист = Книга.WorkSheets(1);
таб = Лист.UsedRange.Value;
//Значение = Лист.Cells(2,2).Value;
Массив = таб.Выгрузить();
Массив.Удалить(0);
ВсегоСтрок = (Массив.Получить(0).количество())-1;
Показать
+ – Ответить
Ответы
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
2. Donpager 1 28.12.16 17:16 Сейчас в теме
каковы измерения в РС?
+ – Ответить
3. AlexeyMalko 28.12.16 17:52 Сейчас в теме
(2) измерение одно - НомерТелефона
+ – Ответить
4. AlexeyMalko 28.12.16 17:54 Сейчас в теме
ресурсы - тарифныйПлан, НомерСимКарты и Контракт. Как искать в нём значения. я уже сделал таблицу значений (может и не нужно) всё туда с экселя загрузил красиво чётко , н очто с регистром делать не могу придумать
+ – Ответить
5. Donpager 1 28.12.16 18:10 Сейчас в теме
В запросе к срезупоследних джоинишь табличку полученную из ёкселя, вяжешь по ключу телефона
и сравниваешь тарифный план, в отборе отсекаешь всё совпавшее. Создаешь новый набор по текущей дате и заполняешь его из запроса. Всё :)
+ – Ответить
6. Donpager 1 28.12.16 18:21 Сейчас в теме 
ВЫБРАТЬ РАЗЛИЧНЫЕ
	ТЗ_эксель.Телефон,
	ТЗ_эксель.Контракт,
	ТЗ_эксель.Тариф
ПОМЕСТИТЬ тз_эксель
ИЗ
	&ТЗ_эксель КАК ТЗ_эксель
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	РС.телефон,
	РС.симка,
	РС.контракт,
	РС.тариф
ПОМЕСТИТЬ рс_Контакты
ИЗ
	&РС КАК РС
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	рс_Контакты.телефон,
	рс_Контакты.симка,
	рс_Контакты.контракт,
	рс_Контакты.тариф КАК СтарыйТариф,
	тз_эксель.Тариф КАК Тариф
ИЗ
	рс_Контакты КАК рс_Контакты
		ЛЕВОЕ СОЕДИНЕНИЕ тз_эксель КАК тз_эксель
		ПО рс_Контакты.телефон = тз_эксель.Телефон
ГДЕ
	ВЫБОР
			КОГДА тз_эксель.Тариф ЕСТЬ NULL 
				ТОГДА ЛОЖЬ
			КОГДА тз_эксель.Тариф = рс_Контакты.тариф
				ТОГДА ЛОЖЬ
			ИНАЧЕ ИСТИНА
		КОНЕЦ
Показать
+ – Ответить
7. Donpager 1 28.12.16 18:25 Сейчас в теме
Далее 
НЗ = Регистрысведений.ИмяРег.СоздатьНаборЗаписей();
НЗ.Отбор.Период.Установить(ТекущаяДата());
НЗ.прочитать();
Пока Выборка.Следующий() Цикл
ЗаполнитьЗначениеСвойств(НЗ.Добавить(),Выборка);
КонецЦикла;
НЗ.Записать()
Показать
+ – Ответить
Оставьте свое сообщение
Вопросы с вознаграждением
Лицензии на сервер Centos 7  0.37 $m Admin v8 8.3.14 Linux
Помогите добавить в запрос поле с выборкой со счета 90.03  0.87 $m Dev
Почему 27 счёт не попадает в поле счёт учёта ?  0.27 $m Dev БГУ
Необходимо в вузе разработать информационную систему для отчетности преподавателей по выполнению научных показателей  2 $m Управление персоналом Обучение, бизнес-тренинг, курсы Автоматизация Аналитика УУ
Помогите, пожалуйста, разобраться с выводом среднего в отчёте СКД  0.43 $m Dev УТ11 v8 ИТ-компания 1С Программист
УТ 10.3 изменяет количетсво товара в чеке ККМ при продаже БезПередачиТовара  0.4 $m Dev
Ошибка СУБД при входе в базу 1С  0.55 $m Admin СУБД PostgreSQL
Работа с файлами на мобильном клиенте  0.3 $m MobileDev v8::Mobile
Грейды программистов 1с  10 $m Общие вопросы управления
MDF SQL ищу битый файл для теста DataNumen SQL Recovery  1 $m Utils
Как получить значение имея НавигационнуюСсылку к полю  0.25 $m Dev
Мобильный клиент. Android. Обрезает строку ввода от сканера  0.35 $m MobileDev
Не приходит письмо от apple после ввода карты для оплаты.  5 $m MobileDev
Прикрепленная подпись и БСП. Возможно ли?  1 $m БСП 8.3.14
заглушка на запуск (управляемое приложение)  1 $m Dev
Сложный расчет ЗП в бухгалтерии (Нужен совет по реализации)  2 $m Зарплата БП3.0 v8
Добавление "регистра сведений" на форму справочника  0.53 $m Dev v8
Перетаскивание в списке справочника  0.15 $m Dev
загрузка базы из dt  2 $m Admin
Списание задолженности в валюте управленческого учета  1 $m Финансы УТ11