Subversion Repositories DevTools

Rev

Rev 5506 | Rev 5898 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5506 Rev 5658
Line 489... Line 489...
489 
    Set rsQry = nothing
 489 
    Set rsQry = nothing
490 
 
 490 
 
491 
   End If
 491 
   End If
492 
End Function
 492 
End Function
493 
'-----------------------------------------------------------------------------------------------------------------------------
 493 
'-----------------------------------------------------------------------------------------------------------------------------
494 
Sub LoadFieldRules ( sFieldList, ByRef outobjForm )
 - 
 
495 
   Dim rsQry, query
 - 
 
496 
 
 - 
 
497 
   query = _
 - 
 
498 
   "   SELECT FIELD_NAME, "&_
 - 
 
499 
   "         IS_REQUIRED, "&_
 - 
 
500 
   "         IS_NUMERIC, "&_
 - 
 
501 
   "         MIN_NUMERIC_VALUE, "&_
 - 
 
502 
   "         MAX_NUMERIC_VALUE, "&_
 - 
 
503 
   "         IS_DATE, "&_
 - 
 
504 
   "         START_DATE, "&_
 - 
 
505 
   "         END_DATE, "&_
 - 
 
506 
   "         MIN_STRING_LENGTH, "&_
 - 
 
507 
   "          MAX_STRING_LENGTH, "&_
 - 
 
508 
   "         REGEXP, "&_
 - 
 
509 
   "         REGEXP_DESCRIPTION "&_
 - 
 
510 
   "     FROM VALIDATION_RULES"&_
 - 
 
511 
   "    WHERE field_name IN ("& sFieldList &")"
 - 
 
512 
 
 - 
 
513 
 
 - 
 
514 
   Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 - 
 
515 
   If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 - 
 
516 
      outobjForm.LoadFieldRules rsQry.GetRows()
 - 
 
517 
 
 - 
 
518 
   End If
 - 
 
519 
 
 - 
 
520 
   rsQry.Close
 - 
 
521 
   Set rsQry = Nothing
 - 
 
522 
End Sub
 - 
 
523 
'-----------------------------------------------------------------------------------------------------------------------------
 - 
 
524 
Sub Log_Action ( nPvId, sActionTypeName, sComments )
 494 
Sub Log_Action ( nPvId, sActionTypeName, sComments )
525 
 
 495 
 
526 
   OraDatabase.Parameters.Add "PV_ID",            nPvId,                   ORAPARM_INPUT, ORATYPE_NUMBER
 496 
   OraDatabase.Parameters.Add "PV_ID",            nPvId,                   ORAPARM_INPUT, ORATYPE_NUMBER
527 
   OraDatabase.Parameters.Add "USER_ID",          objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 497 
   OraDatabase.Parameters.Add "USER_ID",          objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
528 
   OraDatabase.Parameters.Add "ACTION_TYPE_NAME", sActionTypeName,         ORAPARM_INPUT, ORATYPE_VARCHAR2
 498 
   OraDatabase.Parameters.Add "ACTION_TYPE_NAME", sActionTypeName,         ORAPARM_INPUT, ORATYPE_VARCHAR2