| Line 35... |
Line 35... |
| 35 |
DateReversed = Year(dDate) &"-"& Month(dDate) &"-"& Day(dDate)
|
35 |
DateReversed = Year(dDate) &"-"& Month(dDate) &"-"& Day(dDate)
|
| 36 |
End Function
|
36 |
End Function
|
| 37 |
'**************************** M A I N ******************************
|
37 |
'**************************** M A I N ******************************
|
| 38 |
|
38 |
|
| 39 |
If Request("bom_id") <> "" Then
|
39 |
If Request("bom_id") <> "" Then
|
| - |
|
40 |
|
| - |
|
41 |
OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
42 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
43 |
|
| - |
|
44 |
objEH.TryORA ( OraSession )
|
| - |
|
45 |
|
| - |
|
46 |
OraDatabase.ExecuteSQL _
|
| - |
|
47 |
"BEGIN pk_Bom.Update_Nodes_Version ( :BOM_ID, :USER_ID ); END;"
|
| - |
|
48 |
|
| - |
|
49 |
objEH.CatchORA ( OraSession )
|
| - |
|
50 |
|
| - |
|
51 |
OraDatabase.Parameters.Remove "BOM_ID"
|
| - |
|
52 |
OraDatabase.Parameters.Remove "USER_ID"
|
| - |
|
53 |
|
| - |
|
54 |
|
| - |
|
55 |
|
| - |
|
56 |
|
| 40 |
Set objWSH = Server.CreateObject("WScript.Shell")
|
57 |
Set objWSH = Server.CreateObject("WScript.Shell")
|
| 41 |
objWSH.Run "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\PostBOMRelease.wsf /bom_id:"& Request("bom_id") , 0, True
|
58 |
objWSH.Run "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\PostBOMRelease.wsf /bom_id:"& Request("bom_id") , 0, True
|
| 42 |
|
59 |
|
| 43 |
OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
60 |
OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 44 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
61 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|