Subversion Repositories DevTools

Rev

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

Rev 5861 Rev 5952
Line 573... Line 573...
573 
         <%
 573 
         <%
574 
         Dim currRtag_id
 574 
         Dim currRtag_id
575 
         currRtag_id = -1
 575 
         currRtag_id = -1
576 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 576 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
577 
 
 577 
 
- 
 
 578 
         OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
 579 
         OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 580 
 
578 
         If rsRep.RecordCount = 0 Then
 581 
         If rsRep.RecordCount = 0 Then
579 
            With Response
 582 
            With Response
580 
               .write "<tr>"
 583 
               .write "<tr>"
581 
               .write "<td colspan='4' class='body_row'>Found 0 records</td>"
 584 
               .write "<td colspan='4' class='body_row'>Found 0 records</td>"
582 
               .write "</tr>"
 585 
               .write "</tr>"
Line 718... Line 721...
718 
         </tr>
 721 
         </tr>
719 
         <%
 722 
         <%
720 
         Dim currView_id
 723 
         Dim currView_id
721 
         currView_id = -1
 724 
         currView_id = -1
722 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 725 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
- 
 
 726 
         OraDatabase.Parameters.Remove "RTAG_ID"
723 
 
 727 
 
724 
         If rsRep.RecordCount = 0 Then
 728 
         If rsRep.RecordCount = 0 Then
725 
            With Response
 729 
            With Response
726 
               .write "<tr>"
 730 
               .write "<tr>"
727 
               .write "<td colspan='8' class='body_row'>Found 0 records</td>"
 731 
               .write "<td colspan='8' class='body_row'>Found 0 records</td>"
Line 1505... Line 1509...
1505 
         </tr>
 1509 
         </tr>
1506 
         <%
 1510 
         <%
1507 
         Dim currView_id
 1511 
         Dim currView_id
1508 
         currView_id = -1
 1512 
         currView_id = -1
1509 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 1513 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
- 
 
 1514 
         OraDatabase.Parameters.Remove "RTAG_ID"
1510 
 
 1515 
 
1511 
         If rsRep.RecordCount = 0 Then
 1516 
         If rsRep.RecordCount = 0 Then
1512 
            With Response
 1517 
            With Response
1513 
               .write "<tr>"
 1518 
               .write "<tr>"
1514 
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
 1519 
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
Line 1647... Line 1652...
1647 
         <tr>
 1652 
         <tr>
1648 
            <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
 1653 
            <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
1649 
         </tr>
 1654 
         </tr>
1650 
         <%
 1655 
         <%
1651 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 1656 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
- 
 
 1657 
         OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 1658 
         OraDatabase.Parameters.Remove "BASE_VIEW_ID"
1652 
         %>
 1659 
         %>
1653 
         <%If rsRep.RecordCount = 0 Then%>
 1660 
         <%If rsRep.RecordCount = 0 Then%>
1654 
            <tr>
 1661 
            <tr>
1655 
               <td nowrap class="body_row" colspan="3">Found 0 records! </td>
 1662 
               <td nowrap class="body_row" colspan="3">Found 0 records! </td>
1656 
            </tr>
 1663 
            </tr>
Line 1821... Line 1828...
1821 
 
 1828 
 
1822 
 
 1829 
 
1823 
   OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 1830 
   OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
1824 
   OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
 1831 
   OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
1825 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
 1832 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
- 
 
 1833 
   OraDatabase.Parameters.Remove "BRANCH_ID"
- 
 
 1834 
   OraDatabase.Parameters.Remove "BOM_VERSION"
1826 
   Dim bomId
 1835 
   Dim bomId
1827 
   bomId = rsQry("bom_id")
 1836 
   bomId = rsQry("bom_id")
1828 
   rsQry.close
 1837 
   rsQry.close
1829 
   Set rsQry = nothing
 1838 
   Set rsQry = nothing
1830 
 
 1839 
 
Line 1850... Line 1859...
1850 
         <%
 1859 
         <%
1851 
         Dim currNode_id, currOs_id
 1860 
         Dim currNode_id, currOs_id
1852 
         currNode_id = -1
 1861 
         currNode_id = -1
1853 
         currOs_id = -1
 1862 
         currOs_id = -1
1854 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 1863 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
- 
 
 1864 
         OraDatabase.Parameters.Remove "BOM_ID"
1855 
 
 1865 
 
1856 
         If rsRep.RecordCount = 0 Then
 1866 
         If rsRep.RecordCount = 0 Then
1857 
            With Response
 1867 
            With Response
1858 
               .write "<tr>"
 1868 
               .write "<tr>"
1859 
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
 1869 
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
Line 2052... Line 2062...
2052 
         OraDatabase.Parameters.Add "INITDATE", Request.Form("FRinitdate"), ORAPARM_INPUT, ORATYPE_STRING
 2062 
         OraDatabase.Parameters.Add "INITDATE", Request.Form("FRinitdate"), ORAPARM_INPUT, ORATYPE_STRING
2053 
         OraDatabase.Parameters.Add "DUEDATE", Request.Form("FRduedate"), ORAPARM_INPUT, ORATYPE_STRING
 2063 
         OraDatabase.Parameters.Add "DUEDATE", Request.Form("FRduedate"), ORAPARM_INPUT, ORATYPE_STRING
2054 
 
 2064 
 
2055 
         Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("rep_build_history.sql"), cint(0) )
 2065 
         Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("rep_build_history.sql"), cint(0) )
2056 
 
 2066 
 
- 
 
 2067 
         OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 2068 
         OraDatabase.Parameters.Remove "INITDATE"
- 
 
 2069 
         OraDatabase.Parameters.Remove "DUEDATE"
- 
 
 2070 
 
2057 
         If rsRep.RecordCount = 0 Then
 2071 
         If rsRep.RecordCount = 0 Then
2058 
            With Response
 2072 
            With Response
2059 
               .write "<tr>"
 2073 
               .write "<tr>"
2060 
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
 2074 
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
2061 
               .write "</tr>"
 2075 
               .write "</tr>"
Line 2172... Line 2186...
2172 
   End If
 2186 
   End If
2173 
 
 2187 
 
2174 
   OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 2188 
   OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
2175 
   OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
 2189 
   OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
2176 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
 2190 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
- 
 
 2191 
   OraDatabase.Parameters.Remove "BRANCH_ID"
- 
 
 2192 
   OraDatabase.Parameters.Remove "BOM_VERSION"
- 
 
 2193 
 
2177 
   Dim bomId, ext
 2194 
   Dim bomId, ext
2178 
   bomId = rsQry("bom_id")
 2195 
   bomId = rsQry("bom_id")
2179 
   Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_manager.project_extentions where proj_id="&NNproj_id, cint(0))
 2196 
   Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_manager.project_extentions where proj_id="&NNproj_id, cint(0))
2180 
   ext = rsQry("ext_name")
 2197 
   ext = rsQry("ext_name")
2181 
   rsQry.close
 2198 
   rsQry.close
Line 2474... Line 2491...
2474 
         OraDatabase.Parameters.Add "PV_ID_LIST",   Request("prod_id_list"),   ORAPARM_INPUT, ORATYPE_VARCHAR2
 2491 
         OraDatabase.Parameters.Add "PV_ID_LIST",   Request("prod_id_list"),   ORAPARM_INPUT, ORATYPE_VARCHAR2
2475 
 
 2492 
 
2476 
         objEH.TryORA ( OraSession )
 2493 
         objEH.TryORA ( OraSession )
2477 
         On Error Resume Next
 2494 
         On Error Resume Next
2478 
 
 2495 
 
2479 
         OraDatabase.ExecuteSQL _
 - 
 
2480 
         "BEGIN  SET_TO_AUTOBUILDABLE( :RTAG_ID, :PV_ID_LIST );  END;"
 2496 
         OraDatabase.ExecuteSQL "BEGIN  SET_TO_AUTOBUILDABLE( :RTAG_ID, :PV_ID_LIST );  END;"
2481 
 
 2497 
 
2482 
         objEH.CatchORA ( OraSession )
 2498 
         objEH.CatchORA ( OraSession )
2483 
 
 2499 
 
2484 
         OraDatabase.Parameters.Remove "PV_ID_LIST"
 2500 
         OraDatabase.Parameters.Remove "PV_ID_LIST"
2485 
         OraDatabase.Parameters.Remove "RTAG_ID"
 2501 
         OraDatabase.Parameters.Remove "RTAG_ID"
Line 2505... Line 2521...
2505 
         currView_id = -1
 2521 
         currView_id = -1
2506 
 
 2522 
 
2507 
         OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 2523 
         OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
2508 
 
 2524 
 
2509 
         Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM RELEASE_CONTENT rc, VIEWS vw, PACKAGES pkg, PACKAGE_VERSIONS pv "&_
 2525 
         Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM RELEASE_CONTENT rc, VIEWS vw, PACKAGES pkg, PACKAGE_VERSIONS pv "&_
2510 
            " WHERE pv.pv_id = rc.pv_id and rc.base_view_id   "&_
 2526 
            " WHERE pv.pv_id = rc.pv_id" &_
- 
 
 2527 
            "   and rc.base_view_id = vw.view_id" &_
- 
 
 2528 
            "   and pkg.pkg_id = pv.pkg_id" &_
- 
 
 2529 
            "   and rc.RTAG_ID = :RTAG_ID" &_
2511 
            " = vw.view_id and pkg.pkg_id = pv.pkg_id and rc.RTAG_ID ="&NNrtag_id&"   order by vw.view_name, pkg.pkg_name", cint(0) )
 2530 
            " order by vw.view_name, pkg.pkg_name", cint(0) )
- 
 
 2531 
         OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 2532 
 
2512 
         If rsRep.RecordCount = 0 Then
 2533 
         If rsRep.RecordCount = 0 Then
2513 
            With Response
 2534 
            With Response
2514 
               .write "<tr>"
 2535 
               .write "<tr>"
2515 
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
 2536 
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
2516 
               .write "</tr>"
 2537 
               .write "</tr>"
Line 2587... Line 2608...
2587 
         <br>
 2608 
         <br>
2588 
 
 2609 
 
2589 
      <%End If%>
 2610 
      <%End If%>
2590 
      <!-- PRINT, SAVE, ETC. END -------->
 2611 
      <!-- PRINT, SAVE, ETC. END -------->
2591 
      <%
 2612 
      <%
2592 
      OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
2593 
      rsRep.Close()
 2613 
      rsRep.Close()
2594 
      Set rsRep = nothing
 2614 
      Set rsRep = nothing
2595 
   End If
 2615 
   End If
2596 
 
 2616 
 
2597 
End Sub
 2617 
End Sub
Line 2702... Line 2722...
2702 
         currPv_id = -1
 2722 
         currPv_id = -1
2703 
         currDpv_id = -1
 2723 
         currDpv_id = -1
2704 
 
 2724 
 
2705 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 2725 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
2706 
 
 2726 
 
- 
 
 2727 
         OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 2728 
         OraDatabase.Parameters.Remove "BASE_VIEW"
- 
 
 2729 
         OraDatabase.Parameters.Remove "COMPLETENESS"
- 
 
 2730 
         OraDatabase.Parameters.Remove "SHOW_DEPS"
- 
 
 2731 
         OraDatabase.Parameters.Remove "PV_ID"
- 
 
 2732 
 
2707 
         If rsRep.RecordCount = 0 Then
 2733 
         If rsRep.RecordCount = 0 Then
2708 
            With Response
 2734 
            With Response
2709 
               .write "<tr>"
 2735 
               .write "<tr>"
2710 
               .write "<td colspan='9' class='body_row'>Found 0 records</td>"
 2736 
               .write "<td colspan='9' class='body_row'>Found 0 records</td>"
2711 
               .write "</tr>"
 2737 
               .write "</tr>"