Диаграмма в 8.0

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. 07.07.06 14:39 Сейчас в теме

Уменя в модуле есть процедура:

Код
Процедура Сформировать() Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ \| ПродажиОбороты.Клиент.Представление КАК Клиент, \| ПродажиОбороты.ВыручкаОборот - ПродажиОбороты.СтоимостьОборот КАК Доход \|ИЗ \| РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты \| \|УПОРЯДОЧИТЬ ПО \| Доход УБЫВ"; ВыборкаРеэультатаЗапроса = Запрос.Выполнить().Выбрать(); Диаграмма = ЭлементыФормы.Диаграмма; //запретить обновление и автотранспонирование диаграммы Диаграмма.Обновление = Ложь; Диаграмма.АвтоТранспонирование = Ложь; //создать единственную точку диаграммы ТочкаДиаграммы = Диаграмма.УстановитьТочку("Доход"); //перебрать выборку результата запроса и создать серии // и значения Пока ВыборкаРезультатаЗапроса.Следующний Цикл ТекущаяСерияДиаграммы = Диаграмма.УстановитьСерию(ВыборкаРеэультатаЗапроса.Клиент); Диаграмма. УстановитьЗначение(ТочкаДиаграммы,ТекущаяСерияДиаграммы,ВыборкаРезультатаЗапроса .Доход); КонецЦикла; //разрешить обновление и автотранспонирование диаграммы Диаграмма.Обновление = Истина; Диаграмма.АвтоТранспонирование = Истина; КонецПроцедуры Показать полностью

Код

Процедура Сформировать() 
Запрос = Новый Запрос; 
Запрос.Текст = "ВЫБРАТЬ
| ПродажиОбороты.Клиент.Представление КАК Клиент,
| ПродажиОбороты.ВыручкаОборот - ПродажиОбороты.СтоимостьОборот КАК Доход
|ИЗ
| РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты
|
|УПОРЯДОЧИТЬ ПО
| Доход УБЫВ";

ВыборкаРеэультатаЗапроса = Запрос.Выполнить().Выбрать();
Диаграмма = ЭлементыФормы.Диаграмма;
//запретить обновление и автотранспонирование диаграммы 
Диаграмма.Обновление = Ложь; 
Диаграмма.АвтоТранспонирование = Ложь;
//создать единственную точку диаграммы 
ТочкаДиаграммы = Диаграмма.УстановитьТочку("Доход");
//перебрать выборку результата запроса и создать серии // и значения
Пока ВыборкаРезультатаЗапроса.Следующний Цикл ТекущаяСерияДиаграммы = Диаграмма.УстановитьСерию(ВыборкаРеэультатаЗапроса.Клиент);
Диаграмма. УстановитьЗначение(ТочкаДиаграммы,ТекущаяСерияДиаграммы,ВыборкаРезультатаЗапроса
.Доход);
КонецЦикла;
//разрешить обновление и автотранспонирование диаграммы 
Диаграмма.Обновление = Истина; 
Диаграмма.АвтоТранспонирование = Истина;

КонецПроцедуры

Показать полностью

При проверке выдает сообщение:
Диаграмма = <<?>>ЭлементыФормы.Диаграмма; //запретить обновление и автотранспонирование диаграммы
{Отчет.РейтингКлиентов(21,13)}: Переменная не определена (ВыборкаРезультатаЗапроса)
Пока <<?>>ВыборкаРезультатаЗапроса.Следующний Цикл ТекущаяСерияДиаграммы = Диаграмма.УстановитьСерию(ВыборкаРеэультатаЗапроса.Клиент);
{Отчет.РейтингКлиентов(22,75)}: Переменная не определена (ВыборкаРезультатаЗапроса)
Диаграмма.УстановитьЗначение(ТочкаДиаграммы,ТекущаяСерияДиаграммы,<<?>>ВыборкаРезультатаЗапроса.Доход);

[b]Помогите решить эту проблему!
мыло: grrus@mail.ru

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. 07.07.06 16:54 Сейчас в теме

//чего то ты с раскладками напутал, путем копирования объявления переменной, все полечилось

Код
Процедура КнопкаВыполнитьНажатие(Кнопка) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ \| ПродажиОбороты.Клиент.Представление КАК Клиент, \| ПродажиОбороты.ВыручкаОборот - ПродажиОбороты.СтоимостьОборот КАК Доход \|ИЗ \| РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты \| \|УПОРЯДОЧИТЬ ПО \| Доход УБЫВ"; Диаграмма = ЭтаФорма.ЭлементыФормы.Диаграмма; //запретить обновление и автотранспонирование диаграммы Диаграмма.Обновление = Ложь; Диаграмма.АвтоТранспонирование = Ложь; //создать единственную точку диаграммы ТочкаДиаграммы = Диаграмма.УстановитьТочку("Доход"); //перебрать выборку результата запроса и создать серии // и значения ВыборкаРеэультатаЗапроса = Запрос.Выполнить().Выбрать(); Пока ВыборкаРеэультатаЗапроса.Следующий() Цикл ТекущаяСерияДиаграммы = Диаграмма.УстановитьСерию(ВыборкаРеэультатаЗапроса.Клиент); Диаграмма. УстановитьЗначение(ТочкаДиаграммы,ТекущаяСерияДиаграммы,ВыборкаРеэультатаЗапроса.Доход); КонецЦикла; //разрешить обновление и автотранспонирование диаграммы Диаграмма.Обновление = Истина; Диаграмма.АвтоТранспонирование = Истина; // Вставить содержимое обработчика. КонецПроцедуры Показать полностью

Код

Процедура КнопкаВыполнитьНажатие(Кнопка)
Запрос = Новый Запрос; 
Запрос.Текст = "ВЫБРАТЬ 
| ПродажиОбороты.Клиент.Представление КАК Клиент, 
| ПродажиОбороты.ВыручкаОборот - ПродажиОбороты.СтоимостьОборот КАК Доход 
|ИЗ 
| РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты 
| 
|УПОРЯДОЧИТЬ ПО 
| Доход УБЫВ"; 

Диаграмма = ЭтаФорма.ЭлементыФормы.Диаграмма; 
//запретить обновление и автотранспонирование диаграммы 
Диаграмма.Обновление = Ложь; 
Диаграмма.АвтоТранспонирование = Ложь; 
//создать единственную точку диаграммы 
ТочкаДиаграммы = Диаграмма.УстановитьТочку("Доход"); 
//перебрать выборку результата запроса и создать серии // и значения 
ВыборкаРеэультатаЗапроса = Запрос.Выполнить().Выбрать(); 
Пока ВыборкаРеэультатаЗапроса.Следующий() Цикл ТекущаяСерияДиаграммы = Диаграмма.УстановитьСерию(ВыборкаРеэультатаЗапроса.Клиент); 
Диаграмма. УстановитьЗначение(ТочкаДиаграммы,ТекущаяСерияДиаграммы,ВыборкаРеэультатаЗапроса.Доход); 
КонецЦикла; 
//разрешить обновление и автотранспонирование диаграммы 
Диаграмма.Обновление = Истина; 
Диаграмма.АвтоТранспонирование = Истина;
   // Вставить содержимое обработчика.
КонецПроцедуры

Показать полностью

Внимание! Не забывайте отмечать решение на ваш вопрос, если оно найдено. Это повысит ваш рейтинг на форуме.

Оставьте свое сообщение

E-mail: