Problem when update distribution rules by "UpdateDistributionRule" method

Question

Dear,
I want to use the "UpdateDistributionRule" method for updating (add new line) the existing distribution rules. I have tried the code from SDK help, but it does not work.
Here is the code from SDK help as below:
oCmpSrv = oCompany.GetCompanyService()
Dim oDLservice As SAPbobsCOM.DistributionRulesService = oCmpSrv.GetBusinessService(SAPbobsCOM.ServiceTypes.DistributionRulesService)
Dim oDL As SAPbobsCOM.DistributionRule
Dim oDLParams As SAPbobsCOM.IDistributionRuleParams
' Get distribution rule
oDLParams = oDLservice.GetDataInterface(SAPbobsCOM.DistributionRulesServiceDataInterfaces.drsDistributionRuleParams)
oDLParams.FactorCode = "1"
Try
    oDL = oDLservice.GetDistributionRule(oDLParams)
Catch ex As Exception
    MsgBox(ex.Message)
End Try
' Update 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.UpdateDistributionRule(oDL)
Catch ex As Exception
    MsgBox(ex.Message)
End Try
Regards,
On

Answer 1

HI,
Tried, but not work.
It shows - Invalid row number
Also, I try another like the following, but not work.
It shows - Enter valid amount in "Total"
Dim oCmpSrv As SAPbobsCOM.CompanyService
        oCmpSrv = oCompany.GetCompanyService()
        Dim oDLservice As SAPbobsCOM.DistributionRulesService = oCmpSrv.GetBusinessService(SAPbobsCOM.ServiceTypes.DistributionRulesService)
        Dim oDL As SAPbobsCOM.DistributionRule
        Dim oDLParams As SAPbobsCOM.IDistributionRuleParams
        ' Get distribution rule
        oDLParams = oDLservice.GetDataInterface(SAPbobsCOM.DistributionRulesServiceDataInterfaces.drsDistributionRuleParams)
        oDLParams.FactorCode = "DR001"
        Try
            oDL = oDLservice.GetDistributionRule(oDLParams)
            ' Update distribution rule
            oDL.FactorCode = "DR001"
            oDL.FactorDescription = "Desc 1"
            oDL.InWhichDimension = 1
            oDL.TotalFactor = 60
            oDL.DistributionRuleLines.Item(0).CenterCode = "036" -> exist line
            oDL.DistributionRuleLines.Item(0).TotalInCenter = "20"
            oDL.DistributionRuleLines.Item(1).CenterCode = "049" -> exist line
            oDL.DistributionRuleLines.Item(1).TotalInCenter = "30"
            oDL.DistributionRuleLines.Add()
            oDL.DistributionRuleLines.Item(2).CenterCode = "090" -> new line
            oDL.DistributionRuleLines.Item(2).TotalInCenter = "10"
            Try
                oDLservice.UpdateDistributionRule(oDL)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
Regards,
On