Internal error (-2014) Goods Issue with Batch Items added through UI

Question

Hello Experts,
I've added a button to my Production Order screen labeled 'Issue Components' that is meant to streamline the process, and it works, except when the ProdOrder has Batch controlled items on it. When that happens it returns Internal error (-2014)<br><br>
I've tried stepping through the code and it doesn't error until the final Add
Here is my function, Thanks for the Help!<br><br>
I'm using CitiXSys Inventory Pro and am pulling the items from the Picked table, that's what that sQuery does. It returns correctly. I've also set everything to 'Manual' instead of 'Backflush'<br><br><br>
<pre>
Private Sub IssueComponents(ByVal iDocNum As Integer)
        Try
            'Declaring the needed variables'
            Dim oRec As SAPbobsCOM.Recordset
            Dim oGoodsIssue As SAPbobsCOM.Documents
            Dim bIssueLineAdded As Boolean = False, sQuery As String = "", x As Integer = 0, iCode As Long = 0, sErrorMessage As String = ""
            Dim tmpLot As String = ""
            'Instanciating the Goods Issue'
            oGoodsIssue = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInventoryGenExit)
            'Initialzing the SBO object'
            oRec = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            'Assing the header of the Goods Issue'
            oGoodsIssue.DocDate = Date.Now
            oGoodsIssue.DocDueDate = Date.Now
            'Getting the entire "Manual" components for this production order to issue them'
            sQuery &= "Select PK1.U_DocNo, KI.U_ItemCode, KI.U_BseLnNo, OW.DocEntry, KI.U_Quantity, KI.U_WhsCode, KI2.U_BatSrlNo, KI2.U_LotNo from [OWOR] OW (NOLOCK) INNER JOIN [@ctx_pkin] PK ON OW.DocNum = PK.U_BaseDoc," & vbNewLine
            sQuery &= "[@ctx_PKIN] PK1 (NOLOCK) INNER JOIN [@CTX_KIN1] KI (NOLOCK) ON PK1.U_DocNo = KI.U_DocNo," & vbNewLine
            sQuery &= "[@ctx_KIN1] KI1 (NOLOCK) INNER JOIN [@CTX_KIN2] KI2 (NOLOCK) ON KI1.U_DocNo = KI2.U_DocNo and KI1.U_BseLnNo = KI2.U_BseLnNo" & vbNewLine
            sQuery &= "where OW.DocNum = '" & iDocNum & "' and PK.U_BaseType = 202 and PK1.U_DocNo = PK.U_DocNo and KI1.U_DocNo = PK.U_DocNo and KI1.U_BseLnNo = KI.U_BseLnNo" & vbNewLine
            'Executing the query'
            oRec.DoQuery(sQuery)
            'Looping through the "Manual" components'
            For x = 0 To oRec.RecordCount - 1
                'Prompting the user'
                oAppl.StatusBar.SetText("Issuing Components...(" & x + 1 & " of " & oRec.RecordCount & ")", SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
                'Adding the previous line if applicable'
                If bIssueLineAdded Then
                    oGoodsIssue.Lines.Add()
                End If
                'Filling the line information'
                oGoodsIssue.Lines.WarehouseCode = oRec.Fields.Item("U_WhsCode").Value 'dIssueComponents(x).Item("WhsCode")
                'oGoodsIssue.Lines.TransactionType = SAPbobsCOM.BoTransactionTypeEnum.botrntComplete
                oGoodsIssue.Lines.BaseEntry = oRec.Fields.Item("DocEntry").Value 'oProductionOrder.AbsoluteEntry
                oGoodsIssue.Lines.BaseType = 202                                          'Production Order Type'
                oGoodsIssue.Lines.BaseLine = oRec.Fields.Item("U_BseLnNo").Value 'GetBaseLine(oProductionOrder.AbsoluteEntry, dIssueComponents(x).Item("Component"))
                'oGoodsIssue.Lines.ItemCode = oRec.Fields.Item("U_ItemCode").Value
                oGoodsIssue.Lines.Quantity = oRec.Fields.Item("U_Quantity").Value 'Math.Round(oRec.Fields.Item("U_Quantity").Value, 2) 'dIssueComponents(x).Item("PlanQty")
                'Checking if the item is neither lot or serial controlled item'
                If oRec.Fields.Item("U_BatSrlNo").Value = "" And oRec.Fields.Item("U_LotNo").Value = "" Then
                    'Nothing controlled item'
                ElseIf oRec.Fields.Item("U_BatSrlNo").Value <> "" Then
                    'Lot controlled item'
                    tmpLot = oRec.Fields.Item("U_BatSrlNo").Value
                    'oAppl.MessageBox("Lot: " & tmpLot & ", whs: " & oRec.Fields.Item("U_WhsCode").Value & ", qty: " & oRec.Fields.Item("U_Quantity").Value)
                    oGoodsIssue.Lines.BatchNumbers.Add()
                    oGoodsIssue.Lines.BatchNumbers.BatchNumber = oRec.Fields.Item("U_BatSrlNo").Value
                    oGoodsIssue.Lines.BatchNumbers.Quantity = oRec.Fields.Item("U_Quantity").Value 'Math.Round(oRec.Fields.Item("U_Quantity").Value, 2)
                    'Else
                    'Serial controlled item'
                    'oGoodsIssue.Lines.SerialNumbers.SystemSerialNumber = oRec.Fields.Item("").Value
                End If
                'Setting the line to be added'
                bIssueLineAdded = True
                'Movoing to the next record'
                oRec.MoveNext()
            Next x
            'Checking if there was any component or not'
            If bIssueLineAdded Then
                'Adding the Goods Issue'
                iCode = oGoodsIssue.Add
                If iCode <> 0 Then
                    oCompany.GetLastError(iCode, sErrorMessage)
                    oAppl.MessageBox("Goods Issue Production Order: " & iDocNum & " didn't get created for the following reason: " & serrormessage)
                Else
                    oAppl.StatusBar.SetText("Components were issued successfully.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success)
                    'TODO: add to ProdOrder remarks field
                End If
            End If
        Catch ex As Exception
            oAppl.MessageBox("IssueComponents() " & ex.Message)
            oAppl.StatusBar.SetText("Error in IssueComponenets() : " & ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
        End Try
    End Sub
</pre>
Edited by: Rob Daniels on May 30, 2011 10:33 PM

Answer 1

Please use the latest upgrade of Inventory Pro from CitiXsys.
If you are using SAP Business One 2007; use Inventory Pro 5.6 series
For SAP Business One 8.8 and up; use Inventory Pro 6.6.1 and up