Читайте данную работу прямо на сайте или скачайте
Информационная система (
НФОРМАЦ
ЙНА СИСТЕМА ОБЛ
КУ
АНАЛ
ЗУ РОЗРАХУНК
В З ПОСТАЧАЛЬНИКАМИ
П
ДРЯДНИКАМИ)
Мнстерство освти науки Укра
Тернопльська академя народного господарства
нститут компТютерних нформацйних технологй
Кафедра моделювання та оптимзацÿ економчних систем процесв
НФОРМАЦ
ЙНА СИСТЕМА ОБЛ
КУ
АНАЛ
ЗУ РОЗРАХУНК
В З ПОСТАЧАЛЬНИКАМИ
П
ДРЯДНИКАМИ
(на приклад ПП Бомед)
Дипломний проект
Спецальнсть 7.050207а "
нформацйн системи в менеджмент"
студент групи
СМ-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..............................................................................
Додаток 24.99
Додаток 25.100
Додаток 26.101
Додаток 27.102
Додаток 28.103
Додаток 29.104
Додаток 30.105
ВСТУП
На сучасному етап розвитку народного господарства проходить подальше вдосконалення правлнсько
Завданням переддипломно
Метою практики
удосконалення снуючо
атку 1.
На даний момент основним видом дяльност пдпри
мства
роздрбна торгвля медикаментами. Це передбача
, зокрема, ведення бухгалтерського облку.
На пдпри
мств вже автоматизовано задач бухгалтерського облку Склад та Реалзаця товару. Це здйснено засобами СУБД Microsoft Visual FoxPro 5.0. Для цього на пдпри
мств
так технчн засоби:
- компТютер на баз процесора Pentium з тактовою частотою 133 мегагерца, оперативною памяттю в 32 мегабайта, жорстким диском обТ
мом 3,2 ггабайта, монтором 14Ф SVGA з роздльною здатнстю 800х600 пкселв;
- принтер Hewlett Packard DeskJet 400.
Задача Облк розрахункв з постачальниками пдрядниками виршу
ться на пдпри
мств у торговому вддл не
автомвтизована. Призначення задач - видача фнансово
Порядок облку товарообороту на пдпри
мствах роздрбно
Окрм вищенаведених бухгалтерських проводок, як
найчисленшими у пдпри
мств роздрбно
Отже, облк розрахункв з постачальниками пдрядниками стосу
ться бухгалтерських операцй з рахунком № 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 Друк передача результатних документв не вимага
деталзацÿ.
Для висвтлення технологÿ ршення дано
налогчно здйсню
ться ввд даних з платжних доручень корекця помилок при оплат рахунку. В цьому випадку дан записуються на жорсткий диск ЕОМ у файли Журнал операцй Платжн доручення.
В результат наступних етапв формуються результатн документи, для чого використову
ться нформаця з файлу Журнал операцй. Це етапи: Формування журнала-ордера, Формування оборотно-сальдових вдомостей Аналз оплати оприбуткування.
2.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.
\-----+-----------------сяця',21,' ')>>
* 3.
\а №а +<<padc('П О С Т А - А Л Ь Н И К И',40,' ')>>+----------+----------
* 4.
\ |<<SPACE(40)>>+<<padc('Дебет',10,' ')>>+<<padc('Кредит',10,' ')>>
* 5.
\-----+----------------------------------------+----------+----------
RETU
**************************************
*
**************************************
PROCEDURE l4
\-----+----------------------------------------+----------+----------
RETU
Додаток 2
 |
4
 |
Додаток 25
 |
Додаток 26
 |
Додаток 27
 |
Додаток 28
 |
Додаток 29
 |
Додаток 30