Dynamics Community Forum Thread Details

Hello Community,

I am learning dynamics sl development and going through tutorials i got from the internet.

Set up two levels ;Customer and Billable hours.

Here is the sql create table.

Create Table XBillable
(
custID char(15),
Descr    char(60),
Hours   float,
LineNbr  smallint,
NoteId smallint,
SlsperID char(10),
WorkDate smalldatetime

)
go

Create unique index xBillable0
 on dbo.XBillable(Custid,LineNbr)
 go

 Create proc xBillable_p1
 @parml varchar(15),
 @parm2min smallint,
 @parm2max smallint

 as
 select * from XBillable
 where custID=@parml
 and LineNbr between @parm2min and @parm2max
 order by custID,LineNbr
 go

I also created DH file

Option Explicit On
Imports Solomon.Kernel
Module sdoXBillable
    Public Class XBillable
        Inherits SolomonDataObject
        < _
          DataBinding(PropertyIndex:=0, StringSize:=15) _
          > _
        Public Property CustID() As String

            Get
                Return Me.GetPropertyValue("CustID")
            End Get

            Set(ByVal setval As String)
                Me.SetPropertyValue("CustID", setval)
            End Set

        End Property
        < _
         DataBinding(PropertyIndex:=1, StringSize:=60) _
         > _
        Public Property Descr() As String

            Get
                Return Me.GetPropertyValue("Descr")
            End Get

            Set(ByVal setval As String)
                Me.SetPropertyValue("Descr", setval)
            End Set

        End Property
        < _
         DataBinding(PropertyIndex:=2) _
         > _
        Public Property Hours() As Double

            Get
                Return Me.GetPropertyValue("Hours")
            End Get

            Set(ByVal setval As Double)
                Me.SetPropertyValue("Hours", setval)
            End Set

        End Property
        < _
         DataBinding(PropertyIndex:=3) _
         > _
        Public Property LineNbr() As Integer

            Get
                Return Me.GetPropertyValue("LineNbr")
            End Get

            Set(ByVal setval As Integer)
                Me.SetPropertyValue("LineNbr", setval)
            End Set

        End Property
        < _
         DataBinding(PropertyIndex:=4) _
         > _
        Public Property NoteId() As Integer

            Get
                Return Me.GetPropertyValue("NoteId")
            End Get

            Set(ByVal setval As Integer)
                Me.SetPropertyValue("NoteId", setval)
            End Set

        End Property
        < _
         DataBinding(PropertyIndex:=5, StringSize:=10) _
         > _
        Public Property SlsperID() As String

            Get
                Return Me.GetPropertyValue("SlsperID")
            End Get

            Set(ByVal setval As String)
                Me.SetPropertyValue("SlsperID", setval)
            End Set

        End Property
        < _
           DataBinding(PropertyIndex:=6) _
           > _
        Public Property WorkDate() As Integer

            Get
                Return Me.GetPropertyValue("WorkDate")
            End Get

            Set(ByVal setval As Integer)
                Me.SetPropertyValue("WorkDate", setval)
            End Set

        End Property

    End Class
    Public bXBillable As XBillable = New XBillable, nXBillable As XBillable = New XBillable
End Module

On form1 Udate1 control i added two levels: Customer;N,XBillable ;D

I added all controls...and their levels.

why getting the above error?

I have attached my project .

Please kindly review and assist.

ST26000.zip

Ronald.