Читайте данную работу прямо на сайте или скачайте
нформацйна система облку аналзу розрахункв з постачальниками пдрядниками (на приклад пп "Бомед")
Мнстерство освти науки Украни
Тернопльська академя народного господарства
нститут компТютерних нформацйних технологй
Кафедра моделювання та оптимзац економчних систем процесв
НФОРМАЦЙНА СИСТЕМА ОБЛКУ АНАЛЗУ РОЗРАХУНКВ З ПОСТАЧАЛЬНИКАМИ ПДРЯДНИКАМИ
(на приклад ПП лБомед)
Дипломний проект
Спецальнсть 7.05020а "нформацйн системи в менеджмент"
студент групи СМ-51 Г. Конв
Кервник к.т.н.,
доцентааааааааааааааааааааааа . Блоусов
Зав. кафедри МОЕСП
К.е.н., доцентаааааааааааа Г. Гладй
2
АНОТАЦЯ
дипломного проекту Конва Григоря Борисовича
"нформацйна система облку аналзу розрахункв з постачальниками пдрядниками"
(на приклад ПП УБомедФ)
ТАНГ, IКIТ, кафедра Т, група IСМ- 51, 2 рк.
ааааааааа Обсяг дипломного проекту 104 сторiнки.
В даному дипломному проект проведено дослдження процесу облку аналзу розрахункв з постачальниками пдрядниками. Наведено модель системи та детальний опис, розроблено та використано математичне та нформацйне забезпечення. Здйснено програмну реалзацю спроектовано системи.
Результати даного дипломного проекту можуть бути застосован як на пдпримствах, що займаються медикаментами, так на пдпримствах ншого профлю.
ANNOTATION
degree project of Konev Gregory Borysovych
"The information system of account and analysis of accounts with the suppliers"
(on an example of the private enterprise УBiomedФ)
TANE, ICIТ, Department IIT, group ISM- 51, 2.
Volume of degree project 104 of pages.
In the given degree project the research of methods of account and analysis of accounts with the suppliers. The model of system model and it's detail description is given, mathematical and dataware have been designed and used. Programmed realization system was designed.
Results of given degree project can be aplied as at the enterprises occupied medical preparations, and at the enterprises of other structure.
|
Змн.аааааааа |
|
Лист |
|
№ Докум. |
|
Пдпис |
|
Дата |
|
Арк. |
|
4 |
|
КТ.95712.105.ДП |
|
аРозроб. |
|
Конв Г.Б. |
|
аПеревр. |
|
Блоусов .А. |
|
аРеценз. |
|
аН. Контр. |
|
Василькв Н.М |
|
аЗатверд. |
|
Маслияк Б.О. |
|
НФОРМАЦЙНА СИСТЕМА ОБЛКУ АНАЛЗУ РОЗРАХУНКВ З ПОСТАЧАЛЬНИКАМИ ПДРЯДНИКАМИ |
|
Лт. |
|
Аркушв |
|
105 |
ТАНГ, КТ, СМ-51 |
Змст
TOC \o "1-3"
Вступ.........................................................................................
1. Аналз потреб ПП УБомедФ в створенн КС облку аналзу розрахункв з постачальниками пдрядниками.............................................
1.1. Характеристика ПП УБомедФ опис дючо системи облку розрахункв з постачальниками пдрядниками.............................................
1.2 снуюч шляхи розвТязку задач облку розрахункв з постачальниками пдрядниками..........................................................................
1.3 Постановка задач на проектування...............................
2.а Розробка загальносистемних ршень.................................
2.1 Загальна структура розроблювано системи.................
2.2 Математично-алгоритмчне забезпечення......................
2.3 нформацйне забезпечення............................................
3. Програмно-технчна реалзаця системи.............................
3.1. Структура програмного забезпечення..........................
3.2. Розробка програмних модулв......................................
3.3 Практична реалзаця системи........................................
Висновки.................................................................................
Лтература................................................................................
Додаток 1................................................................................
Додаток 2................................................................................
Додаток 3................................................................................
Додаток 4................................................................................
Додаток 5................................................................................
Додаток 6................................................................................
Додаток 7................................................................................
Додаток 8................................................................................
Додаток 9................................................................................
Додаток 10...............................................................................
Додаток 11...............................................................................
Додаток 12...............................................................................
Додаток 13...............................................................................
Додаток 14...............................................................................
|
Змн. |
|
Арк. |
|
№ докум. |
|
Пдпис |
|
Дата |
|
Арк. |
|
5 |
|
НФОРМАЦЙНА СИСТЕМА ОБЛКУ АНАЛЗУ РОЗРАХУНКВ З ПОСТАЧАЛЬНИКАМИ ПДРЯДНИКАМИ |
...............................................................................
Додаток 16...............................................................................
Додаток 17...............................................................................
Додаток 18...............................................................................
Додаток 19...............................................................................
Додаток 20...............................................................................
Додаток 21...............................................................................
Додаток 22...............................................................................
Додаток 23...............................................................................
ааааааааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.99
ааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.100
ааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.101
ааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.102
ааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.103
ааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.104
ааааааааа Додаток 3ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.105
ВСТУП
На сучасному етап розвитку народного господарства проходить подальше вдосконалення управлнсько дяльност пдпримств. Змни, як проходять в економц Украни, потребують пдвищення ефективност та якост управлнсько прац. Це викликано всезростаючим науково-технчним прогресом, впровадженням на промислових пдпримствах досягнень науки технки.
Завданням переддипломно практики ознайомлення з структурою приватного пдпримства УБомедФ, оцнка комплексу технчних програмних засобв, аналз технолог збору, обробки та передач нформац, а також виявлення недолкв у функцонуванн системи облку розрахункв з постачальниками пдрядниками.
аМетою практики удосконалення снуючо в приватному пдпримств УБомедФ системи облку розрахункв з постачальниками пдрядниками та насичення елементами аналзу контролю. Це допоможе ефективнше управляти пдпримством, приймати вдповдн ршення на рзних рвнях управлння та, як наслдок, забезпечить отримання очкуваного прибутку.
атку 1.
На даний момент основним видом дяльност пдпримства роздрбна торгвля медикаментами. Це передбача, зокрема, ведення бухгалтерського облку.
На пдпримств вже автоматизовано задач бухгалтерського облку УСкладФ та УРеалзаця товаруФ. Це здйснено засобами СУБД Microsoft Visual FoxPro 5.0. Для цього на пдпримств так технчн засоби:
- компТютер на баз процесора Pentium з тактовою частотою 133 мегагерца, оперативною памяттю в 32 мегабайта, жорстким диском обТмом 3,2 ггабайта, монтором 1Ф SVGA з роздльною здатнстю 80х600 пкселв;
- принтер Hewlett Packard DeskJet 400.
Задача УОблк розрахункв з постачальниками пдрядникамиФ виршуться на пдпримств у торговому вддл не автомвтизована. Призначення задач Ц видача фнансово нформац про дяльнсть пдпримства формування звтних документв.
Порядок облку товарообороту на пдпримствах роздрбно торгвл наступний. Товари вд мсця виробництва до роздрбно торговельно органзац доставля оптова торгвля. Роздрбна органзаця реалзую товари безпосередньо споживачам. Товари поступають до магазинв (або роздрбних торговельних органзацй) у порядку децентралзованих закупок самого магазину. Деяк товари надходять з мсць виробництва безпосередньо у роздрбну торговельну мережу, обминаючи оптову ланку. Через оптов ланки проходять товари, що потребують комплектування х у широкий торговельний асортимент, необхдний для безперебйного рвномрного постачання роздрбних торговельних пдпримств. Облк розрахункв з постачальниками ведеться на рахунку № 60 УРозрахунки з постачальниками пдрядникамиФ. Оприбуткування товарв вд постачальникв оформляться записом в дебет рахунка № 41 УТовариФ (субрахунок 01 чи 02) та в кредит рахунка № 60 УРозрахунки з постачальниками пдрядникамиФ. При оплат рахунка робиться запис в дебет рахунка № 60 УРозрахунки з постачальниками пдрядникамиФ та в кредит рахунка № 52 УВалютний рахунокФ, або № 51 УРозрахунковий рахунокФ, або № 66 УВексел виданФ. Оприбуткування товарв оформляться по цнах реалзац [].
Окрм вищенаведених бухгалтерських проводок, як найчисленшими у пдпримств роздрбно торгвл, можлив наступн варанти: кредит рахунка № 60 Ц дебет рахунка № 03, 05, 06, 07, 08, 12, 42, 43, 44, 45, 46, 47, 50, 55, 61, 62, 63, 78, 79, 84, 87, 93, 96, дебет рахунка № 60 Ц кредит рахунка № 42, 46, 49, 50, 52, 55, 61, 62, 66, 68, 76, 78, 90, 93, 96.
Отже, облк розрахункв з постачальниками пдрядниками стосуться бухгалтерських операцй з рахунком № 60. Практично задача виршуться шляхом виконання наступних дй.
На першому етап ведеться облк надходження товарв облк оплати. Облк надходження товарв здйснються на основ розхдних накладних, як нада постачальник, шляхом записв в журнал операцй вдповдних бухгалтерських проведень, що вдображаться по кредиту рахунка № 60. Проведення мстить дан про вдповдного партнера, суму (в якост яко вказуться загальна сума в розхднй накладнй) дату здйснення операц.а При облку оплати рахунка вхдними документами служать платжн доручення, одержан з банку як документи, що засвдчують здйснення оплати. В журнал операцй робляться записи, змст яких протилежний записам при оприбуткуванн товарв. Надходження грошей фксуться на дебет рахунка № 60. При цьому проведення також мстить нформацю про партнера, суму, яку проплачено дату здйснення операц.
Другий етап включа в себе формування звтних документв, а саме: оборотно-сальдово вдомост журналу-ордеру. Вони формуються на основ журналу операцй. Оборотно-сальдова вдомсть мстить нформацю про сальдо (залишок) на рахунку № 60 на початок кнець мсяця по дебету, кредиту, та згорнуте. Журнал-ордер мстить нформацю про суми обороту по дебету кредиту рахунку № 60 в розрз рахункв, загальн суми обороту по дебету кредиту.
Технологчна схема процесу виршення задач облку з постачальниками наведена в додатку 2.
Ршення дано задач вимага аналзу велико клькост паперово нформац включа в себе видачу рзномантних звтв. При цьому дуже висока ймоврнсть допущення помилки, яку важко вдшукати. Це вимага надзвичайних витрат робочого часу та ручно прац, що не може забезпечити високо продуктивност. До того ж, ручна обробка нформац у виршенн задач такого типу морально застарлим пдходом.
Тому доцльно реалзувати задачу облку розрахункв з постачальниками пдрядниками на ЕОМ, щоб спростити та прискорити розвТязання.
датку 5. Даний процес складаться з наступних дрбнших процесв:
- ввд контроль нформац (процес 1.1);
- запис на магнтний носй (процес 1.2);
- зврка корекця БД (процес 1.3).
нформаця з розхдних накладних платжних доручень вхдною для процесв 1.1 УВвд контроль нформацФ та 1.3 УЗврка корекця БДФ. Псля процесу 1.1 введена нформаця про операц записуться на магнтний носй (внчестер) в файл операцй. Записана нформаця використовуться в процес 1.3 при зврц корекц БД. На виход процесу 1.3 ( всього процесу 1) Ц дан про операц.
Деталзаця процесу 2 УФормування результатних документвФ за допомогою даграми другого рвня наведена в додатку 6. В результат декомпозиц даного процесу одержумо наступн дрбнш процеси:
- формування оборотних вдомостей (процес 2.1);
- формування узагальнених оборотних вдомостей (процес 2.2);
- формування сальдових вдомостей (процес 2.3);
- формування узагальнених сальдових вдомостей (процес 2.4);
- формування журнала-ордера (процес 2.5);
- формування акту зврки (процес 2.6).
Дан про операц вхдними для процесв 2.1, 2.3, 2.5 та 2.6, на виход яких формуються вдповдно оборотн вдомост, сальдов вдомост, журнал-ордер та акт зврки. Оборотн сальдов вдомост вхдними даними вдповдно для процесв 2.2 та 2.4, в яких формуються узагальнен вдомост.
Процес 3 УДрук передача результатних документвФ не вимага деталзац.
Для висвтлення технолог ршення дано задач у систем, що проектуться для порвняння з снуючою технологю, систему зручно представити у вигляд техпроцесу, який зображено в додатку 7. При оприбуткуванн товару дан з накладних вводяться в памТять ЕОМ. В процес введення даних дбуваться х переврка на правильнсть, повдомлення про помилки (якщо вони виявлен) виводяться на екран монтора, процедура вводу повторються. Псля того, як дан введен переврен, вони записуються на жорсткий диск ЕОМ в наступн файли: УЖурнал операцйФ, УПартнерФ та УТоварФ.
Аналогчно здйснються ввд даних з платжних доручень корекця помилок при оплат рахунку. В цьому випадку дан записуються на жорсткий диск ЕОМ у файли УЖурнал операцйФ УПлатжн дорученняФ.
В результат наступних етапв формуються результатн документи, для чого використовуться нформаця з файлу УЖурнал операцйФ. Це етапи: УФормування журнала-ордераФ, УФормування оборотно-сальдових вдомостейФ УАналз оплати оприбуткуванняФ.
2.3 нформацйне забезпечення
До складу нформацйного забезпечення входить позамашинне та внутршньомашинне нформацйне забезпечення.
Позамашинне нформацйне забезпечення складаться з вхдних результуючих документв. Вхдн документи служать для фксац нформац в мсц виникнення передач для обробки. В систем автоматично обробки економчно нформац з них формуються оперативн масиви нформац. Результуюч документи - це документи, як формуються системою в результат розвТязку задач.
Дляа машинно обробки нформац необхдно провести класифкацю та кодування всх реквзитв-ознак. Закодован реквзити представимо у таблиц 3.
Таблиця аSEQ Таблиця \* ARABIC 3. Опис класифкаторв та систем кодування
|
Назва кодовано множини |
Система кодування |
Структура коду |
Розшифрування розрядв |
|
Товар |
Порядкова |
ХХХХ |
Порядковий номер товару |
|
Постачальник |
Порядкова |
ХХХ |
Порядковий номер постачальника |
|
Дата |
Позицйна |
ХХ.ХХ.ХХХХ |
Число, мсяць, рк |
|
Номер накладно |
Порядкова |
ХХХ |
Номер накладно |
|
Дебетовий рахунок |
Позицйна |
ХХ.ХХ |
Номер рахунка, номер субрахунка |
|
Кредитовий рахунок |
Позицйна |
ХХ.ХХ |
Номер рахунка, номер субрахунка |
|
Мсяць |
Позицйна |
ХХ.ХХХХ |
Мсяць, рк |
|
Дата початку мсяця |
Позицйна |
ХХ.ХХ.ХХХХ |
Число, мсяць, рк |
|
Дата кнця мсяця |
Позицйна |
ХХ.ХХ.ХХХХ |
Число, мсяць, рк |
|
Дата оплати |
Позицйна |
ХХ.ХХ.ХХХХ |
Число, мсяць, рк |
Вхдними документами для дано задач будуть:
- розхдна накладна;
- платжне доручення.
Документ УРозхдна накладнаФ мстить нформацю про поставку товару (дата, найменування товару, цна товару, кльксть товару, загальна сума, назва та реквзити постачальника, назва та реквзити одержувача). Цей документ заповнються постачальником основним документом, що засвдчу факт поставки товару. Реквзити з нього заносяться в базу даних, де мститься нформаця про вс поставки товарв. Форма документа наведена в додатку 9. Табличний опис документа представлений в таблиц 4.
Таблиця аSEQ Таблиця \* ARABIC 4. Табличний опис документа "Розхдна накладна"
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Назва постачальника |
C(40) |
|
|
Назва населеного пункту |
C(15) |
|
|
Адреса |
C(30) |
|
|
Номер телефону |
C(10) |
|
|
Факс |
C(10) |
|
|
Назва банку |
C(45) |
|
|
Номер розрахункового рахунка |
C(15) |
|
|
МФО |
C(10) |
|
|
ндивдуальний податковий номер |
C(10) |
|
|
ЗКПО |
C(15) |
|
|
Номер накладно |
C(5) |
|
|
Дата |
D(8) |
|
|
Назва товару |
C(30) |
|
|
Одиниця вимру |
C(5) |
|
|
Кльксть |
N(8.3) |
0... |
|
Вартсть |
N(8.4) |
0... |
|
Сума |
N(6.2) |
0...99 |
|
Загальна сума |
N(7.2) |
0...99 |
Документ УПлатжне дорученняФ мстить нформацю про оплату поставленого товару (дата оплати, сума, назва реквзити одержувача, призначення платежу). Цей документ заповнються платником, а псля того, як здйснено оплату банком проставлено на ньому печатки пдпис, одна його копя потрапля до одержувача, а нша повертаться до платника. Документ засвдченням факту оплати. Реквзити з нього заносяться в базу даних, де мститься нформаця про вс проведен оплати. Форма документа наведена в додатку 10. Табличний опис документа представлений в таблиц 5.
Таблиця аSEQ Таблиця \* ARABIC 5. Табличний опис документа "Платжне доручення"
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Номер платжного доручення |
C(5) |
|
|
Дата оплати |
D(8) |
|
|
Сума |
N(6.2) |
0...99 |
|
Назва одержувача |
C(40) |
|
|
Код одержувача за кДРПОУ |
C(9) |
|
|
Назва банку одержувача |
C(45) |
|
|
Особистий код банку |
C(7) |
|
|
Номер рахунку |
C(15) |
|
|
Номер накладно |
C(5) |
|
|
Дата |
D(8) |
Вс необхдн дан з вхдних документв заносяться у бази даних. На основ нформац з вхдних документв формуються результатн документи.
Вихдними документами для дано задач будуть:
- обороти по дебету;
- обороти по кредиту;
- загальний оборот по дебету;
- загальний оборот по кредиту;
- сальдо на початок мсяця;
- сальдо на кнець мсяця;
- узагальнена сальдова вдомсть;
- журнал-ордер;
- акт зврки.
Документ УОбороти по дебетуФ формуться при необхдност мстить дан про обороти по дебету рахунка №60 кредиту будь-якого з рахункв (вказуться). Форма документа наведена в додатку 11. Табличний опис документа представлений в таблиц 6.
Таблиця аSEQ Таблиця \* ARABIC 6. Табличний опис документа "Обороти по дебету"
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Дата |
D(8) |
|
|
Сума |
N(6.2) |
0...99 |
|
Назва постачальника |
C(40) |
|
|
Номер накладно |
C(5) |
|
|
Номер кредитового рахунка |
C(4) |
Документ УОбороти по кредитуФ формуться при необхдност мстить дан про обороти по кредиту рахунка №60 дебету будь-якого з рахункв (вказуться). Форма документа наведена в додатку 12. Табличний опис документа представлений в таблиц 7.
Таблиця аSEQ Таблиця \* ARABIC 7. Табличний опис документа "Обороти по кредиту"
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Дата |
D(8) |
|
|
Сума |
N(6.2) |
0...99 |
|
Назва постачальника |
C(40) |
|
|
Номер накладно |
C(5) |
|
|
Номер дебетового рахунка |
C(4) |
Документ УЗагальний оборот по дебетуФ формуться в кнц мсяця мстить дан про оборот по дебету рахунка №60 в розрз постачальникв. Форма документа наведена в додатку 13. Табличний опис документа представлений в таблиц 8.
Таблиця аSEQ Таблиця \* ARABIC 8. Табличний опис документа "Загальний оборот по дебету"
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Сума |
N(7.2) |
0...99 |
|
Назва постачальника |
C(40) |
|
|
Звтний мсяць |
D(6) |
Документ УЗагальний оборот по кредитуФ формуться в кнц мсяця мстить дан про оборот по кредиту рахунка №60 в розрз постачальникв. Форма документа наведена в додатку 14. Табличний опис документа представлений в таблиц 9.
Таблиця аSEQ Таблиця \* ARABIC 9. Табличний опис документа "Загальний оборот по кредиту"
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Сума |
N(7.2) |
0...99 |
|
Назва постачальника |
C(40) |
|
|
Звтний мсяць |
D(6) |
Документ УСальдо на початок мсяцяФ формуться на початку мсяця мстить дан про залишок на дебет чи кредит рахунка №60 в розрз постачальникв. Форма документа наведена в додатку 15. Табличний опис документа представлений в таблиц 10.
Таблиця аSEQ Таблиця \* ARABIC 10. Табличний опис документа УСальдо на початок мсяцяФ
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Дебетове сальдо |
N(7.2) |
0...99 |
|
Кредитове сальдо |
N(7.2) |
0...99 |
|
Назва постачальника |
C(40) |
|
|
Звтний мсяць |
D(6) |
Документ УСальдо на кнець мсяцяФ формуться в кнц мсяця мстить дан про залишок на дебет чи кредит рахунка №60 в розрз постачальникв. Форма документа наведена в додатку 16. Табличний опис документа представлений в таблиц 11.
Таблиця аSEQ Таблиця \* ARABIC 11. Табличний опис документа УСальдо на кнець мсяцяФ
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Дебетове сальдо |
N(7.2) |
0...99 |
|
Кредитове сальдо |
N(7.2) |
0...99 |
|
Назва постачальника |
C(40) |
|
|
Звтний мсяць |
D(6) |
Документ УУзагальнена сальдова вдомстьФ формуться в кнц мсяця мстить дан про залишок на дебет чи кредит рахунка №60. Форма документа наведена в додатку 17. Табличний опис документа представлений в таблиц 12.
Таблиця аSEQ Таблиця \* ARABIC 12. Табличний опис документа У Узагальнена сальдова вдомсть Ф
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Дебетове сальдо на початок мсяця |
N(7.2) |
0...99 |
|
Кредитове сальдо на початок мсяця |
N(7.2) |
0...99 |
|
Згорнуте сальдо на початок мсяця |
N(7.2) |
0...99 |
|
Дебетове сальдо на кнець мсяця |
N(7.2) |
0...99 |
|
Кредитове сальдо на кнець мсяця |
N(7.2) |
0...99 |
|
Згорнуте сальдо на кнець мсяця |
N(7.2) |
0...99 |
|
Звтний мсяць |
D(6) |
Документ УЖурнал-ордерФ формуться при необхдност мстить загальн суми операцй в розрз рахункв. Форма документа наведена в додатку 18. Табличний опис документа представлений в таблиц 13.
Таблиця аSEQ Таблиця \* ARABIC 13. Табличний опис документа УЖурнал-ордерФ
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Сума |
N(7.2) |
0...99 |
|
Загальна сума по дебету |
N(7.2) |
0...99 |
|
Загальна сума по кредиту |
N(7.2) |
0...99 |
|
Номер дебетового рахунка |
C(4) |
|
|
Номер кредитового рахунка |
C(4) |
Документ УАкт звркиФ формуться при необхдност мстить дан про операц, проведен у вказану дату. Форма документа наведена в додатку 19. Табличний опис документа представлений в таблиц 14.
Таблиця аSEQ Таблиця \* ARABIC 14. Табличний опис документа УАкт звркиФ
|
Назва реквзиту |
Тип та значнсть |
Дапазон змн |
|
Сума |
N(7.2) |
0...99 |
|
Дата |
D(8) |
|
|
Номер накладно |
C(3) |
|
|
Назва постачальника |
C(40) |
|
|
Номер дебетового рахунка |
C(4) |
|
|
Номер кредитового рахунка |
C(4) |
Внутршньомашинна нформацйна база частиною нформацйного забезпечення пдсистеми та складаться з нформацйних масивв (файлв). Вс файли внутршньомашинно нформацйно бази подляються на вхдн та результуюч. Вхдн файли в свою чергу подляються на оперативн та умовно-постйн (нормативн, розцночн, довдников). Результуюч файли кнцев та промжн.
Оскльки наведено табличн описи результатних документв, нема необхдност у розгляд результатних нформацйних масивв.
Розробимо структуру дентифкатора нформацйних масивв:
аааааааааааааааааааа Ха аХХХХХ
аааааааааааааааааааааааааааааааааааааа
аааааааааааааааааааааааааааааааааааааааа аааааа назва
ааааааааааааааааааааааааааааааааааааааааа ааааа вид
масиву
Вид масиву задаться дентифкатором:
V - вхдний-оперативний
D - довдковий
Класифкацю нформацйних масивв наведемо у форм таблиц (таблиця 15):
Таблиця аSEQ Таблиця \* ARABIC 15. Класифкаця нформацйних масивв
|
Оперативн |
vOperations |
|
vDocuments |
|
|
vGoods |
|
|
Умовно-постйн (довдков) |
dPartners |
|
dAccounts |
|
|
dPhones |
|
|
dAddresses |
|
|
dBanks |
|
|
dCities |
|
|
dCountries |
|
|
dRegions |
|
|
dAreas |
|
|
dTypes |
|
|
dMeasures |
|
|
dGoods |
ВзамозвТязок файлв показаний на даталогчнй модел (додаток 24).
Структури нформацйних масивв наведен у таблицях:
Таблиця аSEQ Таблиця \* ARABIC 16. Структура файлу vOperations
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Сума |
nSum |
N(6.2) |
|
Номер кредитового рахунка |
cKNumber |
C(4) |
|
Номер дебетового рахунка |
cDNumber |
C(4) |
|
Код накладно |
icdDocument |
C(4) |
Таблиця аSEQ Таблиця \* ARABIC 17. Структура файлу vDocuments
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код накладно |
icdDocument |
C(4) |
|
Дата |
dDate |
D(8) |
|
Номер накладно |
cDocNumber |
C(5) |
|
Код партнера |
icdPartner |
C(4) |
Таблиця аSEQ Таблиця \* ARABIC 18. Структура файлу vGoods
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Кльксть товару |
nGoodsAmnt |
N(8.3) |
|
Цна товару |
nGoodsPrice |
N(8.4) |
|
Код одиниц вимру |
icdMeasure |
C(2) |
|
Код товару |
icdGoods |
C(4) |
|
Код накладно |
icdDocument |
C(4) |
Таблиця аSEQ Таблиця \* ARABIC 19. Структура файлу dPartners
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код партнера |
icdPartner |
C(4) |
|
Назва партнера |
cPartner |
C(40) |
|
ЗКПО |
cZKPO |
C(13) |
|
С. р. ПДВ |
cSrPDV |
C(13) |
|
нд. податк. номер |
cIndPN |
C(10) |
|
Кервник |
cManager |
C(40) |
|
Головний бухгалтер |
cMainAcnt |
C(40) |
|
Нотатка |
mNote |
Memo |
|
Дата останньо модифкац |
dLastMod |
D(8) |
Таблиця аSEQ Таблиця \* ARABIC 20. Структура файлу dCities
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код населеного пункту |
icdCity |
C(3) |
|
Назва населеного пункту |
cCity |
C(22) |
Таблиця аSEQ Таблиця \* ARABIC 21. Структура файлу dBanks
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код банку |
icdBank |
C(3) |
|
Назва банку |
cBank |
C(45) |
Таблиця аSEQ Таблиця \* ARABIC 22. Структура файлу dGoods
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код товару |
icdGoods |
C(4) |
|
Назва товару |
cGoods |
C(40) |
Таблиця аSEQ Таблиця \* ARABIC 23. Структура файлу dMeasure
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код одиниц вимру |
icdMeasure |
C(2) |
|
Назва одиниц вимру |
cMeasure |
C(7) |
Таблиця аSEQ Таблиця \* ARABIC 24. Структура файлу dAccounts
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код партнера |
icdPartner |
C(4) |
|
Номер розрахункового рахунку |
cAccount |
C(15) |
|
МФО |
cMFO |
C(10) |
|
Код банку |
icdBank |
C(3) |
|
Код населеного пункту |
icdCity |
C(3) |
Таблиця аSEQ Таблиця \* ARABIC 25. Структура файлу dPhones
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код партнера |
icdPartner |
C(4) |
|
Код типу звТязку |
icdConnType |
C(1) |
|
Код (мста) |
cCode |
C(6) |
|
Номер телефону |
cNumber |
C(7) |
Таблиця аSEQ Таблиця \* ARABIC 26. Структура файлу dAddresses
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код партнера |
icdPartner |
C(4) |
|
Код населеного пункту |
icdCity |
C(3) |
|
Код област |
icdRegion |
C(3) |
|
Код району |
icdArea |
C(4) |
|
Код крани |
icdCountry |
C(2) |
|
Номер абонентсько скриньки |
cPOBox |
C(5) |
|
Поштовий ндекс |
cPostInd |
C(6) |
|
Адреса |
cAddress |
C(30) |
Таблиця аSEQ Таблиця \* ARABIC 27. Структура файлу dConnTypes
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код типу звТязку |
icdConnType |
C(1) |
|
Тип звТязку |
cConnType |
C(7) |
Таблиця аSEQ Таблиця \* ARABIC 28. Структура файлу dCountries
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код крани |
icdCountry |
C(2) |
|
Назва крани |
cCountry |
C(15) |
Таблиця аSEQ Таблиця \* ARABIC 29. Структура файлу dRegions
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код област |
icdRegion |
C(3) |
|
Назва област |
cRegion |
C(20) |
Таблиця аSEQ Таблиця \* ARABIC 30. Структура файлу dAreas
|
Реквзит |
Позначення у файл |
Тип розряднсть |
|
Код району |
icdArea |
C(4) |
|
Назва району |
cArea |
C(20) |
Вддл маркетингу |
Юрист |
Заступник директора |
Бухгалтеря |
Склад |
Вддл реалзац |
Директор |
ВласникОприбуткування товарв |
Кнець |
Початок |
|
Журнал-ордер |
|
Журнал операцй |
|
Журнал операцй |
|
Журнал операцй |
|
Журнал операцй |
|
Платжн доручення |
|
Розхдн накладн |
|
Облк оплати |
|
Оборотно- сальдова вдомсть |
|
Формування журнала- ордера |
|
Формування оборотно-сальдово вдомост |
Додаток 2
Оборотн вдомост
|
|
|
|
|
|
|
 Додаток 3
Акт зврки |
|
|
|
|
|
|
|
|
|
3 Друк передача результатних документв |
|
2 Формування результатних документв |
  
 
 Додаток 5
Pnijd |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Т54
|
Т53 |
|
Т52 |
|
Т45 |
|
Т51 |
|
Т50 |
|
Т49 |
|
Т48 |
|
Т47 |
|
Т46 |
|
Т43 |
|
Т44 |
|
Т39 |
|
Т42 |
|
Т41 |
|
Т40 |
|
Т37 |
|
Т38 |
|
Т30 |
|
Т36 |
|
Т35 |
|
Т34 |
|
Т33 |
|
Т32 |
|
Т31 |
|
Т27 |
|
Т28 |
|
Т26 |
|
Т25 |
|
Т29 |
|
Т55 |
|
Т56 |
|
Т24 |
|
Т23 |
|
Т22 |
|
Т21 |
|
Т18 |
|
Т16 |
|
Т15 |
|
Т14 |
|
Т20 |
|
Т19 |
|
Т17 |
|
Т6 |
|
Т12 |
|
Т13 |
|
Т11 |
|
Т4 |
|
Т10 |
|
Т8 |
|
Т5 |
|
Т2 |
|
Т9 |
|
Т7 |
|
Т3 |
|
Т1 |
Додаток 20
Додаток 20 (продовження)
|
Т57 |
|
Т11 |
|
Т61 |
|
Т58 |
|
Т60 |
|
Т59 |
|
Т62 |
|
Т63 |
|
Т65 |
|
Т64 |
|
Т66 |
|
Т67 |
|
Т69 |
|
Т68 |
|
Т76 |
|
Т70 |
|
Т71 |
|
Т72 |
|
Т74 |
|
Т75 |
|
Т73 |
|
Т77 |
|
Т78 |
|
Т79 |
|
Т80 |
|
Т11 |
|
Т81 |
|
Т82 |
|
Т83 |
|
Т84 |
|
Т85 |
|
Т86 |
|
Т87 |
|
Т88 |
|
Т89 |
|
Т90 |
|
Т91 |
|
Т92 |
|
Т93 |
|
Т94 |
|
Т95 |
|
Т96 |
|
Т99 |
|
Т98 |
|
Т97 |
|
Т100 |
|
Т101 |
|
Т102 |
|
Т103 |
|
Т105 |
|
Т104 |
|
Т106 |
|
Т107 |
|
Т108 |
|
Т109 |
 |
|||
 |
|
СУБД |
|
БД (Database, tables) |
|
Блок формування звтв (Queries, reports, views) |
|
Блок обчислень (Procedures, programs) |
|
нтерфейс (Menu, forms, help) |
Додаток 21
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 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("3")
*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 f
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,1) 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
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
* p4
* Сальдо на поточний перод на вказане число
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 t14.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 <= fdata;
аа order by codep
public dime rds(1)
select distinct kt from tdt into array rds
ld = alen(rds)
if ld = 1 and empty(rds(1))
аа rds(1) = ' '
endif
dime sds(ld), zds(ld)
store 0 to sds, zds
************************************************************************************
* Вдбр даних по K-ту вказаного рахунку
* та формування масиву вдповдних рахункв
select * from bases ;
аа into table tkt1;
аа where kt = _br and month = _mm_ and year = _yy_;
аа order by codep
select * from tkt1 ;
аа into table tkt;
аа where daten <= fdata;
аа order by codep
public dime rks(1)
select distinct dt from tkt into array rks
lk = alen(rks)
if lk = 1 and empty(rks(1))
аа rks(1) = ' '
endif
dime sks(lk), zks(lk)
store 0 to sks, zks
*****************************************************
* Загальн суми
Додаток 23 (продовження)
store 0 to z_spd, z_spk, z_skd, z_skk, z_sod, z_sok
* по одному клнту
*а _spd - сальдо початкове по Д-ту
*а _spk - сальдо початкове по К-ту
*а _skd - сальдо кнцеве по К-ту
*а _skk - сальдо кнцеве по Д-ту
*аа _sod - обороти по Д-ту
*а _sok - обороти по К-ту
*а
select (_clunions_)
do dgr_box with recc(), 'Побудова кнцевого сальдо','Pax.'+alltrim(_br)
\а <<_nameorg>>
\аааааааа Сальдо на кнець мсяця по <<alltrim(_br)>> рах.а Перод: <<mstn(_mm_)>> <<_yy_>>p.
stor = 2
do sh4
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
ааааааааа \<<str(npp,5)>>|<<left(namep,40)>>|
ааааааааа *** сальдо кнцеве
ааааааааа \\<<iif(empty(_skd),space(10), str(_skd,10,2))>>|
ааааааааа \\<<iif(empty(_skk),space(10), str(_skk,10,2))>>
ааааааааа
ааааааааа **** пдрахунок загальний сум
ааааааааа * поч.сальдо
ааааааааа 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
аааааааааааааааа \<<chr(12)>>
аааааааааааааааа stor = 7
аааааааааааааааа do sh4
ааааааааа endif
аа endif
аа select (_clunions_)
endscan
************
* Вивд загальних сум
do l4
stor = stor +1
if stor >=59
аа \<<chr(12)>>
аа stor = 7
аа do sh4
endif
\<<space(5)>>|<<padc('*** Всього ***',40,' ')>>|
*** сальдо кнцеве
\\<<iif(empty(z_skd),space(10), str(z_skd,10,2))>>|
\\<<iif(empty(z_skk),space(10), str(z_skk,10,2))>>
\аааааааааааааааааааааааааааааа ааааааЗгорнутеаааа <<str(z_skd-z_skk,10,2))>>
\<<space(20)>>
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 sh4
* 1.
\-----+----------------------------------------+---------------------
* 2.***<<padc('П О С Т А Ч А Л Ь Н И К И
\аааа |<<space(40)>>|<<padc(' Сальдо на кн.мсяця',21,' ')>>
* 3.
\а №а +<<padc('П О С Т А Ч А Л Ь Н И К И',40,' ')>>+----------+----------
* 4.
\аааа |<<SPACE(40)>>+<<padc('Дебет',10,' ')>>+<<padc('Кредит',10,' ')>>
* 5.
\-----+----------------------------------------+----------+----------
RETU
**************************************
*
**************************************
PROCEDURE l4
аа \-----+----------------------------------------+----------+----------
RETU
Додаток 2
 |
4
 |
аДодаток 25
 |
Додаток 26
 |
Додаток 27
 |
Додаток 28
 |
Додаток 29
 |
Додаток 30