а скажите-ка мне умные программиста
возможно ли построить график не с помощью отчетов
короче есть ТП в котором контрагенты и значения нарастающего итога, мне нужно при нажатии кнопки создать график по оси х - контрагенты, по у- значения

Да, создаешь ТЧ, на 1000 колонок, размер ставишь в 1, для построения храфика заполняешь необходимые ячейки значениями 1, 0, 2 и т.д и при оформлении строки разукрашиваешь.

начнем с первого
как создать ТП на 1000 колонок???
не писать Добавить()1000 раз

Ну раз фото есть: (1) это шутка.
Что мешает использовать ТЧ для построения диаграммы?

в ТП поле хранится вспомогательная информация, для получения значения нарастающего итога проводилось много действий и для проверки себя в я все считала в ТП, конечную информацию как раз нужно использовать для построения графика,

Диаграмма = ЭлементыФормы.ДиаграммаПродаж;
   Диаграмма.КоличествоТочек = 0;
   
   Для Каждого мСтрока Из ПериодыПродаж Цикл
       
       Точка = Диаграмма.Точки.Добавить();
       Точка.Значение = мСтрока.Дата;
       Точка.Текст = мСтрока.Период;
       
       Диаграмма.УстановитьЗначение(Точка, Диаграмма.Серии[0], мСтрока.Остатки);
       Диаграмма.УстановитьЗначение(Точка, Диаграмма.Серии[1], мСтрока.Расход);

   КонецЦикла;

а диаграмма продаж это специальный компонент?

сделала так Диаграмма = ЭлементыФормы.АВСКлассификация;
   Диаграмма.КоличествоТочек = 0;
   
   Для Каждого мСтрока Из ТабличноеПоле1 Цикл
       
       Точка = Диаграмма.Точки.Добавить();
       Точка.Значение = мСтрока.Контрагент;
       Точка.Текст = мСтрока.НарасИтог;
       
       Диаграмма.УстановитьЗначение(Точка, Диаграмма.Серии[0], мСтрока.Контрагент);
       Диаграмма.УстановитьЗначение(Точка, Диаграмма.Серии[1], мСтрока.НарасИтог);
         КонецЦикла;
пишет  Индекс находится за границами массива

подскажите почему ошибка

что есть ТабличноеПоле1

и ошибку лучше полностью копи-пастить, там точно будет указано в какой именно строке ошибка происходит

Диаграмма = ЭлементыФормы.АВСКлассификация;
   
   Диаграмма.КоличествоТочек = 0;
   
   Для Каждого мСтрока Из ТабличноеПоле1 Цикл
       
       Точка = Диаграмма.Точки.Добавить();
       Точка.Значение = мСтрока.НарасИтог;
       Точка.Текст = мСтрока.Контрагент;
       
       Диаграмма.УстановитьЗначение(Точка, Диаграмма.Серии[0], мСтрока.Контрагент);

табличное поле откуда берутся Контрагент и НарасИтог
       Диаграмма.УстановитьЗначение(Точка, Диаграмма.Серии[1], мСтрока.НарасИтог);
         КонецЦикла;

или я че то не правильно поняла

v8: Заполнение колонки пост 66 = ТабличноеПоле1

(13) и?

эт он мне объяснил)

{Документ.АВСКлассификацияКлиентов.Форма.ФормаДокумента.Форма(140)}: Индекс находится за границами массива
       Диаграмма.УстановитьЗначение(Точка, Диаграмма.Серии[0], мСтрока.Контрагент);

значит в свойствах диаграммы смотри сколь у тебя серий, скорее всего 0 (по умолчанию)

а можно его как то динамически сделать, потому что количество серий может быть больше чем задано

ну да например сколь контрагентов столько и
Диаграмма.Серии.Добавить();

а как контрагентов посчитать??? воще уже голова не соображает..(((

наверное так ВсегоСтрок = ТабличноеПоле1.Количество(); )))))

а тут голова не особо нужна, нужно знать русский язык и уметь открыть СП... ну наверное

примерно так как ты написала

это было  только начало терь необходимо соединить прямой крайние точки кривой и найти точку
касания параллельной полученной прямой линии и сообщить эту точку...

а далее  нужнно повторить процедуру,  соединив прямой начальную и конечную точки оставшейся части кривой,  и зафиксировать границы следующей группы,  проведя прямую, параллельную получившейся прямой в точке касания с кривой.

везет же тебе а я вот не знаю чем заняться)))

завидую тебе...)))
может поможешь мне тогда)))

За тебя справку почитать?
Посмотреть как в типовых графики строятся?

(28) ))) ну да потом в кассу прийти, тож за нее)))

вы думаете я буду сидеть в СУББОТУ до 8 часов вечера на работе, да если бы мне потом нужно было идти в кассу,я  бы сама уже давно все написала, а за не имением навыков, мне только по окончанию написания этой проги максимум нужно будет идти к преподу)))

я просто смотрю в будущее)))

))))

нужно чтобы построить кривую скорее всего взять максимальное и минимальное значение НарасИтог и соединить их прямой

скорее 1е и последнее

извиняюсь чтоб построить кривую нужно взять все

а вот чтоб построить прямую (34)

(34) а ну точно

ну так вперед и удачи)))

первые последние точки нашла, терь график строить аналогично первому графику?

объединила все в кучу

СтаршийИндекс = ТабличноеПоле1.Количество()-1;
                      Для Сч =1  По СтаршийИндекс Цикл
               ПерТочка=ТабличноеПоле1[0].НарасИтог;
               ВтрТочка=ТабличноеПоле1[СтаршийИндекс].НарасИтог;
           КонецЦикла;
   
   Диаграмма = ЭлементыФормы.АВСКлассификация;
   
   Диаграмма.КоличествоТочек = 0;
  ВсегоСтрок = ТабличноеПоле1.Количество();
   сер = ВсегоСтрок;  
   сер= Диаграмма.Серии.Добавить();
   
   Для Каждого мСтрока Из ТабличноеПоле1 Цикл
       
       Точка = Диаграмма.Точки.Добавить();
       Точка.Значение = мСтрока.НарасИтог;
       Точка.Значение =ПерТочка;
       Точка.Значение =ВтрТочка;

       Точка.Текст = мСтрока.Контрагент;
       
       Диаграмма.УстановитьЗначение(Точка, сер, мСтрока.Контрагент);
       Диаграмма.УстановитьЗначение(Точка, сер, мСтрока.НарасИтог);
       Диаграмма.УстановитьЗначение(Точка, сер, ПерТочка);
       Диаграмма.УстановитьЗначение(Точка, сер, ВтрТочка);

         КонецЦикла;
терь рисует одну паралельную прямую((((

каким методом можно соединить две точки??? ни как не найду с правке

для образца вот посмотри http://files.mail.ru/690036

не та ссылка((( вот http://files.mail.ru/H7OQAV

можно еще раз ссылку сделать, а то там ничего нет

http://files.mail.ru/BYB6NM

спасибо, буду разбираться

там тока 3 задания нет ибо если честно то со слов даже не понял что нуно))) нарисуешь можно будет подумать))) кстати Христос Воскрес!

почему вот так нельзя сделать

    СтаршийИндекс = ТабличноеПоле1.Количество()-1;
                      Для Сч =1  По СтаршийИндекс Цикл
               ПерТочка=ТабличноеПоле1[0].НарасИтог;
               ВтрТочка=ТабличноеПоле1[СтаршийИндекс].НарасИтог;
                           КонецЦикла;
           
     Серия = Диаграмма.Серии.Добавить();
   Серия.Текст = "Прямая 1";
   Диаграмма.УстановитьЗначение(Точка, Серия, ПерТочка);
   Диаграмма.УстановитьЗначение(Точка, Серия, ВтрТочка);
в данном случае он рисует но не правильно(((

тебя тоже с праздником!!!

цикл то зачем? и 2-е ты в одну точку два значения пхаешь)))

а так в принципе сделать то можно но результат г...но

как вы думаете лучше первое и споследнее значение тоже в ТП хранить??

зачем? оно уже там есть 1-е и Последнее)))) не надо на "Вы", а то обижусь)))

и вообще две колонки добавил для наглядности...

хорошо!!!) как тогда использовать первое и последнее значение если нельзя  2-е точки в одну точку??

ты смотрела вообще что скачала?

да смотрела

а зачем пытаешся переделать лучше спрашивай что не понятно...

а когда поймешь будешь переделывать

ну вот это думаю оставить тут как раз берется первое и последнее значение

Серия = Диаграмма.Серии.Добавить();
   Серия.Текст = "Прямая";
   Минимум = Неопределено;
   Максимум = Неопределено;
   Для Каждого мСтрока Из ТабличноеПоле1 Цикл
       //мСтрока.Контрагент = мСтрока.Контрагент + СокрЛП(ТабличноеПоле1.Индекс(мСтрока));
       Минимум = ?(Минимум = Неопределено, мСтрока.НарасИтог, Мин(Минимум, мСтрока.НарасИтог));
       Максимум = ?(Максимум = Неопределено, мСтрока.НарасИтог, Макс(Максимум, мСтрока.НарасИтог));
       Точка = Диаграмма.Точки.Добавить();
       //Точка.Текст = мСтрока.Контрагент;
       Точка.Значение = мСтрока.НарасИтог;
       Диаграмма.УстановитьЗначение(Точка, Серия, мСтрока.НарасИтог);
   КонецЦикла;

да эт я мутил заполнение ТП

а Точка.Текст = мСтрока.Контрагент; не надо убирать

Тангенс для чего?

о сделала что ль....))

а как построить касательные к этой кривой????
геометрия полная....

я так думаю для начала нужно сделать направляющий вектор касательной??

или в моем случае сразу строить касательную..

(61)а в вашем случае прямая два может служить касательной??

так так оно и есть))) ты не внимательна "Учусь еще"

какая тут внимательность может быть я уже которые сутки на пролет окалачиваюсь возле пк
то есть прямая 2 это есть касательная к кривой?

а что писать за место мСтрока.Прямая2???
в мСтрока.Прямая1 я писала мСтрока.НарасИтог

(68)все равно не получается эту касательную построить

(68)у вас она изначально задана...

ты почитай что написано в коде а потом вопросы (хоть ты и красивая девушка но это важно)

ну вот у меня и вопрос где взять мСтрока.Прямая2

и с чего ты взял, что я красивая девушка?)))

ну подскажи, я уже столько вариантов испробывала если сделать мСтрока.Прямая1=мСтрока.Прямая2=мСтрока.НарасИтог
это будет не верно

(73)а у кривой может быть несколько кривых, а в моем твоем случае она одна

(73) по сути мСтрока.Прямая2 это будет точка качания прямой и кривой??

хотя нет

так что ж будет тогда точкой касания??

вернее ее значение

я так понимаю надо в цикле пройтись по значения кривой и прямой та точка совпадет и будет точкой касания, верно же

тим вьюнр поможет

я уже сделала терь передо мной другие задачи стоят, работы то нынче много (25)

как соединить прямой начальную и конечную точки оставшейся части кривой???
понимаю тоже нужно цикл

или он сам будет чертить эти касательные  столько сколько нужно???? уже совсем запуталась(((

скажите делаю так

Смещение = Неопределено;
   Для Каждого мСтрока Из ТабличноеПоле1 Цикл
       Смещение = ?(Смещение = Неопределено, мСтрока.НарасИтог - мСтрока.Прямая1, Макс(Смещение, мСтрока.НарасИтог - мСтрока.Прямая1));
         
   Серия = Диаграмма.Серии.Добавить();
   Серия.Текст = "Касательная";
   Для Каждого мСтрока Из ТабличноеПоле1 Цикл
       мСтрока.Прямая2 = мСтрока.Прямая1 + Смещение;
       Индекс = ТабличноеПоле1.Индекс(мСтрока);
       Точка = Диаграмма.Точки[Индекс];
       Диаграмма.УстановитьЗначение(Точка, Серия, мСтрока.Прямая2);
   КонецЦикла;
   
   // переносим полученую точку касания в таблицу
   Для Каждого мСтрока Из ТабличноеПоле1 Цикл
   Если   мСтрока.НарасИтог= мСтрока.Прямая2
       Тогда ст=ИнтервалГрупп.Добавить();
       ст.Границы = мСтрока.НарасИтог*100;
   Иначе
       КонецЕсли;
            КонецЦикла;
               КонецЦикла;
почему он не правильно рисует касательные, по сути то он должен был соединив прямой начальную и конечную точки оставшейся части кривой,

(83)все согласна на тим вьюнр... сил моих и мозгов уже нет(((

я п..н

(75) по фотке судя в профиле...

А зачем нужен цикл для соединения точек - он что линии рисовать не обучен ?

ну вот прошла целая ночь а вопрос до сих актуален...

какой именно?

(91) покажи как?

(93)кривую я построила, соединила крайние точки прямой, построила параллельную это прямой линию, нашла точку касания, терь нужно соединить прямой точку касания с правой крайней точкой построить паралельную этой прямой найти точку касания и так далее...

(92) спать что ли легла? а я специально на работу не пошел))) думаю надо ж помочь...

(96)какой там спать я уже забыла что это такое

в MS PAINT Prt Sc и на ICQ 567092745

ну и зря спать дело нужное)))

когда передо мной стоят не решенные задачи я не могу спокойно спать..

ты где?