В начало

Процедура ПостроитьГрафик

 

Процедура ПостроитьГрафик (График, Запрос)

   Datasheet = График.Application.Datasheet;

   XCounter = 2;

   YCounter = 2;

   Пока Запрос.Группировка ("Клиент") = 1 Цикл

      Если Запрос.Клиент.ЭтоГруппа () = 1 Тогда

         Продолжить;

      КонецЕсли;

      range = Datasheet.Cells (1, XCounter);

      range.Value = Запрос.Клиент.Наименование;

      Пока Запрос.Группировка ("Товар") = 1 Цикл

         range = Datasheet.Cells (YCounter, 1);

         range.Value = Запрос.Товар.Наименование;

         range = Datasheet.Cells (YCounter, XCounter);

         range.Value = Запрос.ПродСум;

         YCounter = YCounter+1;

      КонецЦикла;

      YCounter = 2;

      XCounter = XCounter+l;

   КонецЦикла;

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