Консультация № 140030
15.07.2008, 16:37
0.00 руб.
0 1 1
Добрый день, есть 1с v8.1 и файл dbf, в котором проводятся следующие изменения: если содержимое поля удовлетворяет необходимому условию, то необходимо в поле dbf файла вставить код договора из справочника "ДоговораЗаймовСотрудников". Вот код с комментариями:
//Если поле ДБФ содержит слово ССуда
иначе если СокрЛП(Аналит1)="Ссуда" тогда
//перем ТабН присвоить содержимое поля TN файла ДБФ
ТабН=СокрЛП(ФайлЗП.TN);
//ФЛ присвоить содержимое справочника ФизическиеЛица
ФЛ=Справочники.ФизическиеЛица;
//Найти по табельному номеру сотрудника в перем. ФЛ
НайденРЗ = ФЛ.Найтипореквизиту("ТабельныйНомер", ТабН);
//Если не найден вывести сообщение
если НайденРЗ.Пустая() тогда
сообщить ("Нет такого ТН");
иначе
//СпрДЗ присвоить содержимое справочника ДоговораЗаймов
СпрДЗ = Новый (Справочники.ДоговораЗаймов);
//В переменной выборка записать значение, полученное с помощью метода Выбрать
выборка=СпрДЗ.Выбрать(,НайденРЗ,,);
////// а вот здесь мне надо запустить цикл, в котором из текущая записи /////(переменная "выборка") берется код договора и записывается в файл /////дбф, но вот чтото не получается
пока выборка.следующий() цикл
НомерДог=СпрДЗ.ТекущийЭлемент();
ФайлЗП.KAS=НомерДог;

КонецЦикла;
конецесли;
/////////////////////
может кто подскажет, что необходимо использовать и как в версии 1С 8.1 вместо метода ТекущийЭлемент.... ?

Обсуждение

Неизвестный
16.07.2008, 09:01
общий
это ответ
пока выборка.следующий() цикл
НомерДог=выборка.НомерДоговора;//(или выборка.Код не знаю как у вас называется это поле)
ФайлЗП.KAS=НомерДог;
КонецЦикла;
Форма ответа