СчтОле=БазаОле.CreateObject("Счет");
         БухСправка = БазаОле.CreateObject("Документ.БухгалтерскаяСправка2");
         БухСправка.Новый();
         БухСправка.ДатаДок = КонецПериода;
         БухСправка.УстановитьНовыйНомер();
         БухСправка.СодержаниеОперации = СтрокаПоиска;
         ЭлементыФормы.Статус.Заголовок = "Заполнение документа ""Бух.справка""";
        
         Для Каждого СтрокаТз из ТЗ Цикл
             БухСправка.НоваяСтрока();
             Если СчтОле.НайтиПоКоду(СтрокаТз.СчетДт)=1 Тогда
                 БухСправка.СчетДт = СчтОле.ТекущийСчет();
                 Для А = 1 По 3 Цикл
                     БухСправка.НазначитьТип("СубконтоДт"+А,БухСправка.СчетДт.ВидСубконто(А));
                 КонецЦикла;

Что делаю не так? БухСправка.СчетДт = СчтОле.ТекущийСчет(); в этой строке СчтОле.ТекущийСчет() значение заполнено и счет есть но он не присваивает значение в БухСправка.СчетДт

up up

Подниму тему, а то вчера поздновато создал ее.

попробуй
СчтОле.НайтиПоКоду(СтрокаТз.СчетДт, БазаОле.ОсновнойПланСчетов)
хотя если находит ...

пробовал я так не получается

(4) а что такое СтрокаТз.СчетДт? Какого типа?

(5) это строка типа "08.4"

БухСправка.СчетДт = БазаОле.СчетПоКоду(СтрокаТз.СчетДт,"Основной");
сделал так и все заработало

всем спасибо