Отбор стран в столбце документа Excel

1С v8

Отбор стран в столбце документа Excel
↓ (Волшебник 25.10.2024 09:48)

25.10.24

✎

08:10

Здравствуйте!
Только изучаю 1С, делаю задание из книги.
Загружаю данные из документа Excel.

&НаСервере
Процедура ЗагрузитьДанныеНаСервере(АдресВХ)
	
	ТабДок = Новый ТабличныйДокумент;
	ДанныеВХ=ПолучитьИзВременногоХранилища(АдресВХ); //получаем данные по указанному адресу из ВХ
	ПутьКФайлуНаСервере=ПолучитьИмяВременногоФайла("xlsx");
	ДанныеВХ.Записать(ПутьКФайлуНаСервере);
	
	Попытка
		ТабДок.Прочитать(ПутьКФайлуНаСервере,СпособЧтенияЗначенийТабличногоДокумента.Значение);
	Исключение
		Сообщение = Новый СообщениеПользователю; 
		Сообщение.Текст="Не удалось прочитать указанный файл!" + ОписаниеОшибки();
		Сообщение.Сообщить();
		Возврат;
	КонецПопытки;
	
	КоличествоСтрок=ТабДок.ВысотаТаблицы;
	
	ДанныеФайла = Новый ТаблицаЗначений;
	ДанныеФайла.Колонки.Добавить("Наименование");
	ДанныеФайла.Колонки.Добавить("ИНН");
	ДанныеФайла.Колонки.Добавить("Телефон");
    ДанныеФайла.Колонки.Добавить("КластерДоставки");
	ДанныеФайла.Колонки.Добавить("ТНВЭД");
	
	Для НомерСтроки=2 По КоличествоСтрок Цикл
		СтрокаДанных=ДанныеФайла.Добавить();
		СтрокаДанных.Наименование=ТабДок.ПолучитьОбласть("R"+Формат(НомерСтроки, "ЧГ=0")+"C"+13).ТекущаяОбласть.Текст;
		СтрокаДанных.ИНН=ТабДок.ПолучитьОбласть("R"+Формат(НомерСтроки, "ЧГ=0")+"C"+14).ТекущаяОбласть.Текст;
        СтрокаДанных.Телефон=ТабДок.ПолучитьОбласть("R"+Формат(НомерСтроки, "ЧГ=0")+"C"+25).ТекущаяОбласть.Текст; 
		СтрокаДанных.КластерДоставки=ТабДок.ПолучитьОбласть("R"+Формат(НомерСтроки, "ЧГ=0")+"C"+27).ТекущаяОбласть.Текст;
		СтрокаДанных.ТНВЭД=ТабДок.ПолучитьОбласть("R"+Формат(НомерСтроки, "ЧГ=0")+"C"+35).ТекущаяОбласть.Текст;
	КонецЦикла; 
	
	ЗагруженныеДанные.Загрузить(ДанныеФайла);
		
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузитьДанные(Команда)
	ДвоичныеДанныеФайла=Новый ДвоичныеДанные(Файл); //получаем двоичные данные нашего файла
	АдресВременногоХранилища=ПоместитьВоВременноеХранилище(ДвоичныеДанныеФайла); //помещаем двоичные данные во временное хранилище
	ЗагрузитьДанныеНаСервере(АдресВременногоХранилища);
КонецПроцедуры

&НаСервере
Процедура СоздатьКонтрагентовНаСервере() 
	Для каждого Контрагент Из ЗагруженныеДанные Цикл    
			НовыйЭлемент=Справочники.Контрагенты.СоздатьЭлемент();
			НовыйЭлемент.Наименование=Контрагент.Наименование;
			НовыйЭлемент.ИННКлиент=Контрагент.ИНН;
			НовыйЭлемент.ТелефонКлиент=Контрагент.Телефон;
			НовыйЭлемент.КластерДоставки=Контрагент.КластерДоставки; 
			НовыйЭлемент.ТНВЭД=Контрагент.ТНВЭД;
			НовыйЭлемент.Записать();
	КонецЦикла;
КонецПроцедуры

В столбце КластерДоставки указаны города и страны. Нужно загрузить строки, содержащие только страны.
Создал справочник Страны, где перечислил страны.

Не подскажите, как это реализовать?
Понимаю, что нужно сравнить содержимое в столбце Excel со справочником Страны, и если есть совпадение, загрузить эти совпадения в базу.
Но вот как это реализовать в коде, не смогу сообразить.
Если нужны дополнительные данные, то готов предоставить.
Подскажите, пожалуйста.
Буду благодарен советам.

1 Волшебник

25.10.24

✎

08:11

НайденнаяСтрана = Справочник.Страны.НайтиПоНаименованию(название, Истина);
Если НайденнаяСтрана.Пустая() Тогда
  // создать элемент
КонецЕсли;

2 Мультук

25.10.24

✎

08:31

(0) (1)

Я бы еще обработал условие на пустую строку СокрЛП(название) <> ""

Функция ЭтоСтрана(название)
  Если ПустаяСтрока(название) Тогда
      Возврат Ложь;
  КонецЕсли; 


  НайденнаяСтрана = Справочник.Страны.НайтиПоНаименованию(название, Истина);
  Возврат не НайденнаяСтрана.Пустая();

КонецФункции

3 Мультук

25.10.24

✎

08:37

(0)

P.S.

Для обучения код из (2) нормален.
Если (во взрослой жизни) нужно будет грузить сотни тыс строк (а может и раньше) -- это код нужно будет выбросить на помойку.

Переписать на запрос и не для каждой строки, а сразу для всего набора.
Но это уже потом

Для каждого Контрагент Из ЗагруженныеДанные Цикл

Привыкайте называть итераторы строк "Строка", "СтрокаДанные" и т.п.
Иначе будете сами путаться.
Особенно неприятно будет, если у вас на форме будет реквзит формы с именем "Контрагент"
Вы его будете перезатирать

4 программистище

25.10.24

✎