Информационная система (ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І ПІДРЯДНИКАМИ)

- “Картка партнера”;

- “Знищення партнера”;

- “Пошук”;

- “Перехід в початок списку”;

- “Перехід в кінець списку”;

- “Сортування записів”.

Для добавлення нового партнера натискається кнопка “Добавлення нового

партнера”, яка викликає форму “Картка партнера” для вводу даних про

партнера, представлену в додатку 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

*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 PATH TO &gpath

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)

Додаток 22 (продовження)

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

ENDIF

ENDFUNC

****************************************************

FUNCTION ShutDown

IF TYPE("goApp")=="O" AND NOT ISNULL(goApp)

RETURN goApp.OnShutDown()

ENDIF

Cleanup()

QUIT

ENDFUNC

FUNCTION Cleanup

IF CNTBAR("_msysmenu")=7

RETURN

ENDIF

ON ERROR

ON SHUTDOWN

SET CLASSLIB TO

*SET PATH TO

Додаток 22 (закінчення)

*CLEAR ALL

CLOSE ALL

close table all

close data all

POP MENU _msysmenu

RETURN

Додаток 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 >

\ Сальдо на кінець місяця по >

рах. Період: > >p.

stor = 2

do sh00004

stor = stor +5

*set order to tag namep

npp = 0

scan

STORE 0 TO SKS, SDS

do dgr_mov

cd = codep

store 0 to _spd, _spk, _skd, _skk, _sod, _sok

select saldos

locate for codep = cd and month = _mm_ and year = _yy_

and dt = _br

if found()

_spd = sumdt

_spk = sumkt

endif

select tdt

scan for codep = cd and month = _mm_ and year = _yy_

for i = 1 to ld

if kt = rds(i)

sds(i) = sds(i) + sum &&накопичення

по колонках

_sod = _sod +sum &&накопичення

по рядку по Д-ту

endif

endfor

endscan

select tkt

scan for codep = cd and month = _mm_ and year = _yy_

for i = 1 to lk

if dt = rks(i)

sks(i) = sks(i) + sum &&накопичення

по колонках

_sok = _sok +sum &&накопичення

по рядку по K-ту

endif

endfor

endscan

_ends = _spd + _sod -(_spk + _sok)

do case

case _ends > 0

_skd = _ends

_skk = 0

case _ends < 0

_skk = (-1)*_ends

_skd = 0

endcase

**********************************************************

***********************

* Перевірка чи вносити рядок в TXT-файл

if empty(_sKd) and empty(_sKk) &&and empty(_sod) and

empty(_sok)

* недрукуємо

else

*друкуємо

sele (_clunions_)

npp = npp+1

\>|>|

*** сальдо кінцеве

\\>|

\\>

**** підрахунок загальний сум

* поч.сальдо

z_spd = z_spd + _spd

Додаток 23 (продовження)

z_spk = z_spk + _spk

* Д-т

z_sod = z_sod + _sod

for i = 1 to ld

zds(i) = zds(i) + sds(i)

endfor

*К-т

z_sok = z_sok + _sok

for i = 1 to lk

zks(i) = zks(i) + sks(i)

endfor

* кін.сальдо

z_skd = z_skd + _skd

z_skk = z_skk + _skk

*******************************************

* Сторінка

stor = stor +1

if stor >=59

stor = 7

do sh00004

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.***>|>

* 3.

\ № +>+------

----+----------

* 4.

\ |>+>+>

* 5.

\-----+----------------------------------------+----------

+----------

RETU

**************************************

PROCEDURE l00004

\-----+----------------------------------------+-------

---+----------

RETU

Додаток 24

Додаток 25

Додаток 26

Додаток 27

Додаток 28

Додаток 29

Додаток 30

-----------------------

[pic]

Власник

Директор

Відділ реалізації

Склад

Бухгалтерія

Заступник директора

Юрист

Відділ маркетингу

Оприбуткування товарів

Кінець

Початок

Журнал-ордер

Журнал операцій

Платіжні доручення

Розхідні накладні

Облік

оплати

Оборотно-

сальдова

відомість

Формування журнала-

ордера

Формування оборотно-сальдової відомості

Контекст-діаграма системи обліку і аналізу розрахунків з постачальниками і

підрядниками

Система обліку і аналізу розрахунків з постачальниками і підрядниками

Постачальники

Банк

Бухгалтерія

Розхідна накладна

Проплачене платіжне доручення

Узагальнені оборотні відомості

Акт звірки

Журнал-ордер

Сальдові відомості

Узагальнені сальдові відомості

Оборотні відомості

Діаграма 1-го рівня системи обліку і аналізу розрахунків з постачальниками

і підрядниками

Акт звірки

Узагальнені сальдові відомості

Сальдові відомості

Журнал-ордер

Оборотні відомості

Узагальнені оборотні відомості

Платіжне доручення

Розхідна накладна

Дані, що зберігаються

Друк і передача результатних документів

Формування результатних документів

Бухгалтерія

Ввід даних

Банк

Постачальники

Дані про операції

Діаграма 2-го рівня для процесу 1 “Ввід даних”

Записана інформація про операції

Файл операцій

Інформація про операції, що записується

Введена інформація про операції

Платіжне доручення

Розхідна накладна

1.3

Звірка і корекція БД

1.2

Запис на магнітний носій

1.1

Ввід даних про постачальника

Діаграма 2-го рівня для процесу 2 “Формування результатних документів”

Журнал-ордер

Акт звірки

Узагальнені сальдові відомості

Узагальнені оборотні відомості

Сальдові відомості

Оборотні відомості

Дані про операції

2.2

Формування узагальнених оборотних відомостей

2.3

Формування сальдових відомостей

2.4

Формування узагальнених сальдових відомостей

2.5

Формування журналу-ордеру

2.6

Формування акту звірки

2.1

Формування оборотних відомостей

SDPrrdm

SKPrrkm

SDKrrdm

SKKrrkm

SDPrrdjm

SKPrrkjm

SDKrrdjm

SKKrrkjm

SODrrd

ZODrrdjm

ZOKrrkjm

SOKrrk

SOKrdrrk

ODrrdrkjnd

OKrdrrkjnd

SODrrdrk

Ordrkjnd

PSnjzd

SSnjd

Snijd

Knijd

Pnijd

Граф взаємозв’язку показників

М.П.

Інтерфейс

(Menu, forms, help)

Блок обчислень

(Procedures, programs)

Блок формування звітів

(Queries, reports, views)

СУБД

БД

(Database, tables)

« » ________________ 200__ р.