Subversion Repositories DevTools

Rev

Rev 5958 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5958 Rev 5961
Line 720... Line 720...
720 
 
 720 
 
721 
		nProdId = rsTemp("pv_id")
 721 
		nProdId = rsTemp("pv_id")
722 
 
 722 
 
723 
	End If
 723 
	End If
724 
 
 724 
 
- 
 
 725 
    '   Not sure what the followig code does
- 
 
 726 
    '   It doesn't appear to conrtibute to the output at all
- 
 
 727 
    '       Does asssume that BOM_ID be a bound variable
- 
 
 728 
    '       Could it have been some debug at some stage
725 
	'OraDatabase.Parameters.Add "BOM_ID", nBomId,	ORAPARM_INPUT, ORATYPE_NUMBER
 729 
	'OraDatabase.Parameters.Add "BOM_ID", nBomId,	ORAPARM_INPUT, ORATYPE_NUMBER
726 
 
 730 
 
727 
	'/* Get SBOM Details */
 731 
	'/* Get SBOM Details */
728 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("BomLocationDetails.sql"), cint(0))
 732 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("BomLocationDetails.sql"), cint(0))
729 
 
 733 
 
Line 734... Line 738...
734 
	'OraDatabase.Parameters.Remove "BOM_ID"
 738 
	'OraDatabase.Parameters.Remove "BOM_ID"
735 
 
 739 
 
736 
	rsTemp.Close()
 740 
	rsTemp.Close()
737 
	Set rsTemp = Nothing
 741 
	Set rsTemp = Nothing
738 
 
 742 
 
739 
 
 - 
 
740 
 
 - 
 
741 
 
 - 
 
742 
End Sub
 743 
End Sub
743 
'-----------------------------------------------------------------------------------------------------------------------------
 744 
'-----------------------------------------------------------------------------------------------------------------------------
744 
Sub  Get_CQ_Issues( SSsql, OOrsCQ )
 745 
Sub  Get_CQ_Issues( SSsql, OOrsCQ )
745 
 
 746 
 
746 
    On Error Resume Next
 747 
    On Error Resume Next