Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 июн 2024, 07:45

Загрузка CSV файла. Реквизит БанковскийСчетПоУмолчанию

Автор Дмитрий357, 14 ноя 2022, 18:25

0 Пользователей и 1 гость просматривают эту тему.

Дмитрий357

Здравствуйте! Загружаю CSV файл с контрагентами. Не могу понять что сделать, чтобы загрузился номер счета в справочник Контрагенты. Справочник Контрагенты владелец справочника Банковские счета (реквизиты Номер счета, Банк).
Процедура ЗагрузитьНаСервере()
Документ = Новый ТекстовыйДокумент;
Документ.Прочитать(Объект.ПутьКФайлу);
Для НомерСтроки = 2 По Документ.КоличествоСтрок() Цикл
СтрокаДокумента = Документ.ПолучитьСтроку(НомерСтроки); 
МассивЗначениеСтроки = СтрРазделить(СтрокаДокумента, ";");
НаименованиеКонтрагента              = МассивЗначениеСтроки[0];
Группа                               = МассивЗначениеСтроки[1];
ИНН                                  = МассивЗначениеСтроки[2]; 
ДатаРегистрацииКонтрагента           = МассивЗначениеСтроки[3];
ВидКонтрагента                       = МассивЗначениеСтроки[4];
БанковскийСчетПоУмолчанию            = МассивЗначениеСтроки[5];     
ПолноеЮридическоеНаименование        = МассивЗначениеСтроки[6];
СсылкаНаКонтрагентов = Справочники.Контрагенты.НайтиПоНаименованию(НаименованиеКонтрагента);
Если Не ЗначениеЗаполнено(СсылкаНаКонтрагентов) Тогда
НовыйЭлементКонтрагенты = Справочники.Контрагенты.СоздатьЭлемент();
НовыйЭлементКонтрагенты.Наименование                   = НаименованиеКонтрагента;
ИскомаяГруппа=Справочники.Контрагенты.НайтиПоНаименованию(Группа);
Если ИскомаяГруппа.Пустая() Тогда
НоваяГруппа=Справочники.Контрагенты.СоздатьГруппу();
НоваяГруппа.Наименование=Группа;
НоваяГруппа.Записать();
НовыйЭлементКонтрагенты.Родитель = НоваяГруппа.Ссылка;
Иначе
НовыйЭлементКонтрагенты.Родитель=ИскомаяГруппа; 
КонецЕсли;
НовыйЭлементКонтрагенты.ИНН = ИНН;
НовыйЭлементКонтрагенты.ДатаРегистрации       = Дата (ДатаРегистрацииКонтрагента);
//Если ВидКонтрагента = "Юридическое лицо" Тогда
// НовыйЭлементКонтрагенты.ВидКонтрагента = Перечисления.ЮрФизЛицо.ЮридическоеЛицо;
//ИначеЕсли ВидКонтрагента = "Физическое лицо" Тогда
// НовыйЭлементКонтрагенты.ВидКонтрагента = Перечисления.ЮрФизЛицо.ФизическоеЛицо;
//ИначеЕсли ВидКонтрагента = "Юридическое лицо не резидент" Тогда
// НовыйЭлементКонтрагенты.ВидКонтрагента = Перечисления.ЮрФизЛицо.ЮридическоеЛицоНеРезидент;    
//КонецЕсли;
НовыйЭлементКонтрагенты.ПолноеЮридическоеНаименование  = ПолноеЮридическоеНаименование;
НовыйЭлементКонтрагенты.Записать();  
СсылкаНаКонтрагентов=НовыйЭлементКонтрагенты.Ссылка;
ИскомыйСчет     = Справочники.БанковскиеСчета.НайтиПоНаименованию (БанковскийСчетПоУмолчанию);
Если ИскомыйСчет.Пустая() Тогда
НовыйСчет = Справочники.БанковскиеСчета.СоздатьЭлемент ();
НовыйСчет.НомерСчета=БанковскийСчетПоУмолчанию;
НовыйСчет.Владелец=СсылкаНаКонтрагентов;
НовыйСчет.Записать ();
НовыйЭлементКонтрагенты.БанковскийСчетПоУмолчанию=;
Иначе
НовыйЭлементКонтрагенты.БанковскийСчетПоУмолчанию=ИскомыйСчет;
КонецЕсли;
НовыйЭлементКонтрагенты.Записать();
СсылкаНаКонтрагентов=НовыйЭлементКонтрагенты.Ссылка;
КонецЕсли;
КонецЦикла;       
Сообщить("Создание контрагентов завершено!");
КонецПроцедуры


Чему будет равна эта строка НовыйЭлементКонтрагенты.БанковскийСчетПоУмолчанию=?

antoneus


Дмитрий357

antoneus, не заполняет. Появляется только вот такой символ <>

antoneus

Заполняет-заполняет, а показывает такое потому что наименования у элемента справочника нет. Надо добавить НовыйСчет.Наименование = «Новый счет» ну или как там вы хотите его обозвать.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск