< VBA Платежка
  Пример: Транспортная логистика
Я ищу:
На главную  |  Добавить в избранное  

Экономико-математическое моделирование /

VBA Платежка

←предыдущая следующая→
1 2 3 4 5 6 7 



Скачать реферат


End If

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

If Клиент ComboBox1 _

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

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

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

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

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

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

Then

БОКС = MsgBox("Извините но Вы забыли внести Получателя : " & Клиент & " в список Получателей ", , BOX)

Exit Sub

Else

End If

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

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

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

ActiveWorkbook.Save

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

СохранитьНов.Visible = False

Создать.Visible = True

X = 1

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

X = X + 1

Wend

Worksheets(№ПЛ).Select

Range("A" & X).Select

Selection.NumberFormat = "#,##0"

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

Range("g" & X).Select

Selection.NumberFormat = "#,##0"

Worksheets(№ПЛ).Range("g" & X) = CDbl(Деньги)

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

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

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

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

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

Worksheets(№ПЛ).Range("h" & X) = Дата

Worksheets(№ПЛ).Range("I" & X) = ДатаУслуг

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

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

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

Worksheets(№ПЛ).Range("M" & X) = МП1

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

Worksheets("Лист1").Range("O2") = X

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

Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1).NumberFormat = "@"

Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1) = _

Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1) + "" & X & "."

ActiveWorkbook.Save

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

ActiveWorkbook.Save

End Sub

Private Sub СтарыеПл_Click()

If СтарыеПл.Value = True Then

ComboBox1.Visible = False

НомерПл.Visible = True

Label1.Visible = False

Label14.Visible = True

Счётчик.Visible = True

Счётчик.SetFocus

КСтарПл.Visible = True

Создать.Visible = False

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

ДобавитьПол.Visible = False

УбитьКлиента.Visible = False

СохранитьНов.Visible = False

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

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

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

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

Вконец.Visible = True

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

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

СтарыеПл.Caption = "Вернуться к созданию платёжек"

Счётчик = 0

Счёт = ""

Банк = ""

Клиент = ""

КодБанка = ""

УНН = ""

ВидОперации = ""

НазначПлатежа1 = ""

НомНазПл = ""

НомерПл = ""

Дата = ""

Деньги = ""

ДатаУслуг = ""

Else

If Год Year(Date) Then

Windows("Платёжки" & Год).Activate

ActiveWindow.Close

Год = Year(Date)

Else

End If

Дата = Date

Счёт = ""

Банк = ""

Клиент = ""

КодБанка = ""

УНН = ""

ВидОперации = ""

НазначПлатежа1 = ""

НомНазПл = ""

Деньги = ""

ДатаУслуг = ""

ComboBox1.ListIndex = True

НомерПл.Visible = False

Label1.Visible = True

Label14.Visible = False

Счётчик.Visible = False

КСтарПл.Visible = False

Измениния.Visible = True

ДобавитьПол.Visible = True

УбитьКлиента.Visible = True

СохранитьНов.Visible = True

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

ComboBox1.Visible = True

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

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

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

Вконец.Visible = False

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

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

СтарыеПл.Caption = "Посмотреть старые платёжки"

End If

End Sub

Private Sub Создать_Click()

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

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

Создать.Visible = False

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

End Sub

Private Sub Счётчик_Change()

Windows("Платёжки" & Год).Activate

If Счётчик = 0 Then

Exit Sub

Else

Клиент = Worksheets(№ПЛ).Range("B" & Счётчик)

Счёт = Worksheets(№ПЛ).Range("D" & (Счётчик))

Банк = Worksheets(№ПЛ).Range("C" & (Счётчик))

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

КодБанка = Worksheets(№ПЛ).Range("E" & (Счётчик))

УНН = Worksheets(№ПЛ).Range("F" & (Счётчик))

Деньги = Worksheets(№ПЛ).Range("g" & Счётчик)

ДатаУслуг = Worksheets(№ПЛ).Range("I" & Счётчик)

ВидОперации = Worksheets(№ПЛ).Range("J" & Счётчик)

НазначПлатежа1 = Worksheets(№ПЛ).Range("K" & Счётчик)

НомНазПл = Worksheets(№ПЛ).Range("L" & Счётчик)

Дата = Worksheets(№ПЛ).Range("h" & Счётчик)

МестоПечати1 'функция работающая с МП,БП, БезПечати

'задаёт значения этим компонентам

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

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

End If

End Sub

Private Sub УбитьКлиента_Click()

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

If Len(ComboBox1) = 0 Then

БОКС = MsgBox("Вы не выбрали не одного Получателя для удаления...", , BOX)

Exit Sub

'ElseIf ComboBox1.ListIndex = -1 Then

End If

Dim a

a = ComboBox1

БОКС = MsgBox("Вы действительно хотите удалить Получателя : " & a, vbYesNo, BOX)

If БОКС vbYes Then

Exit Sub

ElseIf Len(Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1)) 0 Then

БОКС = MsgBox("Извините, но Вы не можете удалить Получателя : " & a _

& Chr(10) & "так-как по нему производились платежи. " _

& Chr(10) & "Удалить этого Получателя Будет можно лишь УДАЛИВ ПЛАТЕЛЬЩИКА !!! " _

& Chr(10) & "В форме ПЛАТЕЛЬЩИКИ !!!" & Chr(10) & Chr(10) & _

Платящий, vbCritical, BOX)

Exit Sub

End If

If ComboBox1.ListIndex = -1 Then

Exit Sub

Else

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

Worksheets(№ПЛ).Select

Rows(ComboBox1.ListIndex + 1).Select

Selection.Delete Shift:=xlUp 'Удаляем запись о клиенте

a = ComboBox1

ComboBox1.RemoveItem (ComboBox1.ListIndex)

ActiveWorkbook.Save

БОКС = MsgBox("Вы удалили Получателя : " & a, , BOX)

ComboBox1.ListIndex = -1

Счёт = ""

Банк = ""

Клиент = ""

КодБанка = ""

УНН = ""

ВидОперации = ""

НазначПлатежа1 = ""

НомНазПл = ""

НомерПл = ""

Деньги = ""

ДатаУслуг = ""

End If

End Sub

Private Sub Вконец_Click()

Windows("Платёжки" & Год).Activate

X = 1

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

X = X + 1

Wend

Счётчик.Value = X - 1

End Sub

Private Sub ПоНомеру_Click()

If Len(номерСТПЛ) = 0 Then

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

номерСТПЛ.SetFocus

Exit Sub

ElseIf номерСТПЛ > 0 And номерСТПЛ < 65501 Then

Счётчик.Value = номерСТПЛ

номерСТПЛ = ""

номерСТПЛ.SetFocus

Else

Вконец = True

БОКС = MsgBox("Был введён № несуществующей платёжки... Поэтому выполнен переход к концу списка платёжек ", , BOX)

номерСТПЛ.SetFocus

←предыдущая следующая→
1 2 3 4 5 6 7 



Copyright © 2005—2007 «Mark5»