Subversion Repositories DevTools

Rev

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

Rev 5590 Rev 5952
Line 65... Line 65...
65 
 
 65 
 
66 
   objEH.CatchORA ( OraSession )
 66 
   objEH.CatchORA ( OraSession )
67 
 
 67 
 
68 
   retErrCode = OraDatabase.Parameters("ERRCODE").Value
 68 
   retErrCode = OraDatabase.Parameters("ERRCODE").Value
69 
 
 69 
 
- 
 
 70 
   OraDatabase.Parameters.Remove "NOTE_ID"
- 
 
 71 
   OraDatabase.Parameters.Remove "PV_ID"
- 
 
 72 
   OraDatabase.Parameters.Remove "NOTE_TITLE"
- 
 
 73 
   OraDatabase.Parameters.Remove "NOTE_BODY"
- 
 
 74 
   OraDatabase.Parameters.Remove "USER_ID"
- 
 
 75 
   OraDatabase.Parameters.Remove "ERRCODE"
- 
 
 76 
 
70 
   If retErrCode <> 0 Then
 77 
   If retErrCode <> 0 Then
71 
      Call RaiseMsg ( enum_MSG_DUPLICATE_AN, sNote_Title )
 78 
      Call RaiseMsg ( enum_MSG_DUPLICATE_AN, sNote_Title )
72 
   End If
 79 
   End If
73 
 
 80 
 
74 
End Sub
 81 
End Sub