AXForum  
Вернуться   AXForum > Microsoft Dynamics NAV > NAV: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 31.07.2006, 18:51   #1  
lwg22 is offline
lwg22
Участник
Аватар для lwg22
 
4 / 10 (1) +
Регистрация: 24.07.2006
Может кто сталкивался, как убрать итоги у полей в сводной таблице?

Из того, что нарыл сам. В VBA это выглядит примерно так:
ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("num1").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)

А как эту штуку сделать в Навижн, ума не приложу. Пробовал с Subtotals разные варианты - не получается. Есть у кого идеи?
Старый 07.09.2006, 15:37   #2  
lwg22 is offline
lwg22
Участник
Аватар для lwg22
 
4 / 10 (1) +
Регистрация: 24.07.2006
Всем спасибо за моральную поддержку
Интеллет все-таки победил!
Старый 07.09.2006, 15:44   #3  
Yoil is offline
Yoil
NavAx
NavAx Club
Лучший по профессии 2017
Лучший по профессии 2009
 
1,574 / 70 (6) ++++
Регистрация: 20.11.2002
Адрес: Msk
Ну заодно расскажите, как победили, вдруг еще кому понадобится.
__________________
"Моей лошадке ядрышком полмордочки снесло..."
А.В.Суворов, письма к дочери
Старый 07.09.2006, 15:54   #4  
randrews is offline
randrews
Участник
Аватар для randrews
 
312 / 10 (1) +
Регистрация: 06.12.2004
К сожалению, не видел этой темы. Если не получается сделать что-то "экселевское", что могу сделать на VBA, то пишу макрос, а потом его запускаю из Navision
Старый 07.09.2006, 16:21   #5  
lwg22 is offline
lwg22
Участник
Аватар для lwg22
 
4 / 10 (1) +
Регистрация: 24.07.2006
Тупо выкладываю весь кусок создания сводной таблицы. Может не все надо (в плане примера), зато точно будет понятно:

Код:
// ========= Сводная таблица по артикулам =======================

  xlPivotCache := xlApp.ActiveWorkbook.PivotCaches.Add(1,STRSUBSTNO('%1!A1:%2%3','Строки', 'G', RowNo));

  xlPivotCache.CreatePivotTable('','PivotTable1');

  xlWorkSheet2 := xlApp.ActiveSheet();
  xlPivotTable := xlWorkSheet2.PivotTables('PivotTable1');
  xlWorkSheet2.Name := 'Сводная Артикулы';

  // Делаем строки
  xlPivotField := xlPivotTable.PivotFields('Код товара');
  xlPivotField.Orientation := 1; //xlRowField
  xlPivotField.Position := 1;
  xlPivotField.Subtotals(1,FALSE);

  xlPivotField := xlPivotTable.PivotFields('Наименование');
  xlPivotField.Orientation := 1; //xlRowField
  xlPivotField.Position := 2;
  xlPivotField.Subtotals(1,FALSE);

  xlPivotField := xlPivotTable.PivotFields('Артикул');
  xlPivotField.Orientation := 1; //xlRowField
  xlPivotField.Position := 3;
  xlPivotField.Subtotals(1,FALSE);

  xlPivotField := xlPivotTable.PivotFields('Кол-во склады');
  xlPivotField.Orientation := 1; //xlRowField
  xlPivotField.Position := 4;
  xlPivotField.Subtotals(1,FALSE);

  // Делаем столбцы
  xlPivotField := xlPivotTable.PivotFields('Транзит');
  xlPivotField.Orientation := 2; //xlColumnField
  xlPivotField.Position := 1;

  // Делаем странички
  xlPivotField := xlPivotTable.PivotFields('Куда');
  xlPivotField.Orientation := 3; //xlPageField
  xlPivotField.Position := 1;

  // Делаем данные
  xlPivotField := xlPivotTable.PivotFields('Кол-во транзит');
  xlPivotField.Orientation := 4; //xlDataField
  xlPivotField.Position := 1;

  xlPivotTable.SmallGrid := FALSE;

  xlWorkSheet2.Range('A:D').Columns.AutoFit;
  xlWorkSheet2.Range('C:D').HorizontalAlignment := 3;
Старый 28.09.2006, 22:37   #6  
Nick V is offline
Nick V
Участник
 
1 / 10 (1) +
Регистрация: 28.09.2006
Увааемые господа! Я-новичок. Подскажите, пожалуйста, как сформировать файл, сделанный в EXEL, в Аксапте пока без связи с полями других таблиц (желательно подробнее)
Старый 29.09.2006, 01:20   #7  
Yoil is offline
Yoil
NavAx
NavAx Club
Лучший по профессии 2017
Лучший по профессии 2009
 
1,574 / 70 (6) ++++
Регистрация: 20.11.2002
Адрес: Msk
Nick V , данная тема, во-первых, конкретно про сводные таблицы, во-вторых - про Navision (Microsoft Dynamics NAV который)
Заведите новую тему в разделе по Axapta, может, там Вам помогут.
__________________
"Моей лошадке ядрышком полмордочки снесло..."
А.В.Суворов, письма к дочери
 


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 23:26.