Problema in Add Distribution Rule

Question

Hi!
i have a function like tihs:
Public Function AddDistributionRule(ByVal ProfitCenters(,) As String) As String
        Dim _return As String = "1"
        Dim oCmpSrv As SAPbobsCOM.CompanyService = 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 = "prova1"
        oDL.FactorDescription = "Desc 1"
        oDL.InWhichDimension = 1
        oDL.TotalFactor = ProfitCenters(0, 1)
        oDL.DistributionRuleLines.Add()
        oDL.DistributionRuleLines.Item(0).CenterCode = ProfitCenters(0, 0)
        oDL.DistributionRuleLines.Item(0).TotalInCenter = ProfitCenters(0, 1)
        Try
            oDLservice.AddDistributionRule(oDL)
        Catch ex As Exception
            oLog.Errore(ex.Message, ex)
            _return = ""
        End Try
        Return _return
    End Function
The AddDistributionRule method gets the following error: Invalid date input
I can not understand the cause of this error ... can you help?
Thanks!

Answer 1

Hello
You has to define the Effective date from at lines
DL.DistributionRuleLines.Item(0). Effectivefrom = 'ENTER DATE HERE
If you do not know the date, you can enter as early as you can (first date of first period - you can select from OFPR table)
Regards
János