COPY TO (m.gcDocumentPath + 'tmpExpense.dbf') TYPE FOX2X AS  866 
#INCLUDE XL97Cons.h
LOCAL ARRAY laColumns[ 2 ]
laColumns[ 1 ] = 'Материал'
laColumns[ 2 ] = 'Ед_Изм'
LOCAL ARRAY laPages[ 10 ]
laPages[ 1 ] = 'Откуда'
laPages[ 2 ] = 'Получатель'
laPages[ 3 ] = 'Подразделение'
laPages[ 4 ] = 'Центр_учета'
laPages[ 5 ] = 'Отправитель'
laPages[ 6 ] = 'Месяц'
laPages[ 7 ] = 'Год'
laPages[ 8 ] = 'Группа'
laPages[ 9 ] = 'Подкласс'
laPages[ 10 ] = 'Класс'
oXl = CreateObject('Excel.Application')
m.oXl.DisplayAlerts = .F.
m.oXl.IgnoreRemoteRequests = .T.
m.oXl.Workbooks.Open (m.gcDocumentPath + 'tmpExpense.dbf')
oSheet = m.oXl.Sheets( 1 )
m.oSheet.Activate
m.oSheet.Cells( 1 ,  1 ).Value = 'Год'
m.oSheet.Cells( 1 ,  2 ).Value = 'Месяц'
m.oSheet.Cells( 1 ,  3 ).Value = 'Материал'
m.oSheet.Cells( 1 ,  4 ).Value = 'Ед_Изм'
m.oSheet.Cells( 1 ,  5 ).Value = 'Класс'
m.oSheet.Cells( 1 ,  6 ).Value = 'Подкласс'
m.oSheet.Cells( 1 ,  7 ).Value = 'Группа'
m.oSheet.Cells( 1 ,  8 ).Value = 'Счет по дебету'
m.oSheet.Cells( 1 ,  9 ).Value = 'Куда'
m.oSheet.Cells( 1 ,  10 ).Value = 'Счет по кредиту'
m.oSheet.Cells( 1 ,  11 ).Value = 'Откуда'
m.oSheet.Cells( 1 ,  12 ).Value = 'Отправитель'
m.oSheet.Cells( 1 ,  13 ).Value = 'Подразделение'
m.oSheet.Cells( 1 ,  14 ).Value = 'Центр_учета'
m.oSheet.Cells( 1 ,  15 ).Value = 'Получатель'
m.oSheet.Cells( 1 ,  16 ).Value = 'Количество'
m.oSheet.Cells( 1 ,  17 ).Value = 'Сумма'
m.oSheet.Range("База_данных").AutoFilter
m.oSheet.Range("A1").Select
m.oSheet.Columns( 3 ).Font.Name = 'Courier New Cyr'
m.oSheet.Columns.AutoFit
m.oSheet.Name = 'Расход'
m.oXl.Sheets("Расход").PivotTableWizard (xlDatabase, "База_данных", "", 
"СводнаяТаблица1")
oSheet = m.oXl.ActiveSheet
FOR EACH oPivotField IN m.oSheet.PivotTables( 1 ).PivotFields
 IF !INLIST (m.oPivotField.Name, "Количество", "Сумма")
  FOR m.ln1 =  1  TO  12 
   m.oPivotField.SubTotals (m.ln1) = .F.
  ENDFOR
 ENDIF
ENDFOR
m.oSheet.PivotTables("СводнаяТаблица1").AddFields(@m.laColumns, "Куда", 
@m.laPages)
m.oSheet.PivotTables("СводнаяТаблица1").PivotFields("Количество").Orientation 
= xlDataField
m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 1 ).Name = ' 
Количество'
IF ThisForm.chkMoney.Value
 m.oSheet.PivotTables("СводнаяТаблица1").PivotFields("Сумма").Orientation = 
xlDataField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 2 ).Name = ' Сумма'
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").Orientation = xlColumnField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").Position =  2 
ENDIF
FOR EACH oField IN m.oSheet.PivotTables( 1 ).DataFields
 m.oField.Function = xlSum
ENDFOR
m.oSheet.Columns.AutoFit
m.oSheet.Name = 'Свод'
oSheet = .Null.
m.oXl.Sheets('Свод').Select
m.oXl.ActiveWorkbook.SaveAs(m.lcFile, xlWorkbookNormal)
m.oXl.IgnoreRemoteRequests = .F.
m.oXl.Quit()
oXl = .Null.
ERASE (m.gcDocumentPath + 'tmpExpense.dbf')
WAIT CLEAR

DECLARE INTEGER ShellExecute;
 IN SHELL32.DLL;
 INTEGER nWinHandle,;
 STRING cOperation,;
 STRING cFileName,;
 STRING cParameters,;
 STRING cDirectory,;
 INTEGER nShowWindow
LOCAL lnRes
lnRes = ShellExecute( 0 , "Open", m.lcFile, "", m.gcDocumentPath,  1 )
IF m.lnRes <  32 
 DO CASE
 CASE m.lnRes =  2 
  MESSAGEBOX("Неверно установлен Excel",  0 , _SCREEN.Caption)
 CASE m.lnRes =  31 
  MESSAGEBOX("Не установлен Excel",  0 , _SCREEN.Caption)
 CASE m.lnRes =  29 
  MESSAGEBOX("Не удалось запустить Excel",  0 , _SCREEN.Caption)
 CASE m.lnRes =  30 
  MESSAGEBOX("Excel в данный момент недоступен",  0 , _SCREEN.Caption)
 ENDCASE
ENDIF