Core.NETCore.BI-Examples: Porovnání verzí
Z Podpora.nextis.cz
(Založena nová stránka s textem „AS“) |
|||
Řádka 1: | Řádka 1: | ||
− | + | === Calculate purchase turnover for suppliers === | |
+ | <syntaxhighlight lang="vb"> | ||
+ | 'Total moth count to calculate turnover | ||
+ | Dim TotalMonths As Integer = 12 | ||
+ | |||
+ | 'Calculate turnover info for each month | ||
+ | For MonthCurrent As Integer = 0 To TotalMonths - 1 | ||
+ | |||
+ | Dim Year As Integer = Now.AddMonths((Me.PO.MonthsBack + (TotalMonths - MonthCurrent)) * -1).Year | ||
+ | Dim Month As Integer = Now.AddMonths((Me.PO.MonthsBack + (TotalMonths - MonthCurrent)) * -1).Month | ||
+ | |||
+ | '1. Declare base BI calculation class | ||
+ | Dim MonthInfo As New Core.NETCore.BI.CompanyBussinesInfo(Year, Month, Core.NETCore.BI.CompanyBussinesInfo.TurnoverTypes.GoodsByIssue) | ||
+ | |||
+ | '2. Declare collection with supplier turnover info | ||
+ | Dim Ti As System.Collections.Generic.SortedList(Of Integer, Core.NETCore.BI.CompanyBussinesInfo.SupplierTurnoverInfo) | ||
+ | |||
+ | '3. Calculate supplier turnover info using base BI class (step 1.) | ||
+ | ' FilteredInSuppliers (coma delimited string with ID's of suupliers Example "1,5688,45") | ||
+ | ' FilteredOutSuppliers (coma delimited string with ID's of suupliers Example "1,5688,45") | ||
+ | Ti = MonthInfo.SupplierTurnover("", "") | ||
+ | |||
+ | '4. Browse and show data for each supplier info in specified month | ||
+ | For Each Item As Core.NETCore.BI.CompanyBussinesInfo.SupplierTurnoverInfo In Ti.Values | ||
+ | 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX | ||
+ | 'Place your code to show data, stored in [Item] | ||
+ | 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX | ||
+ | Next | ||
+ | Next | ||
+ | </syntaxhighlight> |
Verze z 11. 8. 2017, 09:42
Calculate purchase turnover for suppliers
'Total moth count to calculate turnover
Dim TotalMonths As Integer = 12
'Calculate turnover info for each month
For MonthCurrent As Integer = 0 To TotalMonths - 1
Dim Year As Integer = Now.AddMonths((Me.PO.MonthsBack + (TotalMonths - MonthCurrent)) * -1).Year
Dim Month As Integer = Now.AddMonths((Me.PO.MonthsBack + (TotalMonths - MonthCurrent)) * -1).Month
'1. Declare base BI calculation class
Dim MonthInfo As New Core.NETCore.BI.CompanyBussinesInfo(Year, Month, Core.NETCore.BI.CompanyBussinesInfo.TurnoverTypes.GoodsByIssue)
'2. Declare collection with supplier turnover info
Dim Ti As System.Collections.Generic.SortedList(Of Integer, Core.NETCore.BI.CompanyBussinesInfo.SupplierTurnoverInfo)
'3. Calculate supplier turnover info using base BI class (step 1.)
' FilteredInSuppliers (coma delimited string with ID's of suupliers Example "1,5688,45")
' FilteredOutSuppliers (coma delimited string with ID's of suupliers Example "1,5688,45")
Ti = MonthInfo.SupplierTurnover("", "")
'4. Browse and show data for each supplier info in specified month
For Each Item As Core.NETCore.BI.CompanyBussinesInfo.SupplierTurnoverInfo In Ti.Values
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
'Place your code to show data, stored in [Item]
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
Next
Next