Показано с 1 по 10 из 1531
Древовидный режим
-
28.12.2009, 14:46 #11
- Регистрация
- 21.12.2009
- Сообщений
- 3
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
непрокатывает
//Заведем ИспЛисты
СпрКвартиросъемщики=Созда? ?ьОбъект("Справочник.Кварти росъемщики");
СпрИспЛисты=СоздатьОбъект( "Справочник.ИспЛисты");
ЗагрИспЛисты.ВыбратьСтрок? ?();
Пока ЗагрИспЛисты.ПолучитьСтро? ?у()>0 Цикл
Если СпрКвартиросъемщики.Найти? ?оКоду(СокрЛП(ЗагрИспЛисты. КодВладельца),1)>0 Тогда //1
ТекВладелец=СпрКвартиросъ? ?мщики.ТекущийЭлемент();
КонецЕсли;
СпрИспЛисты.ИспользоватьВ? ?адельца();
//СпрИспЛисты.ИспользоватьВ? ?аделец(ТекВладелец);
Если СпрИспЛисты.НайтиПоНаимен? ?ванию("ФИО",СокрЛП(ЗагрИспЛ исты.ФИО),0)=1 Тогда
Иначе
//СпрИспЛисты.ИспользоватьВ? ?адельца(СпрКвартиросъемщи ки);
//СпрИспЛисты.ИспользоватьВ? ?аделец(ТекВладелец);
СпрИспЛисты.Новый();
СпрИспЛисты.ФИО=СокрЛП(Заг? ?ИспЛисты.ФИО);
СпрИспЛисты.НомИЛ=СокрЛП(З? ?грИспЛисты.НомИЛ);
СпрИспЛисты.ДатаИЛ=СокрЛП(? ?агрИспЛисты.ДатаИЛ);
СпрИспЛисты.ОснДолг=СокрЛП (ЗагрИспЛисты.ОснДолг);
СпрИспЛисты.Проц=СокрЛП(За? ?рИспЛисты.Проц);
СпрИспЛисты.ОплРанее=СокрЛ П(ЗагрИспЛисты.ОплРанее);
СпрИспЛисты.Записать();
Сообщить("Создан "+СпрИспЛисты.Наименование+ " Владелец "+СпрИспЛисты.Владелец);
КонецЕсли;
КонецЦикла;
все ровно пишет ошибка СпрИспЛисты.Записать();
Не выбран элемент справочника-хозяина! Элемент не может быть записан!
Похожие темы
-
Сайтостроение - общие вопросы
от IMPERIAL в разделе В помощь вебмастеруОтветов: 27Последнее сообщение: 25.09.2019, 09:46 -
Ubuntu - общие вопросы
от IMPERIAL в разделе LINUXОтветов: 42Последнее сообщение: 15.03.2017, 16:25 -
Canon PowerShot S2 IS Общие вопросы и проблемы
от IMPERIAL в разделе Цифровое изображениеОтветов: 5Последнее сообщение: 17.11.2009, 10:12
Социальные закладки