EOF and BOF warning message

Question

Hi ..
Currently im doing a AddNo where i will be inserting all contents of the recortset into the invoice, My problem , When my loop reach the eof a error/warning message appear  that cause some my code not to execute , i would like to ask is there a way to suppress this warning message
start of code -
try
While oRS.EoF = False
                vcardcode = oRS.Fields.Item("BPCode").Value
                vClearing = oRS.Fields.Item("Clearing").Value
                vPrjCode = oRS.Fields.Item("ProjCode").Value
                vAmt = 0
                While vcardcode = oRS.Fields.Item("BPCode").Value And vClearing = oRS.Fields.Item("Clearing").Value And oRS.EoF = False
                    vAmt = vAmt + oRS.Fields.Item("Sharing").Value
                    xcount = xcount + 1
                    oRS.MoveNext()
                End While
                oInvoice.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Service
                oInvoice.CardCode = vcardcode
                oInvoice.Comments = " Data Interface "
                oInvoice.DocDate = Today
                oInvoice.DocDueDate = Today
                oInvoice.Project = oRS.Fields.Item("ProjCode").Value
                '-- Invoice Details for Financial Income--
                oInvoice.Lines.ItemDescription = "Billing for: " & Today
                oInvoice.Lines.AccountCode = vClearing
                'oInvoice.Lines.UserFields.Fields.Item("U_ActCode") = oRS.Fields.Item("ActCode").Value
                'oInvoice.Lines.UserFields.Fields.Item("U_SActCde") = oRS.Fields.Item("SActCde").Value
                oInvoice.Lines.LineTotal = vAmt
                oInvoice.Lines.BaseLine = 1
                oInvoice.Lines.Add()
                oInvoice.Lines.SetCurrentLine(1)
                If oInvoice.Add <> 0 Then
                    MsgBox("Error " + oCompany.GetLastErrorDescription())
                Else
                    oDocNum = oCompany.GetNewObjectKey().ToString
                    cRemarks = cRemarks & IIf(Len(cRemarks) = 0, "", ",") & oDocNum
                    'SndB1Msg(oDocNum, SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes, "New GRPPO")
                    'Insert2OLOA(vDocNum, vDocDate, oDocNum, Now.ToShortDateString, vCardCode, vCardName)
                End If
            End While
Catch ex As Exception
            MsgBox(ex.Message)
        End Try
end of code
thanks
Loren

Answer 1

HI,
the problem is you use ors.movenext in the inner cycle and when the EOF is reached,
you chekcing the BPCode and Clearing fiels of the recordset.
Wrong:
While vcardcode = oRS.Fields.Item("BPCode").Value
And vClearing = oRS.Fields.Item("Clearing").Value And oRS.EoF = False
  ors.movenext ' here the EOF has been reached, so in the while condition will fail
end while
Correct code: Use ANDALSO operator, and move the ors.eof = false condition
to first
While oRS.EoF = False AndAlso vcardcode = oRS.Fields.Item("BPCode").Value
AndAlso vClearing = oRS.Fields.Item("Clearing").Value
.. ' AndAlso will give ors.eof = false as true, and will leave the cycle
end while
AndAlso: reading the condition from left to right, and at the first false value is exiting from the loop
Regards,
J.