Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

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 _

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)

Рекомендуем скачать другие рефераты по теме: доклад по биологии, шпоры.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки