| Line 435... |
Line 435... |
| 435 |
GetColumnInx = Eval( "Inx"& Trim( sParam ) )
|
435 |
GetColumnInx = Eval( "Inx"& Trim( sParam ) )
|
| 436 |
|
436 |
|
| 437 |
End Select
|
437 |
End Select
|
| 438 |
End Function
|
438 |
End Function
|
| 439 |
'-----------------------------------------------------------------------------------------------------------------
|
439 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
440 |
' Add a Rule, only if its required
|
| - |
|
441 |
Private Sub addRule (aFieldList, sId, sRule)
|
| - |
|
442 |
Dim sItem
|
| - |
|
443 |
For Each sItem in aFieldList
|
| - |
|
444 |
If 0 = StrComp(sItem, sId) Then
|
| - |
|
445 |
UpdateRules (sRule)
|
| - |
|
446 |
Exit Sub
|
| - |
|
447 |
End If
|
| - |
|
448 |
Next
|
| - |
|
449 |
End Sub
|
| - |
|
450 |
'-----------------------------------------------------------------------------------------------------------------
|
| 440 |
Sub LoadValidationRules ( aFieldList, ByRef objOraDatabase )
|
451 |
Sub LoadValidationRules ( aFieldList, ByRef objOraDatabase )
|
| 441 |
UpdateRules ("id='app_acr' IsRequired='Y' MaxStringLength='3' RegExp='' RegExpDescription=''")
|
452 |
Call addRule (aFieldList, "app_acr", "id='app_acr' IsRequired='Y' MaxStringLength='3' RegExp='' RegExpDescription=''")
|
| 442 |
UpdateRules ("id='app_name' IsRequired='Y' MaxStringLength='255' RegExp='' RegExpDescription=''")
|
453 |
Call addRule (aFieldList, "app_name", "id='app_name' IsRequired='Y' MaxStringLength='255' RegExp='' RegExpDescription=''")
|
| 443 |
UpdateRules ("id='display_column_name' IsRequired='Y' MaxStringLength='1000'")
|
454 |
Call addRule (aFieldList, "display_column_name", "id='display_column_name' IsRequired='Y' MaxStringLength='1000'")
|
| 444 |
UpdateRules ("id='domain' IsRequired='N' MaxStringLength='20'")
|
455 |
Call addRule (aFieldList, "domain", "id='domain' IsRequired='N' MaxStringLength='20'")
|
| 445 |
UpdateRules ("id='full_name' IsRequired='Y' MaxStringLength='255'")
|
456 |
Call addRule (aFieldList, "full_name", "id='full_name' IsRequired='Y' MaxStringLength='255'")
|
| 446 |
UpdateRules ("id='obj_description' IsRequired='Y' MaxStringLength='1000' MinStringLength='15'")
|
457 |
Call addRule (aFieldList, "obj_description", "id='obj_description' IsRequired='Y' MaxStringLength='1000' MinStringLength='15'")
|
| 447 |
UpdateRules ("id='obj_name' IsRequired='Y' MaxStringLength='255' RegExp='[^a-zA-Z0-9]' RegExpDescription='Must be alpha-numeric<br>[a-z,A-Z,0-9].'")
|
458 |
Call addRule (aFieldList, "obj_name", "id='obj_name' IsRequired='Y' MaxStringLength='255' RegExp='[^a-zA-Z0-9]' RegExpDescription='Must be alpha-numeric<br>[a-z,A-Z,0-9].'")
|
| 448 |
UpdateRules ("id='ref_column_name' IsRequired='Y' MaxStringLength='1000'")
|
459 |
Call addRule (aFieldList, "ref_column_name", "id='ref_column_name' IsRequired='Y' MaxStringLength='1000'")
|
| 449 |
UpdateRules ("id='role_comments' IsRequired='Y' MaxStringLength='255' MinStringLength='15'")
|
460 |
Call addRule (aFieldList, "role_comments", "id='role_comments' IsRequired='Y' MaxStringLength='255' MinStringLength='15'")
|
| 450 |
UpdateRules ("id='role_name' IsRequired='Y' MaxStringLength='50'")
|
461 |
Call addRule (aFieldList, "role_name", "id='role_name' IsRequired='Y' MaxStringLength='50'")
|
| 451 |
UpdateRules ("id='table_name' IsRequired='Y' MaxStringLength='1000'")
|
462 |
Call addRule (aFieldList, "table_name", "id='table_name' IsRequired='Y' MaxStringLength='1000'")
|
| 452 |
UpdateRules ("id='user_email' IsRequired='Y' MaxStringLength='1000'")
|
463 |
Call addRule (aFieldList, "user_email", "id='user_email' IsRequired='Y' MaxStringLength='1000'")
|
| 453 |
UpdateRules ("id='user_name' IsRequired='Y' MaxStringLength='1000'")
|
464 |
Call addRule (aFieldList, "user_name", "id='user_name' IsRequired='Y' MaxStringLength='1000'")
|
| 454 |
End Sub
|
465 |
End Sub
|
| 455 |
'-----------------------------------------------------------------------------------------------------------------
|
466 |
'-----------------------------------------------------------------------------------------------------------------
|
| 456 |
Private Sub Class_Initialize()
|
467 |
Private Sub Class_Initialize()
|
| 457 |
'// Perform action on creation of object. e.g. Set myObj = New ThisClassName
|
468 |
'// Perform action on creation of object. e.g. Set myObj = New ThisClassName
|
| 458 |
Set mobjFieldMap = CreateObject("Scripting.Dictionary")
|
469 |
Set mobjFieldMap = CreateObject("Scripting.Dictionary")
|