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  " &_