Material revalution for Multiple FIFO Items in 8.8

Question

Hi Experts,
Good Morning.
I have tried to create the Mateiral revaliation Document for FIFO Items in SAP business one 8.8 with the following example and it's working fine for one item row.
If i used the more than one Item details, then i am gettting "Internal Error (-5002) arrise.
I will appriciate if any one give me some solutions for this please.
Dim invitemcode, invwhscode As String
        Dim m_MaterialRev As SAPbobsCOM.MaterialRevaluation
        Dim m_MaterialRevLines As SAPbobsCOM.MaterialRevaluation_lines
        Dim m_FIFOLayers As SAPbobsCOM.FIFOLayers
        Dim m_MRVFIFOService As SAPbobsCOM.MaterialRevaluationFIFOService
        Dim m_MRVFIFOParam As SAPbobsCOM.MaterialRevaluationFIFOParams
        Dim m_MRVFIFO As SAPbobsCOM.MaterialRevaluationFIFO
        invdocEntry = CInt(aDocEntry)
        oTemprs1 = oApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
        oTemprs1.DoQuery("select itemcode,whscode,quantity from WTR1 where  docentry ='" & invdocEntry & "' ")
        Try
            Dim j As Integer
            m_MaterialRev = oApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oMaterialRevaluation)
            m_MaterialRev.RevalType = "M"
            m_MaterialRev.DocDate = Now
            Dim intcount As Integer = 0
            Dim m_companyService As SAPbobsCOM.CompanyService
            ' Get Material Revaluation FIFO Service
            m_MaterialRevLines = m_MaterialRev.Lines
            For j = 0 To oTemprs1.RecordCount - 1
                invitemcode = oTemprs1.Fields.Item(0).Value.ToString
                invwhscode = oTemprs1.Fields.Item(1).Value.ToString
                If j > 0 Then
                    m_MaterialRevLines.Add()
                    m_MaterialRevLines.SetCurrentLine(j)
                End If
                m_MaterialRevLines.ItemCode = invitemcode
                m_MaterialRevLines.RevaluationDecrementAccount = "_SYS00000000094"
                m_MaterialRevLines.RevaluationIncrementAccount = "_SYS00000000094"
                m_MaterialRevLines.WarehouseCode = invwhscode
                m_FIFOLayers = m_MaterialRevLines.FIFOLayers
                ' Get Company Service
                m_companyService = oApplication.Company.GetCompanyService()
                m_MRVFIFOService = oApplication.Company.GetCompanyService.GetBusinessService(SAPbobsCOM.ServiceTypes.MaterialRevaluationFIFOService)
                ' Create Material Revaluation FIFO Service parameters
                m_MRVFIFOParam = m_MRVFIFOService.GetDataInterface(SAPbobsCOM.MaterialRevaluationFIFOServiceDataInterfaces.mrfifosMaterialRevaluationFIFOParams)
                m_MRVFIFOParam.ItemCode = invitemcode         
      m_MRVFIFOParam.LocationCode = invwhscode
                m_MRVFIFOParam.LocationType = "64"
                m_MRVFIFOParam.ShowIssuedLayers = SAPbobsCOM.BoYesNoEnum.tNO
                ' Process FIFO layers
                m_MRVFIFO = m_MRVFIFOService.GetMaterialRevaluationFIFO(m_MRVFIFOParam)
                Dim LayerNum As Integer = m_MRVFIFO.Layers.Count
                intcount = 0
                For i As Integer = 0 To LayerNum - 1
                    If m_MRVFIFO.Layers.Item(i).DocType = SAPbobsCOM.TransTypesEnum.ttTransferBetweenWarehouses And m_MRVFIFO.Layers.Item(i).OpenQty > 0 Then
                        If intcount > 0 Then
                            m_FIFOLayers.Add()
                        End If
                        m_FIFOLayers.SetCurrentLine(intcount)
                        m_FIFOLayers.LayerID = m_MRVFIFO.Layers.Item(i).LayerID
                        m_FIFOLayers.TransactionSequenceNum = m_MRVFIFO.Layers.Item(i).TransactionSequenceNum
                        m_FIFOLayers.LineTotal = 104
                        intcount = intcount + 1
                    End If
                Next
                oTemprs1.MoveNext()
            Next
            If m_MaterialRev.Add() <> 0 Then
                MsgBox(oApplication.Company.GetLastErrorDescription)
            Else
                Dim stcode As String
                oApplication.Company.GetNewObjectCode(stcode)
                MsgBox(stcode)
            End If
        Catch ex As Exception
            oApplication.Utilities.Message("itemcode" + ex.Message, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
        End Try

Answer 1

Version: 881 PL04
I am gettting "
[MRV2.LineNum][line: 4] ,
'[Microsoft][SQL Server Native Client 10.0]
Invalid character value for cast specification'
" arrise.
Please let me know, because I'm starting to think that this is a bug in the SDK?