Hello Community,
I get the above error in the setaddress call.
Here my table structure.
CREATE TABLE [dbo].[XBillableHours](
[custID] [char](15) NOT NULL,
[Descr] [char](60) NOT NULL,
[Hours] [float] NOT NULL,
[LineNbr] [smallint] NOT NULL,
[NoteId] [smallint] NULL,
[SlsperID] [char](10) NOT NULL,
[WorkDate] [smalldatetime] NOT NULL,
[tstamp] [timestamp] NOT NULL,
CONSTRAINT [XBillableHours0] PRIMARY KEY CLUSTERED
(
[custID] ASC,
[LineNbr] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
Here my DH file
Public Class XBillableHours
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 bXBillableHours As XBillableHours = New XBillableHours, nXBillableHours As XBillableHours = New XBillableHours
Public CSR_XBillableHours As Short
Public Sub Init_XBillableHours(ByRef x_Level As Short, ByRef x_Cursor As Boolean)
Call SetAddr(x_Level, "bXBillableHours", bXBillableHours, nXBillableHours)
If x_Cursor = True Then
Call SqlCursorEx(CSR_XBillableHours, x_Level, "CSR_XBillableHours", "XBillableHours", "XBillableHours")
End If
End Sub
Any pointers as to why i get the error?
Ronald
*This post is locked for comments
I have the same question (0)
