Subversion Repositories DevTools

Rev

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

Rev 3959 Rev 3975
Line 801... Line 801...
801 
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
 801 
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
802 
               <td width="1%" align="right" nowrap class="form_field" valign="top">ClearQuest Database</td>
 802 
               <td width="1%" align="right" nowrap class="form_field" valign="top">ClearQuest Database</td>
803 
               <td width="100%">
 803 
               <td width="100%">
804 
                  <select name="FRiss_db" class="form_item">
 804 
                  <select name="FRiss_db" class="form_item">
805 
                     <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
 805 
                     <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
806 
                     <option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
 - 
 
807 
                  </select>
 806 
                  </select>
808 
               </td>
 807 
               </td>
809 
            </tr>
 808 
            </tr>
810 
            <tr>
 809 
            <tr>
811 
               <td nowrap class="form_field">&nbsp;</td>
 810 
               <td nowrap class="form_field">&nbsp;</td>
Line 838... Line 837...
838 
      Set rsCQ = Server.CreateObject("ADODB.Recordset")
 837 
      Set rsCQ = Server.CreateObject("ADODB.Recordset")
839 
      Set issNumDict = CreateObject("Scripting.Dictionary")
 838 
      Set issNumDict = CreateObject("Scripting.Dictionary")
840 
 
 839 
 
841 
 
 840 
 
842 
      '---- Find Issue numbers in ClearQuest ----
 841 
      '---- Find Issue numbers in ClearQuest ----
843 
      If CDbl(NNiss_db) = enumCLEARQUEST_MASSI_ID Then
 - 
 
844 
         iss_num_col = "new_num"
 - 
 
845 
         SSsql = _
 - 
 
846 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 - 
 
847 
         " FROM MASSI.admin.software_issue si"&_
 - 
 
848 
         " WHERE "
 - 
 
849 
 
 - 
 
850 
 
 - 
 
851 
      ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DPGIM_ID Then
 - 
 
852 
         iss_num_col = "new_num"
 - 
 
853 
         SSsql = _
 - 
 
854 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 - 
 
855 
         " FROM DPGIM.admin.software_issue si"&_
 - 
 
856 
         " WHERE "
 - 
 
857 
 
 - 
 
858 
 
 - 
 
859 
      ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 842 
      If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
860 
         iss_num_col = "new_num"
 843 
         iss_num_col = "new_num"
861 
         SSsql = _
 844 
         SSsql = _
862 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 845 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
863 
         " FROM CQ_DEVI.admin.software_issue si"&_
 846 
         " FROM CQ_DEVI.admin.software_issue si"&_
864 
         " WHERE "
 847 
         " WHERE "
865 
 
 - 
 
866 
 
 - 
 
867 
      ElseIf CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then
 - 
 
868 
         iss_num_col = "job_number"
 - 
 
869 
         SSsql = _
 - 
 
870 
         " SELECT dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 - 
 
871 
         " FROM CQ_TDSE.admin.request si"&_
 - 
 
872 
         " WHERE "
 - 
 
873 
 
 - 
 
874 
      End If
 848 
      End If
875 
 
 849 
 
876 
 
 850 
 
877 
      '---- Split multiple search ----
 851 
      '---- Split multiple search ----
878 
      SSiss_num_list = Trim(SSiss_num_list)
 852 
      SSiss_num_list = Trim(SSiss_num_list)
Line 2723... Line 2697...
2723 
End Function
 2697 
End Function
2724 
'----------------------------------------------------------------------------------------------------------------------------------------
 2698 
'----------------------------------------------------------------------------------------------------------------------------------------
2725 
' Function returns the number of imported clearquest issues
 2699 
' Function returns the number of imported clearquest issues
2726 
' and builds a string suitable for querying the clearquest issues database
 2700 
' and builds a string suitable for querying the clearquest issues database
2727 
Function Get_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
 2701 
Function Get_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )
2728 
   Dim rsTemp, sqlstr, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss, retVal
 2702 
   Dim rsTemp, sqlstr, DEVIiss, retVal
2729 
 
 2703 
 
2730 
   sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& NNpv_id &"  AND iss_state IN (" & nIssState & ")"
 2704 
   sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& NNpv_id &"  AND iss_state IN (" & nIssState & ")"
2731 
 
 2705 
 
2732 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
 2706 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
2733 
   retVal = rsTemp.RecordCount
 2707 
   retVal = rsTemp.RecordCount
2734 
 
 2708 
 
2735 
   DEVIiss  = "-1"
 2709 
   DEVIiss  = "-1"
2736 
   TDSEiss  = "-1"
 - 
 
2737 
   VT5DMiss = "-1"
 - 
 
2738 
   VTSUPiss = "-1"
 - 
 
2739 
 
 2710 
 
2740 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 2711 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
2741 
      If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
 2712 
      If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
2742 
         DEVIiss = DEVIiss &","& rsTemp("iss_id")
 2713 
         DEVIiss = DEVIiss &","& rsTemp("iss_id")
2743 
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
 - 
 
2744 
         TDSEiss = TDSEiss &","& rsTemp("iss_id")
 - 
 
2745 
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
 - 
 
2746 
         VT5DMiss = VT5DMiss &","& rsTemp("iss_id")
 - 
 
2747 
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
 - 
 
2748 
         VTSUPiss = VTSUPiss &","& rsTemp("iss_id")
 - 
 
2749 
      End If
 2714 
      End If
2750 
 
 2715 
 
2751 
      rsTemp.MoveNext
 2716 
      rsTemp.MoveNext
2752 
   WEnd
 2717 
   WEnd
2753 
 
 2718 
 
2754 
   ' Construct SQL statement for CQ database
 2719 
   ' Construct SQL statement for CQ database
2755 
   SSsql = ReadFile( rootPath & "queries\cq_issues_rep1.sql" )
 2720 
   SSsql = ReadFile( rootPath & "queries\cq_issues_rep1.sql" )
2756 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
 2721 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
2757 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
 - 
 
2758 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
 - 
 
2759 
   SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
 - 
 
2760 
   SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
 2722 
   SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
2761 
   SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
 - 
 
2762 
   SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
 - 
 
2763 
   SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
 - 
 
2764 
 
 2723 
 
2765 
   rsTemp.Close()
 2724 
   rsTemp.Close()
2766 
   Set rsTemp = nothing
 2725 
   Set rsTemp = nothing
2767 
 
 2726 
 
2768 
   Get_Package_Issues = retVal
 2727 
   Get_Package_Issues = retVal