0
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
Для уу = 0 по ИндексПЭ-1 цикл
// ** вычисление продаж в розницу**
Если Отчет.НетСобственныхТорговыхСетей Тогда
ПроданоВРозницу = Окр(ОН[уу], 4) + п4_1[уу] + п4_2[уу] + п4_3[уу] - п5_2[уу] - п5_3[уу] - п5_4[уу] - п5_5[уу] - п5_5[уу] - Окр(ОК[уу],4);
//ПроданоВРозницу = Окр(ОН[уу], 6) + п4_1[уу] + п4_2[уу] + п4_3[уу] - п5_2[уу] - п5_3[уу] - п5_4[уу] - п5_5[уу] - п5_5[уу] - Окр(ОК[уу], 6);
//п5_7[уу]=п5_7[уу]+ПроданоВРозницу;
п5_7[уу]=ПроданоВРозницу;
Иначе
ПроданоВРозницу = Окр(ОН[уу], 4) + п4_1[уу] + п4_2[уу] + п4_3[уу] - п5_2[уу] - п5_3[уу] - п5_4[уу] - п5_5[уу] - п5_7[уу] - Окр(ОК[уу], 4);
//ПроданоВРозницу = Окр(ОН[уу], 6) + п4_1[уу] + п4_2[уу] + п4_3[уу] - п5_2[уу] - п5_3[уу] - п5_4[уу] - п5_5[уу] - п5_7[уу] - Окр(ОК[уу], 6);
п5_5[уу] = п5_5[уу] + ПроданоВРозницу;
КонецЕсли;
// ** вычисление колонки Итого ***
Если Отчет.ТабачныеИзделия Тогда
Если уу = 8 Тогда // уу=6 или уу=5
//колонку "Тонны" в колонку итог "млн. штук" не смешиваем....
Продолжить;
КонецЕсли;
КонецЕсли;
п4_1[ИндексПЭ] = п4_1[ИндексПЭ] + п4_1[уу];
п4_1_1[ИндексПЭ] = п4_1_1[ИндексПЭ] + п4_1_1[уу];
п4_1_2[ИндексПЭ] = п4_1_2[ИндексПЭ] + п4_1_2[уу];
п4_1_3[ИндексПЭ] = п4_1_3[ИндексПЭ] + п4_1_3[уу];
п4_2[ИндексПЭ] = п4_2[ИндексПЭ] + п4_2[уу];
п4_3[ИндексПЭ] = п4_3[ИндексПЭ] + п4_3[уу];
п5_2[ИндексПЭ] = п5_2[ИндексПЭ] + п5_2[уу];
п5_3[ИндексПЭ] = п5_3[ИндексПЭ] + п5_3[уу];
п5_4[ИндексПЭ] = п5_4[ИндексПЭ] + п5_4[уу];
п5_5[ИндексПЭ] = п5_5[ИндексПЭ] + п5_5[уу];
п5_7[ИндексПЭ] = п5_7[ИндексПЭ] + п5_7[уу];
ОН[ИндексПЭ] = ОН[ИндексПЭ] + ОН[уу];
ОК[ИндексПЭ] = ОК[ИндексПЭ] + ОК[уу];
Конеццикла;
Для уу = 0 по ИндексПЭ цикл
п5[уу] =п5_2[уу] + п5_3[уу] + п5_4[уу] + п5_5[уу] + п5_7[уу];
п4[уу] =п4_1[уу] + п4_2[уу] + п4_3[уу];
Конеццикла;
Работаю в крупной торговой сети РБ, конфигурация переделана с 7.7 на 8-ку.
Прилетает сегодня задачка от буха "Не сходятся цифры в алкогольной декларации", захожу в модуль отчета, в котором 2600 строк кода, вроде этого(этот самый сочный), и тут я понял что хочу уволиться))
Не смог себя сдержать и решил этим поделиться) думаю тут этому коду самое место
Запостил:
Dudozavr ,
29.05.2020 (Updated 29.05.2020 )
HIV # 0
bagrinho # 0 ⇈
Fike # 0
а ты небось взял и смешал, признай
bormand # 0 ⇈
KOPOHABuPYC # 0
bagrinho # 0