Lines Matching refs:myIssue
1361 Dim myIssue As IssueInfo variable
1366 Set myIssue = aAnalysis.Issues(index)
1368 If Not isMacroIssue(myIssue) Then
1369 issueClass = getDocIssueClassification(logWb, myIssue)
1374 Set myIssue = Nothing
1391 Dim myIssue As IssueInfo variable
1400 Set myIssue = aAnalysis.Issues(index)
1404 If Not isMacroIssue(myIssue) Then
1405 issueClass = getDocIssueClassification(logWb, myIssue)
1408 issueCost = getDocIssueCost(logWb, aAnalysis, myIssue)
1410 If myIssue.Preparable Then
1417 CollateIssueAndFactorCountsAcrossAllDocs aAnalysis, myIssue, fileName
1419 OutputCommonIssueDetails wsIssueDetails, rowIndex, aAnalysis, myIssue, fileName
1420 OutputCommonIssueAttributes wsIssueDetails, rowIndex, myIssue
1422 Set myIssue = Nothing
1435 Function getDocIssueCost(logWb As WorkBook, aAnalysis As DocumentAnalysis, myIssue As IssueInfo) As…
1444 issueKey = getAppSpecificApplicationName & "_" & myIssue.IssueTypeXML & "_" & myIssue.SubTypeXML
1596 Function isMacroIssue(myIssue As IssueInfo)
1600 If myIssue.IssueTypeXML = CSTR_ISSUE_VBA_MACROS Or _
1601 (myIssue.IssueTypeXML = CSTR_ISSUE_PORTABILITY And _
1602 myIssue.SubTypeXML = CSTR_SUBISSUE_EXTERNAL_REFERENCES_IN_MACRO) Then
1626 Function getDocIssueClassification(logWb As WorkBook, myIssue As IssueInfo) As EnumDocOverallIssueC…
1635 issueKey = getAppSpecificApplicationName & "_" & myIssue.IssueTypeXML & "_" & myIssue.SubTypeXML
1704 Dim myIssue As IssueInfo variable
1713 Set myIssue = aAnalysis.References(index)
1714 OutputReferenceAttributes wsRefDetails, rowIndex, aAnalysis, myIssue, fileName
1716 Set myIssue = Nothing
1733 aAnalysis As DocumentAnalysis, myIssue As IssueInfo, fileName As String)
1740 With myIssue
1784 " : myIssue " & myIssue.IssueTypeXML & "_" & myIssue.SubTypeXML & ": " & _
1789 myIssue As IssueInfo)
1798 For index = 1 To myIssue.Attributes.count
1799 strAttributes = strAttributes & myIssue.Attributes(index) & " - " & _
1800 myIssue.Values(index)
1801 strAttributes = strAttributes & IIf(index <> myIssue.Attributes.count, vbLf, "")
1812 " : myIssue " & myIssue.IssueTypeXML & "_" & myIssue.SubTypeXML & ": " & _
1817 Sub CollateIssueAndFactorCountsAcrossAllDocs(aAnalysis As DocumentAnalysis, myIssue As IssueInfo, f…
1824 If myIssue.IssueTypeXML = CSTR_ISSUE_INFORMATION Then Exit Sub
1827 issueKey = getAppSpecificApplicationName & "_" & myIssue.IssueTypeXML & "_" & myIssue.SubTypeXML
1833 If myIssue.Preparable Then
1838 If (myIssue.IssueTypeXML = CSTR_ISSUE_VBA_MACROS) And _
1839 (myIssue.SubTypeXML <> CSTR_SUBISSUE_MACRO_PASSWORD_PROTECTION) Then
1842 AddMacroModuleHashToMacroDict myIssue
1845 AddIssueAndValToDict issueKey & "_" & CSTR_SUBISSUE_VBA_MACROS_NUMLINES, myIssue, _
1849 If myIssue.SubLocation = CSTR_USER_FORM Then
1852 … AddIssueAndValToDict issueKey & "_" & CSTR_SUBISSUE_VBA_MACROS_USERFORMS_CONTROL_COUNT, myIssue, _
1856 ElseIf (myIssue.IssueTypeXML = CSTR_ISSUE_PORTABILITY And _
1857 myIssue.SubTypeXML = CSTR_SUBISSUE_EXTERNAL_REFERENCES_IN_MACRO) Then
1859 … AddIssueAndValToDict issueKey & "_" & CSTR_SUBISSUE_EXTERNAL_REFERENCES_IN_MACRO_COUNT, myIssue, _
1869 " : myIssue " & myIssue.IssueTypeXML & "_" & myIssue.SubTypeXML & ": " & _
1875 aAnalysis As DocumentAnalysis, myIssue As IssueInfo, fileName As String)
1883 SetWorksheetCellValueToString wsIssueDetails, rowIndex, CISSUE_DETTYPE, myIssue.IssueType
1884 SetWorksheetCellValueToString wsIssueDetails, rowIndex, CISSUE_DETSUBTYPE, myIssue.SubType
1885 SetWorksheetCellValueToString wsIssueDetails, rowIndex, CISSUE_DETLOCATION, myIssue.Location
1887 IIf(myIssue.SubLocation = "", RID_STR_COMMON_NA, myIssue.SubLocation)
1889 IIf(myIssue.Line = -1, RID_STR_COMMON_NA, myIssue.Line)
1891 IIf(myIssue.column = "", RID_STR_COMMON_NA, myIssue.column)
1902 " : myIssue " & myIssue.IssueTypeXML & "_" & myIssue.SubTypeXML & ": " & _
2913 Public Sub AddIssueDetailsNote(myIssue As IssueInfo, noteNum As Long, noteStr As String, _
2922 myIssue.Attributes.Add preStr & "[" & noteNum & "]"
2923 myIssue.Values.Add noteStr
3079 Dim myIssue As IssueInfo variable
3084 For Each myIssue In aAnalysis.References
3085 OutputXMLReferenceAttributes out, aAnalysis, myIssue
3086 Next myIssue
3098 Sub OutputXMLReferenceAttributes(out As TextStream, aAnalysis As DocumentAnalysis, myIssue As Issue…
3104 With myIssue
3134 …ctionName & " : path " & aAnalysis.name & " : myIssue " & myIssue.IssueTypeXML & "_" & myIssue.Sub…
3143 Dim myIssue As IssueInfo variable
3148 For Each myIssue In aAnalysis.Issues
3149 OutputXMLCommonIssueDetails out, aAnalysis, myIssue
3150 OutputXMLCommonIssueAttributes out, myIssue
3152 Next myIssue
3163 Sub OutputXMLCommonIssueDetails(out As TextStream, aAnalysis As DocumentAnalysis, myIssue As IssueI…
3168 out.WriteLine "<issue category=""" & myIssue.IssueTypeXML & """"
3169 out.WriteLine " type=""" & myIssue.SubTypeXML & """"
3173 out.WriteLine " prepared=""" & IIf((myIssue.Preparable), "True", "False") & """ >"
3175 out.WriteLine "<location type=""" & myIssue.locationXML & """ >"
3177 If myIssue.SubLocation <> "" Then
3178 out.WriteLine "<property name=""sublocation"" value=""" & myIssue.SubLocation & """ />"
3180 If myIssue.Line <> -1 Then
3181 out.WriteLine "<property name=""line"" value=""" & myIssue.Line & """ />"
3183 If myIssue.column <> "" Then
3184 out.WriteLine "<property name=""column"" value=""" & myIssue.column & """ />"
3192 …ctionName & " : path " & aAnalysis.name & " : myIssue " & myIssue.IssueTypeXML & "_" & myIssue.Sub…
3196 Sub OutputXMLCommonIssueAttributes(out As TextStream, myIssue As IssueInfo)
3205 If myIssue.Attributes.count = 0 Then Exit Sub
3208 For index = 1 To myIssue.Attributes.count
3209 attStr = myIssue.Attributes(index)
3213 …out.WriteLine "<note index=""" & attStr & """ value=""" & EncodeXML(myIssue.Values(index)) & """ /…
3215 …ut.WriteLine "<property name=""" & EncodeXML(myIssue.Attributes(index)) & """ value=""" & EncodeXM…
3225 …WriteDebug currentFunctionName & " : myIssue " & myIssue.IssueTypeXML & "_" & myIssue.SubTypeXML &…