Hi,

I changed the Null Value option on three columns from Return Alternate on Null to Return Alternate on Null / Set Null on Alternate (value type) and the generated code was missing an End If - see below:

''' <summary>

''' AGTSequ

''' </summary>

''' <remarks></remarks>

<Browsable(False), _

BusinessFieldDisplayInEditor(), _

Description("AGTSequ"), _

DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _

Public Property [AGTSequ]() As System.Int32

Get

Dim loValue As Object

loValue = Me.CurrentRow.Item("AGTSequ")

If loValue Is DBNull.Value Then

Return 1

Else

Return CType(loValue, System.Int32)

End If

End Get

Set(ByVal value As System.Int32)

If value <> 1 Then

Me.CurrentRow.Item("AGTSequ") = value

Else

Me.CurrentRow.Item("AGTSequ") = DBNull.Value

<----- missing end if here.

End Set

End Property

Cheers, Peter

I just got this error as well.  After rebuilding all of my BOs I have 680 errors...all the missing End If error.  I would like to use this feature as I think it is a very good idea, so please let us know when the fix is available.

It's been fixed and posted here:

http://forum.strataframe.net/Topic10915-10-1.aspx

There were several threads that brought up this issue... I'll try to find all of them and post the link to the update.