Error using DI API on Item Revaluation

Question

Dear All
While on Revaluation of Item using DI API System gives error meaasage as "Internal Error 5002" ans displaya 'Material Revaluation failed'.
Can any one help me to find the reason for this error and how to overcome the situation?
With regards
Aloke

Answer 1

Dear Siva
Following is the code I am using for revaluation of items which is giveing "Internal Error 5002':
Dim lMaterialRevaluation As SAPbobsCOM.MaterialRevaluation
        lMaterialRevaluation = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oMaterialRevaluation)
        For li As Integer = 0 To ls_Lines.Length - 1
            If ls_Lines(li).Split(vbTab).Length <> 5 Then
                My.Computer.FileSystem.WriteAllText(ls_OutFileName, lnl_SrlNo & "--> Can't Read in the data in Line " & li + 1, True)
                My.Computer.FileSystem.WriteAllText(ls_OutFileName, vbNewLine, True)
                lnl_SrlNo += 1
                Continue For
            End If
            ls_ItemCode = ls_Lines(li).Split(vbTab)(0).Trim
            ls_WareHouseCode = ls_Lines(li).Split(vbTab)(1).Trim
            ld_Price = ls_Lines(li).Split(vbTab)(2).Trim
            li_IncAccount = ls_Lines(li).Split(vbTab)(3).Trim
            li_DecAccount = ls_Lines(li).Split(vbTab)(4).Trim
            lMaterialRevaluation.Lines.SetCurrentLine(li)
            lMaterialRevaluation.Lines.ItemCode = ls_ItemCode
            lMaterialRevaluation.Lines.WarehouseCode = ls_WareHouseCode
            lMaterialRevaluation.Lines.Price = ld_Price
            lMaterialRevaluation.Lines.RevaluationIncrementAccount = li_IncAccount
            lMaterialRevaluation.Lines.RevaluationDecrementAccount = li_DecAccount
            lMaterialRevaluation.Lines.Add()
        Next
        Dim li_Ret As Integer
        li_Ret = lMaterialRevaluation.Add
        If li_Ret = 0 Then
            MsgBox("Material Revaluation Completed")
            System.Runtime.InteropServices.Marshal.ReleaseComObject(lMaterialRevaluation)
        Else
            oCompany.GetLastError(lErrCode, sErrMsg)
            MsgBox(sErrMsg & ", Material Revaluation failed")
        End If
Can you or any one else suggest where the error lies.
Thanks & with regards
Aloke
Edited by: ALOKE BANDYOPADHYAY on Jul 5, 2011 3:01 PM