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 52... Line 52...
52 
 
 52 
 
53 
   objEH.CatchORA ( OraSession )
 53 
   objEH.CatchORA ( OraSession )
54 
 
 54 
 
55 
   retErrCode = OraDatabase.Parameters("ERRCODE").Value
 55 
   retErrCode = OraDatabase.Parameters("ERRCODE").Value
56 
 
 56 
 
- 
 
 57 
   OraDatabase.Parameters.Remove "PV_ID"
- 
 
 58 
   OraDatabase.Parameters.Remove "NOTE_TITLE"
- 
 
 59 
   OraDatabase.Parameters.Remove "NOTE_BODY"
- 
 
 60 
   OraDatabase.Parameters.Remove "USER_ID"
- 
 
 61 
   OraDatabase.Parameters.Remove "ERRCODE"
- 
 
 62 
 
57 
   If retErrCode <> 0 Then
 63 
   If retErrCode <> 0 Then
58 
      Call RaiseMsg ( enum_MSG_DUPLICATE_AN, sNote_Title )
 64 
      Call RaiseMsg ( enum_MSG_DUPLICATE_AN, sNote_Title )
59 
   End If
 65 
   End If
60 
 
 66 
 
61 
End Sub
 67 
End Sub