Private Sub PrepareParametersDivisionAddress(report As ReportGeneratorParameters)

        Dim division As HRM.Cache.Division = HRM.Cache.Division.Get(env, env.Division)

​

        If division IsNot Nothing Then

            Dim account As CRM.Cache.AccountEx = CRM.Cache.AccountEx.Get(env, division.Account)

​

            If account IsNot Nothing Then

                With report

                    .AddParameter("DivisionPostCode", account.PostCode)

                    .AddParameter("DivisionCity", account.City)

​

                    Dim state As CRM.Cache.AddressState = CRM.Cache.AddressState.Get(env, account.Country, account.State)

                    If state IsNot Nothing Then

                        .AddParameter("DivisionState", state.Name)

                    End If

                End With

            End If

        End If

    End Sub