📚 SAP Business One SDK Help

AddDistributionRule Method
See Also  Example
pIDistributionRule
The data for the new distribution rule.

Description

Adds a distribution rule.

Syntax

Visual Basic
Public Function AddDistributionRule( _
   ByVal pIDistributionRule As DistributionRule _
) As DistributionRuleParams

Parameters

pIDistributionRule
The data for the new distribution rule.

Return Type

Contains the key (OcrCode) of the new distribution rule.

Example

Adding a distribution rule (Visual Basic)Copy Code
oCmpSrv = oCompany.GetCompanyService()
Dim oDLservice As SAPbobsCOM.DistributionRulesService = oCmpSrv.GetBusinessService(SAPbobsCOM.ServiceTypes.DistributionRulesService)
Dim oDL As SAPbobsCOM.DistributionRule

' Add distribution rule
oDL = oDLservice.GetDataInterface(SAPbobsCOM.DistributionRulesServiceDataInterfaces.drsDistributionRule)
oDL.FactorCode = "1"
oDL.FactorDescription = "Desc 1"
oDL.InWhichDimension = 1
oDL.TotalFactor = 40

oDL.DistributionRuleLines.Add()
oDL.DistributionRuleLines.Item(0).CenterCode = "1"
oDL.DistributionRuleLines.Item(0).TotalInCenter = "10"

oDL.DistributionRuleLines.Add()
oDL.DistributionRuleLines.Item(1).CenterCode = "2"
oDL.DistributionRuleLines.Item(1).TotalInCenter = "30"


Try
    oDLservice.AddDistributionRule(oDL)
Catch ex As Exception
    MsgBox(ex.Message)
End Try

See Also