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

Найти банк по БИК

Автор lAionl, 26 дек 2013, 13:00

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

lAionl

Доброго всем времени суток, на данном форуме пишу первый раз, с 1С только начал знакомиться и разбираться. Собственно вопрос:
Имеется данная функция:
Функция СоздатьБанковскийСчетКрАгента(РасчетныйСчет, БИК, КрАгент)

КонтрАгент = Справочники.Контрагенты.НайтиПоНаименованию(КрАгент);
НовыйБанковскийСчет = Справочники.БанковскиеСчета.СоздатьЭлемент();
НовыйБанковскийСчет.Владелец = КонтрАгент.Ссылка;
НовыйБанковскийСчет.НомерСчета = СокрЛП(РасчетныйСчет);
НовыйБанковскийСчет.ВидСчета =  "Расчетный";
НовыйБанковскийСчет.ВалютаДенежныхСредств = Справочники.Валюты.НайтиПоНаименованию("руб.");
НовыйБанковскийСчет.Банк = Справочники.Банки.НайтиПоКоду(БИК).Ссылка;
НовыйБанковскийСчет.Записать();
Возврат РасчетныйСчет;

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

Как имея данные о БИК получить данные о банке?
P.S. 1С:Предприятие 8.2 (8.2.18.109), Хлебобулочное и кондитерское производство

LordWizard

Получив ссылку на найденный банк, через его реквизиты заберете остальное
Цитата: lAionl от 26 дек 2013, 13:00
 НовыйБанковскийСчет.Банк = Справочники.Банки.НайтиПоКоду(БИК).Ссылка;
после получения ссылки пишем:

НовыйБанковскийСчет.РеквизитБанка1 = НовыйБанковскийСчет.Банк.Реквизит1;
...
Правильно ведите учет или пишите программы и вам воздастся!...

(Кстати - кнопочку Сказать Спасибо - никто не отменял)

lAionl

ЦитироватьНовыйБанковскийСчет.Банк = Справочники.Банки.НайтиПоКоду(БИК).Ссылка;
Не находит банк, вот это - то я и хочу исправить. Поэтому ссылки на банк и нету(((

LordWizard

Если нет банка в справочнике, то нет и реквизитов - "Есть ли смысл искать черную кошку в темной комнате, если ее там нет"?
Правильно ведите учет или пишите программы и вам воздастся!...

(Кстати - кнопочку Сказать Спасибо - никто не отменял)

lAionl

В общем ситуация: есть справочник с банками в них указана вся информация по банкам (БИК и тд. и тп.), есть необходимость на основе значения БИК находить банк и подставлять найденный банк в
НовыйБанковскийСчет.Банк;
P.S. вариант найти нужный банк используя
Справочники.Банки.НайтиПоКоду(БИК).Ссылка;
ничем не помог.

Besart

Справочники.Банки.НайтиПоРеквизиту("БИК", БИК);

LordWizard

Цитата: Besart от 26 дек 2013, 15:00
Справочники.Банки.НайтиПоРеквизиту("БИК", БИК);

там нет такого реквизита - БИК банка и есть Код  элемента справочника "Банки".
Правильно ведите учет или пишите программы и вам воздастся!...

(Кстати - кнопочку Сказать Спасибо - никто не отменял)

Besart

Справочники.Банки.НайтиПоКоду(БИК)

mixqn

lAionl, а конфигурация то какая? Если какая-то из типовых 1С, то БИК должен быть кодом справочника. В этом случае должно работать
Цитата: lAionl от 26 дек 2013, 13:00НовыйБанковскийСчет.Банк = Справочники.Банки.НайтиПоКоду(БИК)
Раз что-то у вас не работает, надо сначала понять, что именно не работает. Ошибка выдается или просто не находится банк? Или еще что?

В общем опишите проблему конкретнее.
Если ошибка - текст ошибки.
Если банк не найден - убедитесь сначала, что он там есть с таким БИКом.


lAionl

Вот такую ошибку он мне выводит:
{Форма.Форма.Форма(391)}: Ошибка при вызове метода контекста (Записать)
НовыйБанковскийСчет.Записать();
по причине:
Не удалось записать: "Банковский счет"!

А вот это он пишет в служебном сообщении:
Не выбран банк.

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

Рейтинг@Mail.ru

Поиск