Разработка системы “Создание Платёжных Поручений»

Страница 5

X = 1

While Len(Worksheets("Года").Range("A" & X)) <> 0

X = X + 1

Wend

'Worksheets("Года").Range("A" & X) = CStr((Year(Date) - 1))

Worksheets("Года").Range("A" & X) = CStr(Year(Date))

ActiveWorkbook.Save

Else

Workbooks.Open FileName:="C:\Program Files\Платёжка\Клиенты" & Year(Date)

Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжки" & Year(Date)

Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжка.xls"

Workbooks.Open FileName:="C:\Program Files\Платёжка\Плательщики.xls"

End If

Год = Year(Date)

Счётчик2.List = Array(1, 2, 3)

Счётчик2 = 1

Дата = Date

МП = True

ComboBox1.Visible = True

НомерПл.Visible = False

Label1.Visible = True

Создать.Visible = False

Label14.Visible = False

Счётчик.Visible = False

КСтарПл.Visible = False

Предосмотр.Visible = False

Счётчик2.Visible = False

ИзмененияСТ.Visible = False

Вконец.Visible = False

номерСТПЛ.Visible = False

ПоНомеру.Visible = False

ЗаПрошлыйГод.Visible = False

Сегодня.Caption = "Сегодня : " & Date

BOX = "Платёжка"

Windows("Платёжка.xls").Activate

№ПЛ = Worksheets("Лист1").Range("a1")

Windows("Клиенты" & Year(Date)).Activate

X = 1

While Len(Worksheets(№ПЛ).Range("A" & X)) <> 0

ComboBox1.AddItem (Worksheets(№ПЛ).Range("A" & X))

X = X + 1

Wend

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Windows("Платёжки" & Year(Date)).Activate

ActiveWorkbook.Save

ActiveWindow.Close

Windows("Клиенты" & Year(Date)).Activate

ActiveWorkbook.Save

ActiveWindow.Close

Windows("Платёжка.xls").Activate

ActiveWorkbook.Save

ActiveWindow.Close

Application.Quit

'ActiveWorkbook.RunAutoMacros Which:=xlAutoClose

End Sub

Private Sub Измениния_Click()

Windows("Клиенты" & Year(Date)).Activate

If Проверка = False Then ' Проверка на правильность ' функция находится в конце программы

Exit Sub ' введённой информац

Else ' функция находится в конце программы

End If

X = 1

Do While X < ComboBox1.ListCount + 1

If Клиент = Worksheets(№ПЛ).Range("A" & X) _

And Банк = Worksheets(№ПЛ).Range("b" & X) _

And Счёт = Worksheets(№ПЛ).Range("c" & X) _

And КодБанка = Worksheets(№ПЛ).Range("d" & X) _

And УНН = Worksheets(№ПЛ).Range("e" & X) _

And ВидОперации = Worksheets(№ПЛ).Range("f" & X) _

And НомНазПл = Worksheets(№ПЛ).Range("H" & X) _

And НазначПлатежа1 = Worksheets(№ПЛ).Range("g" & ComboBox1.ListIndex + 1) _

Then

БОКС = MsgBox("Извените но : " & Клиент & " уже есть в списке Получателей." _

& Chr(10) & "Попробуйте выбрать Получателя из списка.", , BOX)

Exit Sub

Else

X = X + 1

End If

Loop

Worksheets(№ПЛ).Range("A" & (ComboBox1.ListIndex + 1)) = Клиент

Worksheets(№ПЛ).Range("b" & (ComboBox1.ListIndex + 1)) = Банк

Worksheets(№ПЛ).Range("c" & (ComboBox1.ListIndex + 1)) = Счёт

Worksheets(№ПЛ).Range("d" & (ComboBox1.ListIndex + 1)) = КодБанка

Worksheets(№ПЛ).Range("e" & (ComboBox1.ListIndex + 1)) = УНН

Worksheets(№ПЛ).Range("f" & (ComboBox1.ListIndex + 1)) = ВидОперации

Worksheets(№ПЛ).Range("g" & (ComboBox1.ListIndex + 1)) = НазначПлатежа1

Worksheets(№ПЛ).Range("H" & (ComboBox1.ListIndex + 1)) = НомНазПл

ActiveWorkbook.Save

БОКС = MsgBox("Изменения в данные о Клиенте : " & Клиент & " успешно внесёны в список клиентов", , BOX)

Клиент.SetFocus

End Sub

Private Sub ДобавитьПол_Click()

Windows("Клиенты" & Year(Date)).Activate

If Проверка = False Then ' Проверка на правильность ' функция находится в конце программы

Exit Sub ' введённой информац

Else ' функция находится в конце программы

End If

X = 1

Do While X < ComboBox1.ListCount + 1

If Клиент = Worksheets(№ПЛ).Range("A" & X) _

And Банк = Worksheets(№ПЛ).Range("b" & X) _

And Счёт = Worksheets(№ПЛ).Range("c" & X) _

And КодБанка = Worksheets(№ПЛ).Range("d" & X) _

And УНН = Worksheets(№ПЛ).Range("e" & X) _

And ВидОперации = Worksheets(№ПЛ).Range("f" & X) _

And НомНазПл = Worksheets(№ПЛ).Range("H" & X) _

Then

БОКС = MsgBox("Извените но : " & Клиент & " уже есть в списке Получателей." _

& Chr(10) & "Попробуйте выбрать Получателя из списка.", , BOX)

Exit Sub

Else

X = X + 1

End If

Loop

X = 1

While Len(Worksheets(№ПЛ).Range("A" & X)) <> 0

X = X + 1

Wend

Worksheets(№ПЛ).Range("A" & X) = Клиент

Worksheets(№ПЛ).Range("b" & X) = Банк

Worksheets(№ПЛ).Range("c" & X) = Счёт

Worksheets(№ПЛ).Range("d" & X) = КодБанка

Worksheets(№ПЛ).Range("e" & X) = УНН

Worksheets(№ПЛ).Range("f" & X) = ВидОперации

Worksheets(№ПЛ).Range("g" & X) = НазначПлатежа1

Worksheets(№ПЛ).Range("H" & X) = НомНазПл

ComboBox1.Visible = True

ComboBox1.AddItem (Worksheets(№ПЛ).Range("A" & (ComboBox1.ListCount + 1)))

ComboBox1.ListIndex = X - 1

ActiveWorkbook.Save

БОКС = MsgBox("Новый Клиент : " & Клиент & " внесён в список клиентов", , BOX)

Клиент.SetFocus

End Sub

Private Sub КСтарПл_Click()

Windows("Платёжка.xls").Activate

If Len(НомерПл) = 0 Then

БОКС = MsgBox("Вы не выбрали платёжку .", , BOX)

Exit Sub

Else

End If

If ПроверкаПЛ = False Then ' Проверка на правильность

Exit Sub ' введённой информации

Else ' функция находится в конце программы

End If

Вплатёжку 'функция сохраняющая данные в платёжке

ActiveWorkbook.Save

Windows("Платёжки" & Year(Date)).Activate

Worksheets(№ПЛ).Range("A" & НомерПл) = НомерПл

Worksheets(№ПЛ).Range("c" & НомерПл) = Банк

Worksheets(№ПЛ).Range("d" & НомерПл) = Счёт

Worksheets(№ПЛ).Range("b" & НомерПл) = Клиент

Worksheets(№ПЛ).Range("e" & НомерПл) = КодБанка

Worksheets(№ПЛ).Range("f" & НомерПл) = УНН

Worksheets(№ПЛ).Range("g" & НомерПл) = Деньги

Worksheets(№ПЛ).Range("h" & НомерПл) = Дата

Worksheets(№ПЛ).Range("I" & НомерПл) = ДатаУслуг

Worksheets(№ПЛ).Range("J" & НомерПл) = ВидОперации

Worksheets(№ПЛ).Range("K" & НомерПл) = НазначПлатежа1

Worksheets(№ПЛ).Range("L" & НомерПл) = НомНазПл

Worksheets(№ПЛ).Range("M" & НомерПл) = МП1

Windows("Платёжка.xls").Activate

Впечать 'функция печати

End Sub

Private Sub ИзмененияСТ_Click()

If Year(Дата) <> Год Then

БОКС = MsgBox("В дате должен стоять " & Год & " год", , BOX)

Exit Sub

End If

Windows("Платёжка.xls").Activate

If Len(НомерПл) = 0 Then

БОКС = MsgBox("Вы не выбрали платёжку .", , BOX)

Exit Sub

Else

End If

If ПроверкаПЛ = False Then ' Проверка на правильность

Exit Sub ' введённой информации