- 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);
Если ДатаМай >= ТекущийМесяц Тогда
Май = ПланПост.Добавить();
Май.Организация =Выборка.Организация;
Май.Расход = Выборка.ПродажиМай;
Май.НормОст = Выборка.ОстаткиИюнь;
Май.МесяцПрихода = ДатаМай;
КонецЕсли;
Была ТЧ в документе с колонками-названиями месяцев....И руководство поставило задачу вывести ЭТО в отчет...На СКД....
roman-kashitsyn 19.03.2012 10:36 # +4
guest 14.07.2012 13:42 # 0
Bert 19.03.2012 11:00 # +2
Lure Of Chaos 19.03.2012 16:54 # −1
что еще ожидать от русифицированного бейсика?
eth0 19.03.2012 20:26 # 0
Lure Of Chaos 19.03.2012 20:28 # 0
istem 20.03.2012 08:02 # +1
roman-kashitsyn 20.03.2012 08:53 # 0
guest 14.07.2012 16:53 # 0
guest8 09.04.2019 12:51 # −999