Вот такой код попался мне в одном из отраслевых решениях.
Как вам такое?
//14.05.14
ии = ЭтотОбъект.Движения.Хозрасчетный.Количество();
к=0;
//02.07.14
ша=0;
ши=0;
шо=0;
//02.07.14
Пока к < ии Цикл
Если ЭтотОбъект.Движения.Хозрасчетный[к].СчетКт.Код = "23.04" ТОгда
ЭтотОбъект.Движения.Хозрасчетный[к].СубконтоКт.СтатьиЗатрат = Справочники.СтатьиЗатрат.НайтиПоКоду("000000004");
наименован = ЭтотОбъект.Автомобиль.Наименование;
ЭтотОбъект.Движения.Хозрасчетный[к].СубконтоКт.ОсновныеСредства = Справочники.ОсновныеСредства.НайтиПоНаименованию(наименован);
ши=ши+1;
КонецЕсли;
Если ЭтотОбъект.Движения.Хозрасчетный[к].СчетДт.Код = "23.04" и ЭтотОбъект.Движения.Хозрасчетный[к].СубконтоДт.СтатьиЗатрат.Код = "000000004" ТОгда
наименован = ЭтотОбъект.Автомобиль.Наименование;
ЭтотОбъект.Движения.Хозрасчетный[к].СубконтоДт.ОсновныеСредства = Справочники.ОсновныеСредства.НайтиПоНаименованию(наименован);
//02.07.14
Если ша<ши Тогда
Если ЭтотОбъект.Выработка[ша].РасходГорючегоПоФакту2 = 0 Тогда
ЭтотОбъект.Движения.Хозрасчетный[к].Сумма=ЭтотОбъект.Движения.Хозрасчетный[ша].Сумма;
Иначе
Если ЭтотОбъект.Выработка[ша].РасходГорючегоПоФакту = 0 Тогда
ЭтотОбъект.Движения.Хозрасчетный[к].Сумма=ЭтотОбъект.Движения.Хозрасчетный[ша].Сумма;
Иначе
ЭтотОбъект.Движения.Хозрасчетный[к].Сумма=ЭтотОбъект.Движения.Хозрасчетный[ша].Сумма-Массив[ша];
КонецЕсли;
КонецЕсли;
ша=ша+1;
Иначе
ЭтотОбъект.Движения.Хозрасчетный[к].Сумма=Массив[шо];
шо=шо+1;
КонецЕсли;
//02.07.14
КОнецЕсли;
к=к+1;
КонецЦикла;
ЭтотОбъект.Движения.Хозрасчетный.Записать();
//14.05.14
ПоказатьКак вам такое?
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(15)
Так что бы писать отраслевые надо быть "шибко умным". Но таких мало, по этому пишут стажеры.
Сидишь просто, думаешь - сложно это писать отраслевые конфигурации, умным шибко надо быть, а потом вот на такое напарываешься и начинаешь к себе чуть лучше относиться)
Так что бы писать отраслевые надо быть "шибко умным". Но таких мало, по этому пишут стажеры.
Справочники.СтатьиЗатрат.НайтиПоКоду("000000004");
Может это уже после дорабатывали? Или отраслевая идёт с заполненным справочником статей затрат?
если смотреть на главное
то логика есть, причем по феншуй
Если ша<ши Тогда
....
ша=ша+1;
Иначе
....
шо=шо+1;
КонецЕсли;то логика есть, причем по феншуй
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот