Subversion Repositories DevTools

Rev

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

Rev 6873 Rev 6879
Line 184... Line 184...
184 
 
 184 
 
185 
    If rsQry.RecordCount > 0 Then
 185 
    If rsQry.RecordCount > 0 Then
186 
       If rsQry("masterCount") <> 1 Then
 186 
       If rsQry("masterCount") <> 1 Then
187 
           CheckConfigErrors = true
 187 
           CheckConfigErrors = true
188 
       End If
 188 
       End If
- 
 
 189 
    Else
- 
 
 190 
        CheckConfigErrors = true
189 
    End If
 191 
    End If
190 
    rsQry.Close
 192 
    rsQry.Close
191 
    Set rsQry = Nothing
 193 
    Set rsQry = Nothing
192 
 
 194 
 
193 
    If bGetApplication("CheckToolset", TRUE) Then
 195 
    If bGetApplication("CheckToolset", TRUE) Then
194 
        If NOT CheckConfigErrors Then
 196 
        If NOT CheckConfigErrors Then
195 
 
 197 
 
196 
            '
 198 
            '
197 
            '   Check that each GBE_MACHTYPE has exactly one insatnce where the BUILDFILTER contains
 199 
            '   Check that each GBE_MACHTYPE has exactly one instance where the BUILDFILTER contains
198 
            '   a TOOLSET builder. The test is a bit sloppy
 200 
            '   a TOOLSET builder. The test is a bit sloppy
199 
            query = _
 201 
            query = _
200 
                "SELECT * from ( " &_
 202 
                "SELECT * from ( " &_
201 
                "SELECT GBE_ID, COUNT(hasToolset) as ToolsetCount " &_
 203 
                "SELECT GBE_ID, COUNT(hasToolset) as ToolsetCount " &_
202 
                "FROM  " &_
 204 
                "FROM  " &_