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