SELECT MyCursor
SET SAFETY OFF
COPY TO (m.gcDocumentPath + 'tmpTurnOver.dbf') TYPE FOX2X AS  866 
#INCLUDE XL97Cons.h
LOCAL lnRes, oXl, oSheet, oPivotField, ln1, oField
LOCAL ARRAY laPages[ 8 ]
m.laPages[ 1 ] = 'Счет'
m.laPages[ 2 ] = 'Подразделение'
m.laPages[ 3 ] = 'Центр_учета'
m.laPages[ 4 ] = 'МОЛ'
m.laPages[ 5 ] = 'Группа'
m.laPages[ 6 ] = 'Подкласс'
m.laPages[ 7 ] = 'Класс'
m.laPages[ 8 ] = 'Материал'
LOCAL ARRAY laData[ 2 ]
m.laData[ 1 ] = 'Ед_Изм'
m.laData[ 2 ] = 'Данные'
m.oXl = CreateObject('Excel.Application')
m.oXl.DisplayAlerts = .F.
m.oXl.IgnoreRemoteRequests = .T.
m.oXl.Workbooks.Open(m.gcDocumentPath + 'tmpTurnOver.dbf')
m.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.Cells( 1 ,  18 ).Value = 'Количество приход (прочее)'
m.oSheet.Cells( 1 ,  19 ).Value = 'Количество расход'
m.oSheet.Cells( 1 ,  20 ).Value = 'Количество расход (производство)'
m.oSheet.Cells( 1 ,  21 ).Value = 'Количество расход (отпуск)'
m.oSheet.Cells( 1 ,  22 ).Value = 'Количество расход (прочее)'
m.oSheet.Cells( 1 ,  23 ).Value = 'Количество на конец'
m.oSheet.Cells( 1 ,  24 ).Value = 'Сумма на начало'
m.oSheet.Cells( 1 ,  25 ).Value = 'Сумма приход'
m.oSheet.Cells( 1 ,  26 ).Value = 'Сумма приход (поставщики)'
m.oSheet.Cells( 1 ,  27 ).Value = 'Сумма приход (прочее)'
m.oSheet.Cells( 1 ,  28 ).Value = 'Сумма расход'
m.oSheet.Cells( 1 ,  29 ).Value = 'Сумма расход (производство)'
m.oSheet.Cells( 1 ,  30 ).Value = 'Сумма расход (отпуск)'
m.oSheet.Cells( 1 ,  31 ).Value = 'Сумма расход (прочее)'
m.oSheet.Cells( 1 ,  32 ).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")
m.oSheet = m.oXl.ActiveSheet
FOR EACH oPivotField IN m.oSheet.PivotTables( 1 ).PivotFields
 IF ASCAN (m.laPages, m.oPivotField.Name,  1 ,  8 ,  0 ,  1  +  2  +  4 ) #  0  OR ;
   ASCAN (m.laData, m.oPivotField.Name,  1 ,  2 ,  0 ,  1  +  2  +  4 ) #  0 
  FOR m.ln1 =  1  TO  12 
   m.oPivotField.SubTotals (m.ln1) = .F.
  ENDFOR
 ENDIF
ENDFOR
m.oSheet.PivotTables( 1 ).AddFields(@m.laData, .Null., @m.laPages)
m.oSheet.PivotTables( 1 ).PivotFields("Количество на начало").Orientation =
xlDataField
m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 1 ).Name = 'На
начало'
m.oSheet.PivotTables( 1 ).PivotFields("Количество приход").Orientation =
xlDataField
m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 2 ).Name = 'Приход'
m.oSheet.PivotTables( 1 ).PivotFields("Количество приход
(поставщики)").Orientation = xlDataField
m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 3 ).Name = 'в т.ч.
от поставщиков'
m.oSheet.PivotTables( 1 ).PivotFields("Количество приход
(прочее)").Orientation = xlDataField
m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 4 ).Name = 'Прочий
приход'
m.oSheet.PivotTables( 1 ).PivotFields("Количество расход").Orientation =
xlDataField
m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 5 ).Name = 'Расход'
m.oSheet.PivotTables( 1 ).PivotFields("Количество расход
(производство)").Orientation = xlDataField
m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 6 ).Name = 'в т.ч.
на производство'
m.oSheet.PivotTables( 1 ).PivotFields("Количество расход
(отпуск)").Orientation = xlDataField
m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 7 ).Name = 'Отпуск
на сторону'
m.oSheet.PivotTables( 1 ).PivotFields("Количество расход
(прочее)").Orientation = xlDataField
m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 8 ).Name = 'Прочий
расход'
m.oSheet.PivotTables( 1 ).PivotFields("Количество на конец").Orientation =
xlDataField
m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 9 ).Name = 'На
конец'
IF ThisForm.chkMoney.Value
 m.oSheet.PivotTables( 1 ).PivotFields("Сумма на начало").Orientation =
xlDataField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 10 ).Name = 'На
начало (сумма)'
 m.oSheet.PivotTables( 1 ).PivotFields("Сумма приход").Orientation =
xlDataField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 11 ).Name = 'Приход
(сумма) , '
 m.oSheet.PivotTables( 1 ).PivotFields("Сумма приход
(поставщики)").Orientation = xlDataField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 12 ).Name = 'От
поставщиков (сумма)'
 m.oSheet.PivotTables( 1 ).PivotFields("Сумма приход (прочее)").Orientation =
xlDataField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 13 ).Name = 'Прочий
приход (сумма)'
 m.oSheet.PivotTables( 1 ).PivotFields("Сумма расход").Orientation =
xlDataField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 14 ).Name = 'Расход
(сумма)'
 m.oSheet.PivotTables( 1 ).PivotFields("Сумма расход
(производство)").Orientation = xlDataField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 15 ).Name = 'На
производство (сумма)'
 m.oSheet.PivotTables( 1 ).PivotFields("Сумма расход (отпуск)").Orientation =
xlDataField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 16 ).Name = 'Отпуск
на сторону (сумма)'
 m.oSheet.PivotTables( 1 ).PivotFields("Сумма расход (прочее)").Orientation =
xlDataField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 17 ).Name = 'Прочий
расход (сумма)'
 m.oSheet.PivotTables( 1 ).PivotFields("Сумма на конец").Orientation =
xlDataField
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 18 ).Name = 'На
конец (сумма)'
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 10 ).Position =  2 
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 11 ).Position =  4 
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 12 ).Position =  6 
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 13 ).Position =  8 
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 14 ).Position =  10 
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 15 ).Position =  12 
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 16 ).Position =  14 
 m.oSheet.PivotTables( 1 ).PivotFields("Данные").PivotItems( 17 ).Position =  16 
ENDIF
m.oSheet.PivotTables( 1 ).PivotFields("Данные").Orientation = xlColumnField
m.oSheet.PivotTables( 1 ).PivotFields("Материал").Orientation = xlRowField
m.oSheet.PivotTables( 1 ).PivotFields("Материал").Position =  1 
FOR EACH oField IN m.oSheet.PivotTables( 1 ).DataFields
 m.oField.Function = xlSum
ENDFOR
m.oSheet.Columns.AutoFit
m.oSheet.Name = 'Свод'
m.oSheet = .Null.
m.oXl.Sheets('Свод').Select
m.oXl.ActiveWorkbook.SaveAs(m.lcFile, xlWorkbookNormal)
m.oXl.IgnoreRemoteRequests = .F.
m.oXl.Quit
m.oXl = .Null.
ERASE (m.gcDocumentPath + 'tmpTurnOver.dbf')
WAIT CLEAR

DECLARE INTEGER ShellExecute;
 IN SHELL32.DLL;
 INTEGER nWinHandle,;
 STRING cOperation,;
 STRING cFileName,;
 STRING cParameters,;
 STRING cDirectory,;
 INTEGER nShowWindow
INKEY ( 0 . 1 )
m.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