Экономико-математическое моделирование /
←предыдущая следующая→
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
|
|