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 39... Line 39...
39 
If Request("bom_id") <> "" Then
 39 
If Request("bom_id") <> "" Then
40
40
41 
    Set objWSH = createWscriptShell()
 41 
    Set objWSH = createWscriptShell()
42 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\PostBOMRelease.wsf /bom_id:"& Request("bom_id") , 0, True
42 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& APP_ROOT &"\jobs\PostBOMRelease.wsf /bom_id:"& Request("bom_id") , 0, True
43
43
- 
 
 44 
	On Error Resume Next
44 
	OraDatabase.Parameters.Add "BOM_ID", 	Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
 45 
	OraDatabase.Parameters.Add "BOM_ID", 	Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
45 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
46 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
46
47
47 
	objEH.TryORA ( OraSession )
 48 
	objEH.TryORA ( OraSession )
48
49
Line 50... Line 51...
50 
	"BEGIN   pk_Bom.Log_Bom_Trail ( :BOM_ID, 'XML BOM GENERATED', :USER_ID, NULL );   END;"
 51 
	"BEGIN   pk_Bom.Log_Bom_Trail ( :BOM_ID, 'XML BOM GENERATED', :USER_ID, NULL );   END;"
51
52
52 
	objEH.CatchORA ( OraSession )
 53 
	objEH.CatchORA ( OraSession )
53
54
54 
	OraDatabase.Parameters.Remove "BOM_ID"
 55 
	OraDatabase.Parameters.Remove "BOM_ID"
55 
	OraDatabase.Parameters.Remove "USER_ID"
56 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 57 
    On Error GoTo 0
56
58
57 
	Dim rsQry, objZIPObject
 59 
	Dim rsQry, objZIPObject
58 
    Dim LocalPath, ZipFile, filesys, eMsg, zCount
 60 
    Dim LocalPath, ZipFile, filesys, eMsg, zCount
59 
 
 61 
 
60 
	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))
 62 
	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))