How to Build a Business Rules Engine

388 CHAPTER EIGHTEEEN Setting Indicators and Reference Data Code Values

LISTING 18.2

Code Generated for Set An Indicator Rule Type

Public Function CalcfrmINV_INVESTMENT_S() As String

Dim intErr As Integer, strErr As String, rstSource As

ADODB.Recordset

Dim strSQL As String, strGo As String, strInd As String

Dim strTab As String, strPhysName As String

Dim strSrc1 As String, strSrc2 As String, strSrc3 As String,

strSrc4 As String, strSrc5 As String, strSrc6 As String

Dim dSrc1 As Date, dSrc2 As Date, dSrc3 As Date, dSrc4 As Date,

dSrc5 As Date, dSrc6 As Date

Dim dblSrc1 As Double, dblSrc2 As Double, dblSrc3 As Double,

dblSrc4 As Double, dblSrc5 As Double, dblSrc6 As Double

Dim cmd As ADODB.Command, lngAffected As Long, varMy As Variant

' Last Generated: 2/17/2003 ...