- поле для вводу суми операції;
- поле для вводу дати проведення операції;
- поле для вводу номера документа, на основі якого здійснюється операція;
- кнопки “Записати” та “Відмова” для закриття форми із збереженням та без збереження змін відповідно.
Після добавлення чи редагування операції користувач повертається до форми “Обороти по рахунку 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