Changes at once to all Business rules

Question

Hi All,
I am having a requirement where I need to do some changes in all my Business Rules at one time which is related to the script content. How can I achieve this task?? From where and all I need to fetch for the scripts information. I would appreciate your suggestions. I using Planning 9.3.1, windows env.

Answer 1

Jockney also brings up a good point to use Macros where you have repetive code in your rules.
If you are looking to run some type of script on all the rules and you have a few the VB code below can be used to export these to a text represenation.
'Courtesy of John A. Booth
'Save as export_rules.vbs
'Replace SQLSERVERNAME AND AAS_CATALOG with their proper names for your environment
'Currently writen to work with MS SQL Server
'The id this executes as must have select access on the AAS_CATALOG
'Large rules (> 40KB) will take some time to export. Small rules export very quickly.
'CODE BEGINS
Dim numRules
Dim ID
Dim length
Dim index
Dim headerSize
Dim fileName
Dim rule
headerSize = 233
Set fs = CreateObject("Scripting.FileSystemObject")
Set rs = CreateObject("ADODB.Recordset")
Set cnSS = CreateObject("ADODB.Connection")
Set shellObj = CreateObject( "WScript.Shell" )
if (fs.FolderExists(shellObj.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\rules") = False) Then
fs.CreateFolder (shellObj.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\rules")
End If
cnSS.Open "Provider=sqloledb;" & "Data Source=SQLSERVERNAME;" & "Initial Catalog=AAS_CATALOG;" & "Integrated Security=SSPI"
strQuery = "Select max(id) from hbrrules"
rs.Open strQuery, cnSS
If (rs.EOF <> True) Then
numRules = rs.fields(0)
For ID = 1 To numRules
rule = ""
strQuery = "Select name from hbrrules where id=" & ID
rs.Close
rs.Open strQuery, cnSS
If (rs.EOF <> True) Then
fileName = rs.fields(0)
rs.Close
strQuery = "Select body from hbrrules where id=" & ID
Set rulefile = fs.CreateTextFile(shellObj.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\rules\" & fileName & ".txt", True, True)
rs.Open strQuery, cnSS
If (rs.EOF <> True) Then
length = rs.fields(0).ActualSize
For count = 1 To length - headerSize - 5
index = count + headerSize
If Chr(AscB(MidB(rs.fields(0).Value, index, 1))) <> Chr(10) Then
rule = rule & Chr(AscB(MidB(rs.fields(0).Value, index, 1)))
Else
rule = rule & VBNEWLINE
End If
Next
rulefile.WriteLine(rule)
rulefile.Close
End If
End If
Next
End If
rs.Close
'CODE ENDS