Массовое внесение ИНН и СНИЛС для контрагентов-физлиц

31.05.24

✎

15:12

Здравствуйте.
Есть файл из тысячи строк вида "ФИО ИНН СНИЛС".
Как можно автоматизировано загрузить в «Бухгалтерию государственного учреждения, редакция 2.0», чтобы у каждого контрагента-физлица заполнились поля ИНН и СНИЛС (чтобы не забивать эти поля вручную)? Может быть, какой-нибудь
SQL-запрос?

1 Волшебник

31.05.24

✎

15:15

Обработкой

2 Волшебник

31.05.24

✎

15:59

Промт:

/Есть текстовый файл из строк вида "ФИО ИНН СНИЛС". Напиши процедуру на языке 1С для загрузки данных из файла в справочник "Контрагенты", где ФИО это Наименование контрагента-физлица.
/Добавь проверку на существование контрагента перед созданием нового элемента. Мы будем искать контрагента по наименованию (ФИО).
/При этом не используй запрос, потому что запрос в цикле — это плохо. Используй метод НайтиПоНаименованию(), который определён для объекта Справочники.Контрагенты

### Шаг 1: Создание процедуры для загрузки данных с проверкой на существование

Добавляем процедуру для загрузки данных в модуль обработки или общий модуль, которая будет:
1. Открывать текстовый файл.
2. Читать строки файла.
3. Разбивать строки на части (ФИО, ИНН, СНИЛС).
4. Проверять существование контрагента по ФИО.
5. Если контрагент не найден, добавлять новый элемент в справочник "Контрагенты".

#### Модуль обработки или общий модуль:

Процедура ЗагрузитьДанныеИзФайла(ПутьКФайлу)
    // Открываем файл
    Попытка
        Текст = Новый ТекстовыйДокумент;
        Текст.Прочитать(ПутьКФайлу);

        // Разбиваем файл на строки
        МассивСтрок = СтрРазделить(Текст.ПолучитьТекст(), Символы.ПС);
        
        // Итерация по строкам файла
        Для Каждого Строка Из МассивСтрок Цикл
            Если Строка = "" Тогда
                Продолжить;
            КонецЕсли;
            
            // Разбиваем строку на части
            МассивЧастей = СтрРазделить(Строка, " ");
            
            Если МассивЧастей.Количество() = 3 Тогда
                ФИО = МассивЧастей[0];
                ИНН = МассивЧастей[1];
                СНИЛС = МассивЧастей[2];

                // Проверка на существование контрагента
                СуществующийКонтрагент = Справочник.Контрагенты.НайтиПоНаименованию(ФИО);
                
                Если СуществующийКонтрагент.Пустая() Тогда
                    // Создаем новую запись в справочнике "Контрагенты"
                    НовыйКонтрагент = Справочники.Контрагенты.СоздатьЭлемент();
                    НовыйКонтрагент.Наименование = ФИО;
                    НовыйКонтрагент.ИНН = ИНН;
                    НовыйКонтрагент.СНИЛС = СНИЛС;
                    НовыйКонтрагент.Записать();
                Иначе
                    // Обновляем существующую запись
                    СуществующийКонтрагент.ИНН = ИНН;
                    СуществующийКонтрагент.СНИЛС = СНИЛС;
                    СуществующийКонтрагент.Записать();
                КонецЕсли;
            Иначе
                Сообщить("Ошибка в строке файла: " + Строка);
            КонецЕсли;
        КонецЦикла;
    Исключение
        Сообщить("Ошибка при чтении файла: " + ОписаниеОшибки());
    КонецПопытки;
КонецПроцедуры

### Шаг 2: Вызов процедуры
Теперь добавим вызов этой процедуры. Например, добавим кнопку на форму обработки для выбора файла и старта загрузки:

#### Модуль формы:

Процедура КнопкаЗагрузитьНажатие(Элемент)
    // Диалог для выбора файла
    Диалог = Новый ОткрытьФайлДиалог;
    Диалог.Заголовок = "Выберите файл для загрузки данных";
    Диалог.Фильтр = "Текстовые файлы (*.txt)|*.txt";
    
    Если Диалог.Выбрать() Тогда
        ПутьКФайлу = Диалог.ПолноеИмяФайла;
        ЗагрузитьДанныеИзФайла(ПутьКФайлу);
    КонецЕсли;
КонецПроцедуры

### Шаг 3: Тестирование и отладка
1. Запустите обработку в режиме 1С:Предприятие.
2. Нажмите кнопку для загрузки данных.
3. Выберите файл с данными.
4. Проверьте, что данные корректно загружены или обновлены в справочнике "Контрагенты".

### Заключение:
Теперь процедура для загрузки данных из текстового файла в справочник "Контрагенты" реализована с учётом проверки на существование контрагента по ФИО. Если контрагент уже существует, его данные обновляются, иначе создается новая запись. Такой подход позволяет избежать дублирования контрагентов и обеспечивает актуальность данных.

3 maxab72

31.05.24

✎

16:17

Кто сказал, что запрос в цикле это плохо?

4 Волшебник

31.05.24

✎

16:21

(3) У профессионалов запросы в цикле не тормозят. Джунам лучше избегать запросов в цикле. ChatGPT пока на уровне джуна.

5 Волшебник

31.05.24

✎

16:21

Чем плох запрос в цикле??

6 Гость из Мариуполя

31.05.24

✎

16:51

о-хо-хо.
Вот только сейчас работал по удаленке с одной барышней.
А перед этим звонил другой барышне.
Прикол в том, что они обе полные тезки (фамилия, имя, отчество совпадают), я их в телефонной книге даже специально пометил, что это разные барышни.

И это у меня, где контрагентов далеко-далеко не тысячи, как у автора. В лучшем случае десятки (ну может под сотню в телефонной книге записано).
И то среди этой сотни нашлись две полные тезки.
прикинул, как будет работать

СуществующийКонтрагент = Справочник.Контрагенты.НайтиПоНаименованию(ФИО);

в случае тысяч..

7 Волшебник

31.05.24

✎