- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
////////////////////////////////////////////////////////////////////
////////Преобразование горизонтали в вертикаль с дурацким циклом////
///////////////////////////////////////////////////////////////////
ТекДата = ТекущаяДата();
ТекущийГод = НачалоГода(ТекДата);
ТекущийМесяц = НачалоМесяца(ТекДата);
Пока Выборка.Следующий() Цикл
ДатаЯнварь = ТекущийГод;
Если ДатаЯнварь >= ТекущийМесяц Тогда
Январь = ПланПост.Добавить();
Январь.Организация =Выборка.Организация;
Январь.Расход = Выборка.ПродажиЯнварь;
Январь.НормОст = Выборка.ОстаткиФевраль;
Январь.МесяцПрихода = ТекущийГод;
КонецЕсли;
ДатаФевраль = ДобавитьМесяц(ТекущийГод, 1);
Если ДатаФевраль >= ТекущийМесяц Тогда
Февраль = ПланПост.Добавить();
Февраль.Организация =Выборка.Организация;
Февраль.Расход = Выборка.ПродажиФевраль;
Февраль.НормОст = Выборка.ОстаткиМарт;
Февраль.МесяцПрихода = ДатаФевраль;
КонецЕсли;
ДатаМарт = ДобавитьМесяц(ТекущийГод, 2);
Если ДатаМарт >= ТекущийМесяц Тогда
Март = ПланПост.Добавить();
Март.Организация =Выборка.Организация;
Март.Расход = Выборка.ПродажиМарт;
Март.НормОст = Выборка.ОстаткиАпрель;
Март.МесяцПрихода = ДатаМарт;
КонецЕсли;
ДатаАпрель = ДобавитьМесяц(ТекущийГод, 3);
Если ДатаАпрель >= ТекущийМесяц Тогда
Апрель = ПланПост.Добавить();
Апрель.Организация =Выборка.Организация;
Апрель.Расход = Выборка.ПродажиАпрель;
Апрель.НормОст = Выборка.ОстаткиМай;
Апрель.МесяцПрихода = ДатаАпрель;
КонецЕсли;
ДатаМай = ДобавитьМесяц(ТекущийГод, 4);
Если ДатаМай >= ТекущийМесяц Тогда
Май = ПланПост.Добавить();
Май.Организация =Выборка.Организация;
Май.Расход = Выборка.ПродажиМай;
Май.НормОст = Выборка.ОстаткиИюнь;
Май.МесяцПрихода = ДатаМай;
КонецЕсли;
Была ТЧ в документе с колонками-названиями месяцев....И руководство поставило задачу вывести ЭТО в отчет...На СКД....