| Line 137... |
Line 137... |
| 137 |
|
137 |
|
| 138 |
nLastRowInx = LastRowInx ()
|
138 |
nLastRowInx = LastRowInx ()
|
| 139 |
|
139 |
|
| 140 |
For i = 0 To nLastRowInx
|
140 |
For i = 0 To nLastRowInx
|
| 141 |
FieldValue = RequestValue( maRules( InxFieldName, i ) )
|
141 |
FieldValue = RequestValue( maRules( InxFieldName, i ) )
|
| 142 |
|
- |
|
| 143 |
Call ValidateField ( FieldValue, i )
|
142 |
Call ValidateField ( FieldValue, i )
|
| 144 |
|
143 |
|
| 145 |
Next
|
144 |
Next
|
| 146 |
|
145 |
|
| 147 |
' --- Finally, set the Form state of validity
|
146 |
' --- Finally, set the Form state of validity
|
| Line 435... |
Line 434... |
| 435 |
GetColumnInx = Eval( "Inx"& Trim( sParam ) )
|
434 |
GetColumnInx = Eval( "Inx"& Trim( sParam ) )
|
| 436 |
|
435 |
|
| 437 |
End Select
|
436 |
End Select
|
| 438 |
End Function
|
437 |
End Function
|
| 439 |
'-----------------------------------------------------------------------------------------------------------------
|
438 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
439 |
' Add a Rule, only if its required
|
| - |
|
440 |
Private Sub addRule (aFieldList, sId, sRule)
|
| - |
|
441 |
Dim sItem
|
| - |
|
442 |
For Each sItem in aFieldList
|
| - |
|
443 |
If 0 = StrComp(sItem, sId) Then
|
| - |
|
444 |
UpdateRules (sRule)
|
| - |
|
445 |
Exit Sub
|
| - |
|
446 |
End If
|
| - |
|
447 |
Next
|
| - |
|
448 |
End Sub
|
| - |
|
449 |
'-----------------------------------------------------------------------------------------------------------------
|
| 440 |
Sub LoadValidationRules ( aFieldList, ByRef objOraDatabase )
|
450 |
Sub LoadValidationRules ( aFieldList, ByRef objOraDatabase )
|
| 441 |
UpdateRules ("id='node_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
451 |
Call addRule (aFieldList,"node_comments","id='node_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
| 442 |
UpdateRules ("id='os_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
452 |
Call addRule (aFieldList,"os_name","id='os_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
| 443 |
UpdateRules ("id='os_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
453 |
Call addRule (aFieldList,"os_comments","id='os_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
| 444 |
UpdateRules ("id='branch_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
454 |
Call addRule (aFieldList,"branch_name","id='branch_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
| 445 |
UpdateRules ("id='proj_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
455 |
Call addRule (aFieldList,"proj_name","id='proj_name' IsRequired='Y' MaxStringLength='50'")
|
| 446 |
UpdateRules ("id='state_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
456 |
Call addRule (aFieldList,"state_name","id='state_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
| 447 |
UpdateRules ("id='bom_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
457 |
Call addRule (aFieldList,"bom_name","id='bom_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
| 448 |
UpdateRules ("id='bom_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
458 |
Call addRule (aFieldList,"bom_comments","id='bom_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
| 449 |
UpdateRules ("id='reject_note' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
459 |
Call addRule (aFieldList,"reject_note","id='reject_note' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
| 450 |
UpdateRules ("id='release_to_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
460 |
Call addRule (aFieldList,"release_to_comments","id='release_to_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
| 451 |
UpdateRules ("id='product_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
461 |
Call addRule (aFieldList,"product_comments","id='product_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
| 452 |
UpdateRules ("id='base_env_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
462 |
Call addRule (aFieldList,"base_env_name","id='base_env_name' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='' RegExpDescription=''")
|
| 453 |
UpdateRules ("id='prod_name' IsRequired='Y' MinStringLength='' MaxStringLength='255' RegExp='[^a-zA-Z0-9\.\!\$\-\_]' RegExpDescription='Allowed characters are <br>A-Z a-z 0-9 . ! $ - _'")
|
463 |
Call addRule (aFieldList,"prod_name","id='prod_name' IsRequired='Y' MinStringLength='' MaxStringLength='255' RegExp='[^a-zA-Z0-9\.\!\$\-\_]' RegExpDescription='Allowed characters are <br>A-Z a-z 0-9 . ! $ - _'")
|
| 454 |
UpdateRules ("id='prod_version' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='[^a-zA-Z0-9\.\!\$\-\_]' RegExpDescription='Allowed characters are <br>A-Z a-z 0-9 . ! $ - _'")
|
464 |
Call addRule (aFieldList,"prod_version","id='prod_version' IsRequired='Y' MinStringLength='' MaxStringLength='50' RegExp='[^a-zA-Z0-9\.\!\$\-\_]' RegExpDescription='Allowed characters are <br>A-Z a-z 0-9 . ! $ - _'")
|
| 455 |
UpdateRules ("id='branch_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
465 |
Call addRule (aFieldList,"branch_comments","id='branch_comments' IsRequired='N' MinStringLength='' MaxStringLength='4000' RegExp='' RegExpDescription=''")
|
| 456 |
UpdateRules ("id='bom_lifecycle' IsRequired='Y' MinStringLength='1' MaxStringLength='10' RegExp='[^0-9]' RegExpDescription='Only numbers accepted.'")
|
466 |
Call addRule (aFieldList,"bom_lifecycle","id='bom_lifecycle' IsRequired='Y' MinStringLength='1' MaxStringLength='10' RegExp='[^0-9]' RegExpDescription='Only numbers accepted.'")
|
| 457 |
UpdateRules ("id='bom_version' IsRequired='Y' MinStringLength='1' MaxStringLength='10' RegExp='[^a-zA-Z0-9\.\!\$\-\_]' RegExpDescription='Allowed characters are <br>A-Z a-z 0-9 . ! $ - _'")
|
467 |
Call addRule (aFieldList,"bom_version","id='bom_version' IsRequired='Y' MinStringLength='1' MaxStringLength='10' RegExp='[^a-zA-Z0-9\.\!\$\-\_]' RegExpDescription='Allowed characters are <br>A-Z a-z 0-9 . ! $ - _'")
|
| 458 |
End Sub
|
468 |
End Sub
|
| 459 |
'-----------------------------------------------------------------------------------------------------------------
|
469 |
'-----------------------------------------------------------------------------------------------------------------
|
| 460 |
Private Sub Class_Initialize()
|
470 |
Private Sub Class_Initialize()
|
| 461 |
'// Perform action on creation of object. e.g. Set myObj = New ThisClassName
|
471 |
'// Perform action on creation of object. e.g. Set myObj = New ThisClassName
|
| 462 |
Set mobjFieldMap = CreateObject("Scripting.Dictionary")
|
472 |
Set mobjFieldMap = CreateObject("Scripting.Dictionary")
|