VBA Платежка (стр. 2 из 5)
22. Кнопка УДАЛЕНИЕ ПОЛУЧАТЕЛЕ
23. Кнопка ВЫХОД
24. Скрытой кнопки ПЕЧАТЬ НОВОГО ПЛАТЁЖНОЕ ПОРУЧЕНИЯ
25. Скрытой кнопки ПРЕДОСМОТР
26.
 |
Скрытой выпадающий список для выбора кол-ва копий для печати
Рис 3.
При помощи радиокнопки вид информационной части может менятся.
Для внесения новых данных о получателях платежей и формирования новых пл. поручений она имеет вид приведенный выше, для навигации и редактирования старых пл. поручений она принимает следующий вид.
1. Кнопка перехода в форму ОТЧЕТЫ
2. Кнопка перехода в форму ПЛАТЕЛЬЩИКИ
3. Поле НОМЕР ПЛ. ПОРУЧЕНИЯ
4. Поле ИНТЕРАКТИВНАЯ СПРАВКА
5. Поле НАИМЕНОВАНИЕ ПОЛУЧАТЕЛЯ
6. Поле ДАТА
7. Поле НАИМЕНОВАНИЕ БАНКА ПОЛУЧАТЕЛЯ
8. Группы кнопок для работы с датой СЕГОДНЯ, ПЛЮС ДЕНЬ, МИНУС ДЕНЬ
9. Поле Р/С ПОЛУЧАТЕЛЯ
10. Поле ВИД ОПЕРАЦИИ
11. Поле КОД БАНКА ПОЛУЧАТЕЛЯ
12. Поле ДАТА ПОЛУЧЕНИЯ ТОВАРА, ОКАЗАНИЯ УСЛУГ
13. Поле КОД НАЗНАЧЕНИЯ ПЛАТЕЖА
14. Поле УНН ПОЛУЧАТЕЛЯ
15. Поле ВВЕДИТЕ СУММУ
Рис3.
16. Группы кнопок-переключателей М/П-место печати, Б/П-без печати, ПУСТО-нет никаких надписей в пл. поручении на месте для печати.
17. Поле ВВЕДИТЕ НАЗНАЧЕНИЕ ПЛАТЕЖА
18. Радиокнопка для перехода формы в первоначальный режим ВЕРНУТЬСЯ К СОЗДАНИЮ ПЛАТЁЖКИ
19. Кнопка ВНЕСТИ ИЗМЕНЕНИЯ В СТАРУЮ ПЛАТЁЖКУ
20. Кнопка для просмотра прошлогодних пл. поручений ЗА ПРОШЛЫЙ ГОД
21. Кнопка ПЕЧАТЬ СТАРОГО ПЛАТЁЖНОГО ПОРУЧЕНИЯ
22. Кнопка для перехода по старым пл. поручениям
23. Кнопка для перехода в конец списка пл. поручений К КОНЦУ СПИСКА ПЛАТЁЖЕК
24. Поле для ввода номера пл. поручения к которому следует сделать переход
25. Кнопка для введённого номера пл. поручения к которому следует сделать переход ПЕРЕЙТИ ПО НОМЕРУ
26. Кнопка ВЫХОД
27. Кнопка ПРЕДОСМОТР
28. Выпадающий список для выбора кол-ва копий для печати
Рис4.
При помощи кнопки Отчёты происходит переход в форму отчётов. Форма отчётов имеет следующий вид:
1. Кнопка перехода в главную форму НАЗАД К ПЛАТЁЖКАМ
2. Двенадцать флажков на каждый месяцгода соответственно
3. Кнопка перехода в форму ПЛАТЕЛЬЩИКИ
4. Выпадающий список СПИСОК ПОЛУЧАТЕЛЕЙ
5. Выпадающий список СПИСОК ПЛАТЕЛЬЩИКОВ
6. Кнопка ЗА I-Й КВАРТАЛ для быстрого выделения флажков I-го квартала
7. Кнопка ЗА II -Й КВАРТАЛ Л для быстрого выделения флажков II-го квартала
8. Кнопка ЗА III-Й КВАРТАЛ для быстрого выделения флажков III-го квартала
9. Кнопка ЗА IV-Й КВАРТАЛ для быстрого выделения флажков IV-го квартала
10. Кнопка ЗА ГОД для быстрого выделения всех флажков года
11. Поле года отчёта
12. Кнопка ПЛЮС ГОД
13. Кнопка МИНУС ГОД
14. Кнопка сброс для снятия активизации со всех флажков месяцев
15. Скрытая кнопка удаления файлов отчёта. Кнопка появляется если имеется хоть бы один файл со старыми отчётами.
16. Справочное поле выдаёт информацию о выбранном для отчёта получателе и сформированном отчёте
17. Справочное поле выдаёт информацию о выбранном для отчёта плательщике
18. Поле РЕЗУЛЬТАТ. Сдесь выводятся итоговые данные.
19. Кнопка СФОРМИРОВАТЬ ОТЧЁТ
20. Кнопка ПРОСМОТР ОТЧЁТА
21. Кнопка ПЕЧАТЬ ОТЧЁТА
22. Кнопка СФОРМИРОВАТЬ ОТЧЁТ ПО ВСЕМ ПОЛУЧАТЕЛЯМ
23. Выпадающий список для выбора копий при печать отчёта
24.
 |
Поле ИНТЕРАКТИВНОЙ СПРАВКИ
25. Кнопка ВЫХОД
Рис5.
При переходе в главную форму с помощью кнопки НАЗАД К ПЛЯТЁЖКАМ. Пользователь может перейти к форме плательщики. Эта форма содержит следующие элементы:
1. Кнопка перехода в главную форму НАЗАД К ПЛАТЁЖКАМ
2. Выпадающий список для выбора ПЛАТЕЛЬЩИКА
3. Поле НАИМЕНОВАНИЕ ПЛАТЕЛЬЩИКА
4. Поле НАИМЕНОВАНИЕ БАНКА ПЛАТЕЛЬЩИКА
5. Поле Р/С БАНКА ПЛАТЕЛЬЩИКА
6. Поле УНН ПЛАТЕЛЬЩИКА
7. Поле КОД БАНКА ПЛАТЕЛЬЩИКА
8. Кнопка для активизации выбранного плательщика СДЕЛАТЬ ЭТОГО ПЛАТЕЛЬЩИКА ТЕКУЩИМ В П/П
9. Кнопка ДОБАВИТЬ ПЛАТЕЛЬЩИКА
10. Кнопка УДАЛИТЬ ПЛАТЕЛЬЩИКА
11. Кнопка ВНЕСТИ ИЗМЕНЕНИЯ В ДАННЫЕ О ПЛАТЕЛЬЩИКЕ
Рис 6.
5.3 Алгоритм решения задачи.
Расмотрим алгоритм процедуры расчета суммы прогизведённых платежей по выбранному для отчёта получателю.
 |
 |  |
 |
 |
 | ||
 | ||
3.4 Разработка и тестирование программного модуля.
Возмём в качестве тестового примера несколько получателей платежей . Заполним некоторое кол-во плю поручений. На пример:
| Наименование Получателя | Дата | Кол-во платежа |
| Иванов | 01/02/00 | 500 |
| Иванов | 02/02/00 | 600 |
| Иванов | 03/03/00 | 700 |
| Иванов | 04/04/00 | 800 |
| Иванов | 05/05/00 | 900 |
| Иванов | 06/06/00 | 1000 |
| Иванов | 07/07/00 | 1100 |
| Иванов | 08/08/00 | 1200 |
| Сидоров | 01/02/00 | 100 |
| Сидоров | 02/02/00 | 10 |
| Сидоров | 03/03/00 | 15 |
| Сидоров | 04/04/00 | 16 |
| Сидоров | 05/05/00 | 17 |
| Сидоров | 08/08/00 | 18 |
| Сидоров | 08/09/00 | 19 |
| Иванов | 01/02/00 | 1000 |
| Итого | 7995 |
Результаты полученные ьвне программы совершенно идентичны результатам полученным программым путём.
Так же программый продукт подвергся тестированию на собственном производстве. Ошибок выявлено не было.
Из этого можно сделать вывод что созданное программное обеспечение работает правильно и вполне готово к эксплуатации.
Заключение.
Представленный программный продукт создан в среде Excel -97 .
Преимуществом данного продукта является его простота, достаточный комфорт при эксплуатации, что дает возможность пользователю эффективно работать с этой программой. Кроме этого обеспечивается неплохая надежность работы программного средства, и хорошая информационная навигация.
Изменяемость программы можно осуществить только модернизируя ее , что не предоставляет достаточной гибкости.
Литература
1. “Microsoft OFFICE97 разработка приложений” К.Соломон издательство “БХВ “ г.Санкт-Петербург 1998 год.
2. Кен Гетц. Майк Джилберт ” Программирование в Microsoft Office “ - издательство “ Печатный двор“ Государственного комитета РФ по печати г.Санкт-Петербург 1999 год.
3. М.МакКелви и др. “ Visual Basic 5 “ издательство “ BHV-Санкт-Петербург“ 1998 год.
4. Р.Персон. “Excel для Windows 95 “ издательство “ BHV-Санкт-Петербург“ 1998 год.
5. Р.Винтер. “Microsoft Office для Windows 95 “ издательство “ BHV-Санкт-Петербург“ 1998 год.
6. Фигурнов В.Э.” IBM PC для пользователя.” - М: Финансы и статистика, 1991.
7.Ч.Петзолд “Программирование для Windows 95 ” издательство “ BHV-Санкт-Петербург“ 1998 год.
8 . Ф. Новиков,А.Яценко. “Microsoft Office в целом” издательство “ BHV-Санкт-Петербург“ 1998 год.
Исходный текст основного программного модуля.
Dim №ПЛ As String
Dim Платящий As String
Dim BOX
Dim БОКС
Dim МП1 As String
Dim Год
Private Sub ComboBox1_Change()
Windows("Клиенты" & Year(Date)).Activate
If ComboBox1.ListIndex = -1 Then
Exit Sub
End If
a = ComboBox1.ListIndex
Счётчик2.Visible = False
Создать.Visible = False
Предосмотр.Visible = False
СохранитьНов.Visible = True
If Len(Worksheets(№ПЛ).Range("A1")) = 0 Then
ComboBox1.Visible = False
Windows("Клиенты" & Year(Date)).Activate
Счёт = Worksheets(№ПЛ).Range("C1")
Банк = Worksheets(№ПЛ).Range("B1")
Клиент = Worksheets(№ПЛ).Range("A1")
КодБанка = Worksheets(№ПЛ).Range("D1")
УНН = Worksheets(№ПЛ).Range("E1")
ВидОперации = Worksheets(№ПЛ).Range("f1")
НазначПлатежа1 = Worksheets(№ПЛ).Range("g1")
НомНазПл = Worksheets(№ПЛ).Range("H1")
ElseIf a < 0 Then
ComboBox1.ListIndex = a + 1
Windows("Клиенты" & Year(Date)).Activate
Счёт = (Worksheets(№ПЛ).Range("C" & (ComboBox1.ListIndex + 1)))