�нформац�йна система обл�ку � анал�зу розрахунк�в з постачальниками � п�дрядниками (на приклад� пп "Б�омед")

М�н�стерство осв�ти � науки Укра�ни

Терноп�льська академ�я народного господарства

�нститут компТютерних �нформац�йних технолог�й

Кафедра моделювання та оптим�зац�� економ�чних систем � процес�в

�НФОРМАЦ�ЙНА СИСТЕМА ОБЛ�КУ � АНАЛ�ЗУ РОЗРАХУНК�В З ПОСТАЧАЛЬНИКАМИ � П�ДРЯДНИКАМИ

(на приклад� ПП лБ�омед�)

Дипломний проект

Спец�альн�сть 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/h5>

img src="images/image-#">Зм�ст 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

�НФОРМАЦ�ЙНА СИСТЕМА ОБЛ�КУ � АНАЛ�ЗУ РОЗРАХУНК�В З ПОСТАЧАЛЬНИКАМИ � П�ДРЯДНИКАМИ

img src="images/image-#">...............................................................................

Додаток 16...............................................................................

Додаток 17...............................................................................

Додаток 18...............................................................................

Додаток 19...............................................................................

Додаток 20...............................................................................

Додаток 21...............................................................................

Додаток 22...............................................................................

Додаток 23...............................................................................

ааааааааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.99

ааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.100

ааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.101

ааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.102

ааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.103

ааааааааа Додаток 2ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.104

ааааааааа Додаток 3ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ.105

br clear="all"> ВСТУП

На сучасному етап� розвитку народного господарства проходить подальше вдосконалення управл�нсько� д�яльност� п�дпри�мств. Зм�ни, як� проходять в економ�ц� Укра�ни, потребують п�двищення ефективност� та якост� управл�нсько� прац�. Це викликано всезростаючим науково-техн�чним прогресом, впровадженням на промислових п�дпри�мствах досягнень науки � техн�ки.

Завданням переддипломно� практики � ознайомлення �з структурою приватного п�дпри�мства УБ�омедФ, оц�нка комплексу техн�чних � програмних засоб�в, анал�з технолог�� збору, обробки та передач� �нформац��, а також виявлення недол�к�в у функц�онуванн� системи обл�ку розрахунк�в з постачальниками � п�дрядниками.

аМетою практики � удосконалення �снуючо� в приватному п�дпри�мств� УБ�омедФ системи обл�ку розрахунк�в з постачальниками � п�дрядниками та насичення �� елементами анал�зу � контролю. Це допоможе ефективн�ше управляти п�дпри�мством, приймати в�дпов�дн� р�шення на р�зних р�внях управл�ння та, як насл�док, забезпечить отримання оч�куваного прибутку.

атку 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. При оприбуткуванн� товару дан� з накладних вводяться в памТять ЕОМ. В процес� введення даних �дбува�ться �х перев�рка на правильн�сть, пов�домлення про помилки (якщо вони виявлен�) виводяться на екран мон�тора, � процедура вводу повторю�ться. П�сля того, як дан� введен� � перев�рен�, вони записуються на жорсткий диск ЕОМ в наступн� файли: УЖурнал операц�йФ, УПартнерФ та УТоварФ.

Аналог�чно зд�йсню�ться вв�д даних з плат�жних доручень � корекц�я помилок при оплат� рахунку. В цьому випадку дан� записуються на жорсткий диск ЕОМ у файли УЖурнал операц�йФ � УПлат�жн� дорученняФ.

В результат� наступних етап�в формуються результатн� документи, для чого використову�ться �нформац�я з файлу УЖурнал операц�йФ. Це етапи: УФормування журнала-ордераФ, УФормування оборотно-сальдових в�домостейФ � УАнал�з оплати � оприбуткуванняФ.

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

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

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

Акт зв�рки

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

img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">

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

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

img src="images/image-#">img src="images/image-#">

Бухгалтер�я Система обл�ку � анал�зу розрахунк�в з постачальниками � п�дрядниками img src="images/image-#">Додаток 3/h1> Контекст-д�аграма системи обл�ку � анал�зу розрахунк�в з постачальниками � п�дрядниками /h2> /h1> Д�аграма 1-го р�вня системи обл�ку � анал�зу розрахунк�в з постачальниками � п�дрядниками Акт зв�рки Узагальнен� сальдов� в�домост� Сальдов� в�домост� Журнал-ордер Оборотн� в�домост� аУзагальнен� оборотн� в�домост� img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#"> Плат�жне доручення Розх�дна накладна img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#"> аДан�, що збер�гаються img src="images/image-#">img src="images/image-#"> 3 Друк � передача результатних документ�в img src="images/image-#">table cellpadding="0" cellspacing="0">

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

img src="images/image-#">

Бухгалтер�я 1 Вв�д даних img src="images/image-#"> Банк Дан� про операц�� Д�аграма 2-го р�вня для процесу 1 УВв�д данихФ Записана �нформац�я про операц�� img src="images/image-#">img src="images/image-#"> Файл операц�й �нформац�я про операц��, що запису�ться Введена �нформац�я про операц�� img src="images/image-#"> Плат�жне доручення Розх�дна накладна img src="images/image-#">table cellpadding="0" cellspacing="0">

1.3 Зв�рка � корекц�я БД

img src="images/image-#">

1.2 Запис на магн�тний нос�й

img src="images/image-#">table cellpadding="0" cellspacing="0">

1.1

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

img src="images/image-#">Додаток 5/h1>

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

img src="images/image-#">img src="images/image-#">img src="images/image-#">

Т54

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т53

img src="images/image-#">

Т52

img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">table cellpadding="0" cellspacing="0">

Т45

img src="images/image-#">

Т51

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т50

img src="images/image-#">

Т49

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т48

img src="images/image-#">

Т47

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т46

img src="images/image-#">img src="images/image-#">

Т43

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т44

img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">table cellpadding="0" cellspacing="0">

Т39

img src="images/image-#">

Т42

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т41

img src="images/image-#">

Т40

img src="images/image-#">img src="images/image-#">table cellpadding="0" cellspacing="0">

Т37

img src="images/image-#">

Т38

img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">

Т30

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т36

img src="images/image-#">

Т35

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т34

img src="images/image-#">

Т33

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т32

img src="images/image-#">

Т31

img src="images/image-#">img src="images/image-#">img src="images/image-#">

Т27

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т28

img src="images/image-#">

Т26

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т25

img src="images/image-#">

Т29

img src="images/image-#">img src="images/image-#">table cellpadding="0" cellspacing="0">

Т55

img src="images/image-#">

Т56

img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">

Т24

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т23

img src="images/image-#">

Т22

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т21

img src="images/image-#">

Т18

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т16

img src="images/image-#">

Т15

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т14

img src="images/image-#">

Т20

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т19

img src="images/image-#">

Т17

img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">img src="images/image-#">table cellpadding="0" cellspacing="0">

Т6

img src="images/image-#">

Т12

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т13

img src="images/image-#">

Т11

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т4

img src="images/image-#">

Т10

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т8

img src="images/image-#">

Т5

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т2

img src="images/image-#">

Т9

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т7

img src="images/image-#">

Т3

img src="images/image-#">table cellpadding="0" cellspacing="0">

Т1

img src="images/image-#">Додаток 20/h1>

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

br clear="all"> img src="images/image-#">img src="images/image-#">img src="images/image-#">

СУБД

БД (Database, tables)

img src="images/image-#">table cellpadding="0" cellspacing="0">

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

(Queries, reports, views)

img src="images/image-#">

Блок обчислень (Procedures, programs)

img src="images/image-#">table cellpadding="0" cellspacing="0">

�нтерфейс

(Menu, forms, help)

img src="images/image-#">Додаток 21/h1>

Додаток 22/h1>

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/h1>

* 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