Want to create a multiple Purchase Order using one file source

Question

I'm want to create a multiple purchase order using one source file. I want to read the file source create LINES in a purchase order and when the Vendor code changes I want to Add the purchase order and then create a new purchase order and Add LINES and so on.
Right now I get  Item.no is missing [POR1.ItemCode][Line 2]

Answer 1

Here is a code sample
    Private Sub testcode()
        Dim strOrdplanFile As String
        Dim oLineRec As SAPbobsCOM.Recordset
        Dim strLine As String = ""
        Dim ItemName As String
        Dim Quantity As String
        Dim RequiredDate As String
        Dim SupplierType As String
        Dim ShipTo As String
        Dim Vendor As String
        Dim oPurchaseOrder As SAPbobsCOM.Documents
        Dim bAddPOrder As Boolean = True
        Dim bPurchase As Boolean = False
        Dim sSQL As String
        Dim iReads As Integer = 1
        Dim iCurrentPurchaseNumber As Integer = 0
        Dim bErrors As Boolean = False
        Dim retCode As Double
        oPurchaseOrder = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseOrders)
        strOrdplanFile = strFolderLocation & "ORDPLAN.TXT"
        If File.Exists(strOrdplanFile) And FileLen(strOrdplanFile) > 0 Then
            Dim sr As New StreamReader(strOrdplanFile)
            strLine = sr.ReadLine()
            txtPurRec.String = "0"
            oFormStatus.Update()
            Try
                Do
                    Vendor = strLine.Substring(0, 8).Trim()
                    ShipTo = strLine.Substring(12, 8).Trim()
                    SupplierType = strLine.Substring(26, 1)
                    ItemName = strLine.Substring(27, 20).Trim()
                    Quantity = strLine.Substring(94, 8)
                    RequiredDate = strLine.Substring(206, 9)
                    oLineRec = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                    sSQL = "SELECT PrcrmntMtd, CardCode FROM OITM WHERE ItemCode = '" & ItemName & "'"
                    oLineRec.DoQuery(sSQL)
                    If oLineRec.RecordCount() > 0 Then ' if it exists add the record
                        If oLineRec.Fields.Item(0).Value.ToString = "B" Then
                            If (bAddPOrder) Then
                                oPurchaseOrder.CardCode = Vendor
                                oPurchaseOrder.DocDueDate = RequiredDate
                                'Add first item to the purchase order
                                oPurchaseOrder.Lines.ItemCode = ItemName
                                oPurchaseOrder.Lines.WarehouseCode = ShipTo
                                oPurchaseOrder.Lines.Quantity = CDbl(Quantity)
                                oPurchaseOrder.Lines.Add()
                                bAddPOrder = False
                                bPurchase = True
                                iCurrentPurchaseNumber = iCurrentPurchaseNumber + 1
                                txtPurRec.String = "R: " & iReads & " W: " & iCurrentPurchaseNumber.ToString
                                oFormStatus.Update()
                            Else
                                'compare CardCode to make sure Vendor hasn't change
                                If (oPurchaseOrder.CardCode.CompareTo(Vendor) = 0) Then
                                    'Add item to the purchase order
                                    oPurchaseOrder.Lines.ItemCode = ItemName
                                    oPurchaseOrder.Lines.WarehouseCode = ShipTo
                                    oPurchaseOrder.Lines.Quantity = CDbl(Quantity)
                                    oPurchaseOrder.Lines.Add()
                                Else
                                    'vender code changed
                                    retCode = oPurchaseOrder.Add()
                                    If (retCode <> 0) Then
                                        SBO_Application.MessageBox(oCompany.GetLastErrorDescription(), 1, "OK", "", "")
                                    End If
                                    oPurchaseOrder.CardCode = Vendor
                                    oPurchaseOrder.DocDueDate = RequiredDate
                                    'Add first item to the purchase order
                                    oPurchaseOrder.Lines.ItemCode = ItemName
                                    oPurchaseOrder.Lines.WarehouseCode = ShipTo
                                    oPurchaseOrder.Lines.Quantity = CDbl(Quantity)
                                    oPurchaseOrder.Lines.Add()
                                    bAddPOrder = False
                                    bPurchase = True
                                    iCurrentPurchaseNumber = iCurrentPurchaseNumber + 1
                                    txtPurRec.String = "R: " & iReads & " W: " & iCurrentPurchaseNumber.ToString
                                    oFormStatus.Update()
                                End If
                                iReads = iReads + 1
                            End If 'new
                            strLine = sr.ReadLine()
                        End If
                    End If
                Loop Until sr.EndOfStream
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Information)
            End Try
            If (bPurchase) Then
                lRetCode = oPurchaseOrder.Add()
            End If
            sr.Close()
            swLogFile.WriteLine("Purchase orders stored : " & iCurrentPurchaseNumber)
            oPurchaseOrder = Nothing
        End If
    End Sub