"Здравствуйте! Помогите разобраться. Создаю программно операцию, записываю. Ошибок не выдает, но и операцию - тоже. Что не так? 1с Предприятие 7.7,1С-Рарус: Автотранспорт Проф. ред. 5.62 Вот код:
Опер = СоздатьОбъект("Операция");
Опер.Новая();
опер.ДатаОперации=ДатаДок;
опер.УстановитьВремя(23, 59, 59);
опер.Содержание="Загрузка зарплаты водителей";
ТаблИтог.ВыбратьСтроки();
Пока ТаблИтог.ПолучитьСтроку()=1 цикл
опер.НоваяПроводка();
Опер.Дебет.Счет = СчетПоКоду("ЗАТ",глПланСчетовТранспорт);
Опер.Дебет.аТранспортныеСредства = ТаблИтог.Автомобиль;
Опер.Дебет.аПутЛисты = ТаблИтог.ПЛ;
Опер.Дебет.аСтатьиЗатратНаТранспорт = Перечисление.аСтатьиЗатратНаТранспорт.ЗПВодителя;
Опер.Кредит.Счет = СчетПоКоду("ЗП",глПланСчетовТранспорт);
Опер.Кредит.Сотрудники = ТаблИтог.Водитель;
Опер.Кредит.аВидыНачислений = ТаблИтог.ВидНачислений;
Опер.Сумма = ТаблИтог.Сумма;
Опер.ВалСумма = глСуммаУпрУчета(Опер.Сумма, КурсВалютыУпрУчета);
Опер.Валюта = Константа.ВалютаУпрУчета;
Опер.СодержаниеПроводки = "Начислено готовой суммой";
Опер.НомерЖурнала = "АТ";
//опер.ЗаписатьПроводки();
КонецЦикла;
Опер.Записать();"
Опер = СоздатьОбъект("Операция");
Опер.Новая();
опер.ДатаОперации=ДатаДок;
опер.УстановитьВремя(23, 59, 59);
опер.Содержание="Загрузка зарплаты водителей";
ТаблИтог.ВыбратьСтроки();
Пока ТаблИтог.ПолучитьСтроку()=1 цикл
опер.НоваяПроводка();
Опер.Дебет.Счет = СчетПоКоду("ЗАТ",глПланСчетовТранспорт);
Опер.Дебет.аТранспортныеСредства = ТаблИтог.Автомобиль;
Опер.Дебет.аПутЛисты = ТаблИтог.ПЛ;
Опер.Дебет.аСтатьиЗатратНаТранспорт = Перечисление.аСтатьиЗатратНаТранспорт.ЗПВодителя;
Опер.Кредит.Счет = СчетПоКоду("ЗП",глПланСчетовТранспорт);
Опер.Кредит.Сотрудники = ТаблИтог.Водитель;
Опер.Кредит.аВидыНачислений = ТаблИтог.ВидНачислений;
Опер.Сумма = ТаблИтог.Сумма;
Опер.ВалСумма = глСуммаУпрУчета(Опер.Сумма, КурсВалютыУпрУчета);
Опер.Валюта = Константа.ВалютаУпрУчета;
Опер.СодержаниеПроводки = "Начислено готовой суммой";
Опер.НомерЖурнала = "АТ";
//опер.ЗаписатьПроводки();
КонецЦикла;
Опер.Записать();"