'События окна Form1
Option Explicit
'Событие происходит, когда пользователь меняет вкладку
Private Sub MultiPage1_Change()
Dim tasks As Task
Set tasks = New Task
'Вставляются данные в выпадающие списки
tasks.insertCountriesInComboBox
tasks.insertLegalsInComboBox Form.legals_comboBox
tasks.insertActivitiesInComboBox
tasks.insertLegalsInComboBox Form.companies_comboBox
tasks.insertTaxTypesInComboBox Form.listOfTaxTypes_comboBox
tasks.insertTaxTypesInComboBox Form.add_taxTypes_comboBox
tasks.insertLegalsInComboBox Form.add_companies_comboBox
End Sub
'подпрограмма исполняется, когда мы нажимаем на кнопку "Открыть файл"
Private Sub selectData_Click()
Dim tasks As Task
Set tasks = New Task
'вызов функции, которая открывает файл базы данных с данными
tasks.selectData
'делаем активными вкладки для работы с данными
Form.MultiPage1.Pages.Item("Page2").Enabled = True
Form.MultiPage1.Pages.Item("Page3").Enabled = True
End Sub
'подпрограмма исполняется, когда мы нажимаем на кнопку "Получить список организаций"
Private Sub getListOfLegals_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
'ускоряем макрос (отключаем перерисовку таблиц и прочее)
funcs.speedUp True
'печатаем список компаний
tasks.printListOfLegals
'возвращаем Excel в исходное состояние
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить список деятельностей для компании
Private Sub getCompanyActivities_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
'печатаем список
tasks.printListOfCompanyActivities
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить список компаний для заданной деятельности
Private Sub getListOfLegalsForActivity_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
'печатаем список
tasks.printLegalsForActivity
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить полную информацию о налогах для заданной компании
Private Sub printInfoAboutCompany_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
tasks.printInfoAboutCompany
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить все налоги для заданного вида налога
Private Sub printInfoAboutTaxType_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
tasks.printTaxesForTaxType
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить список налогов, которые не были оплачены вовремя
Private Sub printNotPaidCompanies_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
'печатаем список
tasks.printNotPaidCompanies
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы получить список проверок, которые были пройдены с результатом не удовлетворительно
Private Sub printListOfFailedCheck_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
'печатаем список
tasks.printListOfFailedCheck
funcs.speedUp False
End Sub
'событие нажатия на кноку, чтобы добавить новый налог для выбранной компании
Private Sub add_tax_button_Click()
Dim tasks As Task
Set tasks = New Task
Dim funcs As Functions
Set funcs = New Functions
funcs.speedUp True
'добавляем налог
tasks.addTax
funcs.speedUp False
End Sub