Subversion Repositories DevTools

Rev

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

Rev 5514 Rev 5956
Line 50... Line 50...
50 
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
 50 
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
51 
	Dim rsQry, query
 51 
	Dim rsQry, query
52 
 
 52 
 
53 
	OraDatabase.Parameters.Add "BOM_ID", nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
53 
	OraDatabase.Parameters.Add "BOM_ID", nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
54
54
55
- 
 
56
- 
 
57
- 
 
58
- 
 
59 
	'/* Get Project Details */
 55 
	'/* Get Project Details */
60 
	query = _
 56 
	query = _
61 
	" SELECT proj.RM_PROJECTS_FK, bo.rtag_id_fk"&_
 57 
	" SELECT proj.RM_PROJECTS_FK, bo.rtag_id_fk"&_
62 
	"  FROM BOMS bo,"&_
 58 
	"  FROM BOMS bo,"&_
63 
	"  	   BRANCHES br,"&_
 59 
	"  	   BRANCHES br,"&_
Line 75... Line 71...
75 
	Else
 71 
	Else
76 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
72 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
77
73
78 
	End If
 74 
	End If
79
75
80 
	OraDatabase.Parameters.Remove "PROD_ID"
 - 
 
81 
	OraDatabase.Parameters.Remove "OS_ID"
 - 
 
82 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 - 
 
83 
	OraDatabase.Parameters.Remove "BOM_ID"
 76 
	OraDatabase.Parameters.Remove "BOM_ID"
84
- 
 
85 
	rsQry.Close
 77 
	rsQry.Close
86 
	Set rsQry = Nothing
 78 
	Set rsQry = Nothing
87 
End Sub
 79 
End Sub
88 
'--------------------------------------------------------------------------------------------------------------------------
 80 
'--------------------------------------------------------------------------------------------------------------------------
89 
'----------------------------------------------------------------------------------------------------------------------------------------
 81 
'----------------------------------------------------------------------------------------------------------------------------------------