Диплом_1 / Диплом
.pdf| ЧислоРаботающихОбороты.Диагноз.Код КАК
код
|ПОМЕСТИТЬ Текущий |ИЗ
|
РегистрНакопления.ЧислоРаботающих.Обороты(&НачПериода,&КонП ериода) КАК ЧислоРаботающихОбороты
|
|СГРУППИРОВАТЬ ПО | ЧислоРаботающихОбороты.Диагноз.Код";
ДатаНач2=НачалоГода(ДатаНач)-31536000; ДатаКон2=КонецГода(ДатаКон)-31536000; ЗапросФормы2 = Новый Запрос;
Запросформы2.МенеджерВременныхТаблиц =
МенеджерВТ;
Запросформы2.УстановитьПараметр("НачПериода",ДатаНач2);
Запросформы2.УстановитьПараметр("КонПериода",ДатаКон2); ЗапросФормы2.Текст =
"ВЫБРАТЬ
|
СУММА(ЧислоРаботающихОстаткиИОбороты.СлучаиОборот) КАК
СлучаиОборот1, |
|
|
| |
|
|
СУММА(ЧислоРаботающихОстаткиИОбороты.ДниОборот) |
КАК |
|
ДниОборот1, |
|
|
| |
ЧислоРаботающихОстаткиИОбороты.Диагноз.Код |
КАК |
КодПр |
|
|
|ПОМЕСТИТЬ Прошлый |
|
|
|ИЗ |
|
|
| |
|
|
РегистрНакопления.ЧислоРаботающих.ОстаткиИОбороты(&НачПерио |
||
да,&КонПериода) КАК ЧислоРаботающихОстаткиИОбороты |
|
|
| |
|
|
|СГРУППИРОВАТЬ ПО |
|
|
| |
ЧислоРаботающихОстаткиИОбороты.Диагноз.Код" |
; |
РезультатЗапроса1 = Запросформы1.Выполнить(); РезультатЗапроса2 = Запросформы2.Выполнить();
Выбрать1=РезультатЗапроса1.Выбрать(ОбходРезультатаЗапроса.Прямо
й);
Выбрать2=РезультатЗапроса2.Выбрать(ОбходРезультатаЗапроса.Прямо
й);
ЗапросФормы3 = Новый Запрос;
60
|
Запросформы3.МенеджерВременныхТаблиц |
= |
МенеджерВТ; |
|
|
|
ЗапросФормы3.Текст = |
|
|
"ВЫБРАТЬ РАЗЛИЧНЫЕ |
|
| |
СУММА(Прошлый.СлучаиОборот1) КАК СлучаиОборот1, |
|
| |
СУММА(Прошлый.ДниОборот1) КАК ДниОборот1, |
|
| |
Текущий.Код как кодТ, |
|
| |
СУММА(Текущий.СлучаиОборот) КАК СлучаиОборот, |
|
| |
СУММА(Текущий.ДниОборот) КАК ДниОборот, |
|
| |
Прошлый.КодПр как кодПр |
|
|ИЗ |
|
|
| |
Текущий КАК Текущий |
|
| |
ПОЛНОЕ СОЕДИНЕНИЕ Прошлый КАК Прошлый |
|
| |
ПО (Текущий.Код = Прошлый.КодПр) |
|
| |
|
|
|СГРУППИРОВАТЬ ПО |
|
|
| |
Текущий.Код, |
|
| |
Прошлый.КодПр"; |
|
РезультатЗапроса3 = Запросформы3.Выполнить(); |
|
|
|
Выборка3 |
= |
РезультатЗапроса3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка3.Следующий() Цикл
Если Выборка3.кодТ<>NULL тогда ОбластьСтрока.Параметры.Код=Выборка3.кодТ;
иначе
ОбластьСтрока.Параметры.Код=Выборка3.кодПр; КонецЕсли;
Если Выборка3.СлучаиОборот=NULL тогда ОбластьСтрока.Параметры.абсТек="0.00"; ОбластьСтрока.Параметры.на100Тек="0.00"; ОбластьСтрока.Параметры.абсдТек="0.00"; ОбластьСтрока.Параметры.д100Тек="0.00"; ОбластьСтрока.Параметры.СредДлит="0.00";
на100Тек=0; д100Тек=0;
иначе ОбластьСтрока.Параметры.абсТек=Выборка3.СлучаиОборот; на100Тек=Окр((Выборка3.СлучаиОборот/300)*100,2); ОбластьСтрока.Параметры.на100Тек=на100Тек; ОбластьСтрока.Параметры.абсдТек=Выборка3.ДниОборот; д100Тек=Окр((Выборка3.ДниОборот/300)*100,2); ОбластьСтрока.Параметры.д100Тек= д100Тек; ОбластьСтрока.Параметры.СредДлит=Окр(
Выборка3.ДниОборот/Выборка3.СлучаиОборот,2);
61
КонецЕсли;
Если Выборка3.СлучаиОборот1=NULL тогда ОбластьСтрока.Параметры.абсПр="0.00"; ОбластьСтрока.Параметры.на100Пр="0.00"; ОбластьСтрока.Параметры.абсдПр="0.00"; ОбластьСтрока.Параметры.д100Пр="0.00"; ОбластьСтрока.Параметры.СредДлитПр="0.00";
иначе ОбластьСтрока.Параметры.абсПр=Выборка3.СлучаиОборот1;
на100Пр=Окр((Выборка3.СлучаиОборот1/300)*100,2); ОбластьСтрока.Параметры.на100Пр=на100Пр;
ОбластьСтрока.Параметры.абсдПр=Выборка3.ДниОборот1; д100Пр= Окр((Выборка3.ДниОборот1/300)*100,2);
ОбластьСтрока.Параметры.д100Пр=д100Пр; СредДлитПр=Окр(Выборка3.ДниОборот1/Выборка3.СлучаиОборот1,2);
ОбластьСтрока.Параметры.СредДлитПр=СредДлитПр; ОбластьСтрока.Параметры.Случаи=Окр(на100Тек/на100Пр*100-
100,2);
ОбластьСтрока.Параметры.Дни=Окр(д100Тек/д100Пр*100-100,2); КонецЕсли; ТабДок.Вывести(ОбластьСтрока);
КонецЦикла; КонецПроцедуры
62