ПереченьСтатейЗатрат.ВыбратьСтроки();
{Глобальный модуль(9536)}: Значение не представляет агрегатный объект (ВыбратьСтроки)
Процедура глОпределитьПрямыеРасходыПроизводства(Субконто1, Субконто2, Субконто3, ОбъектыАналитикиНУ, ПереченьСтатейЗатрат, СчетКт)
СтатьяЗатрат = Субконто2;
СчетПрямыхРасходов = СчетПоКоду("Н01.05");
ОбъектыАналитикиНУ.Установить("ВидыНоменклатуры", Субконто1);
ВидЗатрат = СтатьяЗатрат.ВидРасходовДляНалоговогоУчета;
ОбъектыАналитикиНУ.Установить("ГруппыВидыРасходов", ВидЗатрат);
Если СодержитсяВСпискеИсключенийПрямыхЗатрат(ВидЗатрат) = 1 Тогда
ОбъектыАналитикиНУ.Установить("Счет", СчетПоКоду("Н07.04.1"));
Возврат;
КонецЕсли;
ФлагПрямогоРасхода = 0;
ПереченьСтатейЗатрат.ВыбратьСтроки(); //строка 9536
Пока ПереченьСтатейЗатрат.ПолучитьСтроку() = 1 Цикл
Если ПереченьСтатейЗатрат.Приоритет = 3 Тогда
Если (СравнитьСчета(ПереченьСтатейЗатрат.СчетКт, СчетКт) = 1) И (ПереченьСтатейЗатрат.ВидЗатрат = ВидЗатрат) И (ПереченьСтатейЗатрат.СтатьяЗатрат = СтатьяЗатрат) Тогда
ФлагПрямогоРасхода = 1;
Прервать;
КонецЕсли;
КонецЕсли;
Если ПереченьСтатейЗатрат.Приоритет = 2 Тогда
Если (ПереченьСтатейЗатрат.Ключ = 110) И (СравнитьСчета(ПереченьСтатейЗатрат.СчетКт, СчетКт) = 1) И (ПереченьСтатейЗатрат.ВидЗатрат = ВидЗатрат) Тогда
ФлагПрямогоРасхода = 1;
Прервать;
КонецЕсли;
Если (ПереченьСтатейЗатрат.Ключ = 11) И (ПереченьСтатейЗатрат.ВидЗатрат = ВидЗатрат) И (ПереченьСтатейЗатрат.СтатьяЗатрат = СтатьяЗатрат) Тогда
ФлагПрямогоРасхода = 1;
Прервать;
КонецЕсли;
Если (ПереченьСтатейЗатрат.Ключ = 101) И (СравнитьСчета(ПереченьСтатейЗатрат.СчетКт, СчетКт) = 1) И (ПереченьСтатейЗатрат.СтатьяЗатрат = СтатьяЗатрат) Тогда
ФлагПрямогоРасхода = 1;
Прервать;
КонецЕсли;
КонецЕсли;
Если ПереченьСтатейЗатрат.Приоритет = 1 Тогда
Если (ПереченьСтатейЗатрат.Ключ = 1) И (ПереченьСтатейЗатрат.СтатьяЗатрат = СтатьяЗатрат) Тогда
ФлагПрямогоРасхода = 1;
Прервать;
КонецЕсли;
Если (ПереченьСтатейЗатрат.Ключ = 10) И (ПереченьСтатейЗатрат.ВидЗатрат = ВидЗатрат) Тогда
ФлагПрямогоРасхода = 1;
Прервать;
КонецЕсли;
Если (ПереченьСтатейЗатрат.Ключ = 100) И (СравнитьСчета(ПереченьСтатейЗатрат.СчетКт, СчетКт) = 1) Тогда
ФлагПрямогоРасхода = 1;
Прервать;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если ФлагПрямогоРасхода = 1 Тогда
ОбъектыАналитикиНУ.Установить("Счет", СчетПрямыхРасходов);
Иначе
ОбъектыАналитикиНУ.Установить("Счет", СчетПоКоду("Н07.04.1"));
КонецЕсли;
КонецПроцедуры
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.