Читайте данную работу прямо на сайте или скачайте
�нформац�йна система обл�ку � анал�зу розрахунк�в з постачальниками � п�дрядниками (на приклад� пп "Б�омед")
М�н�стерство осв�ти � науки Укра�ни
Терноп�льська академ�я народного господарства
�нститут компТютерних �нформац�йних технолог�й
Кафедра моделювання та оптим�зац�� економ�чних систем � процес�в
�НФОРМАЦ�ЙНА СИСТЕМА ОБЛ�КУ � АНАЛ�ЗУ РОЗРАХУНК�В З ПОСТАЧАЛЬНИКАМИ � П�ДРЯДНИКАМИ
(на приклад� ПП лБ�омед�)
Дипломний проект
Спец�альн�сть 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