Subversion Repositories DevTools

Rev

Rev 5958 | Rev 6643 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5958 Rev 5961
Line 50... Line 50...
50
50
51 
		Set objWSH = createWscriptShell()
 51 
		Set objWSH = createWscriptShell()
52 
 
 52 
 
53 
		objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\NodesSpecRelease.wsf /bom_id:"& Request("bom_id") , 0, True
53 
		objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\NodesSpecRelease.wsf /bom_id:"& Request("bom_id") , 0, True
54
54
- 
 
 55 
	    On Error Resume Next
55 
		OraDatabase.Parameters.Add "BOM_ID", 	Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
 56 
		OraDatabase.Parameters.Add "BOM_ID", 	Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
56 
		OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
57 
		OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
57
58
58 
		objEH.TryORA ( OraSession )
 59 
		objEH.TryORA ( OraSession )
59
60
Line 61... Line 62...
61 
		"BEGIN   pk_Bom.Log_Bom_Trail ( :BOM_ID, 'NODE SPECS FILE GENERATED', :USER_ID, NULL );   END;"
 62 
		"BEGIN   pk_Bom.Log_Bom_Trail ( :BOM_ID, 'NODE SPECS FILE GENERATED', :USER_ID, NULL );   END;"
62 
		objEH.CatchORA ( OraSession )
 63 
		objEH.CatchORA ( OraSession )
63
64
64 
		OraDatabase.Parameters.Remove "BOM_ID"
 65 
		OraDatabase.Parameters.Remove "BOM_ID"
65 
		OraDatabase.Parameters.Remove "USER_ID"
66 
		OraDatabase.Parameters.Remove "USER_ID"
- 
 
 67 
	    On Error GoTo 0
66 
 
 68 
 
67 
        ' Create a sane path name for the output file
 69 
        ' Create a sane path name for the output file
68 
        ' Need to use the same rules as NodesSpecRelease.wsf to allow for BOM versions with a '/' in the name
 70 
        ' Need to use the same rules as NodesSpecRelease.wsf to allow for BOM versions with a '/' in the name
69 
        '
 71 
        '
70 
		Dim LocalPath, ZipFile, filesys, eMsg, zCount
 72 
		Dim LocalPath, ZipFile, filesys, eMsg, zCount