Public Function AddDistributionRule( _ ByVal pIDistributionRule As DistributionRule _ ) As DistributionRuleParams
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
DistributionRulesService Object