| Line 39... |
Line 39... |
| 39 |
If Request("bom_id") <> "" Then
|
39 |
If Request("bom_id") <> "" Then
|
| 40 |
|
40 |
|
| 41 |
OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
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
|
42 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 43 |
|
43 |
|
| - |
|
44 |
On Error Resume Next
|
| 44 |
objEH.TryORA ( OraSession )
|
45 |
objEH.TryORA ( OraSession )
|
| 45 |
|
46 |
|
| 46 |
OraDatabase.ExecuteSQL _
|
47 |
OraDatabase.ExecuteSQL _
|
| 47 |
"BEGIN pk_Bom.Update_Nodes_Version ( :BOM_ID, :USER_ID ); END;"
|
48 |
"BEGIN pk_Bom.Update_Nodes_Version ( :BOM_ID, :USER_ID ); END;"
|
| 48 |
|
49 |
|
| 49 |
objEH.CatchORA ( OraSession )
|
50 |
objEH.CatchORA ( OraSession )
|
| 50 |
|
51 |
|
| 51 |
OraDatabase.Parameters.Remove "BOM_ID"
|
52 |
OraDatabase.Parameters.Remove "BOM_ID"
|
| 52 |
OraDatabase.Parameters.Remove "USER_ID"
|
53 |
OraDatabase.Parameters.Remove "USER_ID"
|
| 53 |
|
- |
|
| - |
|
54 |
On Error GoTo 0
|
| 54 |
|
55 |
|
| 55 |
|
56 |
|
| 56 |
|
57 |
|
| 57 |
Set objWSH = createWscriptShell()
|
58 |
Set objWSH = createWscriptShell()
|
| 58 |
objWSH.Run "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\ToProductionManager.wsf /bom_id:"& Request("bom_id") , 0, True
|
59 |
objWSH.Run "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\ToProductionManager.wsf /bom_id:"& Request("bom_id") , 0, True
|
| 59 |
|
60 |
|
| 60 |
OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
61 |
OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 61 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
62 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 62 |
|
63 |
|
| - |
|
64 |
On Error Resume Next
|
| 63 |
objEH.TryORA ( OraSession )
|
65 |
objEH.TryORA ( OraSession )
|
| 64 |
|
66 |
|
| 65 |
OraDatabase.ExecuteSQL _
|
67 |
OraDatabase.ExecuteSQL _
|
| 66 |
"BEGIN pk_Bom.Log_Bom_Trail ( :BOM_ID, 'XML BOM GENERATED TO PRODUCTION MANAGER', :USER_ID, NULL ); END;"
|
68 |
"BEGIN pk_Bom.Log_Bom_Trail ( :BOM_ID, 'XML BOM GENERATED TO PRODUCTION MANAGER', :USER_ID, NULL ); END;"
|
| 67 |
|
69 |
|
| 68 |
objEH.CatchORA ( OraSession )
|
70 |
objEH.CatchORA ( OraSession )
|
| 69 |
|
71 |
|
| 70 |
OraDatabase.Parameters.Remove "BOM_ID"
|
72 |
OraDatabase.Parameters.Remove "BOM_ID"
|
| 71 |
OraDatabase.Parameters.Remove "USER_ID"
|
73 |
OraDatabase.Parameters.Remove "USER_ID"
|
| - |
|
74 |
On Error GoTo 0
|
| 72 |
|
75 |
|
| 73 |
'Dim rsQry, objZIPObject
|
76 |
'Dim rsQry, objZIPObject
|
| 74 |
'Set rsQry = OraDatabase.DbCreateDynaset( "SELECT bn.BOM_NAME, br.BRANCH_NAME, bn.BOM_NAME ||''|| b.BOM_VERSION ||'.'|| b.BOM_LIFECYCLE AS VERSION FROM BOMS B, BRANCHES BR, BOM_NAMES BN WHERE B.BOM_ID = "& Request("bom_id") &" AND B.BRANCH_ID = BR.BRANCH_ID AND B.BOM_NAME_ID = BN.BOM_NAME_ID", cint(0))
|
77 |
'Set rsQry = OraDatabase.DbCreateDynaset( "SELECT bn.BOM_NAME, br.BRANCH_NAME, bn.BOM_NAME ||''|| b.BOM_VERSION ||'.'|| b.BOM_LIFECYCLE AS VERSION FROM BOMS B, BRANCHES BR, BOM_NAMES BN WHERE B.BOM_ID = "& Request("bom_id") &" AND B.BRANCH_ID = BR.BRANCH_ID AND B.BOM_NAME_ID = BN.BOM_NAME_ID", cint(0))
|
| 75 |
|
78 |
|
| 76 |
'Set objZIPObject = Server.CreateObject("aspZip.EasyZIP")
|
79 |
'Set objZIPObject = Server.CreateObject("aspZip.EasyZIP")
|