WebSVN – DevTools – Diff – /ManagerSuite/Deployment_Manager/trunk/web/wSyncProducts.asp

       outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id")
       outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
       outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
    End If
    OraDatabase.Parameters.Remove "BOM_ID"
    rsQry.Close
    Set rsQry = Nothing
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------
 Sub UpdateProducts()
    '/* Get Latest From Release Manager */
    OraDatabase.Parameters.Add "BOM_ID",  parBom_id,                           ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER
    Query_String = ReadFile( rootPath & "queries\CompareBomWithLatestFromRM.sql" )
    If objFormCollector.Item ("product_state_used") =  "Y"   Then
       Query_String = Replace( Query_String, "/* AND rc.PRODUCT_STATE = 3 */", " AND rc.PRODUCT_STATE = 3")
    End If
    Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
+   OraDatabase.Parameters.Remove "BOM_ID"
+   OraDatabase.Parameters.Remove "RTAG_ID"
    '-- Get Rows
    If rsQry.RecordCount > 0 Then
       aDiffList = rsQry.GetRows()
    Else
       '-- No differencses with Release Manager, hence exit
-      OraDatabase.Parameters.Remove "BOM_ID"
-      OraDatabase.Parameters.Remove "RTAG_ID"
       Exit Sub
    End If
    ' Get the project id so we can filter out PopulateSBOMField() for SSW later.
    Dim rsProjId, proj_id
    rsProjId.Close()
    Set rsProjId = nothing
    '/* Update Versions */
+   OraDatabase.Parameters.Add "BOM_ID",      parBom_id,               ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "OLD_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 '******************************************************************************
 ' This is causing problems for SSW, VTK and SEA and they don't use it, so it
 ' has been disabled for those projects until a fix is found.
 '******************************************************************************
          If proj_id <> 421 AND proj_id <> 361 AND proj_id <> 122 AND proj_id <> 164 AND proj_id <> 581 Then
+            ' Needs :BOM_ID, but not for any good reason that I can see
             Call PopulateSBOMField(parBom_id, Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ), NULL, NULL )
          End If
          'Response.Write("<script>alert('" &_
          '                     "OLD_PROD_ID=" & OraParameter("OLD_PROD_ID").Value & "\n" &_
          OraDatabase.ExecuteSQL "BEGIN   pk_Product.Replace_Product ( :OLD_PROD_ID, :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
       End If
    Next
    '--- Log Action ---
    'objEH.LogAction  _
    'objAccessControl.UserId, _
    'enumAT_EVENT_COMMENT, _
    '"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
    'SCRIPT_NAME, _
    '"Updated Products with new versions.", _
    'OraDatabase
-   objEH.CatchORA ( OraSession )
+   OraDatabase.Parameters.Remove "BOM_ID"
    OraDatabase.Parameters.Remove "OLD_PROD_ID"
    OraDatabase.Parameters.Remove "NEW_PROD_ID"
    OraDatabase.Parameters.Remove "OS_ID"
    OraDatabase.Parameters.Remove "USER_ID"
+   objEH.CatchORA ( OraSession )
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------
 Sub AddPatches()
    Dim aDiffList, numOfRows, rowNum, OraParameter
    Const os_id_column = 2
    '/* Get Lates Release Manager */
    OraDatabase.Parameters.Add "BOM_ID", parBom_id,    ORAPARM_INPUT, ORATYPE_NUMBER
    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
    OraDatabase.Parameters.Remove "BOM_ID"
    '-- Get Rows
    If rsQry.RecordCount > 0 Then
       aDiffList = rsQry.GetRows()
    Else
       '-- No differences with Release Manager, hence exit
       Exit Sub
    End If
    '/* Update Versions */
-   OraDatabase.Parameters.Add "BOM_ID", parBom_id,    ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
    Set OraParameter = OraDatabase.Parameters
          OraDatabase.ExecuteSQL "BEGIN   pk_Product.Add_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
       End If
    Next
-   objEH.CatchORA ( OraSession )
-   OraDatabase.Parameters.Remove "BOM_ID"
    OraDatabase.Parameters.Remove "NEW_PROD_ID"
    OraDatabase.Parameters.Remove "OS_ID"
    OraDatabase.Parameters.Remove "USER_ID"
+   objEH.CatchORA ( OraSession )
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------
 Sub HideProducts()
    Dim aDiffList, numOfRows, rowNum, OraParameter
    Const os_id_column = 2
       Exit Sub
    End If
    '/* Hide Versions */
-   OraDatabase.Parameters.Add "BOM_ID",  parBom_id,                           ORAPARM_INPUT, ORATYPE_NUMBER
-   OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
    Set OraParameter = OraDatabase.Parameters
    '"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
    'SCRIPT_NAME, _
    '"Updated Products with new versions.", _
    'OraDatabase
-   objEH.CatchORA ( OraSession )
-   OraDatabase.Parameters.Remove "BOM_ID"
-   OraDatabase.Parameters.Remove "RTAG_ID"
    OraDatabase.Parameters.Remove "NEW_PROD_ID"
    OraDatabase.Parameters.Remove "OS_ID"
    OraDatabase.Parameters.Remove "USER_ID"
+   objEH.CatchORA ( OraSession )
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------
 Sub HidePatches()
    Dim aDiffList, numOfRows, rowNum, OraParameter
    Const os_id_column = 2
    Else
       '-- No differencses with Release Manager, hence exit
       Exit Sub
    End If
    '/* Hide Versions */
-   OraDatabase.Parameters.Add "BOM_ID", parBom_id,    ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "NEW_PROD_ID", 0,                       ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "OS_ID",       0,                       ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
    Set OraParameter = OraDatabase.Parameters
          OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
       End If
    Next
-   objEH.CatchORA ( OraSession )
-   OraDatabase.Parameters.Remove "BOM_ID"
    OraDatabase.Parameters.Remove "NEW_PROD_ID"
    OraDatabase.Parameters.Remove "OS_ID"
    OraDatabase.Parameters.Remove "USER_ID"
+   objEH.CatchORA ( OraSession )
 End Sub
 '----------------------------------------------------------------------------------------------------------------------------------
 %>
 <%
 '------------ RUN BEFORE PAGE RENDER ----------
     End If
 End If
 '----------------------------------------------
 %>
 <html>
 <head>
 <SCRIPT LANGUAGE="JavaScript">
 <!-- Begin

Subversion Repositories DevTools

(root)/ManagerSuite/Deployment_Manager/trunk/web/wSyncProducts.asp – Rev 5958 → 5961