- мінімум 300 Мбайт вільного місця на вінчестері
- монітор VGA або SVGA
- мишку
Стосовно професійної кваліфікації обслуговуючого персоналу, дана програма не вимагає глибоких знань в комп’ютерній галузі. Робота з системою обліку і аналізу розрахунків з постачальниками вимагає лише наявності базових навиків в роботі з ОС Microsoft Windows 95 (Microsoft Windows 98 чи Microsoft Windows NT). Оператору повинні бути знайомі наступні поняття і навики:
- використання меню “Пуск” (“Start”) для виклику програм;
- прийоми роботи з вікнами;
- робота з меню;
- використання керуючих елементів діалогу;
- стандартні діалоги;
- налаштування операційної системи Microsoft Windows 95 (Microsoft
Windows 98, Microsoft Windows NT) з допомогою панелі управління.
Розглянемо дії користувача при роботі з системою. Оператор системи обліку і аналізу розрахунків з постачальниками (бухгалтер) запускає програму на виконання (виконувальний файл R60.exe), або з командної стрічки, або за допомогою ярлика, який викликає цей файл. На екрані з’являється головне вікно програми, яке представлено в додатку 25. В головному меню знаходяться два основних пункти, які також продубльовані на стандартній панелі інструментів у вигляді кнопок:
- “Партнери”;
- “Друк”.
На даній панелі інструментів також знаходяться поля редагування, з допомогою яких користувач може ввести дату початкового періоду (від неї будуть розраховуватись звіти по замовчуванню).
При натискуванні на кнопку “Партнери” з’являється форма з списком партнерів, яка наведена у додатку 26, і панель інструментів для роботи з нею. В даній формі містяться наступні елементи:
- список партнерів для вибору;
- фільтр партнерів по категоріям (фізичні або юридичні особи);
- кнопка активації фільтра;
- поле для виводу загальної інформації про партнера.
Панель інструментів складається з кнопок:
- “Добавлення нового партнера”;
- “Відкриття журналу операцій по партнерові”;
- “Картка партнера”;
- “Знищення партнера”;
- “Пошук”;
- “Перехід в початок списку”;
- “Перехід в кінець списку”;
- “Сортування записів”.
Для добавлення нового партнера натискається кнопка “Добавлення нового партнера”, яка викликає форму “Картка партнера” для вводу даних про партнера, представлену в додатку 27. Дана форма викликається також і при натисненні кнопки “Картка партнера” при необхідності перегляду або редагування даних про партнера. При цьому партнер, реквізити якого необхідно переглянути чи редагувати, повинен бути попередньо вибраний зі списку партнерів в формі “Партнери”.
Отже, при добавленні нового партнера у формі “Картка партнера” користувач поступово вводить всі реквізити партнера. Для цього форма містить наступні вкладки:
- “Дані” (містить поля для вводу загальних реквізитів, які можуть бути лише одні для кожного партнера);
- “Р/р” (містить список розрахункових рахунків партнера з реквізитами, кнопки управління записами, якими, зокрема, викликається форма для вводу реквізитів рахунку);
- “Телефони” (містить список телефонів партнера з вказанням типу зв’язку. Працює аналогічно вкладці “Р/р”);
- “Адреси” (містить список адрес партнера. Працює аналогічно вкладці
“Р/р”);
- Нотатки (містить поле для вводу нотатки).
Форма “Картка партнера” також містить поле, в якому виводиться інформація про дату останньої модифікації даної картки.
Після завершення вводу, перегляду чи редагування даних натисненням кнопки “ОК” користувач повертається до форми “Партнери”.
При натисненні на кнопку “Відкриття журналу операцій по партнерові” на панелі інструментів, з’являється форма “Обороти по рахунку 60”, яка представленя в додатку 28. В ній містяться наступні об’єкти:
- поле для виводу назви обраного партнера, по якому відкрито журнал операцій;
- поля для вводу початкового сальдо по дебету і кредиту рахунка №60;
- поля для відображення обороту і кінцевого сальдо по дебету і кредиту рахунка №60;
- таблиці для перегляду інформації про здійснені операції по дебету і кредиту рахунка №60, які використовуються також для вибору операції для її редагування або знищення;
- набори кнопок для добавлення простої чи складної проводки, редагування, знищення, сортування і пошук операцій, переходу до першої або останньої операції;
- кнопки “Акт звірки”, “Проводки”, “Документи” для формування, перегляду і друку звітів;
- кнопку “Вихід” для закриття журналу операцій і повернення в форму
“Партнери”.
Для добавлення операції по партнеру, який вибрано з списку партнерів в формі “Партнери” необхідно, знаходячись в формі “Обороти по рахунку 60” натиснути кнопку “Добавлення операції”. При цьому викликається форма для вводу даних про операцію, яка представлена в додатку 29. Дана форма викликається також при натисненні кнопки “Редагування операції”, коли необхідно редагувати операцію. Форма містить наступні елементи:
- поле для вводу номера рахунка, по якому проводиться операція;
- поле для вводу суми операції;
- поле для вводу дати проведення операції;
- поле для вводу номера документа, на основі якого здійснюється операція;
- кнопки “Записати” та “Відмова” для закриття форми із збереженням та без збереження змін відповідно.
Після добавлення чи редагування операції користувач повертається до форми “Обороти по рахунку 60”.
Для друкування звітів на стандартній панелі інструментів знаходиться кнопка “Друк”, натискання на яку приводить до появи форми “Друк звітів”, яка приведена в додатку 30. Форма містить список звітів і кнопки “Друк” та “Вихід”. Друк звіту здійснюється шляхом вибору необхідного звіту зі списку звітів і натиснення кнопки “Друк”. При цьому можуть з’явитись вікна для вводу додаткових параметрів і вікна налаштування друку, в яких користувач може задати параметри друку.
Висновки
В дипломному проекті спроектовано систему обліку і аналізу розрахунків з постачальниками і підрядниками.
Було проведено дослідження технології ведення обліку розрахунків з постачальниками і підрядниками у ПП “Біомед”, вивчено структуру та функції оперативного управління, наявне програмне та апаратне забезпечення, комплекс задач, що вирішується ним.
Побудовано структурну схему системи, розроблено математичний апарат, інформаційне забезпечення для реалізації більш досконалого рішення даної задачі. Для досягнення цього був використаний метод аналізу існуючої системи на основі потоків даних різного рівня деталізації.
У першому розділі проекту проаналізовано роботу ПП “Біомед” та систему управління ним, розглянуто інформацію, яка циркулює в досліджуваній системі, вивчено існуючі методи збору, обробки та зберігання інформації, виявлено ряд недоліків.
Результатом другого розділу є спроектована модель системи з урахуванням недоліків. Для розробки програмного забезпечення розроблене інформаційне забезпечення, спроектовано даталогічну модель системи. В цьому ж розділі наведено математично-алгоритмічне забезпечення функціонування системи.
Розроблена в дипломному проекті інформаційна система забезпечить гнучкість процесу обліку розрахунків з постачальниками і підрядниками, надасть можливості для аналізу проведених розрахунків для прийняття оптимальних управлінських рішень.
Література
1. Волков С.М., Романов А.М. Организация машинной обработки экономической информции.- М.: Финансы и статистика, 1988.
1. Дипломное и курсовое проектирование по машинной обработке информации.-
М.: Финансы и статистика, 1985.
2. Жеребин В.М. Автоматизация проектирования экономических информационных систем.- М.: Финансы и статистика, 1988.
3. Когаловский М.Р. Технология баз данных на персональных ЭВМ.- М.:
Финансы и статистика, 1992.
4. Королев М.А. и др. Теория экономических информационн(х систем.- М.:
Финансы и статистика, 1984.
5. Коутс Р., Влейминк И. Интерфейс «Человек компьютер»: Пер. с англ.-
М.:Мир, 1990.
6. Лавінський Г.В. та ін. Автоматизовані системи обробки економічної інформації.-К.: Вища школа, 1995 р.
7. Методические указания к дипломному проектированию для студентов спец.
0715 - (кономическая информатика и АСУ/ Б.Е.Одинцов. - Львов: Вища школа, ЛГУ, 1990. - 67 с.
8. Одинцов Б.Е. Экономическая информатика.- Хмельницкий, 1996.
9. Омельченко Л.Н. Самоучитель Visual FoxPro 6.0. – Санкт-Петербург:
BHV, 1999. – 500 с.
10. Твердохлiб М.Г. Система обробки облікової інформації на персональних
ЕОМ.-К.:Техніка, 1993.
11. Твердохлеб Н.Г. Безбумажная технология в управлении производством.-
К.:Техника,1991.
12. Бухгалтерський облік. – Тернопіль: Центр Європи, 1994. – 176с.
13. Економічний аналіз діяльності промислових підприємств та об’єднань. –
Тернопіль: ТАНГ, 1995. – 300с.
14. З.В. Задорожний, Я. Д. Крупка, Р. О. Мельник. Бухгалтерський облік. –
Київ: ІЗМН МОУ, 1996. – 414с.
15. Сопко В.С. Бухгалтерський облік в промисловості та інших галузях народного господарства. – Київ: Вища школа, 1992. – 463с.
16. Сопко В.С. Бухгалтерський облік у підприємництві. Київ: Техніка,
1995. – 259 с.
Додаток 1
Додаток 2
Додаток 3
Додаток 4
Додаток 5
Додаток 6
Додаток 8
Додаток 9
Постачальник: _________________________
Адреса: _______________________________
тел. ____________ факс _________________
Банк: _________________________________
р/р № _____________________ МФО ___________ Код: _______________
Розхідна накладна № _______________ від _______________
Отримувач: ____________________________
Через
доручення: ___________________ від ___________________
Договір /контракт/ № _____________________
Дата сплати: ______________ Умови відпуску
________________________
|№ |Серія |Найменування |Од. |Кількіс|Вартість |Націнка|Ціна |Сума |Сума |Сума | |пп | | |вим.|ть |митна (імп.) |% |відпускн|відпуск|ПДВ |до оплати| | | | | | |завода-вироб. | |а в |на в | |з урах. | | | | | | |(укр.) | |ГРН. |ГРН | |ПДВ | | | | | | | | | | | | | |Всього | | |
(сума прописом) в тому числі ПДВ/без ПДВ: ______________
Документ склав: _________________________________________________
(П.І.Б.) Товар відпустив: _________________________________________________
Товар отримав: _____________________________________
(П.І.Б.)
Додаток 10
Платіжне доручення № _________
від «___» ______________ 200__ р.
Одержано банком
«___» ___________ 200__ р. Платник _________________________
Код за ЄДРПОУ
код банку ДЕБЕТ
СУМА Банк платника
рах. №
Одержувач _______________________
Код за
КРЕДИТ ЄДРПОУ
код банку рах. № Банк одержувача
Сума (словами) ____________________________________________________________________________
Призначення платежу _________________________________________________________
Проведено банком
«___» ___________ 200__ р.
Підписи платника
підпис банку
Додаток 11
Обороти по дебету
(дебет 60 кредит __)
|Дата |Сума |Партнер |Коментар | | | | | |
Додаток 12
Обороти по кредиту
(кредит 60 дебет __)
Додаток 13
Оборот по дебету
(загальні суми)
Включно по _______________________
|Назва (партнер) |Загальна сума | | | |
Додаток 14
Оборот по кредиту
Додаток 15
Сальдо на початок місяця
(на _____________________)
|Назва |Дебет |Кредит | |(партнер) | | | | | | | |Всього | | | |Згорнуте | | |
Додаток 16
Сальдо на кінець місяця
Додаток 17
Узагальнена сальдова відомість
|Сальдо на початок місяця (на ______________________________) | |Дебет |Кредит |Згорнуте | | | | | |Сальдо на кінець місяця (на ______________________________) | |Дебет |Кредит |Згорнуте | | | | |
Додаток 18
Журнал-ордер
|Дебет |Кредит |Сума | |60 | | | |Всього по дебету | | | |60 | | |Всього по кредиту | |
Додаток 19
Акт звірки
«___» _________________ 200__р.
Партнер: _____________________________________
|Дебет |Кредит |Сума |Сума |Дата |Номер документа | | | |по дебету |по кредиту | | | | | | | | | |
Додаток 20
Додаток 20 (продовження)
Додаток 21
Додаток 22
Parameters _rah
if parameters() = 0 howrah = 0 else if type("_RAH") = "C" howrah = _rah else howrah = alltrim(str(_rah)) endif endif
*HOWRAH = '62'
_screen.caption = 'Рахунок'
******** SetSet
_screen.windowstate = 2
_SCREEN.CLS clear wind all
CLOSE ALL set dele on set excl off set multi on set confirm on set point to ',' set separator to ['] set reprocess to 5
PUSH MENU _msysmenu hide menu _msysmenu set dele on
SET TALK OFF
SET SAFETY OFF
SET DATE GERMAN set escape off set century on
************* Означення глобальних змінних public gnpdv, znak, kurs, _YY_, _MM_, _yyarh_, _arh_, ACTIWIND, activind2, archiv, findstr, _minprcnad, apname, findstr public basesrahs, beforemm, beforeyear, _srtable_, _sttable_, _typeprn_ store ' ' to _sttable_, _srtable_, _tmpdt_, _tmpkt_, _typeprn_
********* Визначення базової директорії ff = sys(16) if 'FXP' $ FF OR 'PRG' $ FF tt = rat('',ff) ff = left(ff,tt-1) tt = rat('',ff) ff = left(ff,tt-1) else tt = rat('',ff) ff = left(ff,tt-1)
ENDIF set defa to &ff
*-- Save and configure environment. fpath = sys(5)+sys(2003) g2 = fpath+'sysapps;' g3 = fpath+'temp;' g4 = fpath+'datsets;' g5 = fpath+'reports;' gpath = fpath+';'+ g2 +g3+g4+g5
set path to &gpath
if empty(howrah) howrah = '60' endif
_pathrah1 = alltrim(howrah) hh = alltrim(howrah)
if len(hh) =2
*** добавляємо 00
_srtable_ = 'sr'+hh+'00' else
_srtable_ = 'sr'+hh endif
Додаток 22 (продовження)
_sttable_ ='set'+hh+'r'
g1 = fpath+'R'+_pathrah1+';'
gpath = gpath+g1
SET PATH TO &gpath
if !file(_srtable_+'.dbf')
* create table &_srtable_ (pathfind m(4), archfind c(150), othefind c(150), basepath c(50))
* append blank
* use
* do form finddata to yy
* if empty(yy)
= messagebox("не знайдено файлу конфігурації") close all quit
* endif endif
select 0 use &_srtable_ serverpath = pathFIND
_typeprn_ = typeprn use gpath = gpath+serverpath
SET CLASSLIB TO RAHS, diagram ADDITIVE
lcOnShutdown="ShutDown()"
ON SHUTDOWN &lcOnShutdown
ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO())
*ON ERROR
_shell="DO Cleanup IN startprg"
apname = space(30) findstr = space(20) actiwind2 = .f. public row_dos row_dos = 63
_minprcnad = 40 findstr = space(50) archiv = .f.
*SET PROC TO
SET PROCEDURE TO LIBRARY ADDITIVE
*ll = sysacces("0000003")
*if ll = -1
* close table all
* close data all
* ON ERROR
* ON SHUTDOWN
* retu
*endif
*-- Instantiate application object. if !directory('temp') md temp endif
do setsetup
*do formclie
RELEASE goApp
PUBLIC goApp goApp=CREATEOBJECT("cApplication")
goapp.appsoft = 0
*goapp.level = ll
*-- Configure application object. otlb=createobject("tlbs")
*Otlb.Dock(0)
Otlb.Show()
goApp.SetCaption('Рахунок '+alltrim(basesrahs)) goApp.cStartupMenu="MENUMENU.mpr" do form f0000000 beforemm = _mm_ beforeyy = _yy_
*-- Show application.
goApp.Show
*-- Release application.
RELEASE goApp, otlb
*-- Restore default menu.
POP MENU _msysmenu
*-- Restore environment. close table all close data all
ON ERROR
ON SHUTDOWN
RETURN
*******************************************
FUNCTION ErrorHandler(nError,cMethod,nLine)
LOCAL lcErrorMsg,lcCodeLineMsg
WAIT CLEAR lcErrorMsg=MESSAGE()+CHR(13)+CHR(13)
lcErrorMsg=lcErrorMsg+"Method: "+cMethod
lcCodeLineMsg=MESSAGE(1)
IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine))
IF NOT EMPTY(lcCodeLineMsg)
lcErrorMsg=lcErrorMsg+CHR(13)+lcCodeLineMsg+chr(13)+chr(13)+'При пинити роботу?..'
ENDIF
IF MESSAGEBOX(lcErrorMsg,20,_screen.Caption)#6
RETURN .F. else
QUIT
ENDFUNC
****************************************************
FUNCTION ShutDown
IF TYPE("goApp")=="O" AND NOT ISNULL(goApp)
RETURN goApp.OnShutDown()
Cleanup()
FUNCTION Cleanup
IF CNTBAR("_msysmenu")=7
SET CLASSLIB TO
*SET PATH TO
Додаток 22 (закінчення)
*CLEAR ALL
CLOSE ALL close table all close data all
Додаток 23
* p0000004
* Сальдо на поточний період на вказане число
local _nameorg, _ends public fdata
lday = cdm(_mm_,_yy_) fdata = ctod(str(lday,2)+'/'+str(_mm_,2)+'/'+str(_yy_,4))
do form getdata3 to ll if empty(ll) rele fdata retu endif
set textmerge on set textmerge to t100004.txt noshow set console off public _br, ld, lk
_br = basesrahs
clrecv = ifused("recv") clbases = ifused("bases") clsaldos = ifused("saldos") clclients = ifused(_clunions_)
_nameorg = recv.name if clrecv use in recv endif
********************************************************** **************************
* Відбір даних по Д-ту вказаного рахунку
* та формування масиву відповідних рахунків select * from bases ; into table tdt1; where dt = _br and month = _mm_ and year = _yy_ ; order by codep
select * from tdt1 ; into table tdt; where daten =59
stor = 7 do sh00004 endif endif select (_clunions_) endscan
************
* Вивід загальних сум do l00004 stor = stor +1 if stor >=59
stor = 7 do sh00004 endif
||
*** сальдо кінцеве
|
Згорнуте
do dgr_end if clclients sele (_clunions_) use endif
if clbases use in bases endif if clsaldos use in saldos endif if used("tdt") use in tdt endif if used("tkt") use in tkt endif if file("tdt.dbf") erase tdt.dbf endif if file("tk.dbf") erase tkt.dbf endif if used("tdt1") use in tdt1 endif if used("tkt1") use in tkt1 endif if file("tdt1.dbf") erase tdt1.dbf
Додаток 23 (закінчення) endif if file("tkt1.dbf") erase tkt1.dbf endif
set textmerge to set textmerge off set console on
rele _nameorg, lk, ld, _br, _spd, _spk, _skd, _skk, _sod, _sok rele z_spd, z_spk, z_skd, z_skk, z_sod, z_sok, sks, zks, sds, zds, rks, rds, fdata
**************************************
*
PROCEDURE sh00004
* 1.
-----+----------------------------------------+---------- -----------
* 2.***
Страницы: 1, 2, 3, 4, 5, 6
