Subversion Repositories DevTools

Rev

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

Rev 1281 Rev 1338
Line 40... Line 40...
40 
'------------ Variable Init -------------------
 40 
'------------ Variable Init -------------------
41 
'----------------------------------------------
 41 
'----------------------------------------------
42 
%>
 42 
%>
43 
<%
 43 
<%
44 
Sub MakePending ()
 44 
Sub MakePending ()
45 
   Dim objWSH
 - 
 
46 
   Set objWSH = Server.CreateObject("WScript.Shell")
 - 
 
47 
 
 45 
 
48 
   OraDatabase.Parameters.Add "PV_ID",    Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
 46 
   OraDatabase.Parameters.Add "PV_ID",    Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
49 
   OraDatabase.Parameters.Add "RTAG_ID",  Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
 47 
   OraDatabase.Parameters.Add "RTAG_ID",  Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
50 
   OraDatabase.Parameters.Add "USER_ID",  objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 48 
   OraDatabase.Parameters.Add "USER_ID",  objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
51 
 
 49 
 
Line 94... Line 92...
94 
         End If
 92 
         End If
95 
      End If
 93 
      End If
96 
 
 94 
 
97 
   Else
 95 
   Else
98 
      Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id    &"|"& retParameters &"|"& "N" )
 96 
      Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id    &"|"& retParameters &"|"& "N" )
99 
 
 - 
 
100 
   End If
 97 
   End If
101 
 
 98 
 
102 
Else
 99 
Else
103 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 100 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
104 
   Response.write QSTR_All
 101 
   Response.write QSTR_All
105 
End If
 102 
End If
- 
 
 103 
 
106 
%>
 104 
%>
107 
 
 105 
 
108 
<!-- DESTRUCTOR ------->
 106 
<!-- DESTRUCTOR ------->
109 
<!--#include file="common/destructor.asp"-->
 107 
<!--#include file="common/destructor.asp"-->