v7: Ошибка обновления записи Счет

 Процедура Сформировать()

  Сч=СоздатьОбъект("Счет.ЕПСБУ"); 

  Сч.НайтиПоКоду("101.04.1"); 

  Если Сч.Выбран()=1 Тогда

  	Сообщить("Счет найден!!"); 

  	Сч.Наименование="101.34.1";

  	Сч.Записать();

  КонецЕсли;	

КонецПроцедуры

 Счета = СоздатьОбъект(“Счет.Основной”);

Счета.Новый(1); //у счета будут субсчета

Счета.Код = “10”;

Счета.Наименование = “Материалы”;

Счета.Активный = 1; //активный

Счета.Записать();



Счета.Новый();

Счета.Код = “10.1”;

Счета.Наименование = “Основные материалы”;

Счета.ВидСубконто(1,ВидыСубконто.Материалы);

Счета.ВидСубконто(2,ВидыСубконто.Склады);

Счета.Записать();



// Пример – изменить наименование счета:

Счета = СоздатьОбъект(“Счет.Основной”);

Счета.НайтиПоКоду(“10”);

Счета.Наименование = “Все материалы”;

Счета.Записать();



// Пример – пометить на удаление все счета, введенные пользователем в режиме “Предприятие”.

/ Оставить только счета, заданные разработчиком в Конфигураторе.

Счета = СоздатьОбъект(“Счет.Основной”);

Счета.ВыбратьСчета();

Пока Счета.ПолучитьСчет()=1 Цикл

 Если Счета.ЗаданВКонфигурации()=0 Тогда

  Счета.Удалить(0); //пометить на удаление

 КонецЕсли;

КонецЦикла;



// Пример – отменить все пометки на удаление:

Счета = СоздатьОбъект(“Счет.Основной”);

Счета.ВыбратьСчета();

Пока Счета.ПолучитьСчет()=1 Цикл

 Если Счета.ПометкаУдаления()=1 Тогда

  Счета.СнятьПометкуУдаления();

 КонецЕсли;

КонецЦикла;