Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
18 Дек 2017, 18:21
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Самописная, 1c8.2, диаграмма  (Прочитано 2164 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн asdfr1

  • **
  • Сообщений: 93
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2010-10-28
  • Сайт: 
Необходимо построить график наполняемости, на каждый день формируется процент - НапКлиентами(Скидывается в МассивЗначений), ещё есть МассивДней. В результате по X  шкала в процентах, по Y дни месяца.

      НачМесяца = НачалоМесяца(ТекДата);
      КонМесяца = КонецМесяца(ТекДата);
       
       
МассивДней = Новый СписокЗначений;  // МассивДней - дни месяца по дням
МассивЗначений = Новый СписокЗначений; //МассивЗначений - наполняемость по дню в процентах

Пока НачМесяца <= КонМесяца Цикл
     НачМесяца = НачМесяца + 86400;
     МассивДней.Добавить(НачМесяца - 86400);
КонецЦикла;
 //ОткрытьЗначение(МассивДней);

 //+  Считаем на каждый день проценты
  Для Каждого СтрокаДняМесяца ИЗ МассивДней Цикл
    
    Дата1 = СтрокаДняМесяца.Значение;
    Дата = Формат(Дата1,"ДЛФ=D");
     
 
   Макет = Обработки.Клиенты.ПолучитьМакет("Макет1");
   ЗапросКол = Новый Запрос;
   ЗапросКол.Текст ="
|      ВЫБРАТЬ РАЗЛИЧНЫЕ
|   ВрачиПоСменам.НачалоРабочегоВремени,
|   ВрачиПоСменам.КонецРабочегоВремени,
|   ВремяПриема.Сотрудник.Наименование,
|   ВремяПриема.Дата,
|   ВремяПриема.ВремяНачала,
|   ВремяПриема.ВремяОкончания,
|   ВремяПриема.Клиент.Наименование
|ИЗ
|   РегистрСведений.ВрачиПоСменам КАК ВрачиПоСменам
|      ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ВремяПриема КАК ВремяПриема
|      ПО ВрачиПоСменам.Врач.Наименование = ВремяПриема.Сотрудник.Наименование,
|   Справочник.СправочникКлиенты.УслугиТаб КАК СправочникКлиентыУслугиТаб
|ГДЕ
|    ВрачиПоСменам.Период = &Дата
|   И ВремяПриема.Дата = &Дата
 |
|СГРУППИРОВАТЬ ПО
   |ВрачиПоСменам.НачалоРабочегоВремени,
   |ВрачиПоСменам.КонецРабочегоВремени,
   |ВремяПриема.Сотрудник.Наименование,
   |ВремяПриема.Дата,
   |ВремяПриема.ВремяНачала,
   |ВремяПриема.ВремяОкончания,
   |ВремяПриема.Клиент.Наименование";

ЗапросКол.УстановитьПараметр("Дата",СтрокаДняМесяца.Значение);

   РезультатКол = ЗапросКол.Выполнить();
   
    ТЗКол = РезультатКол.Выгрузить();

 
    КоличествоКл = ТЗКол.Количество(); //+ Количество клиентов
   
    //+ Считаем проценты на однин день
    НапКлиентами1 = (КоличествоКл*100/12);
     НапКлиентами = Окр(НапКлиентами1,2); //+ Округляем полученное значение
     //- Считаем проценты на однин день


 //+ Добавляем в МассивЗначений проценты по каждому дню
 МассивЗначений.Добавить(НапКлиентами);
КонецЦикла;

//-  Считаем на каждый день проценты



Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
140 Сообщений
AIFrame
70 Сообщений
ilyay ilyay
65 Сообщений
alex0402
51 Сообщений
andron81_81
44 Сообщений
oleg-x
41 Сообщений
BuhRust
31 Сообщений
MuI_I_Ika MuI_I_Ika
31 Сообщений
Golickoff Golickoff
27 Сообщений
alexandr_ll
23 Сообщений

* Кто онлайн

  • Точка Гостей: 482
  • Точка Скрытых: 0
  • Точка Пользователей: 6
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal