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 56... Line 56...
56 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 56 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
57 
		outobjDetails.Item ("branch_id") = rsQry("branch_id")
 57 
		outobjDetails.Item ("branch_id") = rsQry("branch_id")
58 
		outobjDetails.Item ("branch_name") = rsQry("branch_name")
 58 
		outobjDetails.Item ("branch_name") = rsQry("branch_name")
59 
	End If
 59 
	End If
60
60
61
- 
 
62 
	OraDatabase.Parameters.Remove "BOM_ID"
 61 
	OraDatabase.Parameters.Remove "BOM_ID"
63
62
64 
	rsQry.Close
 63 
	rsQry.Close
65 
	Set rsQry = Nothing
 64 
	Set rsQry = Nothing
66 
End Sub
 65 
End Sub