Subversion Repositories DevTools

Rev

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

Rev 5513 Rev 5955
Line 58... Line 58...
58 
'--------------------------------------------------------------------------------------------------------------------------
 58 
'--------------------------------------------------------------------------------------------------------------------------
59 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
 59 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
60
60
61 
	Dim rsQry, query
 61 
	Dim rsQry, query
62 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
62 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
63
- 
 
64
- 
 
65 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomLocationDetails.sql"), ORADYN_DEFAULT )
 63 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomLocationDetails.sql"), ORADYN_DEFAULT )
- 
 
 64 
	OraDatabase.Parameters.Remove "BOM_ID"
66
65
67 
	If rsQry.RecordCount > 0 Then
 66 
	If rsQry.RecordCount > 0 Then
68 
		outobjDetails.Item ("bom_id") = rsQry("bom_id")
 67 
		outobjDetails.Item ("bom_id") = rsQry("bom_id")
69 
		outobjDetails.Item ("bom_name") = rsQry("bom_name")
 68 
		outobjDetails.Item ("bom_name") = rsQry("bom_name")
70 
		outobjDetails.Item ("bom_version") = rsQry("bom_version")
 69 
		outobjDetails.Item ("bom_version") = rsQry("bom_version")
Line 75... Line 74...
75 
	Else
 74 
	Else
76 
		Err.Raise 8, "Sub GetFormDetails in "& SCRIPT_NAME, "Empty record set returned. nBom_id="& nBom_id
 75 
		Err.Raise 8, "Sub GetFormDetails in "& SCRIPT_NAME, "Empty record set returned. nBom_id="& nBom_id
77
76
78 
	End If
 77 
	End If
79
78
80 
	OraDatabase.Parameters.Remove "BOM_ID"
 - 
 
81
- 
 
82 
	rsQry.Close
 79 
	rsQry.Close
83 
	Set rsQry = Nothing
 80 
	Set rsQry = Nothing
84 
End Sub
 81 
End Sub
85 
'--------------------------------------------------------------------------------------------------------------------------
 82 
'--------------------------------------------------------------------------------------------------------------------------
86 
Sub AddBomRequirements ()
 83 
Sub AddBomRequirements ()
Line 96... Line 93...
96
93
97 
	objEH.CatchORA ( OraSession )
 94 
	objEH.CatchORA ( OraSession )
98
95
99
96
100 
	OraDatabase.Parameters.Remove "FROM_BOM_ID"
 97 
	OraDatabase.Parameters.Remove "FROM_BOM_ID"
101 
	OraDatabase.Parameters.Remove "BRANCH_ID"
 98 
	OraDatabase.Parameters.Remove "TO_BRANCH_ID"
102 
End Sub
 99 
End Sub
103 
'--------------------------------------------------------------------------------------------------------------------------
 100 
'--------------------------------------------------------------------------------------------------------------------------
104 
Sub AddBomFrom ()
 101 
Sub AddBomFrom ()
105 
	On Error Resume Next
 102 
	On Error Resume Next
106
103
Line 118... Line 115...
118 
	OraDatabase.ExecuteSQL _
 115 
	OraDatabase.ExecuteSQL _
119 
	"BEGIN   pk_Bom.Add_Bom (NULL, :BOM_VERSION, :BOM_LIFECYCLE, :BOM_COMMENTS, :BRANCH_ID, :FROM_BOM_ID, :RTAG_ID_FK, :USER_ID );   END;"
 116 
	"BEGIN   pk_Bom.Add_Bom (NULL, :BOM_VERSION, :BOM_LIFECYCLE, :BOM_COMMENTS, :BRANCH_ID, :FROM_BOM_ID, :RTAG_ID_FK, :USER_ID );   END;"
120
117
121 
	objEH.CatchORA ( OraSession )
 118 
	objEH.CatchORA ( OraSession )
122
119
123
- 
 
124 
 
 - 
 
125 
	OraDatabase.Parameters.Remove "BOM_VERSION"
 - 
 
126 
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
 - 
 
127 
	OraDatabase.Parameters.Remove "FROM_BOM_ID"
 120 
	OraDatabase.Parameters.Remove "FROM_BOM_ID"
128 
	OraDatabase.Parameters.Remove "BRANCH_ID"
 121 
	OraDatabase.Parameters.Remove "BRANCH_ID"
- 
 
 122 
	OraDatabase.Parameters.Remove "BOM_VERSION"
- 
 
 123 
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
129 
	OraDatabase.Parameters.Remove "BOM_COMMENTS"
 124 
	OraDatabase.Parameters.Remove "BOM_COMMENTS"
130 
	OraDatabase.Parameters.Remove "RTAG_ID_FK"
 125 
	OraDatabase.Parameters.Remove "RTAG_ID_FK"
131 
	OraDatabase.Parameters.Remove "USER_ID"
 126 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 127 
 
132 
End Sub
 128 
End Sub
133 
'--------------------------------------------------------------------------------------------------------------------------
 129 
'--------------------------------------------------------------------------------------------------------------------------
134 
%>
 130 
%>
135 
<%
 131 
<%
136 
'------------ RUN BEFORE PAGE RENDER ----------
 132 
'------------ RUN BEFORE PAGE RENDER ----------