Lines Matching refs:aAnalysis
827 Dim aAnalysis As DocumentAnalysis variable
895 Set aAnalysis = AnalysedDocs.item(row)
896 fileName = fso.GetFileName(aAnalysis.name)
899 issuesRow = WriteDocIssues(wsIssues, issuesRow, aAnalysis, fileName)
901 … ProcessIssuesAndWriteDocIssueDetails(logWb, wsIssueDetails, issueDetailsRow, aAnalysis, fileName)
903 WriteDocRefDetails(wsRefDetails, refDetailsRow, aAnalysis, fileName)
904 aAnalysis.MacroCosts = getMacroIssueCosts(logWb, aAnalysis)
905 WriteDocProperties wsPgStats, row + offsetDocPropRow, aAnalysis, fileName
907 ProcessIssuesForDAW logWb, aAnalysis, fileName
908 WriteDocProperties wsPgStats, row + offsetDocPropRow, aAnalysis, fileName
911 UpdateAllCounts aAnalysis, docCounts, templateCounts, macroClasses, issueClasses, fso
913 Set aAnalysis = Nothing
1148 Sub UpdateAllCounts(aAnalysis As DocumentAnalysis, counts As DocumentCount, templateCounts As Docum…
1164 Select Case aAnalysis.MacroOverallClass
1176 aAnalysis.BelowIssuesLimit = True
1177 Select Case aAnalysis.DocOverallIssueClass
1188 extStr = "." & LCase(fso.GetExtensionName(aAnalysis.name))
1190 UpdateDocCounts counts, aAnalysis
1192 UpdateDocCounts templateCounts, aAnalysis
1194 WriteDebug currentFunctionName & " : path " & aAnalysis.name & _
1202 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1205 Sub UpdateDocCounts(counts As DocumentCount, aAnalysis As DocumentAnalysis)
1211 If aAnalysis.IssuesCount > 0 Then 'During Analysis incremented
1214 If aAnalysis.BelowIssuesLimit Then
1216 counts.numMinorIssues + aAnalysis.MinorIssuesCount
1218 … counts.numComplexIssues = counts.numComplexIssues + aAnalysis.ComplexIssuesCount 'Calculated
1220 aAnalysis.DocIssuesCosts
1222 aAnalysis.PreparableIssuesCosts
1225 …counts.numMacroIssues = counts.numMacroIssues + aAnalysis.MacroIssuesCount 'During Analysis increm…
1226 counts.totalMacroCosts = counts.totalMacroCosts + aAnalysis.MacroCosts
1233 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1238 Sub WriteDocProperties(wsPgStats As Worksheet, row As Long, aAnalysis As DocumentAnalysis, _
1247 If aAnalysis.Application = RID_STR_COMMON_CANNOT_OPEN Then
1249 … SetWorksheetCellValueToString wsPgStats, rowIndex, CDOCINFOAPPLICATION, aAnalysis.Application
1250 SetWorksheetCellValueToString wsPgStats, rowIndex, CDOCINFONAMEANDPATH, aAnalysis.name
1257 … SetWorksheetCellValueToString wsPgStats, rowIndex, CDOCINFOAPPLICATION, aAnalysis.Application
1259 … SetWorksheetCellValueToLong wsPgStats, rowIndex, CDOCINFODOCISSUECOSTS, aAnalysis.DocIssuesCosts
1260 …SetWorksheetCellValueToLong wsPgStats, rowIndex, CDOCINFOPREPARABLEISSUECOSTS, aAnalysis.Preparabl…
1261 … SetWorksheetCellValueToLong wsPgStats, rowIndex, CDOCINFOMACROISSUECOSTS, aAnalysis.MacroCosts
1264 getDocOverallIssueClassificationAsString(aAnalysis.DocOverallIssueClass)
1265 …SetWorksheetCellValueToLong wsPgStats, rowIndex, CDOCINFOCOMPLEXISSUES, aAnalysis.ComplexIssuesCou…
1266 … SetWorksheetCellValueToLong wsPgStats, rowIndex, CDOCINFOMINORISSUES, aAnalysis.MinorIssuesCount
1267 …SetWorksheetCellValueToLong wsPgStats, rowIndex, CDOCINFOPREPAREDISSUES, aAnalysis.PreparableIssue…
1270 getDocOverallMacroClassAsString(aAnalysis.MacroOverallClass)
1271 …SetWorksheetCellValueToLong wsPgStats, rowIndex, CDOCINFOMACRO_USERFORMS, aAnalysis.MacroNumUserFo…
1272 …SetWorksheetCellValueToLong wsPgStats, rowIndex, CDOCINFOMACRO_LINESOFCODE, aAnalysis.MacroTotalNu…
1274 SetWorksheetCellValueToLong wsPgStats, rowIndex, CDOCINFONUMBERPAGES, aAnalysis.PageCount
1275 … SetWorksheetCellValueToVariant wsPgStats, rowIndex, CDOCINFOCREATED, CheckDate(aAnalysis.Created)
1276 …orksheetCellValueToVariant wsPgStats, rowIndex, CDOCINFOLASTMODIFIED, CheckDate(aAnalysis.Modified)
1277 …orksheetCellValueToVariant wsPgStats, rowIndex, CDOCINFOLASTACCESSED, CheckDate(aAnalysis.Accessed)
1278 …tWorksheetCellValueToVariant wsPgStats, rowIndex, CDOCINFOLASTPRINTED, CheckDate(aAnalysis.Printed)
1280 SetWorksheetCellValueToString wsPgStats, rowIndex, CDOCINFOLASTSAVEDBY, aAnalysis.SavedBy
1281 SetWorksheetCellValueToString wsPgStats, rowIndex, CDOCINFOREVISION, aAnalysis.Revision
1282 SetWorksheetCellValueToString wsPgStats, rowIndex, CDOCINFOTEMPLATE, aAnalysis.Template
1283 SetWorksheetCellValueToString wsPgStats, rowIndex, CDOCINFONAMEANDPATH, aAnalysis.name
1286 … SetWorksheetCellValueToString wsPgStats, rowIndex, CDOCINFOAPPLICATION, aAnalysis.Application
1288 getDocOverallIssueClassificationAsString(aAnalysis.DocOverallIssueClass)
1290 getDocOverallMacroClassAsString(aAnalysis.MacroOverallClass)
1291 …orksheetCellValueToVariant wsPgStats, rowIndex, CDOCINFOLASTMODIFIED, CheckDate(aAnalysis.Modified)
1292 SetWorksheetCellValueToString wsPgStats, rowIndex, CDOCINFONAMEANDPATH, aAnalysis.name
1299 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & " : " & Err.Number & " " & Err.Desc…
1324 aAnalysis As DocumentAnalysis, fileName As String) As Long
1333 If aAnalysis.IssuesCount = 0 Then
1338 SetWorksheetCellValueToString wsIssues, row, CAPPLICATION, aAnalysis.Application
1341 For index = 1 To aAnalysis.TotalIssueTypes
1342 If aAnalysis.IssuesCountArray(index) > 0 Then
1343 …SetWorksheetCellValueToString wsIssues, row, CISSUE_COLUMNOFFSET + index, aAnalysis.IssuesCountArr…
1346 …tCellValueToString wsIssues, row, CISSUE_COLUMNOFFSET + aAnalysis.TotalIssueTypes + 1, aAnalysis.n…
1353 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & " : " & Err.Number & " " & Err.Desc…
1356 Sub ProcessIssuesForDAW(logWb As WorkBook, aAnalysis As DocumentAnalysis, fileName As String)
1365 For index = 1 To aAnalysis.Issues.count
1366 Set myIssue = aAnalysis.Issues(index)
1370 CountDocIssuesForDoc issueClass, aAnalysis
1371 SetOverallDocIssueClassification issueClass, aAnalysis
1381 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1386 aAnalysis As DocumentAnalysis, fileName As String) As Long
1399 For index = 1 To aAnalysis.Issues.count
1400 Set myIssue = aAnalysis.Issues(index)
1406 CountDocIssuesForDoc issueClass, aAnalysis
1407 SetOverallDocIssueClassification issueClass, aAnalysis
1408 issueCost = getDocIssueCost(logWb, aAnalysis, myIssue)
1409 aAnalysis.DocIssuesCosts = aAnalysis.DocIssuesCosts + issueCost
1411 aAnalysis.PreparableIssuesCosts = aAnalysis.PreparableIssuesCosts + issueCost
1417 CollateIssueAndFactorCountsAcrossAllDocs aAnalysis, myIssue, fileName
1419 OutputCommonIssueDetails wsIssueDetails, rowIndex, aAnalysis, myIssue, fileName
1431 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1435 Function getDocIssueCost(logWb As WorkBook, aAnalysis As DocumentAnalysis, myIssue As IssueInfo) As…
1446 … ret = getIssueValueFromXLSorDict(logWb, aAnalysis, mIssuesCostDict, issueKey, 1, CCOST_COL_OFFSET)
1454 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1457 Function getMacroIssueCosts(logWb As WorkBook, aAnalysis As DocumentAnalysis) As Long
1459 …getMacroIssueCosts = getVBAMacroIssueCost(logWb, aAnalysis) '+ getMacroExtRefIssueCost(logWb, aAna…
1465 Function getVBAMacroIssueCost(logWb As WorkBook, aAnalysis As DocumentAnalysis) As Long
1484 If Not aAnalysis.HasMacros Then GoTo FinalExit
1490 If aAnalysis.MacroTotalNumLines > 0 Then
1491 ret = ret + aAnalysis.MacroTotalNumLines * _
1492 getValueFromXLSorDict(logWb, aAnalysis, mIssuesCostDict, _
1497 If aAnalysis.MacroNumUserForms > 0 Then
1498 ret = ret + aAnalysis.MacroNumUserForms * _
1499 getValueFromXLSorDict(logWb, aAnalysis, mIssuesCostDict, _
1504 If aAnalysis.MacroNumUserFormControls > 0 Then
1505 ret = ret + aAnalysis.MacroNumUserFormControls * _
1506 getValueFromXLSorDict(logWb, aAnalysis, mIssuesCostDict, _
1511 If aAnalysis.MacroNumUserFormControlTypes > 0 Then
1512 …ret = ret + aAnalysis.MacroNumUserFormControlTypes * getValueFromXLSorDict(logWb, aAnalysis, mIssu…
1523 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1526 Function getMacroExtRefIssueCost(logWb As WorkBook, aAnalysis As DocumentAnalysis) As Long
1537 If aAnalysis.MacroNumExternalRefs <= 0 Then GoTo FinalExit
1542 ret = ret + aAnalysis.MacroNumExternalRefs * _
1543 getValueFromXLSorDict(logWb, aAnalysis, mIssuesCostDict, _
1553 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1556 Function getIssueValueFromXLSorDict(logWb As WorkBook, aAnalysis As DocumentAnalysis, dict As Scrip…
1559 … getIssueValueFromXLSorDict = getValueFromXLSorDict(logWb, aAnalysis, dict, key, key, row, column)
1562 Function getValueFromXLSorDict(logWb As WorkBook, aAnalysis As DocumentAnalysis, dict As Scripting.…
1593 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1606 Sub CountDocIssuesForDoc(issueClass As EnumDocOverallIssueClass, aAnalysis As DocumentAnalysis)
1610 aAnalysis.MinorIssuesCount = aAnalysis.MinorIssuesCount + 1
1615 Sub SetOverallDocIssueClassification(issueClass As EnumDocOverallIssueClass, aAnalysis As DocumentA…
1618 If aAnalysis.DocOverallIssueClass = enComplex Then Exit Sub
1621 aAnalysis.DocOverallIssueClass = enComplex
1623 aAnalysis.DocOverallIssueClass = enMinor
1699 aAnalysis As DocumentAnalysis, fileName As String) As Long
1711 If aAnalysis.HasMacros And (aAnalysis.References.count > 0) Then
1712 For index = 1 To aAnalysis.References.count
1713 Set myIssue = aAnalysis.References(index)
1714 OutputReferenceAttributes wsRefDetails, rowIndex, aAnalysis, myIssue, fileName
1727 " : path " & aAnalysis.name & ": " & _
1733 aAnalysis As DocumentAnalysis, myIssue As IssueInfo, fileName As String)
1742 …SetWorksheetCellValueToString wsIssueDetails, rowIndex, CREF_DETDOCAPPLICATION, aAnalysis.Applicat…
1775 SetWorksheetCellValueToString wsIssueDetails, rowIndex, CREF_DETNAMEANDPATH, aAnalysis.name
1782 " : path " & aAnalysis.name & ": " & _
1817 Sub CollateIssueAndFactorCountsAcrossAllDocs(aAnalysis As DocumentAnalysis, myIssue As IssueInfo, f…
1868 " : path " & aAnalysis.name & ": " & _
1875 aAnalysis As DocumentAnalysis, myIssue As IssueInfo, fileName As String)
1882 …SetWorksheetCellValueToString wsIssueDetails, rowIndex, CISSUE_DETDOCAPPLICATION, aAnalysis.Applic…
1892 SetWorksheetCellValueToString wsIssueDetails, rowIndex, CISSUE_DETNAMEANDPATH, aAnalysis.name
1900 " : path " & aAnalysis.name & ": " & _
3034 Sub WriteXMLDocProperties(out As TextStream, aAnalysis As DocumentAnalysis)
3039 out.WriteLine "<document location=""" & EncodeXML(aAnalysis.name) & """"
3040 out.WriteLine " application=""" & aAnalysis.Application & """"
3041 out.WriteLine " issues-count=""" & (aAnalysis.IssuesCount) & """"
3042 out.WriteLine " pages=""" & aAnalysis.PageCount & """"
3043 out.WriteLine " created=""" & CheckDate(aAnalysis.Created) & """"
3044 out.WriteLine " modified=""" & CheckDate(aAnalysis.Modified) & """"
3045 out.WriteLine " accessed=""" & CheckDate(aAnalysis.Accessed) & """"
3046 out.WriteLine " printed=""" & CheckDate(aAnalysis.Printed) & """"
3047 out.WriteLine " last-save-by=""" & aAnalysis.SavedBy & """"
3048 out.WriteLine " revision=""" & aAnalysis.Revision & """"
3049 out.WriteLine " based-on-template=""" & EncodeXML(aAnalysis.Template) & """"
3056 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
3075 Sub WriteXMLDocRefDetails(out As TextStream, aAnalysis As DocumentAnalysis)
3082 If aAnalysis.HasMacros And (aAnalysis.References.count > 0) Then
3084 For Each myIssue In aAnalysis.References
3085 OutputXMLReferenceAttributes out, aAnalysis, myIssue
3094 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
3098 Sub OutputXMLReferenceAttributes(out As TextStream, aAnalysis As DocumentAnalysis, myIssue As Issue…
3134 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & " : myIssue " & myIssue.IssueTypeXM…
3138 Sub WriteXMLDocIssueDetails(out As TextStream, aAnalysis As DocumentAnalysis)
3145 If aAnalysis.Issues.count = 0 Then Exit Sub
3148 For Each myIssue In aAnalysis.Issues
3149 OutputXMLCommonIssueDetails out, aAnalysis, myIssue
3159 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
3163 Sub OutputXMLCommonIssueDetails(out As TextStream, aAnalysis As DocumentAnalysis, myIssue As IssueI…
3192 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & " : myIssue " & myIssue.IssueTypeXM…