Subversion Repositories DevTools

Rev

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

Rev 5590 Rev 5952
Line 87... Line 87...
87 
         OraDatabase.ExecuteSQL _
 87 
         OraDatabase.ExecuteSQL _
88 
         "BEGIN  UPDATE BUILD_STANDARDS_ADDENDUM SET BSA_NAME = :BSA_NAME, BS_ID = :BS_ID WHERE BSA_ID = :BSA_ID;  END;"
 88 
         "BEGIN  UPDATE BUILD_STANDARDS_ADDENDUM SET BSA_NAME = :BSA_NAME, BS_ID = :BS_ID WHERE BSA_ID = :BSA_ID;  END;"
89 
 
 89 
 
90 
         objEH.CatchORA ( OraSession )
 90 
         objEH.CatchORA ( OraSession )
91 
 
 91 
 
92 
         OraDatabase.Parameters.Remove "BS_ID"
 - 
 
93 
         OraDatabase.Parameters.Remove "BSA_NAME"
 - 
 
94 
         OraDatabase.Parameters.Remove "BSA_ID"
 92 
         OraDatabase.Parameters.Remove "BSA_ID"
- 
 
 93 
         OraDatabase.Parameters.Remove "BSA_NAME"
- 
 
 94 
         OraDatabase.Parameters.Remove "BS_ID"
95 
 
 95 
 
96 
         If objEH.Finally Then
 96 
         If objEH.Finally Then
97 
            Call OpenInParentWindow ("admin_gbe_buildstandard.asp")
 97 
            Call OpenInParentWindow ("admin_gbe_buildstandard.asp")
98 
            Call CloseWindow()
 98 
            Call CloseWindow()
99 
         End If
 99 
         End If
Line 127... Line 127...
127 
         "BEGIN  INSERT INTO BUILD_STANDARDS_ADDENDUM (BSA_NAME, BS_ID) VALUES( :BSA_NAME, :BS_ID);  END;"
 127 
         "BEGIN  INSERT INTO BUILD_STANDARDS_ADDENDUM (BSA_NAME, BS_ID) VALUES( :BSA_NAME, :BS_ID);  END;"
128 
 
 128 
 
129 
         objEH.CatchORA ( OraSession )
 129 
         objEH.CatchORA ( OraSession )
130 
 
 130 
 
131 
         OraDatabase.Parameters.Remove "BSA_NAME"
 131 
         OraDatabase.Parameters.Remove "BSA_NAME"
132 
         OraDatabase.Parameters.Remove "BSA_ID"
 132 
         OraDatabase.Parameters.Remove "BS_ID"
133 
 
 133 
 
134 
         If objEH.Finally Then
 134 
         If objEH.Finally Then
135 
            Call OpenInParentWindow ("admin_gbe_buildstandard.asp")
 135 
            Call OpenInParentWindow ("admin_gbe_buildstandard.asp")
136 
            Call CloseWindow()
 136 
            Call CloseWindow()
137 
         End If
 137 
         End If