Subversion Repositories DevTools

Rev

Rev 4809 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4809 Rev 4867
Line 77... Line 77...
77 
   objEH.TryORA ( OraSession )
 77 
   objEH.TryORA ( OraSession )
78 
   On Error Resume Next
 78 
   On Error Resume Next
79 
 
 79 
 
80 
   OraDatabase.ExecuteSQL _
 80 
   OraDatabase.ExecuteSQL _
81 
   "BEGIN  Update_Unit_Test ( :TEST_ID,"&_
 81 
   "BEGIN  Update_Unit_Test ( :TEST_ID,"&_
82 
   "                     :TEST_TYPE_ID,"&_
 82 
   "                          :TEST_TYPE_ID,"&_
83 
   "                           :PV_ID,"&_
 83 
   "                          :PV_ID,"&_
84 
   "                           :USER_ID,"&_
 84 
   "                          :USER_ID,"&_
85 
    "                           :TEST_SUMMARY,"&_
 85 
   "                          :TEST_SUMMARY,"&_
86 
   "                           :NUMOF_TEST,"&_
 86 
   "                          :NUMOF_TEST,"&_
87 
   "                           :COMPLETION_DATE,"&_
 87 
   "                          :COMPLETION_DATE,"&_
88 
   "                           :DPKG_PATH,"&_
 88 
   "                          :DPKG_PATH,"&_
89 
   "                           :enumTEST_TYPE_AUTOMATIC,"&_
 89 
   "                          :enumTEST_TYPE_AUTOMATIC,"&_
90 
   "                           :RESULTS,"&_
 90 
   "                          :RESULTS,"&_
91 
   "                           :FILENAME"&_
 91 
   "                          :FILENAME"&_
92 
   "                       );  END;"
 92 
   "                       );  END;"
93 
 
 93 
 
94 
   objEH.CatchORA ( OraSession )
 94 
   objEH.CatchORA ( OraSession )
95 
 
 95 
 
96 
   outFileName = OraDatabase.Parameters("FILENAME").Value
 96 
   outFileName = OraDatabase.Parameters("FILENAME").Value