Как прочитать БИК банка конрагента?

Форум Учет и отчетность Бухгалтерский учет и налоги (БУ)

1С:Бухгалтерия 7.7 Бухгалтерский учет 7.7

1. deniska407 07.11.08 16:41 Сейчас в теме

Приветсвую ВСЕХ!

Есть код, но он не работает :-( Помогите его исправить, плиз:

...
спр = СоздатьОбъект("Справочник.Контрагенты");
рсч = СоздатьОбъект("Справочник.РасчетныеСчета");
какойБИК = СоздатьОбъект("Справочник.Банки");
...
...
рсч.ИспользоватьВладельца(спр.ТекущийЭлемент());
рсч.ВыбратьЭлементы();
текст.ДобавитьСтроку(строка(рсч.Номер));
...
...
КакойБИК.ИспользоватьВладельца(рсч.ТекущийЭлемент());
КакойБИК.ВыбратьЭлементы();
текст.ДобавитьСтроку(строка(КакойБИК. < Дальше не знаю чего писать ...
...

Помогите, плиз, прочитать БИК банка контрагента

С ув.,
Д.

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Душелов 4021 07.11.08 16:56 Сейчас в теме

ВыбратьЭлементы() - это выборка.

Код
рсч.ВыбратьЭлементы(); Пока рсч.ПолучитьЭлемент()>0 Цикл текст.ДобавитьСтроку(строка(рсч.Номер)); ... ... КакойБИК.ИспользоватьВладельца(рсч.ТекущийЭлемент()); КакойБИК.ВыбратьЭлементы(); Пока КакойБИК.ПолучитьЭлемент()>0 Цикл текст.ДобавитьСтроку(строка(КакойБИК)); ... КонецЦикла; КонецЦикла; Показать полностью

Код

рсч.ВыбратьЭлементы(); 
Пока рсч.ПолучитьЭлемент()>0 Цикл
   текст.ДобавитьСтроку(строка(рсч.Номер)); 
   ... 
   ... 
   КакойБИК.ИспользоватьВладельца(рсч.ТекущийЭлемент()); 
   КакойБИК.ВыбратьЭлементы(); 
   Пока КакойБИК.ПолучитьЭлемент()>0 Цикл
      текст.ДобавитьСтроку(строка(КакойБИК));
      ...
   КонецЦикла;
КонецЦикла;

Показать полностью

Может все таки почитаете чего-нить. К примеру это: http://www.firststeps.ru/1c/r.php?92

3. deniska407 07.11.08 17:54 Сейчас в теме

Пасибо, но не работает. Выводит названия банков. А как мне вывести БИК ???

4. PeRom 51 07.11.08 18:14 Сейчас в теме

Попробуй КакойБИК.Код

5. Душелов 4021 07.11.08 19:33 Сейчас в теме

deniska407, посмотри структуру справочника банки и выводи нужный реквизит.

6. deniska407 07.11.08 21:30 Сейчас в теме

Не надоел? :-)

КакойБИК.код - результата не дал, т.к. пишет во всех случаях число 79 (откуда его берет - чет его знает ...)

Посмотрел структуру справочников:
Справочники[+]
Банки[+]
- коррсчет
- местонахождение
- адрес
- телефоны

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

С ув.,
Д.

7. tdr1225 37 08.11.08 10:26 Сейчас в теме

PeRom посоветовал верно. БИК это код банка. Используй hands.dll
(какая конфа ?)

8. deniska407 10.11.08 12:20 Сейчас в теме

Все просто:

...
спр = СоздатьОбъект("Справочник.Контрагенты");
рсч = СоздатьОбъект("Справочник.РасчетныеСчета");

если спр.ВыбратьЭлементы()=1 тогда
пока спр.ПолучитьЭлемент()=1 цикл

текст.ДобавитьСтроку(строка(спр.Наименование));

рсч.ИспользоватьВладельца(спр.ТекущийЭлемент());
рсч.ВыбратьЭлементы();

текст.ДобавитьСтроку(строка(рсч.БанкОрганизации.Код));

конецЦикла;
конецЕсли;
...

А разговоров-то, разговоров! Причем все "не в кассу". :-(

9. Душелов 4021 10.11.08 12:36 Сейчас в теме

Все разговоры были именно в кассу.

10. Vitek 10.11.08 13:35 Сейчас в теме

Пипец...вот нынче народ пошел, читать не умеет, еще и огрызается.

11. deniska407 10.11.08 14:57 Сейчас в теме

2 Lomok: 1. Не огрызается а глумится. 2. Читать и писАть умеет (как выяснилось даже немного писАть на 1С) 3. Полностью соглашусь в Вашим постом, если обоснованно покажете, где читать.

С ув,
Д.

12. Душелов 4021 10.11.08 15:08 Сейчас в теме

2 пост сверху: Может все таки почитаете чего-нить. К примеру это: [www.firststeps.ru]

13. PeRom 51 10.11.08 15:13 Сейчас в теме

deniska407 Как я понял Вы немного разбираетесь в автомобилях, так вот: подходит к Вам товарищ и спрашивает
- У меня что-то спереди справа стучит, как починить, вот только я под капот не разу не заглядывал? (как варианты: машина дёргается или тормозит плохо или классике задний мост захрипел...)
И что вы ему ответите?

14. Vitek 10.11.08 15:38 Сейчас в теме

2 deniska407 1. Нехорошо как то глумиться над теми у кого помощи просишь. 2. Да ты что????
3. PeRom 07.11.2008 18:14:18

Попробуй КакойБИК.Код

4й пост сверху.

С ув,
L.

Оставьте свое сообщение

E-mail: