Subversion Repositories DevTools

Rev

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

Rev 7246 Rev 7457
Line 175... Line 175...
175 
        NewTextFile.WriteLine("</tr>")
 175 
        NewTextFile.WriteLine("</tr>")
176 
 
 176 
 
177 
        For counterA=1 to sqlstrA.RecordCount
 177 
        For counterA=1 to sqlstrA.RecordCount
178 
            DEVIiss = "-1"
 178 
            DEVIiss = "-1"
179 
 
 179 
 
180 
            If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
 180 
            If Clng(sqlstrA("iss_db")) = Clng(enumCLEARQUEST_DEVI_ID) Then
181 
                DEVIiss = DEVIiss &","& sqlstrA("iss_id")
 181 
                DEVIiss = DEVIiss &","& sqlstrA("iss_id")
182 
            End If
 182 
            End If
183 
 
 183 
 
184 
            SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
 184 
            SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
185 
            SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
 185 
            SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
Line 1020... Line 1020...
1020 
                                            End If
 1020 
                                            End If
1021 
 
 1021 
 
1022 
                                            If MajorA = MajorB Then
 1022 
                                            If MajorA = MajorB Then
1023 
                                                If MinorA = MinorB Then
 1023 
                                                If MinorA = MinorB Then
1024 
                                                    If IsNumeric(PatchA) AND IsNumeric(PatchB) Then
 1024 
                                                    If IsNumeric(PatchA) AND IsNumeric(PatchB) Then
1025 
                                                        If CInt(PatchB) > CInt(PatchA) Then
 1025 
                                                        If Clng(PatchB) > Clng(PatchA) Then
1026 
                                                            btnMerge = LIMG_MERGE_WARN
 1026 
                                                            btnMerge = LIMG_MERGE_WARN
1027 
                                                        Else
 1027 
                                                        Else
1028 
                                                            btnMerge = LIMG_MERGE
 1028 
                                                            btnMerge = LIMG_MERGE
1029 
                                                        End If
 1029 
                                                        End If
1030 
                                                    End If
 1030 
                                                    End If
1031 
                                                Else
 1031 
                                                Else
1032 
                                                    If IsNumeric(MinorA) AND IsNumeric(MinorB) Then
 1032 
                                                    If IsNumeric(MinorA) AND IsNumeric(MinorB) Then
1033 
                                                        If CInt(MinorB) > CInt(MinorA) Then
 1033 
                                                        If Clng(MinorB) > Clng(MinorA) Then
1034 
                                                            btnMerge = LIMG_MERGE_WARN
 1034 
                                                            btnMerge = LIMG_MERGE_WARN
1035 
                                                        Else
 1035 
                                                        Else
1036 
                                                            btnMerge = LIMG_MERGE
 1036 
                                                            btnMerge = LIMG_MERGE
1037 
                                                        End If
 1037 
                                                        End If
1038 
                                                    End If
 1038 
                                                    End If
1039 
                                                End If
 1039 
                                                End If
1040 
                                            Else
 1040 
                                            Else
1041 
                                                If IsNumeric(MajorA) AND IsNumeric(MajorB) Then
 1041 
                                                If IsNumeric(MajorA) AND IsNumeric(MajorB) Then
1042 
                                                    If     CInt(MajorB) > CInt(MajorA) Then
 1042 
                                                    If     Clng(MajorB) > Clng(MajorA) Then
1043 
                                                        btnMerge = LIMG_MERGE_WARN
 1043 
                                                        btnMerge = LIMG_MERGE_WARN
1044 
                                                    Else
 1044 
                                                    Else
1045 
                                                        btnMerge = LIMG_MERGE
 1045 
                                                        btnMerge = LIMG_MERGE
1046 
                                                    End If
 1046 
                                                    End If
1047 
                                                End If
 1047 
                                                End If