Имя: Пароль:
1C
1C 7.7
v7: Создание новых элементов в справочниках
0 work92
 
14.07.16
09:17
Здравствуйте. Есть справочник Контрагенты  ему подчинен справочник расчетные счета в расчетных счетах есть (реквизит выбора банкаСравочник)(Справочник банк не подчинен) .Подскажите как правильно добавить банк в расчетные счета  пишу  такой код



Процедура Выполнить()
Файл = создатьОбъект("XBASE");
Спр=СоздатьОбъект("Справочник.Контрагенты");
СпрНЛ = СоздатьОбъект("Справочник.РасчетныеСчета");
СпрНЛк = СоздатьОбъект("Справочник.Банки");

//Файл.ОткрытьФайл("C:\12\Kont.DBF");
//Если Файл.Открыта()=0 Тогда
//Сообщить("Не удалось открыть файл!");
//КонецЕсли;
//Файл.Первая();
//Пока Файл.ВКонце()=0 Цикл
Спр.Новый();
Спр.Наименование=СокрЛП("Наим");
Спр.ПолнНаименование=СокрЛП("Наим2");
Спр.ЮридическийАдрес=СокрЛП("Наим3");
Спр.ИНН=СокрЛП("1234");
Спр.Записать();
СпрНЛ.ИспользоватьВладельца(Спр.ТекущийЭлемент());
СпрНЛ.Новый();
СпрНЛ.Номер="301287" ;

СпрНЛ.Записать();
Да этого места работает нормально а как записать банк в в справочник расчетные счета

СпрНЛк.Наименование="мой банк" ;
СпрНЛк.Записать();
//Файл.Следующая();
//КонецЦикла;
КонецПроцедуры
1 Остап Сулейманович
 
14.07.16
09:21
(0)

СпрНЛ.Новый();
СпрНЛ.Номер="301287" ;

Если СпрНЛк.НайтиПоНаименованию("мой банк") = 0 Тогда
    СпрНЛк.Новый();
    СпрНЛк.Наименование="мой банк" ;
    СпрНЛк.Записать();
КонецЕсли;

СпрНЛ.Банк = СпрНЛк.ТекущийЭлемент();

СпрНЛ.Записать();
2 ovrfox
 
14.07.16
09:22
Во первых - банк нужно создавать первым, или хотя бы до расчетного счета.
Во вторых - банки нужно создавать ровно столько, сколько их различных, пересоздавать с одинаковым наименованием не нужно.