VBA Платежка
Информация - Экономика
Другие материалы по предмету Экономика
yVal X As Single, ByVal Y As Single)
Label16.Caption = "Эта кнопка предназначена для сохранения созданного платёжного поручения"
End Sub
Private Sub Создать_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Нажав на эту кнопку Вы можете распечатать Ваше платёжное поручения" _
& " Не забудьте выбрать кол-во копий в выпадающем списке рядом с кнопкой"
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = Платящий
End Sub
Private Sub Плательщики_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Нажав эту кнопка Вы можете поменять текущего Плательщика или внести изменения в существующие данные о Плательщике"
End Sub
Private Sub Сегодня_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Кнопка для вставки текущей даты в формируемую платёжку"
End Sub
Private Sub КодБанка_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Обязательное поле. В это поле вносят код банка Получателя. Допускаются только цифровые значения."
End Sub
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Что бы вставить данные Получателя платежа востользуйтесь этим выпадающем списком. Если данные отсутствуют, значит придётся добавить нового Получателя."
End Sub
Private Sub Label14_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Номер текущей платёжки"
End Sub
Private Sub Дата_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Обязательное поле. В это поле вносят дату формируемой платёжки. Допускаются такие форматы дат. Пример : 01,01,200 или 01/01/2000 или 01.01/00"
End Sub
Private Sub УНН_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "НЕ обязательное поле. В это поле вносят УНН Получателя. Допускаются только цифровые значения."
End Sub
Private Sub НазначПлатежа1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Обязательное поле. В это поле вносят сведения за что Вы собственно платите." _
& "СОВЕТ если Вы знаете,что будете здесь писать почти всегда одно и тоже " _
& "то нажмите кнопку Внести изменения в данные о Получателе."
End Sub
Private Sub Клиент_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Обязательное поле. В это поле вносят Наименование Получателя. На пример: ""ООО Приятные Мелочи"""
End Sub
Private Sub Банк_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Обязательное поле. В это поле вносят Наименование Банка Получателя. На пример: ""ОАО Белбизнесбанк г. Могилёв"""
End Sub
Private Sub Счёт_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Обязательное поле. В это поле вносят № расчётного счёта Получателя. Допускаются только цифровые значения."
End Sub
Private Sub ДатаУслуг_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "НЕ обязательное поле. В это поле вносят дату получения товара или оказания услуг. Пример: Предоплата или 28 марта 2000г."
End Sub
Private Sub ВидОперации_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "НЕ обязательное поле. В это поле вносят число отражающее вид операции. Допускаются только цифровые значения."
End Sub
Private Sub НомНазПл_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "НЕ обязательное поле. В это поле вносят число отражающее код назначения платежа. Допускаются только цифровые значения."
End Sub
Private Sub Деньги_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Обязательное поле. В это поле вносят сумму платежа. Допускаются только цифровые значения."
End Sub
Private Sub Минус_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Отнимает один день от текущей даты."
End Sub
Private Sub Плюс_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Добавляет один день к текущей дате."
End Sub
Private Sub СохранитьНов_Click()
If Year(Дата) <> Year(Date) Then
БОКС = MsgBox("Извините но в строке Дата ошибка. Укажите текущий Год", , BOX)
Дата.SetFocus
Exit Sub
End If
Windows("Платёжка.xls").Activate
If ПроверкаПЛ = False Then Проверка на правильность
Exit Sub введённой информации
Else функция находится в конце программы
End If
If ComboBox1.ListIndex = -1 Then
БОКС = MsgBox("Извините но Вы забыли внести Получателя : " & Клиент & " в список Получателей ", , BOX)
Exit Sub
Else
End If
Windows("Клиенты" & Year(Date)).Activate
If Клиент <> ComboBox1 _
Worksheets().Range("c"&ComboBox1.ListIndex+1)_"> Or Счёт <> Worksheets(№ПЛ).Range("c" & ComboBox1.ListIndex + 1) _
Worksheets().Range("b"&ComboBox1.ListIndex+1)_"> Or Банк <> Worksheets(№ПЛ).Range("b" & ComboBox1.ListIndex + 1) _
Worksheets().Range("d"&ComboBox1.ListIndex+1)_"> Or КодБанка <> Worksheets(№ПЛ).Range("d" & ComboBox1.ListIndex + 1) _
Worksheets().Range("e"&ComboBox1.ListIndex+1)_"> Or УНН <> Worksheets(№ПЛ).Range("e" & ComboBox1.ListIndex + 1) _
Worksheets().Range("f"&ComboBox1.ListIndex+1)_"> Or ВидОперации <> Worksheets(№ПЛ).Range("f" & ComboBox1.ListIndex + 1) _
Worksheets().Range("H"&ComboBox1.ListIndex+1)_"> Or НомНазПл <> Worksheets(№ПЛ).Range(&q