Параметрлер__Кесте_36._SlicerHierarchies_арналған_дәлелдер_Аргумент_Сипаттама_Деректер_түрі'>Параметрлер__Кесте_35._SetSlicer_арналған_дәлелдер_Аргумент_Сипаттама_Деректер_түрі'>Параметрлер__Кесте_34._RowHierarchies_арналған_дәлелдер_Аргумент_Сипаттама_Деректер_түрі'>Параметрлер
Кесте 34. RowHierarchies арналған дәлелдер
Аргумент
Сипаттама
Деректер түрі
Жылдам есеп
идентификаторы
Жол иерархиялары қайтарылудағы
Жылдам есеп идентификатор
Бүтін сан
Мысалы
Келесі синтаксис мысал болады:
Sub RowHierarchies()
Dim slicers As String
For Each Slicer In cafe.QuickReports.Get("0").SlicerDimensions
If slicers <> "" Then
slicers = slicers & ", " & vbNewLine
End If
slicers = slicers & Slicer
Келесі
MsgBox "Rows:" rows
End Sub
Select
Select
- ағымдағы белсенді Жылдам есеп элементті бөлектеу және таңдау үшін
пайдланылады.
Синтаксис
Reporting.GetCurrentReport().Select
Мысалы
Келесі синтаксис мысал болады:
Public Sub SelectReport()
Reporting.GetCurrentReport(ActiveCell).Select
End Sub
SetSlicer
SetSlicer
функциясы мәндерді шектегіш өлшемі үшін Жылдам есеп бөлігінде
орнату үшін қолданылады.
Синтаксис
Есеп беру.Ағымдағы_Есепті_Алу().Шектегішті_орнату “<өлшемдер>, <аты>”
Параметрлер
Кесте 35. SetSlicer арналған дәлелдер
Аргумент
Сипаттама
Деректер түрі
өлшемдер
Шектегішті келесіге орнатуға арналған
өлшемдер
Тармақ
name
Шектегішті келесіге орнататын ат
Тармақ
Мысалы
232
Microsoft Excel қызметі үшін жоспарлау талдаулары
Келесі синтаксис мысал болады:
Жалпы ішкі Шектегіш Жийыны()
Есеп беру.Ағымдағы_Есепті_Алу(Белсенді_Ұяшық).Шектегіш_Жийыны "[бизнес_жоспарлау_бірлігі].
[бизнес_жоспарлау_бірлігі]", "10100"
End Sub
SlicerHierarchies
SlicerHierarchies
функциясы Жылдам есеп шектегішінде бар иерархияларды
қайтару үшін қолданылады.
Синтаксис
cafe.QuickReports.Get("<Жылдам есеп ID").SlicerDimensions
Параметрлер
Кесте 36. SlicerHierarchies арналған дәлелдер
Аргумент
Сипаттама
Деректер түрі
Жылдам есеп
идентификаторы
Шектегіш иерархиялары қайтарылудағы
Жылдам есеп идентификатор
Бүтін сан
Мысалы
Келесі синтаксис мысал болады:
Sub RowHierarchies()
Dim slicers As String
For Each Slicer In cafe.QuickReports.Get("0").SlicerDimensions
If slicers <> "" Then
slicers = slicers & ", " & vbNewLine
End If
slicers = slicers & Slicer
Келесі
MsgBox "Slicers:" slicers
End Sub
Динамикалық есеп API функциялары
Динамикалық есеп қызметтері Динамикалық есеп жұмыс парақтарымен бірге өзара
әрекеттесу үшін қолданылады.
Динамикалық есеп қызметтері IBM Cognos арқылы көрсетілген автоматты нысандар
Жаңарту
Бұл API қоңырауы Динамикалық есеп бөлігін жаңарту үшін қолданылады.
Синтаксис
Reporting.DynamicReports.GetAt().Item(<Динамикалық есеп ID>).Refresh
Параметрлер
Кесте 37. Жаңартуға арналған дәлелдер
Аргумент
Сипаттама
Деректер түрі
Динамикалық есеп
идентификаторы
Жаңартылуы тиіс Динамикалық есеп
идентификатор
Бүтін сан
Бөлім 10. IBM API
233
Мысалы
Келесі синтаксис мысал болады:
Reporting.DynamicReports.GetAt(DynamicReports.Worksheet.Name).Item(0).Refresh
Қайта құру
Бұл API қоңырауы Динамикалық есеп бөлігін қайта құру үшін қолданылады.
Синтаксис
Reporting.DynamicReports.GetAt().Item(<Динамикалық есеп ID>).Rebuild
Параметрлер
Кесте 38. Қайта құруға арналған дәлелдер
Аргумент
Сипаттама
Деректер түрі
Динамикалық есеп
идентификаторы
Қайта құрылуы тиіс Динамикалық есеп
идентификатор
Бүтін сан
Мысалы
Келесі синтаксис мысал болады:
Reporting.DynamicReports.GetAt(ActiveCell.Worksheet.Name).Item(0).Rebuild
Мысал - VBA ішінде өңдеу
Келесі мысал Logon әдісін VBA ішінен шақыруды көрсетеді:
Dim bResult as Boolean
bResult = CognosOfficeAutomationObject.Logon
("http://localhost/ibmcognos/cgi-bin/cognos.cgi","Administrator",
"CognosAdmin", "Өнім")
If bResult Then
CognosOfficeAutomationObject.ClearAllData()
CognosOfficeAutomationObject.RefreshAllData()
CognosOfficeAutomationObject.Logoff()
Dim sTraceLog as String
sTraceLog = CognosOfficeAutomationObject.TraceLog
’Мұнда қадағалау журналын файлға жаза аласыз.
MsgBox sTraceLog
Соңғы егер
Мысал - VBA сыртында өңдеу
IBM Cognos Office Automation қызметін VBA сыртында қолдану үшін қалауыңыз
мүмкін. API элементтерін тікелей шақыра алмайсыз.
Орауыш қағаз макросын Microsoft Office құжатында әр бір API код үшін құруыңыз
керек. Сіз содан кейін осы макростарды өз кодыңыздан шақыра аласыз.
CognosOfficeAutomationExample.bas модулі VBA сыртынан шақыра алатын орауыш
қағаз макросының мысалы болып табылады.
234
Microsoft Excel қызметі үшін жоспарлау талдаулары
Келесі Көрнекі негізгі сйенарий Microsoft Office Excel қызметін ашады, IBM Cognos
Analytics ішіне кіріп, мазмұнды жаңартып және шығады.
’ Start Excel in batch mode
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.ScreenUpdating = False
objExcel.DisplayAlerts = False
’Ондағы IBM Cognos деректері бар жұмыс кітабын ашыңыз.
Set objWorkbook = objExcel.Workbooks.Open("C:\workbook1.xls")
’ Орауш макростарды шақыру
objExcel.Run "Logon", "http://localhost/ibmcognos/cgi-bin/cognos.cgi",
"Әкімші", "", "Өнім"
objExcel.Run "RefreshAllData"
objExcel.Run "Logoff"
objExcel.Run "TraceLog", "C:\AutomationLog.log"
objWorkbook.Save
objWorkbook.Close
objExcel.Quit
Макро файлдар
Cognos Office қызметі Microsoft Visual Basic (VBA) бағдарламалары үшін жазылған.
Осы файлдар IBM Cognos қызметімен автоматтандыру қалтасында орналасқан.
Әдеттегі орын [installation_directory]\Автоматтандыру болып табылады.
Келесі макро файлдар орнатылған.
Кесте 39. Үлгі макро файлдар
Файл
Сипаттама
CognosOfficeAutomationExample.bas
Себебі BASIC файлы VBA элементін қолдану
арықылы құрылған, бұл файл .bas кеңейтімін
иеленеді. Бұл CognosOfficeAutomationObject
сипатын ағымдағы құжаттағы IBM Cognos
Office автоматтандыру үшін қамтиды. Бұл
сонымен қатар IBM Cognos Office қызметі
арқылы шығарылған API мәнін шақыратын
орауыш қағазының функцияларын қамтиды.
CognosOfficeMessageSuppressor.cls
Бұл файл SuppressMessages API функциясын
қалай қолдану керек екенін көрсетеді.
Сценарий файлдары
Орнату функцияларды автоматтандыру үшін қолдана алатын үлгі сценарийлері
файлдарын қамтиды.
Құжаттардың жаңартылуын жоспарлау үшін сценарий файлдарын қамтиды.
Сонымен қатар мұнда URL серверін жаңартуға арналған сценарий файлы бар.
Бөлім 10. IBM API
235
Достарыңызбен бөлісу: |
