Перевод основных средств (ОС) в особо ценное имущество (ОЦДИ) - автоматическое формирование операций с возможностью отбора ОС по счету учета.
04.12.2011 Если дата документов и операций по ОС 31.12.2011.23.59.59 - ОС по этим операциям и документам не попадали в таблицу - исправил. Для ранее скачавших файл в модуле формы процедуру ЗаполнитьТаблицу() заменить следующей:
Процедура ЗаполнитьТаблицу()
ОсновныеСредства.Очистить();
Если Не ЗначениеЗаполнено(Дата) ИЛИ Не ЗначениеЗаполнено(Учреждение) ИЛИ Не ЗначениеЗаполнено(СчетОС) ИЛИ Не ЗначениеЗаполнено(СчетОЦДИ) ИЛИ Не ЗначениеЗаполнено(СчетАмОЦДИ)ИЛИ Не ЗначениеЗаполнено(гКБК)Тогда
Сообщить("Не заполнен один из обязательных реквизитов",СтатусСообщения.Важное);
Возврат;
КонецЕсли;
ТекДата = Новый Граница(Дата,ВидГраницы.Включая);
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Счет", СчетОС);
Запрос.УстановитьПараметр("Учреждение",Учреждение);
Запрос.УстановитьПараметр("Дата", ТекДата);
Запрос.УстановитьПараметр("КБКСчетаОС", КБКСчетаОС);
Запрос.УстановитьПараметр("КВД", КВД);
Запрос.УстановитьПараметр("Баланс", Баланс);
Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ЕПСБУОстатки.Счет КАК Счет,
| ЕПСБУОстатки.КВД КАК КВД,
| ЕПСБУОстатки.Баланс КАК Баланс,
| ЕПСБУОстатки.КБК КАК КБК,
| ЕПСБУОстатки.Субконто2 КАК ОС,
| ЕПСБУОстатки.Субконто3 КАК ЦМО,
| ЕПСБУОстатки.КоличествоОстаток КАК Количество,
| ЕПСБУОстатки.СуммаОстаток КАК Сумма
|ИЗ
| РегистрБухгалтерии.ЕПСБУ.Остатки(
| &Дата,
| Счет = &Счет,
| ,
| Учреждение = &Учреждение
| И КВД=&КВД
| И Баланс=&Баланс
| И КБК = &КБКСчетаОС) КАК ЕПСБУОстатки
|
|УПОРЯДОЧИТЬ ПО
| Счет,
| ЦМО,
| ОС";
Остатки = Запрос.Выполнить().Выбрать(); //
ВсегоСтрок = Остатки.Количество();
сч = 1;
Пока Остатки.Следующий() Цикл
Состояние("Обрабатываю: " + Остатки.ОС + " ### отработал " + сч + " из " +ВсегоСтрок);
сч = сч + 1;
ОбработкаПрерыванияПользователя();
СчетАм=Остатки.Ос.СчетАмортизации;
ОС=Остатки.ОС;
ЗапросАм = Новый Запрос;
ЗапросАм.УстановитьПараметр("Счет", СчетАм);
ЗапросАм.УстановитьПараметр("Учреждение",Учреждение);
ЗапросАм.УстановитьПараметр("Дата", ТекДата);
ЗапросАм.УстановитьПараметр("КБКСчетаОС", КБКСчетаОС);
ЗапросАм.УстановитьПараметр("КВД", КВД);
ЗапросАм.УстановитьПараметр("Баланс", Баланс);
ЗапросАм.УстановитьПараметр("Ос", Ос);
ЗапросАм.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ЕПСБУОстатки.Счет КАК Счет,
| ЕПСБУОстатки.КВД КАК КВД,
| ЕПСБУОстатки.Баланс КАК Баланс,
| ЕПСБУОстатки.КБК КАК КБК,
| ЕПСБУОстатки.Субконто2 КАК ОС,
| ЕПСБУОстатки.СуммаОстатокКт КАК Сумма
|ИЗ
| РегистрБухгалтерии.ЕПСБУ.Остатки(
| &Дата,
| Счет = &Счет,
| ,
| Учреждение = &Учреждение
| И КВД=&КВД
| И Баланс=&Баланс
| И КБК = &КБКСчетаОС) КАК ЕПСБУОстатки
|ГДЕ
| ЕПСБУОстатки.Субконто2 = &ОС";
ОстаткиАм = ЗапросАм.Выполнить().Выбрать(); //
Пока ОстаткиАм.Следующий()Цикл
КонецЦикла;
СтрокаТекущая = ОсновныеСредства.Добавить();
СтрокаТекущая.ОС=Остатки.ОС;
СтрокаТекущая.Количество=Остатки.Количество;
СтрокаТекущая.Сумма=Остатки.Сумма;
СтрокаТекущая.ЦМО=Остатки.ЦМО;
СтрокаТекущая.Амортизация= ОстаткиАм.Сумма;
СтрокаТекущая.СчетУчетаАм= СчетАм;
КонецЦикла;
КонецПроцедуры
10.01.2013 Расширен функционал:
устранена ошибка по заполнению таблицы при дате документа ввода остатков 31.12.2011.23.59.59
добавлена функция очищения таблицы, нов счета учета, нов счета амортизации при смене счета учета ОС
добавлены информационные поля по сумме бал.стоимости и амортизации ОС в таблице
и еще некоторые мелкие доработки