My First Pgm.

Question

Hello.
I am writing my first program with the SDK.  I seem to have got some stuff working with the UI API and now I am trying the DI API.  I can connect to the API OK and "oCompany.CompanyName" returns the correct company name so I am sure I am connected to the API and company OK.
My first piece of code that accesses the DI API looks like this :
Dim readings As SAPbobsCOM.Recordset
readings = ocompany.GetBusiness(ObjectSAPbobsCOM.BoObjectTypes.BoRecordset)
readings.DoQuery("Select U_insID,U_read_val from [@VGL_READNGS]")
Dim contract As Integer
contract = readings.Fields.Item(0).Value
While Not (readings.EoF)
   Dim LastUnbilledReading As Integer
   Dim FirstUnbilledReading As Integer
       blah blah blah
If I use the debug feature in VS.net and step through the code, I can see quite a delay at the line contact=readings.Fields.Item(0).Value
and then suddenly the code exits the procedure and returns to the form that called it.
I have put all manner of try/catchs around each line and interrogated getlasterror (I've removed them from above for sake of brevity) but I cannot see what I am doing wrong.  My user defined file is not a registered object, but I don't think that is the problem. 
Can anyone shed some light or suggest where I might look ?
Thanks,
Ray

Answer 1

Hi Ray,
I've tried your code,and it works correctly.
Is the datatype of U_insID integer ?
You can see the code like this:
        Dim readings As SAPbobsCOM.Recordset
        readings = oAddOn1Start.oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
        readings.DoQuery("Select CODE,NAME from [@CADMEN_WORKBOARD]")
        Dim contract As Integer
        contract = readings.Fields.Item(0).Value
        While Not (readings.EoF)
            Dim LastUnbilledReading As Integer
            Dim FirstUnbilledReading As Integer
            ' blah blah blah
            readings.MoveNext()
        End While