183265 (743362), страница 5
Текст из файла (страница 5)
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
Exit Sub
End If
If Len(НомерПл) = 0 Then
Вконец = True
БОКС = MsgBox("Был введён № несуществующей платёжки... Поэтому выполнен переход к концу списка платёжек ", , BOX)
номерСТПЛ.SetFocus
Else
End If
End Sub
Private Function TRIMF()
Клиент = TRIM(Клиент)
Банк = TRIM(Банк)
Счёт = TRIM(Счёт)
КодБанка = TRIM(КодБанка)
Счёт = TRIM(Счёт)
КодБанка = TRIM(КодБанка)
УНН = TRIM(УНН)
ВидОперации = TRIM(ВидОперации)
НомНазПл = TRIM(НомНазПл)
Дата = TRIM(Дата)
ДатаУслуг = TRIM(ДатаУслуг)
НазначПлатежа1 = TRIM(НазначПлатежа1)
Деньги = TRIM(Деньги)
End Function
Private Function Проверка() As String
TRIMF
If ПроверкаОБЩ = False Then
Проверка = False
Exit Function
Else
Проверка = True
End If
End Function
Private Function ПроверкаПЛ() As String
TRIMF
If ПроверкаОБЩ = False Then
ПроверкаПЛ = False
Exit Function
Else
End If
If Len(НазначПлатежа1) = 0 Then
MsgBox "Извините но в 'Строке Введите Назначение Платежа' пусто"
НазначПлатежа1.SetFocus
ПроверкаПЛ = False
Exit Function
ElseIf IsDate(Дата) = False Then
MsgBox "Извините но в 'Строке Дата' ошибка или Вы забыли её ввести"
Дата.SetFocus
ПроверкаПЛ = False
Exit Function
ElseIf Len(Деньги) = 0 Or Деньги = "0" Then
БОКС = MsgBox("Извините но в 'Строке Введите Сумму' пусто", , BOX)
Деньги.SetFocus
Деньги = ""
ПроверкаПЛ = False
Exit Function
Else
ПроверкаПЛ = True
End If
End Function
Private Function ПроверкаОБЩ() As String
If Len(Клиент) = 0 Then
БОКС = MsgBox("Извините но в Строке Наименование Клиента пусто", , BOX)
Клиент.SetFocus
ПроверкаОБЩ = False
Exit Function
ElseIf Len(Банк) = 0 Then
БОКС = MsgBox("Извините но в Строке Банк Клиента пусто", , BOX)
Банк.SetFocus
ПроверкаОБЩ = False
Exit Function
ElseIf Len(Счёт) = 0 Then
БОКС = MsgBox("Извините но в Строке Р/с Клиента пусто", , BOX)
Счёт.SetFocus
ПроверкаОБЩ = False
Exit Function
ElseIf Len(КодБанка) = 0 Then
БОКС = MsgBox("Извините но в Строке Код Банка Клиента пусто", , BOX)
КодБанка.SetFocus
ПроверкаОБЩ = False
Exit Function
Else
ПроверкаОБЩ = True
End If
End Function
Private Sub Счёт_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Sub Деньги_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
If Mid(Деньги, 1, 1) = "0" Then
Деньги = ""
Else
End If
End Sub
Private Sub КодБанка_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Sub УНН_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Sub ВидОперации_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Sub НомНазПл_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Sub НомерСТПЛ_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0
End Sub
Private Function Впечать() As String
Sheets("Лист1").Select
If Счётчик2 = 1 Then
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf Счётчик2 = 2 Then
Range("A1:W28").Select
Selection.Copy
Range("A29").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("29:80").Select
Selection.Delete Shift:=xlUp
ActiveWorkbook.Save
ElseIf Счётчик2 = 3 Then
Range("A1:W28").Select
Selection.Copy
Range("A29").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("29:80").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Save
End If
End Function
Private Function Вплатёжку() As String
Windows("Платёжка.xls").Activate
Дата = Format(Дата, "Short Date")
Worksheets("Лист1").Range("D13") = Банк
Worksheets("Лист1").Range("Q11") = Счёт
Worksheets("Лист1").Range("E12") = Клиент
Worksheets("Лист1").Range("P14") = КодБанка
Worksheets("Лист1").Range("C12") = УНН
Worksheets("Лист1").Range("T7") = (Деньги & "=")
Worksheets("Лист1").Range("G4") = Format(Дата, "d mmmm yyyy")
Worksheets("Лист1").Range("L19") = ДатаУслуг
Worksheets("Лист1").Range("V19") = ВидОперации
Worksheets("Лист1").Range("B22") = НазначПлатежа1
Worksheets("Лист1").Range("O2") = НомерПл
Worksheets("Лист1").Range("V20") = НомНазПл
МестоПечати 'Функция работающая с параметрами места печати в платёжке
Worksheets("Лист1").Range("C27") = МП1
End Function
Private Function МестоПечати() As String
If МП = True Then
МП1 = "М/П"
ElseIf БП = True Then
МП1 = "Б/П"
ElseIf БезПечати = True Then
МП1 = ""
End If
End Function
Private Function МестоПечати1() As String
If Worksheets(№ПЛ).Range("M" & Счётчик) = "М/П" Then
МП = True
ElseIf Worksheets(№ПЛ).Range("M" & Счётчик) = "Б/П" Then
БП = True
ElseIf Worksheets(№ПЛ).Range("M" & Счётчик) = "" Then
БезПечати = True
End If
End Function
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
