Core.NETCore.BI-Examples: Porovnání verzí
Z Podpora.nextis.cz
(Nejsou zobrazeny 2 mezilehlé verze od stejného uživatele.) | |||
Řádka 1: | Řádka 1: | ||
+ | === Enumerations === | ||
+ | <syntaxhighlight lang="vb"> | ||
+ | Public Enum TurnoverTypes | ||
+ | <TDescription("Zboží podle výdeje")> | ||
+ | GoodsByIssue = 1 | ||
+ | <TDescription("Zboží podle prodeje")> | ||
+ | GoodsBySale = 2 | ||
+ | <TDescription("Služby")> | ||
+ | Services = 10 | ||
+ | End Enum | ||
+ | </syntaxhighlight><syntaxhighlight lang="vb"> | ||
+ | Public Enum TurnoverSalessmannType | ||
+ | <TDescription("Podle fakturační adresy")> | ||
+ | ByInvoiceAddress = 0 | ||
+ | <TDescription("Podle dodací adresy")> | ||
+ | ByDeliveryAddress = 2 | ||
+ | End Enum | ||
+ | </syntaxhighlight> | ||
+ | |||
=== Calculate purchase turnover for suppliers (for months) === | === Calculate purchase turnover for suppliers (for months) === | ||
<syntaxhighlight lang="vb"> | <syntaxhighlight lang="vb"> | ||
Řádka 77: | Řádka 96: | ||
=== Calculate company turnover trend (last 12 months) === | === Calculate company turnover trend (last 12 months) === | ||
+ | <syntaxhighlight lang="vb"> | ||
+ | |||
+ | Dim Result As Core.NETCore.BI.CompanyBussinesInfo.TurnoverInfo | ||
+ | |||
+ | For Month As Integer = 0 To 11 | ||
+ | |||
+ | 'Calculate date | ||
+ | Dim Dt As Date = DateSerial(Now.Year, Now.Month, 1).AddMonths((11 * -1) + Month) | ||
+ | |||
+ | 'Calculate month turnover for goods | ||
+ | Dim MonthGoods As New Core.NETCore.BI.CompanyBussinesInfo(Dt.Year, Dt.Month, Core.NETCore.BI.CompanyBussinesInfo.TurnoverTypes.GoodsByIssue) | ||
+ | Result = MonthGoods.TotalTurnover | ||
+ | |||
+ | 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX | ||
+ | 'Place your code to show data, stored in [Result] | ||
+ | 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX | ||
+ | |||
+ | 'Calculate month turnover for non-goods | ||
+ | Dim MonthServices As New Core.NETCore.BI.CompanyBussinesInfo(Dt.Year, Dt.Month, Core.NETCore.BI.CompanyBussinesInfo.TurnoverTypes.Services) | ||
+ | Result = MonthServices.TotalTurnover | ||
+ | |||
+ | 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX | ||
+ | 'Place your code to show data, stored in [Result] | ||
+ | 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX | ||
+ | Next | ||
+ | </syntaxhighlight> | ||
=== Calculate company debts overview (splitted by branch) === | === Calculate company debts overview (splitted by branch) === |
Aktuální verze z 11. 8. 2017, 10:53
Obsah
Enumerations
Public Enum TurnoverTypes
<TDescription("Zboží podle výdeje")>
GoodsByIssue = 1
<TDescription("Zboží podle prodeje")>
GoodsBySale = 2
<TDescription("Služby")>
Services = 10
End Enum
Public Enum TurnoverSalessmannType
<TDescription("Podle fakturační adresy")>
ByInvoiceAddress = 0
<TDescription("Podle dodací adresy")>
ByDeliveryAddress = 2
End Enum
Calculate purchase turnover for suppliers (for months)
'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 Result 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 suppliers. Example: "1,5688,45")
' FilteredOutSuppliers (coma delimited string with ID's of suupliers. Example: "1,5688,45")
Result = MonthInfo.SupplierTurnover("", "")
'4. Browse and show data for each supplier info in specified month
For Each Item As Core.NETCore.BI.CompanyBussinesInfo.SupplierTurnoverInfo In Result.Values
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
'Place your code to show data, stored in [Item]
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
Next
Next
Calculate sell turnover for whole company splitted by branch
Dim Year As Integer = 2017
Dim Month As Integer = 6
Dim MonthInfo As Core.NETCore.BI.CompanyBussinesInfo
Dim Result As System.Collections.Generic.SortedList(Of Integer, Core.NETCore.BI.CompanyBussinesInfo.TurnoverInfo)
'1. Create new instance of month info BI (calculate goods by issue)
MonthInfo = New Core.NETCore.BI.CompanyBussinesInfo(Year, Month, Core.NETCore.BI.CompanyBussinesInfo.TurnoverTypes.GoodsByIssue)
'2. Calculate branch turnover info for specified month
Result = MonthInfo.BranchTurnover(Core.NETCore.BI.CompanyBussinesInfo.BranchGroupMode.BranchByIssue)
'3. Browse and show data for each branch
For Each BranchID As Integer In Result.Keys
'Get item information from result collection
Dim Item As Core.NETCore.BI.CompanyBussinesInfo.TurnoverInfo = Result.Item(BranchID)
'Obtain turnover plan informations for specified period and branch
Dim Plan As Core.NETCore.BI.CompanyPlans.CompanyPlanItem = Core.NETCore.BI.CompanyPlans.MonthPlan(Year, Month, BranchID)
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
'Place your code to show data, stored in [Item],[Plan]
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
Next
'1. Create new instance of month info BI (calculate non-goods items)
MonthInfo = New Core.NETCore.BI.CompanyBussinesInfo(Year, Month, Core.NETCore.BI.CompanyBussinesInfo.TurnoverTypes.Services)
'2. Calculate branch turnover info for specified month
Result = MonthInfo.BranchTurnover(Core.NETCore.BI.CompanyBussinesInfo.BranchGroupMode.BranchByIssue)
'3. Browse and show data for each branch
For Each BranchID As Integer In Result.Keys
'Get item information from result collection
Dim Item As Core.NETCore.BI.CompanyBussinesInfo.TurnoverInfo = Result.Item(BranchID)
'Obtain turnover plan informations for specified period and branch
Dim Plan As Core.NETCore.BI.CompanyPlans.CompanyPlanItem = Core.NETCore.BI.CompanyPlans.MonthPlan(Year, Month, BranchID)
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
'Place your code to show data, stored in [Item],[Plan]
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
Next
Calculate company turnover trend (last 12 months)
Dim Result As Core.NETCore.BI.CompanyBussinesInfo.TurnoverInfo
For Month As Integer = 0 To 11
'Calculate date
Dim Dt As Date = DateSerial(Now.Year, Now.Month, 1).AddMonths((11 * -1) + Month)
'Calculate month turnover for goods
Dim MonthGoods As New Core.NETCore.BI.CompanyBussinesInfo(Dt.Year, Dt.Month, Core.NETCore.BI.CompanyBussinesInfo.TurnoverTypes.GoodsByIssue)
Result = MonthGoods.TotalTurnover
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
'Place your code to show data, stored in [Result]
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
'Calculate month turnover for non-goods
Dim MonthServices As New Core.NETCore.BI.CompanyBussinesInfo(Dt.Year, Dt.Month, Core.NETCore.BI.CompanyBussinesInfo.TurnoverTypes.Services)
Result = MonthServices.TotalTurnover
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
'Place your code to show data, stored in [Result]
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
Next