4.4. Захист інформації від несанкціонованого доступу.
4.5. Інсталяція комплексу.
4.6. Необхідні для роботи ресурси дискової та оперативної пам‘яті.
4.7. Часові характеристики робочого циклу програми.
4.4. Можливість модернізації.
4.5. Адаптація до мережевого використання.
5.Опис програми.
5.1. Анотація.
5.2. Опис структури алгоритму
5.3. Вихід та індикація вдалого закінчення сеансу.
5.4. Структурні підрозділи підприємства.
5.5. Ввід даних.
5.6. Відображення інформації.
5.7. Контроль помилок.
5.8. Зміна параметрів нарахування.
5.9. Перехід на новий квартал.
5.10. Типи звітів та їх вивід на принтер.
5.11. Опис організації вхідних та вихідних даних.
5.12. Вибір та обгрунтування апаратних та програмних засобів.
5.12.1. Обгрунтування вибору програмних засобів.
5.12.2. Обгрунтування вибору апаратних засобів.
6.Технічне та економічне обгрунтування дипломного проекту
7.Охорона праці
8.Висновки.
9.1. Специфіка вибору методу реалізації.
9.2. Мережеве використання.
9.Список використаної літератури.
10.Додаток 1 – Текст програми.
11.Додаток 3 – Приклади комп‘ютерних звітів
12.Додаток 3 – Блок-схеми алгоритму, та основних модулів.
11
12
13
13
14
15
16
17
18
18
18
18
18
19
20
21
22
23
25
26
27
27
27
28
29
30
30
30
31
34
36
36
36
37
38
85
1.Вступ.
Сучасне підприємство або установа у тій, або іншій формі займається обробкою різноманітних даних.
В сучасних умовах важливою областю стало інформаційне забезпечення, задача якого полягає в зборі та переробці інформації, необхідної для обгрунтованих керівних рішень.
Передача інформації про положення і діяльність підприємства на вищий рівень керування та взаємний обмін інформацією між усіма підрозділами фірми виконується на базі сучасної електронно-обчислювальної техніки та інших технічних засобів зв’язку.
В діяльності комерційних структур, що є комплексами повсякденно зв’язаних та взаємодіючих підприємств передача інформації є першочерговим та необхідним фактором нормальногофункціонування даної структури. При цьому особливе значення набуває забезпечення оперативності та достовірності інформації.
Інформація служить основою для підготовки доповідей, звітів, пропозицій та прийняття відповідних рішень.
До інформації ставляться деякі вимоги:
-по об’єкту та якості – стислість та чіткість формулювань, вчасність отримання;
-по точності та достовірності – правильний відбір первинних даних, оптимальність систематизації та безперервність збору і обробки інформації.
Особлива відмінність праці товарознавця, бухгалтера, економіста полягає в тому, що він переписує дані з первинних документів у картки, журнали, накопичувально-групувальні відомості та інші облікові регістри на папері з подальшим їх узагальненням та перенесенням загальних результатів на рахунки.
Всі ці операції займають велику кількість часу, досить трудомісткі, у них достатньо великий відсоток помилок.
Один з шляхів полегшення роботи – створення автоматизованого робочого місця (АРМ) бухгалтера, товарознавця, кладовщика.
АРМ має задовольняти наступні вимоги:
-звільнення людини від рутинної праці, пов’язаної з простими операціями, які часто повторюються;
-зведення до мінімуму помилок;
-доступний інтерфейс;
Дана дипломна робота орієнтована на створення АРМ бухгалтера, що займається основними фондами підприємства.
2.Призначення та область використання.
Програма призначена для відображення основних фондів підприємства результатом роботи якої є квартальний звіт, а також для автоматизаціїнарахування зносу на вищезгадані фонди.
Основні засоби підприємства.
Основні засоби підприємства – це сукупність матеріально речових цінностей, що діють у натуральній формі протягом тривалого часу як у сфері матеріального виробництва, так і в невиробничій сфері, термін служби яких більше одного року і вартість з 1,01,1994 р. складає 5000 українських карбованців і більше.
До основних засобів відносяться сільськогосподарські машини і знаряддя, будівельний механізований інструмент, робоча і продуктивна худоба, які є основними засобами незалежно від їхвартості.
Гранична вартість предметів, що належать до основних засобів, може змінюватись за рішенням Кабінету Міністрів України.
Основні засоби приймаються на облік на підставі Актів вводу в експлуатацію, та актів прийомки-передачі встановленої форми.
Основні засоби підприємства відображаються в бухгалтерському обліку і звітності за фактичними затратами на їх придбання, спорудження і виготовлення. Ці затрати становлять іх первісну вартість. Зміни первісної вартості основних засобів допускаються лишу у разі добудови, дообладнання реконструкції та часткової ліквідації відповідних об`єктів, переоцінки та індексації основних засобів за рішенням уряду.
Погашення вартості основних засобів підприємства здійснюється шляхом віднесення зносу (амортизаційних відрахувань) за затвердженими нормами на витрати виробництва та обсяги протягом терміну, за який первісна вартість повністю переноситься на витрати виробництва.
Одиницею основних засобів є окремий інвентарний об`єкт. За кожним інвентарним об`єктом закріпляється інвентарний номер.
Основнізасоби як діючі, так і на консервації або в запасі, а також закінчені капітальні вкладення в орендовані основні засоби, показують вактиві балансу за первісною та залишковою вартістю. Залишкова вартість основних засобів по балансу визначається як різниця між первісною їх вартістю та сумою зносу.
Облік основних засобів.
Порядок відображення у фінансовій звітності об‘єктів основнихзасобів регулюється ПБО 7 “Основні засоби”.
Виходячи з визначення основних фондів, яке присутнє в ПБО 7, до основних фондів належать матеріальні активи, котрі підприємство утримує з метою використання їх у процесі виробництва, або поставки товарів і послуг, надання в оренду іншим особам або для здійснення адміністративних і соціально-культурних функцій, очікуваний термін використання (експлуатації) яких більше одного року (або операційного циклу, якщо він перевищує рік). На сьогодні ПБО дозволяє підприємству самостійно визначити, що відносити до основних засобів, а що ні, виходячи з чого ніхто не забороняє підприємству прийняти рішення про зарахування до складу основних засобів саме тих видів МШП, котрі найбільш відповідають цому поняттю з економічної точки зору.
Як і будь-який актив, основний засіб відображається в Балансі при додержанні двох умов:
- існує імовірність одержання економічних вигод від його використання;
- оцінка основного засобу може бути достовірно визначена.
Матеріальні ресурси, готова продукція і товари, на які продажна ціна зменшилась, або якщо вони застаріли чи частково втратили первісну якість, відображаються в звітності на кінець звітного періоду за ціною можливої реалізації в тих випадках, коли вона нижче від їх вартості, коли вона нижче від їх вартості їх зарахування на баланс, з віднесенням таких втрат на зменшення товарних надбавок, фонду поповнення власних коштів та дооцінки товарно-матеріальн-матеріальних цінностей, а у разі недостатності таких джерел – на фінансові результати від позареалізаційних операцій.
Складання первинних документів про господарські операції та їх відображення в регістрах обліку підприємства й організації проводять у гривнях та копійках.
3.Традиційні підходи до вирішення таких задач.
Традиційно питання розв‘язувалось методом послідовного обчислення зносу за квартал для кожного інвентарного обєкту, з наступним підрахуванням вартості на кінець кварталу. Пізніше підбивались вручну підсумовувались залишки по підрозділах та загальні підсумки. Результатом роботи є квартальний звіт в який переписувались всі наявні засоби підприємства , з іхніми вартісними показниками.
4. Технічні характеристики
Програмний комплекс реалізовано в СУБД FoxPro 2.6 (c) 1989-1994 Microsoft Corporation.Програма працює під управлінням DOS, і томусумісна з переважною більшістю систем РС.
Основним елементом комплексу є інтерактивне меню – нащадок системного меню СУБД, функції якого полягають в виклику модулів, що безпосередньо виконують прикладні функції. При розробці модулів максимально пропрацьована їх незалежність від інших. Наявніьсть незалежного інтерактивного меню і ізольованих підпрограм дозволяє при некоректній роботі оператора з одною підпрограмою, без проблем запустити іншу, причому запуск кожної нової підпрограми передбачає закриття всіх відкритих баз і деактивацію вікон та меню, які залишились від невдалого закінчення роботи попередніх модулів.
Використання невеликої кількості схем колоьорів рекомендованих розробниками СУБД полегшує сприйняття даних та роботу з комплексом, а також виключає проблеми при роботі в монохромному режимі.
Для друку звітів необхідний широкоформатний принтер, який працює під управлінням DOS і коректно працює з ASCIIкодуванням.
4.1 Файлова структура комплексу:
!STBAT5809.04.0011:23 !ST.BAT
!ST1BAT4009.04.0011:23 !ST1.BAT
AMORTIZDBF25 55421.04.0015:55 AMORTIZ.DBF
AMORTIZ1 PRG2 43121.04.0011:52 AMORTIZ1.PRG
AMORTIZ1 FXP1 98621.04.0012:06 AMORTIZ1.FXP
AMORTIZ1 BAK2 69913.04.0010:58 AMORTIZ1.BAK
DOVVIDDBF93821.04.0013:50 DOVVID.DBF
DTOPFXP62521.04.0013:28 DTOP.FXP
DTOPPRG49621.04.0013:28 DTOP.PRG
DTOPBAK48421.04.0011:53 DTOP.BAK
IDVID01IDX1 53621.04.009:49 IDVID01.IDX
KVARTAL1<ПАПКА>10.04.008:19 KVARTAL1
KVARTAL2<ПАПКА>10.04.008:19 KVARTAL2
KVARTAL3<ПАПКА>10.04.008:19 KVARTAL3
KVARTAL4<ПАПКА>10.04.008:19 KVARTAL4
M1_11PRG3 94721.04.0011:58 M1_11.PRG
M1_11FXP3 93921.04.0013:49 M1_11.FXP
M1_12FXP3 36121.04.0012:59 M1_12.FXP
M1_12PRG3 09621.04.0012:00 M1_12.PRG
M1_12DVIDX2 04821.04.0015:55 M1_12DV.IDX
M1_14FXP96320.04.0014:00 M1_14.FXP
M1_14PRG79721.04.0012:00 M1_14.PRG
M1_15FXP1 22420.04.0015:37 M1_15.FXP
M1_15PRG95221.04.0012:01 M1_15.PRG
M1_16PRG1 63321.04.0012:02 M1_16.PRG
M12M1IND IDX1 53621.04.0015:42 M12M1IND.IDX
M12PROCPRG4 01821.04.0011:54 M12PROC.PRG
M12PROCFXP4 14521.04.0012:06 M12PROC.FXP
M12SUMIDX2 56021.04.0012:07 M12SUM.IDX
M2_1PRG1 36921.04.0012:03 M2_1.PRG
NOWKVART PRG1 60421.04.0012:05 NOWKVART.PRG
NOWKVART FXP1 68721.04.0012:06 NOWKVART.FXP
PERERAHPRG51610.04.0014:21 PERERAH.PRG
PERERAHFXP67419.04.0014:09 PERERAH.FXP
PRINTZVFXP3 24619.04.0014:11 PRINTZV.FXP
PRINTZVPRG3 41419.04.0014:11 PRINTZV.PRG
PRM12IDX4 60821.04.0015:42 PRM12.IDX
PRSTATDBF54319.04.0014:12 PRSTAT.DBF
REZERVPRG1 64813.04.0010:56 REZERV.PRG
REZERVFXP1 57117.04.0010:43 REZERV.FXP
REZERV<ПАПКА>10.04.008:19 rezerv
SUMATORDBF20321.04.0012:07 SUMATOR.DBF
VIXODPRG1 03610.04.0013:08 VIXOD.PRG
VIXODFXP97817.04.0010:45 VIXOD.FXP
ZAHDBF41321.04.0015:55 ZAH.DBF
57 файлів120 196 байт
4.2. Організація основних та службових даних.
Комплекс застосовує бази даних:
AMORTIZDBF – основна база комплексу, містить поля:
Npp – порядковий номер
Data – дата прийому на облік
Invnom – інвентарний номер засобу
Grupa – група
Nrax – обліковий рахунок
Nazva – назва засобу
Balrax – первіснавартість
Cena – вартість на початок кварталу
Oper1 – квартальний знос
Amrt – вартість на кінець кварталу (замортизована= вартість на початок кварталу – квартальний знос)
Grp – код відділу
ZAHDBF – службова база, містити поля:
P1 – динамічна змінна, що містить текуче значення норми амортизації.
P2 – динамічна змінна, що містить текуче значення понижуючого коефіцієнту.
Zax – індикатор протікання сеансу роботи. При нормальному закінченні сеансу містить значення .Т. , при екстремальному закінченні сеансу – .F. .
Kvt – динамічна змінна що містить значення текучого кварталу.
G1p1 – змінна що містить значення норми амортизаціє для першої групи.
G1p2 – змінна що містить значення понижуючого коефіцієнту для першої групи.
G2p1 – змінна що містить значення норми амортизації для першої групи.
G2p2 – змінна що містить значення понижуючого коефіцієнту для першої групи.
G3p1 – змінна що містить значення норми амортизації для третьої групи.
G3p2 – змінна що містить значення понижуючого коефіцієнту для третьої групи.
DOVVIDDBF – довідник відділів, база що містить поля:
KODV – код відділу
NAZVAV – назва відділу
PRSTATDBF – службова база для організації звітування, містить поля:
Ngrp – номер групи для звіту
Nvid – код відділу для звіту
Bs,Pc,Ks,Sr1,Sr2,Sr3,Sr4,Sr5 – операнди та суми для вибраної множини засобів
Vid – назва відділу для звіту
Grupa – назва групи для звіту
SUMATORDBF – службова база, що містить поля
Sbalv, Scena, Soper, Samrt – підсумкові значення для звіту.
Індексні файли:
IDVID01IDX1 53621.04.009:49 IDVID01.IDX
M1_12DVIDX2 04821.04.0015:55 M1_12DV.IDX
M12M1IND IDX1 53621.04.0015:42 M12M1IND.IDX
M12SUMIDX2 56021.04.0012:07 M12SUM.IDX
PRM12IDX4 60821.04.0015:42 PRM12.IDX
5 файлов12 288 байт
Програмнімодулі комплексу:
AMORTIZ1 PRG2 43121.04.0011:52 AMORTIZ1.PRG
DTOPPRG49621.04.0013:28 DTOP.PRG
M1_11PRG3 94721.04.0011:58 M1_11.PRG
M1_12PRG3 09621.04.0012:00 M1_12.PRG
M1_14PRG79721.04.0012:00 M1_14.PRG
M1_15PRG95221.04.0012:01 M1_15.PRG
M1_16PRG1 63321.04.0012:02 M1_16.PRG
M12PROCPRG4 01821.04.0011:54 M12PROC.PRG
M2_1PRG1 36921.04.0012:03 M2_1.PRG
NOWKVART PRG1 60421.04.0012:05 NOWKVART.PRG
PERERAHPRG51610.04.0014:21 PERERAH.PRG
PRINTZVPRG 3 41419.04.0014:11 PRINTZV.PRG
REZERVPRG1 64813.04.0010:56 REZERV.PRG
VIXODPRG1 03610.04.0013:08 VIXOD.PRG
14 файлов27 676 байт
4.3. Основні функциї, що реалізує програмний комплекс.
У відповідності до завдання розроблено програму, що в залежності від приналежності інвентарного об`єкту до певної групи основних фондів, з вартості на початок кварталу, застосовуючи коєфіцієнти для даноє групи, нараховує знос по формулі:
Де S – знос за квартал;
X – вартість на початок кварталу;
k1 – норма амортизації для даної групи;
k2 – понижуючий коефіцієнт;
Значеннязносу округляється до двох знаків після коми. Програмою вираховується різниця між вартістю на початок кварталу і зносом результатом якої є вартість на кінець кварталу.
Також програмою здійснюються функції:
1.Резервування даних;
2.Перевірка настання (ненастання) нового кварталу;
3.Оперування з довідником відділів:
- створення відділу;
- перейменування відділу;
- видалення відділу:
- з переносом ОЗ в інший відділ;
- з списанням ОЗ відділу;
4.Внесення ОЗ в відділ;
5.Списання ОЗ та корекция даних з підбиттям контрольних сум;
-вибір відділу
-відбір по назві
-відбір по інв. номеру
-відбір по даті придбання
-відбір по первісній ціні
-відбір по залишку на поч. кв.
6.Контрольний перерахунок (видалення помилок в результатах нарахування, що випадково виникають при корекції даних оператором, а також перерахунок при зміні коефіцієнтів);
7.Зміна коефіцієнтів для кожної з груп;
8.Автоматизований перехід на новий квартал (з запрошенням переходу при настанні нового, або по вибору оператора), з резервуванням минулого кварталу.
9.Вивід загального звіту по всіх групах і відділах з підсумками;
10.Вивід звіту по вибраній групі з підсумками;
11.Вивід по вибраному відділу з підсумками;
12.Комбінації пунктів 10 та 11.
4.4. Захист інформації від несанкціонованого доступу.
Для захисту інформації від несанкціонованого доступу інсталяційний пакет захищено паролем. Дана опція є стандартним методом захисту архівів програми архівації даних RAR 2.05 32-bit console version. Після інсталяції комплексу, при кожному запуску програми викликається модуль Z1. Даний модуль робить запит паролю від користувача, по внутрішній формулі обчислює службовий ключ, і звіряє його з ключами, що містяться в службовій базі даних.
Таким чином забезпечується ідентифікація користувачів, організовується протоколювання роботи користувача з програмою.
4.5. Інсталяція комплексу.
Інсталяційний пакет організовано в вигляді SFXархіву після запуску якого програма розархівовується в папку AMORTIZ на жорсткий диск компютера.
4.6. Необхідні для роботи ресурси дискової та оперативної пам‘яті.
Оскільки програма написана на FoxPro2.0 вона не вимагає великих ресурсів оперативної пам‘яті, на 4 Мb Озу програма працює цілком задовільно.
Програма займає 720 Кбайт об‘єму пам‘яті жорсткого диску.
4.7. Часові характеристики робочого циклу програми.
Загрузка програми – 4с.
Резервування – 0,5с.
Процедури сумування – 3,5с.
Фільтрування даних – 1,5с.
4.8. Можливість модернізації.
Дана програма легко піддається модернізації, оскільки структура даних для кожного модуля незалежна, також самі модулі пропрацьовані як незалежні обєкти при запуску яких передається максимум один необхідний параметр. Використання інтерактивного меню дозволяє дописати до головного модуля AMORTIZ.PRG опис деякого нового його пункту, та назву нового модуля що буде опрацьовувати його, в подальшому можна не переживати про сумісну роботу програми й нової підпрограми, а сміливо писати програмний модуль. Можна не переживати навіть про те, щоб, по закінченні роботи нового модуля, закрити файли й дати доступ до даних іншим підпрограмам, оскільки кожен модуль комплексу “чистить” пам‘ять і закриває всі відкриті файли, для забезпечення гарантії нормальної роботи і запобігання конфліктів в майбутньому.
4.9. Адаптація до мережевого використання.
Адаптація програми до мережевого використання вимагатиме суттєвого ускладнення програмного коду у повному обємі комплексу.
Опис логічної структури алгоритму
Початковий модуль AMORTIZ.PRGв якому визначається і активується основне меню програми, що є нащадком від інтерактивного системного меню Foxpro.
При запуску модуля здійснюється виклик кількох підпрограм:
-rezerv.prg – здійснює резервне копіювання бази даних;
- nowkvart.prg – здійснює контроль настання /ненастання/ наступного кварталу;
-dtop.prg – активує фонове вікно програми.
Основною функцією модуля є визначення і активізація основного меню програми. Пункти цього меню викликають наступніпідпрограми.
МодульDTOP.PRG – створює фонове вікно програми, розроблений для того, щоб вивести інформацію про розробника ПЗ, замовника, текучої дати, а також для того, щоб приховати інколи не деактивовані вікна та меню програми.
Модуль REZERV.PRG – опрацьовує змінну-індикатор робочого циклу програми zaxз допоміжної бази ZAH.DBF. В залежності від значення змінноє видає повідомлення про нормальне закінчення роботи програми, та пропонує створити резервну копію бази (Малюнок 1).
Малюнок 1.
В випадку ненормального переривання робочого циклу при наступному запуску програми видаєтся попередження про імовірнисть пошкодження структури даних в базі і пропонує відновити базу з копії створеної до невдалого сеансу роботи (Малюнок 2.):
Малюнок 2.
Вихід з програми та індикація вдалого закінчення сеансу.
Третім і останнім пунктом головного меню програми є пункт “Вихід” при виборі якого ініціюється меню з пунктами зображеними на малюнку 3:
Малюнок 3.
При виборі пункту “Вийти з програми ” здійснюється вихід з індикацією нормального завершення сеансу роботи. Два наступних пункти здійснюють доступ до системного командного вікна Foxpro– “Command”, та приховують його. Це створено для того, щоб дати змогу програмісту мати додатковий канал для впливу на протікання роботи програми.
Перший пункт головного меню програми «РОБОТА З ДАНИМИ» містить підменю зображене на ілюстрації 4:
Малюнок 4.
Створення відділу.
Перший пункт підменю «СТВОРИТИ НОВИЙ ВДДІЛ» викликає модуль М1_11.PRG. Цей модуль здійснює створення нового відділу, присвоєння йому оригінального коду, також перевіряє чи назва нового відділу не співпадає з назвами вже існуючих відділів, також не допускає введення відділу без назви.
Також він містить процедури перейменування та знищення існуючих відділів. На малюнку 5 зображено інтерфейс даного модуля:
Малюнок 5.
При вводі назви, що співпадає з назвою існуючого відділу, чи при вводі відділу без назви видається повідомлення зображене на малюнку 6.
Малюнок 6.
При виборі пункту «перейменувати відділ» активізується меню з списком відділів в якому можна вибрати потрібний. Після вибору відділу активізується вікно з запрошенням ввести нову назву відділу, причому код відділу, що перейменовується, залишається незмінним (малюнок 7):
Малюнок 7.
При виборі пункту «ЗНИЩИТИ ВІДДІЛ» знову ініціюється меню з списком відділів, і після вибору потрібного відділу видається попередження про знищення вибраного відділу. В програмі здійснено звязок між базою-довідником відділів і базою обліку основних засобів через код відділу. Тобто кожному засобу ставиться в відповіднисть код відділу до якого він належить В випадку, якщо відділ, що містить засоби знищується, ці засоби потрібно перенести в інший відділ, інакше засоби з кодом неіснуючого відділу будуть недоступні в програмі.
По цій причині після підтвердження знищення відділу програма видає запрошення перенести засоби цього відділу в інший, тобто змінити код вищезгадуваних засобів, або знищити і їх (Малюнок :
Малюнок 8.
В випадку вибору кнопки «ПЕРЕНЕСТИ» активізується вікно з меню-списком відділів і після вибору відділу код відділу засобів змінюється на код вибраного відділу.
Модуль містить внутрішні процедури:
procedure proc1 – процедура створення нового відділу;
procedure perv – перейменування відділу;
procedure delv – процедура видалення відділу;
procedure p23 – переносить дані з відділу, що знищується в визначений відділ.
Ввід даних.
При виборі другого пункту підменю “ВНЕСЕННЯ ОЗ В ВІДДІЛ” першого пункту головного меню викликається модуль M1_12.PRGв функції якого входить поповнення бази даних новими основними засобами. Перш за все програма видає запрошення ввести групу, до якої відноситимуться засоби, та підтвердити коєфіцієнти для даної групи (малюнок 9):
Малюнок 9.
Після цьго, за допомогою меню виводиться запрошення визначити відділ, до якого відноситимуться нові засоби.
Після того, як група і код відділу нових засобів визначені, відкривається вікно для вводу засобів, в якому вводяться рахунок для засобів, інвентарний номер, назва засобу, його первісна вартість і вартість на початок кварталу. Після введення даних програма зразу нараховує знос і вартість на кінець кварталу.
На ілюстрації 10 діалогове вікно вводу.
Малюнок 10.
При виборі кнопки “Ще один запис” повторюється ввід засобу в ту ж групу і відділ. Кнопка “вихід” закриває вікно введення даних.
Модуль містить внутрішні процедури:
procedure pr01 – вносить дані в вибрану групу й відділ;
procedure raxproc – додаткове інтерфейсне меню з номерами рахунків.
Відображення інформації.
Третій пункт підменю “СПИСАННЯ ТА КОРЕКЦІЯ ОЗ”, що викликається першим пунктом головного меню активізує підменю, зображене на малюнку 11.
Малюнок 11.
Перший пункт даного підменю активізує діалогове вікно, в якому відкривається спеціальним чином зконфігуроване BROWSE-вікно, в якому відображаються всі засоби підприємства.Вибираючи пункти меню від 3 до 9 можна певним чином зконфігурувати фільтр, який буде застосований до бази. При виборі пунктів 3-9 викликається модуль М12proc.prg, котрий в залежності від пункту вносить в допоміжну базу значення параметру для фільтра. Застосування бази для збереження параметрів відбору підвищує функціональність модуля, тому що появляється можливість комбінувати параметри фільтрування а також викликати модуль необмежену кількість разів без втрати параметрів визначених при попередніх викликах. Але це зумовлює наявність пункту “очистити фільтр”, який встановлює значення параметрів “по замовчуванню”. При накладанні фільтру розрізняютьсяпараметри по замовчуванню (які не застосовуються при накладанні фільтру) і параметри, що потрібно застосувати при накладанні фільтру.
На ілюстрації 12 діалогове вікно для перегляду бази:
Малюнок 12.
В даному модулі застосовані дві клавішні функції:
При нажиманні клавіші F8 виконується стирання текучого запису.
При нажиманні клавіші F4 викликається процедура підбиття підсумків для даних, що відображені в діалоговому вікні.
Модуль містить внутрішні процедури:
Procedure pr01 – визначення номеру рахунку,який переглядатиметься.
Procedure pr02 – визначення групи засобів.
При виборі пункту “ПЕРЕГЛЯНУТИ ВІДДІЛ” активізується меню з списком відділів, після визначення відділу викликається модуль M1_12.PRGв діалоговому вікні якого можна і переглянути відділ можливістю використання клавішних функцій F4 iF8.
Модуль M1_12.PRG містить процедури:
procedure m01b1pr – визначає відідл для перегляду.
procedure browser – конфігурує і активізує Browse – вікно.
procedure sumpr – підбиття підсумків по відфільтрованих засобах.
Контроль помилок.
При виборі четвертого пункту підменю першого пункту головного меню ”Контрольний перерахунок” активізується модуль M1_4.prg, функцією якого є перерахунок зносу і вартості на кінець кварталу для виправлення випадкових помилок, які імовірно з`явились під час перегляду бази користувачем, а також для перерахунку даних з новими параметрами.
Зміна параметрів.
Вибір п`ятого пункту меню “Зміна коефіцієнтів” здійснює виклик модуля М1_5.prg, функцією якого є можливість коректування норми амортизації і понижуючих коефіцієнтів для груп оборотної відомості по основних засобах. Діалогове вікно активізоване доним модулем зображене на малюнку 13.
Малюнок 13.
Перерахунок для нового кварталу.
Шостим і останнім пунктом головного меню є «Перехід на новий квартал». Даний пункт викликає модуль М1_6.prg, функцією якого є резервування бази, як бази за минулий квартал і збереження її в папці KVARTAL1, а також, в текучій базі, зміна вартості ОЗ на початок кварталу на кінцеву вартість попереднього кварталу, і нарахувавши квартальний знос, визначити залишкову вартість на кінець нового кварталу. Модуль автоматично активізується при запуску програми, якщо текучий квартал закінчився, але не закритий.
Під час роботи модуля активізується діалогове вікно, зображене на малюнку14:
Малюнок 14.
Вивід звітів.
В другому пункті головного меню «Вивід звітів» реалізовано
Видрук звітів двох типів:
1.Комбінований звіт з можливістю визначення відділу та групи для основних засобів.
2.Загальний звіт для всіх груп послідовного для всіх відділів.
Звіт 1 генерується модулем printzv.prg, який в залежності від значень які записані в допоміжній базі PRSTAT.DBFрозділяє їх на параметри по замовчуванню, які не враховуються при відборі засобів, і на ініційовані параментри які потрібно застосувати при відборі даних для звіту.
Конфігурування звіту організовано зручно з передбаченою властивістю уникнення вводу помилкових параметрів. Користувачу не потрібно що-небудь вводити. Конфігурування відбувається за допомогою спеціальних маню в відповідних вікнах з підказками (малюнок 15(визначення групи),16 (визначення відділу)).
Малюнок 15.
Малюнок 16.
Звіти організовані за допомогою стандартного системного генератора звітів. Приклади всіх видівзвітів приведені в додатку 2.
Опис організації вхідних та вихідних даних
Ввід даних в програму може здійснюватись двома шляхами:
1.Рекомендований метод – вводити дані через спеціалізовану процедуру введення даних. Викликається процедура другим пунктом підменю головного меню “Внесення нових ОЗ”.
2.Існує можливість вносити дані під час перегляду бази, чи відділу, під час роботи процедури перегляду, яка викликається з третього пункту підменю головного меню, безпосереднім поновленням бази використовуючи клавіші Crtl+N, що є властивістю BROWSE – вікна, використаного в даній процедурі.
Вивід даних здійснюється одночасно на екран та принтер комп‘ютера при запуску процедур виводу звітів.
Вибір та обгрунтування апаратних та програмних засобів
Обгрунтування вибору програмних засобів .
Для написання комплексу застосовувалась дещо застаріла СУБД Foxpro2.0 сумісне з MSDOS. Це зумовлене тим, що на підприємстві використовуються системи IbmPC/AT 80386 та IbmPC/AT 80486, для яких і була розроблена дана програма.
Обгрунтування вибору апаратних засобів.
При постановці завдання було визначено, що даний програмний комплекс буде використовуватись на IbmPC/AT 80486 з принтером EpsonLX-1050+
8. Технічне та економічне обгрунтування дипломного проекту
Основним завданням техніко-економічного обгрунтування дипломного проекту являється визначення величини економічного ефекту від використання в виробництві основних та другорядних результатів, які одержані в даному дипломному проекті. Оцінка ефективності прийнятого рішення повинна бути комплексною і враховувати всі його аспекти.
Проведемо оцінку затрат праці на розробку програмного продукту, виходячи з того, що розмір початкового тексту запису алгоритму і даних в основному визначає затрати праці tта час розробки Т програмного продукту:
t=3.6*Nті
де Nті – кількість інструкцій в тисячах.
Загальний об`єм програми складає приблизно 1900 інструкцій.
t=3.6*1.9=6.84 (люд/міс)
продуктивність праці розробників програмного продукту:
П=1000* Nті/t
П=1000*1,9/5,9=11210 (інстр/міс)
Розрахуємо час потрібний для розробки програмного продукту:
Т=Т0+Т1+Т2+Т3+Т4+Т5
Т0 – строк розробки програмного продукту;
Т1 – коефіцієнт вірності постановки завдання;
Т2 – час розробки алгоритму;
Т3 – час відладки;
Т4 – час на підготовку тексту;
Т5 – час на розробку документації;
Т0 – 2,5*Nті^0,32
T5=0.75*T4
Де К залежить від ступені підготовки програміста. Беремо К=0,8 (стаж роботи до двох років)
Т0=2,5*1,9^0.32=3.07 (міс)
Т1=(1900*1,2)/(720*75*0,8)=0,05 (міс)
Т2=1900/11520 =0,16 (міс)
Т3=1900/1536=1,2 (міс)
Т4=1600/10857=0,15 (міс)
Т5=0,75*0,15=0,11 (міс)
Т=3,07+0,05+0,16+1,2+0,15+0,11=4,74
Визначимо собівартість роботи комп‘ютера. Для цього розраховуються поточні витрати на експлуатацію комп‘ютера. До їх складу включаються витрати на електроєнергію та амортизаційні відрахування на реновацію від вартості комп‘ютера та інше.
Витрати на електроенєргію визначаються множенням видатків електроенергії за одну годину на вартість 1кВт/год електроенергії на час роботи комп‘ютера за рік.
Час роботи комп‘ютера за рік визначається множенням кількості робочих днів у році на час роботи комп‘ютера за день:
F=(365-104-6)*8=2040 (год)
Тоді видатки електроенергії складають:
Вел=0,78*0,11*2040=175 (год)
Амортизаційні відрахування визначаються множенням вартості комп‘ютера на норму амортизаційних відрахувань:
В процесі роботи здоров’ю, а також, можливо, життю людей можут загрожувати фактори, викликані найчастіше неправильною організацією праці або порушенням техніки безпеки.
Підвищену втомлюваність може викликати підвищений рівень шуму; високий рівень випромінювання моніторів або низька контрастність зображення на них може також привести до підвищеної втомлюваності або постлаблення зору. З метою уникнення таких недоліків можливе використання захисних екранів, забезпечення персоналу моніторами з більш низьким рівнем радіації та нагляд за якістю зображення на них.
Безпосередню небезпеку для життя та здоров’я людей являють собою прилади та елементи обладнання, що вимагають для своєї роботи живлення від мережі з високою напругою.
З метою запобігання нещасних випадків при використанні людиною такого обладнання або при контакті з ним, необхідне проведення серед персоналу інструктажу по техніці безпеки, а також контроль за дотриманням вимог техніки базпеки. Крім того, зиеншити вірогідність нещасних випадків або аварій можна шляхом проведення деяких організаційних та профілактичних заходів.
При роботі з легкозаймистими, вибухонебезпечними та токсичними газами, а також рідинами та продуктами розкладу органічних сполук, необхідна постійна вентиляція робочих приміщень. Роботи з небезпечними речовинами рекомендується проводити тільки в герметичних системах, або під витяжною шафою, в добре провітрюваному приміщенні.
Ефективним засобом профілактики нещасних випадків є найбільш вдале розміщення обладнання, використання, по можливості, приладів та обладнання з найбільш оптимальними конструктивними рішеннями. Важливим засобом забезпечення безпеки служить надійна ізоляція частин, що знаходяться під напругою, кабелів, а також заземлення корпусів всіх приладів та металічних частин обладнання.
Для забезпечення безпеки людей від враження струмом необхідно забезпечити ізоляцію частин обладнання що знаходяться під напругою, для чого рекомендується проведення профілактичних оглядів кабелів та всієї проводки. Крім того необхідно забезпечити надійне заземлення. Ефективним – є заземлення трубчастого типу з товщиною стінки 3,5 мм. Довжина труби звичайно складає 250 см. , діаметр – 5 см. Заземлювачі розміщуються по чотирикутному контуру з глибиною закладки близько 80 см. , причому опір заземлення не повинен перевищувати 4 Ом. Таке заземлення допомагає уникнути нещасних випадків навіть при виникненні аварійних ситуацій.
В цілях забезпечення безпеки обслуговуючого персоналу та забезпечення найшвидшого усунення ситуацій, що загрожують здоров`ю, або життю людей, на підприємстві повинен бути передбачений комплекс заходів по попередженню та усуненню таких ситуацій, а також засоби захисту, повідомлення та боротьби з аварійною ситуацією.
До будівель та приміщень в яких розміщується обчислювальна техніка ставляться такі протипожежні вимоги:
1.Приміщення в якому розміщується обчислювальна техніка повинно бути І або ІІ ступеня вогнетривкості.
2.В приміщенні повинні бути встановлені протипожежні перешкоди в якості перегородок з негорючих матеріалів між виробничими залами.
3.Всі види комунікацій прокладають в металічних трубах або в металорукавах.
4.Комунікації, прокладені під підлогою, або в стінах, розділяють негорючими перегородками.
5.Всі кабельні силові лінії повинні бути надійно ізольовані.
6.В приміщенні повинні бути первинні засоби боротьби з вогнем.
7.Передбачені пристроїпожежної автоматики що призначені для виявлення, оповіщення, та ліквідації пожеж, а також для захисту людей від впливу шкідливих факторів.
Висновки:
1.Створено програмний комплекс, який дозволяє автоматизувати бухгалтерсько-економічну та облікову роботу на ВАТ "Коломийський сирзавод".
2.Робота пройшла адаптацію на ВАТ "Коломийський сирзавод" і отримала високу оцінку спеціалістів підприємства.
3.Впровадження комплексу дозволило скоротити кількість працівників, що виконували дану роботу, з трьох до одного.
4.В завданні на розробку програмного комплексу не було передбачено його мережеве використання, оскільки на підприємстві не використовується локальна мережа, а апаратна база має деякі обмеження. Тому питання адаптації програми до роботи з багатьма користувачами не розроблене.
9.1 Специфіка вибору методу реалізації.
Для даного комплексу існує велика кількість альтернативного програмного забезпечення, яке реалізує дану задачу в повному об`ємі, в комплексі автоматизованого бухгалтерського обліку. Але на підприємстві більшість завдань обліку автоматизовано ізольованими програми, написаними на СУБД Foxpro. По цій причині підприємство в цілях економії коштів, уникаючи закупівлі нових повномаштабних комплексів бухгалтерського обліку, спеціалізованих під MSDOS, а також комплексів сумісних з Windows 9Х, що вимагає модернізації апаратної частини підприємства, повважало вигіднішим заказати ізольовану програму сумісну з існуючою апаратною базою. Також було бажано створити програму з інтерфейсом звичним для операторів комп‘ютерів.
9.2. Мережеве використання.
В завданні на даний проект не обумовлювалось мережеве використання в силу обмеженості апаратної бази. Тому адаптація для багатокористувацького використання не проводилась.
8. Список використанї літератури:
1.А. А. Попов. Програмування в середовищі СУБД Foxpro 2.0, побудова систем обробки даних. Видавництво “Калашніков и К”. Москва 1997р.
2.І. М. Павлюк. Рекомендації з організації і ведення бухгалтерського обліку на підприємстві і в організаціях України. (Практичний посібник). ВТП “Вік” Коломия 1995р.
DEFINE PAD _01 OF _MSYSMENU PROMPT "Робота з даними"
DEFINE PAD _02 OF _MSYSMENU PROMPT "Вивід звітів"
DEFINE PAD _03 OF _MSYSMENU PROMPT "Вихід"
ON PAD _01 OF _MSYSMENU ACTIVATE POPUP menu1
ON PAD _02 OF _MSYSMENU ACTIVATE POPUP menu2
ON selection PAD _03 OF _MSYSMENU do vixod
DEFINE POPUP MENU12 FROM 1,0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF MENU12 PROMPT "Переглянути базу"
DEFINE BAR 2 OF MENU12 PROMPT "Переглянути відділ"
DEFINE BAR 3 OF MENU12 PROMPT "-"
DEFINE BAR 5 OF MENU12 PROMPT "Відібрати по даті придбання"
DEFINE BAR 6 OF MENU12 PROMPT "Відібраті по групі"
DEFINE BAR 4 OF MENU12 PROMPT "Відібраті по рахунку"
DEFINE BAR 7 OF MENU12 PROMPT "Відібрати по назві"
DEFINE BAR 8 OF MENU12 PROMPT "Відібрати по бал. вартості"
DEFINE BAR 9 OF MENU12 PROMPT "Відібрати по залишку на п.кв."
DEFINE BAR 10 OF MENU12 PROMPT "-"
DEFINE BAR 11 OF MENU12 PROMPT "Очистити фільтр"
ON SELECTION POPUP MENU12 DO M12PROC WITH BAR()
DEFINE POPUP MENU2 FROM 1,0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF MENU2 PROMPT "Визначити групу"
DEFINE BAR 2 OF MENU2 PROMPT "Визначити віділ"
DEFINE BAR 3 OF MENU2 PROMPT "Вивести звіт"
DEFINE BAR 4 OF MENU2 PROMPT "-"
DEFINE BAR 5 OF MENU2 PROMPT "Вивести загальний звіт"
DEFINE BAR 6 OF MENU2 PROMPT "Очистити фільтр"
ON SELECTION popup menu2 do printzv WITH BAR()
DEFINE POPUP MENU1 SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF MENU1 PROMPT "Cтворити новий відділ"
DEFINE BAR 2 OF MENU1 PROMPT "Внесення ОЗ в відділ"
DEFINE BAR 3 OF MENU1PROMPT "-"
DEFINE BAR 4 OF MENU1PROMPT "Списання та корекція ОЗ"
DEFINE BAR 5 OF MENU1PROMPT "-"
DEFINE BAR 6 OF MENU1PROMPT "Контрольний перерахунок"
DEFINE BAR 7 OF MENU1PROMPT "Зміна коєфіцієнтів"
DEFINE BAR 8 OF MENU1PROMPT "-"
DEFINE BAR 9 OF MENU1PROMPT "Перехід на новий кватал"
ON SELECTION BAR 1 OF MENU1 DO M1_11 WITH BAR()
ON SELECTION BAR 2 OF MENU1 DO M1_12 WITH BAR()
ON SELECTION BAR 4 OF MENU1 ACTIVATE POPUP MENU12
ON SELECTION BAR 6 OF MENU1 DO M1_14 WITH BAR()
ON SELECTION BAR 7 OF MENU1 DO M1_15 WITH BAR()
ON SELECTION BAR 9 OF MENU1 DO M1_16 WITH BAR()
return
Лістінг модуля Dtop.prg
clear
CLEAR WINDOWS
clear
set talk off
set clock on
set message to 30 center
set century on
set date german
DEFINE WINDOW DTOP FROM 0,0 TO 24,79 COLORSCHEME 1
ACTIVATE WINDOW DTOP
d=day(date())
m=month(date())
y=year(date())
@ 0,60 say 'Сьогодні '+alltrim(str(d))+','+alltrim(str(m))+','+alltrim(str(y))
@ 21,3 say '* Облік та нарахування амортизаці• основних засобів підприємства *'
@ 22,3 say '(C) 2000___Зареєстровано: ВАТ "Коломийський сирзавод"'
return
Лістінг модуля М1_11.prg
parameter b
clear windows
close databases
set talk off
set date german
set century on
do dtop
select B
eraseM1_111.idx
use dovvid
index on nazvav to M1_111.idx compact
define popup v01 prompt field nazvav from 5,5 shadow
on selection popup v01 do perv in M1_11 with recno()
define popup v02 prompt field nazvav from 5,5 shadow
on selection popup v02 do delv in M1_11 with recno()
define window p002 from 2,30 to 20,75 double shadow color scheme 1
define popup v03 prompt field nazvav from 3,5 shadow
on selection popup v03 do p23 in M1_11 with recno()
define popup p1 from 5,5 shadow
define bar 1 of p1 prompt 'Новий відділ'
define bar 2 of p1 prompt 'Перейменувати відділ'
define bar 3 of p1 prompt '-'
define bar 4 of p1 prompt 'Знищити відділ'
on selection popup p1 do proc1 with bar()
activate popup p1
procedure proc1
parameter bar
do case
case bar=1
@ 2,10 say '*** ВНЕСЕННЯ НОВОГО ВІДДІЛУ ***'
DEFINE WINDOW w01 FROM 5,20 TO 9,65 double shadow COLORSCHEME 1
ACTIVATE WINDOW w01
@ 0,4 say 'Введіть назву нового відділу'
nv=''
@ 1,0 get nv
READ
NV=ALLTRIM(NV)
select b
go top
do while !eof()
if nazvav=nv
define window w02 from 7,7 to 16,70 double shadow color scheme 7
activate window w02
@ 0,8 say 'Такий відділ вже існує !'
@ 1,0 say ' Внесення даного відділу сприятиме виникненню помилок під час'
@ 2,0 say ' роботи оператора, оскільки існує висока імовірність переплу-'
@ 3,0 say ' тати відділи з оинаковими назвами !'
@ 5,10 prompt 'Внести відділ'
@ 5,40 prompt 'Відміна'
menu to r
deactivate window w02
if r=2
return
else
endif
else
endif
skip(1)
enddo
go bottom
x=kodv
append blank
go bottom
replace kodv with (x+1)
replace nazvav with nv
@ 2,0 say ' Новий відділ успішно внесений !'
@ 2,33 prompt ' OK '
menu to r
deactivate window w01
case bar=2
@ 2,10 say '*** ПЕРЕЙМЕНУВАННЯ ВІДДІЛУ ***'
select b
activate popup v01
case bar=4
@ 2,10 say '*** ВИДАЛЕННЯ ВІДДІЛУ ***'
select b
activate popup v02
ENDCASE
deactivate window dtop01
close databases
do dtop
deactivate popup p1
return
procedure perv
parameter r
goto(r)
define window w03 from 5,20 to 13,65 double shadow color scheme 5
activate window w03
@ 0,7 say '*** ПЕРЕЙМЕНУВАННЯ ВІДДІЛУ ***'
@ 1,0 SAY 'Стара назва відділу - '+nazvav
@ 2,0 say 'Введіть нову назву відділу'
nn=''
@ 3,0 get nn
read
replace nazvav with alltrim(nn)
@ 5,0 say 'Відділ успішно перейменовано !'
@ 5,35 prompt ' O K '
menu to r
deactivate window w03
deactivate popup v01
return
procedure delv
parameter r
goto(r)
Define window d01 from 5,10 to 11,60 double shadow color scheme 5
activate window d01
@ 0,5 say 'УВАГА ВИКОНУЄТЬСЯ ЗНИЩЕННЯ ВІДДІЛУ !'
@ 1,0 SAY ' Буде знищено відділ - '+nazvav
@ 3,10 prompt ' ЗНИЩИТИ '
@ 3,30 prompt ' ВІДМІНА '
MENU TO y
do case
case y=1
clear
@ 0,4 say 'Увага , ОЗданоговідділу зараз можна '
@ 1,4 say 'перенести до іншого відділу, або зтерти'
@ 3,0 say 'Що зробити з ОЗ відділу ? '
@ 4,4 prompt ' ПЕРЕНЕСТИ '
@ 4,20 prompt ' ЗНИЩИТИ '
@ 4,35 prompt ' ВІДМІНА '
MENU TO X
do case
case x=1
activate window p002
@ 0,0 say 'Запропоновано перелік віділів'
@ 1,0 say 'Визначіть відділ в який перенести ОЗ'
activate popup v03
delete
pack
case x=2
k=kodv
use amortiz
delete for grp=k
pack
clear window d01
close database
clear windows
do dtop
return
case x=3
clear windows
do dtop
return
endcase
case y=2
clear windows
do dtop
return
endcase
clear windows
do dtop
return
Лістінг модуля M1_12.prg
PARAMETER BAR
SET TALK OFF
clear windows
close databases
do dtop
SELECT A
USE AMORTIZ
SELECT C
USE ZAH
SELECT B
erase M1_12dv.idx
USE DOVVID
index on nazvav to M1_12dv.idx
clear windows
do dtop
define window w033 from 5,5 to 10,75 double shadow
activate window w033
@ 0,0 say '*** Визначіть групу та коєфіцієнти ***'
@ 1,0 say 'Введіть номер групи'
g=1
@ 1,37 get G range 1,3 picture '#' error 'Введіть номер групи від 1 до 3'
read
do case
case g=1
@ 2,1 say 'Введіть норму амортизаці• ' get c.g1p1 picture '##.##'
@ 3,1 say 'Введіть понижуючий коефіцієнт ' get c.g1p2 picture '##.##'
read
replace c.p1 with c.g1p1
replace c.p2 with c.g1p2
case g=2
@ 2,1 say 'Введіть норму амортизаці• ' get c.g2p1 picture '##.##'
@ 3,1 say 'Введіть понижуючий коефіцієнт ' get c.g2p2 picture '##.##'
read
replace c.p1 with c.g2p1
replace c.p2 with c.g2p2
case g=3
@ 2,1 say 'Введіть норму амортизаці• ' get c.g3p1 picture '##.##'
@ 3,1 say 'Введіть понижуючий коефіцієнт ' get c.g3p2 picture '##.##'
read
replace c.p1 with c.g3p1
replace c.p2 with c.g3p2
otherwise
return
endcase
clear windows
do dtop
define window newd from 3,3 to 17,75 title 'Введення нових даних' double shadow
activate window newd
define popup p1 from 0,55
define bar 1 of p1 prompt '23'
define bar 2 of p1 prompt '231'
define bar 3 of p1 prompt '24'
define bar 4 of p1 prompt '26'
define bar 5 of p1 prompt '44'
define bar 6 of p1 prompt '81'
on selection popup p1 do raxproc with prompt()
select b
@ 0,2 SAY 'ВИБЕРІТЬ ВІДДІЛ'
DEFINE POPUP P01 PROMPT FIELD NAZVAV FROM 1,6 SHADOW
ON SELECTION POPUP P01 DO PR01 WITH RECNO()
ACTIVATE POPUP P01
PROCEDURE PR01
PARAMETER RR
SELECT B
GO TOP
GOTO(RR)
KOD=KODV
define window newd from 3,3 to 17,75 title 'Введення нових даних' double shadow
activate window newd
r=1
do while r=1
clear
SELECTA
go bottom
lich=npp
APPEND blank
go bottom
replace npp with (lich+1)
replace GRP with KOD
replace grupa with g
CLEAR
@ 0,3 say 'Внесення ОЗ в '+b.nazvav+alltrim(str(G))+' група'
@ 1,1 say 'Введіть номер рахунку'
activate popup p1
@ 1,37 say 'Вибрано '+str(nrax)
@ 3,1 say 'Введіть дату придбання ОЗ'
@ 3,37 get data picture '##/##/##'
@ 4,1 say 'Введіть інвентарний номер'
@ 4,37 get invnom
@ 5,1 say 'Введіть назву засобу'
@ 5,22 get nazva
@ 6,1 say 'Введіть балансову вартість'
@ 6,37 get balrax picture '#######.##'
@ 7,1 say 'Введіть вартість на початок кварталу'
@ 7,37 get cena picture '#######.##'
read
replace oper1 with round(cena*C.P1*C.P2/100,2)
replace amrt with cena-oper1
@ 10,15 prompt 'Ще один запис' message 'повторити поновлення бази'
@ 10,35 prompt 'Вихід' message 'Вихід в основне меню'
menu to r
if r=2
clear windows
do dtop
deACTIVATE POPUP P01
return
else
endif
enddo
clear windows
do dtop
deACTIVATE POPUP P01
return
procedure raxproc
parameter prmt
replace nrax with val(prmt)
deactivate popup p1
return
Лістінг модуля M1_14.prg
parameter a
set talk off
define window www from 18,40 to 24,77 double shadow color scheme 7
activate window www
@ 0,3 say '*** ПРОВОДИТЬСЯ ПЕРЕРАХУНОК ***'
select a
USE ZAH
select b
use amortiz
go top
do while !eof()
do case
case grupa=1
replace oper1 with round(cena*a.g1P1*a.g1P2/100,2)
replace amrt with cena-oper1
case grupa=2
replace oper1 with round(cena*a.g2P1*a.g2P2/100,2)
replace amrt with cena-oper1
case grupa=3
replace oper1 with round(cena*a.g3P1*a.g3P2/100,2)
replace amrt with cena-oper1
otherwise
replace oper1 with 10101
replace amrt with 10101
endcase
skip(1)
@ 1,0 SAY 'для-'+nazva
@ 2,0 say str(cena)
@ 3,0 say str(amrt)
enddo
clear windows
do dtop
return
Лістінг модуля M1_15.prg
parameter bar
clear windows
close databases
set talk off
clear
do dtop
define window w033 from 5,5 to 19,55 double shadow
activate window w033
USE ZAH
@ 0,4 say '*** ПРОЦЕДУРА КОРЕКЦІ° КОЕФІЦІЄНТІВ ***'
@ 1,3 say 'Введіть коефіцієнти для 1• групи'
@ 2,1 say 'Введіть норму амортизаці• ' get g1p1 picture '##.##'
@ 3,1 say 'Введіть понижуючий коефіцієнт ' get g1p2 picture '##.##'
@ 4,1 say '-------------------------------------------'
@ 5,3 say 'Введіть коефіцієнти для 2• групи'
@ 6,1 say 'Введіть норму амортизаці• ' getg2p1 picture '##.##'
@ 7,1 say 'Введіть понижуючий коефіцієнт ' getg2p2 picture '##.##'
@ 8,1 say '-------------------------------------------'
@ 9,3 say 'Введіть коефіцієнти для 3• групи'
@ 10,1 say 'Введіть норму амортизаці• ' getg3p1 picture '##.##'
@ 11,1 say 'Введіть понижуючий коефіцієнт ' getg3p2 picture '##.##'
read
clear windows
do dtop
return
Лістінг модуля M1_16.prg
parameter bar
clear
clear windows
close databases
do dtop
set date german
set century on
select a
use amortiz
select b
use zah
yr=year(date())
ms=month(date())
dt=date()
DO CASE
CASE MS<=1.AND.MS<=3
kvrt=1
CASE MS<=4.AND.MS<=6
kvrt=2
CASE MS<=7.AND.MS<=9
kvrt=3
CASE MS<=10.AND.MS<=12
kvrt=4
endcase
define window nk from 5,10 to 14,67 double shadow color scheme 7 title 'Перехід на новий квартал'
activate window nk
@ 0,10 say 'СЬОГОДНІ'+dmy(dt)
@ 1,10 say 'ПОТОЧНИЙ КВАРТАЛ'+STR(kvrt)
selectb
ifkvt=kvrt
@ 2,1 say 'УВАГА перехід на новий квартал проводиться завчасно !'
else
endif
@ 4,6 prompt ' ПРОВЕСТИ ПЕРЕРАХУНОК ДЛЯ НОВОГО КВАРТАЛУ '
@ 6,13 prompt ' ПРОДОВЖИТИ БЕЗ ПЕРЕРАХУНКУ '
menu to r
do case
case r=1
do case
case kvrt=1
copy file c:amortizamortiz.dbf to c:amortizkvartal1oz1.dbf
case kvrt=2
copy file c:amortizamortiz.dbf to c:amortizkvartal2oz2.dbfcase kvrt=3
copy file c:amortizamortiz.dbf to c:amortizkvartal3oz3.dbf
case kvrt=4
copy file c:amortizamortiz.dbf to c:amortizkvartal4oz4.dbf
endcase
select a
go top
do while !eof()
replace cena with amrt
skip(1)
enddo
doM1_1.prg &&виклик перерах
clear window nk
select b
replace kvt with kvrt
close databases
return
case r=2
clear windows
do dtop
return
endcase
clear windows
do dtop
return
Лістінг модуля M12_2.prg
parameter bar
set date german
set century on
set talk off
close databases
clear windows
do dtop
erase prm12.idx
select a
use amortiz
index on nazva to prm12.idx compact
ERASE m12m1ind.idx
select b
use dovvid
index ON NAZVAV TO m12m1ind.idx COMPACT
select c
use filter
select a
if c.frax!=0
set filter to a.nrax=c.frax
else
endif
set filter to between(a.data,c.fdata1,c.fdata2)
if c.fgrp!=0
set filter to grupa=c.fgrp
else
endif
if alltrim(c.fnazva)!='Назва'
set filter to nazva=c.fnazva
else
endif
if c.fbalv1!=0.and.c.fbalv2!=0
set filter to between(balrax,c.fbalv1,c.fbalv2)
else
endif
if c.fzal1!=0.and.c.fzal2!=0
set filter to between(Amrt,c.fzal1,c.fzal2)
else
endif
define popup m12m01 prompt field b.nazvav from 1,50 shadow
on selection popup m12m01 do m01b1pr with recno() in m12_2.prg
DEFINE WINDOW m12w1 FROM 2,0 TO 22,79 double shadow COLOR SCHEME 1
ACTIVATE WINDOW m12w1
@ 0,10say '*** КОРЕКЦІЯ ТА СПИСАННЯ ОЗ ***'
@ 2,2 say 'ESC-вийти, F4-підсумок F8-зписати'
ON KEY LABEL F4 DO SUMPR in m12_2.prg
on KEY LABEL F8 delete
do case
case bar=2
@ 1,2 SAY 'Визначіть відділ якій треба переглянути'
select b
activate popup m12m01
case bar=1
do browser in m12_2.prg
otherwise
return
endcase
procedure m01b1pr
parameter recn
select b
go top
goto(recn)
DVKEY1=RECN
dvkey=kodv
select a
set filter to grp=dvkey
do browser
clear windows
do dtop
deactivate popup m12m01
CLOSE DATABASES
RETURN
procedure browser
parameter ddd
define window w0201 from 6,1 to 21,78 DOUBLE
activate window w0201
browse title 'Oсновні засоби відділу - '+b.nazvav fieldsinvnom :h='інв.N',;
grupa :h='група', nrax :h='рахунок', Nazva :h='Назва ОЗ',balrax :h='балансова вартість',;
cena :h='варт.на початок кврт',;
oper1 :h='Знос за кв.',amrt :h='замортизована варт'
return
procedure sumpr
parameter k
select a
go top
select d
use sumator
replace d.sbalv with 0
replace d.scena with 0
replace d.soper with 0
replace d.samrt with 0
do while !eof()
select a
replace d.sbalv with d.sbalv+a.balrax
replace d.scena with d.scena+a.cena
replace d.soper with d.soper+a.oper1
replace d.samrt with d.samrt+a.amrt
skip(1)
enddo
define window w044 from 17,1 to 24,77 double shadow color scheme 1 title 'ПІДСУМКИ'
activate window w044
@ 0,1 say 'Cумарна балансова вартість ОЗ відділу='
@ 0,40 sayd.sbalv
@ 1,1 say 'На початок кв.='
@ 1,17 sayd.scena
@ 2,1 say 'Знос за квартал='
@ 2,17 sayd.soper
@ 3,1 say 'Вартість на кінець кварталу='
@ 3,35 say d.samrt
@ 4,35 prompt ' ДАЛІ '
MENU TO R
IF R=1
DEACTIVATE WINDOW W044
select a
RETURN
ELSE
ENDIF
DEACTIVATE WINDOW W044
RETURN
Лістінг модуля M12proc.prg
parameter bar
set date german
set century on
set talk off
close databases
clear windows
do dtop
select a
use filter
define window w1201 from 6,10 to 10,70 double shadow color scheme 1
define popup r1 from 0,40
define bar 1 of r1 prompt 'Переглянути 23 рахунок'
define bar 2 of r1 prompt 'Переглянути 231 рахунок'
define bar 3 of r1 prompt 'Переглянути 24 рахунок'
define bar 4 of r1 prompt 'Переглянути 26 рахунок'
define bar 5 of r1 prompt 'Переглянути 44 рахунок'
define bar 6 of r1 prompt 'Переглянути 81 рахунок'
on selection popup r1 do pr01 with bar() in m12proc.prg
define popup r2 from 0,40
define bar 1 of r2 prompt 'Переглянути 1 групу'
define bar 2 of r2 prompt 'Переглянути 2 групу'
define bar 3 of r2 prompt 'Переглянути 3 групу'
on selection popup r2 do pr02 with bar() in m12proc.prg
DO CASE
CASE BAR=1
do m12_2 with bar()
CASE BAR=2
do m12_2 with bar()
CASE BAR=4
activate window w1201
@ 0,1 say 'Виберіть рахунок '
@ 1,1 say 'який треба переглянути'
activate popup r1
clear windows
do dtop
return
CASE BAR=5
define window w1202 from 6,10 to 12,70 double shadow color scheme 1
activate window w1202
@ 0,1 say 'Визначіть діапазон дати придбання для засобів, '
@ 1,1 say 'які треба переглянути'
d1=a.fdata1
d2=a.fdata2
@ 3,0 say 'Введіть початкову дату ' getd1
@ 4,0 say 'Введітькінцевудату ' getd2
read
replace fdata1 with d1
replace fdata2 with d2
clear windows
do dtop
return
CASE BAR=6
define window w1203 from 6,10 to 10,70 double shadow color scheme 1
activate window w1203
@ 0,1 say 'Виберіть групу '
@ 1,1 say 'яку треба переглянути'
activate popup r2
clear windows
do dtop
return
case bar=7
define window w1203 from 6,10 to 10,70 double shadow color scheme 1
activate window w1203
@ 0,1 say 'Введіть назву засобу, або перші кілька букв '
@ 1,1 get a.fnazva
read
CASE BAR=8
define window w1202 from 6,10 to 12,70 double shadow color scheme 1
activate window w1202
@ 0,1 say 'Визначіть діапазон балансово• вартості для засобів, '
@ 1,1 say 'які треба переглянути'
@ 3,0 say 'Введіть нижню межу вартості' get fbalv1
@ 4,0 say 'Введіть верхню межу вартості ' get fbalv2
read
CASE BAR=9
define window w1206 from 6,10 to 12,70 double shadow color scheme 1
activate window w1206
@ 0,1 say 'Визначіть діапазон балансово• вартості для засобів, '
@ 1,1 say 'які треба переглянути'
@ 3,0 say 'Введіть нижню межу залишку' get fzal1
@ 4,0 say 'Введіть верхню межу залишку ' get fzal2
read
case bar=11
replace frax with 0
replace fdata1 with {01/01/1900}
replace fdata2 with {01/01/2200}
replace fgrp with 0
replace fnazva with 'Назва'
replace fbalv1 with 0
replace fbalv2 with 0
replace fzal1 with 0
replace fzal2 with 0
use amortiz
set filter to
close databases
OTHERWISE
CLEAR WINDOWS
DO DTOP
close databases
RETURN
ENDCASE
CLEAR WINDOWS
DO DTOP
close databases
RETURN
procedure pr01
parameter bar
do case
case bar=1
replace a.frax with 23
case bar=2
replace a.frax with 231
case bar=3
replace a.frax with 24
case bar=4
replace a.frax with 26
case bar=5
replace a.frax with 44
case bar=6
replace a.frax with 81
otherwise
deactivate popup r1
return
endcase
deactivate popup r1
return
procedure pr02
parameter bar
do case
case bar=1
replace a.fgrp with 1
case bar=2
replace a.fgrp with 2
case bar=3
replace a.fgrp with 3
otherwise
replace a.fgrp with 0
deactivate popup r2
endcase
deactivate popup r2
return
Лістінг модуля M2_1.prg
parameter bar
close databases
set talk off
set date german
clear windows
clear
do dtop
select a
use amortiz
select b
use dovvid
define popup mg01 from 0,33
define bar 1 of mg01 prompt '1 група'
define bar 2 of mg01 prompt '2 група'
define bar 3 of mg01 prompt '3 група'
on selection popup mg1 do prg01 with bar() in m2_1.prg
define popup zmd01 prompt field nazvav shadow
on selection popup zmd01 do prmd01 with recno() in M2_1.prg
do case
case bar=1
DEFINE WINDOW w01 FROM 0,0 TO 24,79 COLORSCHEME 1
ACTIVATE WINDOW w01
@ 1,0 say ' Для яко• групи вивести звіт ?'
activate popup mg01
NG=GGG()
case bar=2
select b
activate popup zmd01
NV=kv()
case bar=3
do prprint
case bar=5
set filter to
otherwise
do dtop
return
endcase
procedure prg01
parameter b1,GGG
do case
case b1=1
GGG=1
case b1=2
GGG=2
case b1=3
GGG=3
otherwise
deactivate popup mg01
clear windows
do dtop
return
endcase
return
procedureprmd01
parameter nv,KV
goto(nv)
KV=kodv
return
Лістінг модуля Nowkvart.prg
close databases
clear windows
clear
do dtop
set talk off
set date german
set century on
yr=year(date())
ms=month(date())
dt=date()
DO CASE
CASE MS>=1.AND.MS<=3
kvrt=1
CASE MS>=4.AND.MS<=6
kvrt=2
CASE MS>=7.AND.MS<=9
kvrt=3
CASE MS>=10.AND.MS<=12
kvrt=4
endcase
use zah
skv=kvt
staw=p1
staw1=p2
close databases
if skv!=kvrt
define window nk from 3,3 to 13,65 double shadow color scheme 7 title 'Перехід на новий квартал'
activate window nk
@ 0,20 say 'СЬОГОДНІ'+dmy(dt)
@ 1,20 say 'ПОТОЧНИЙ КВАРТАЛ'+STR(kvrt)
@ 3,10 prompt ' ПРОВЕСТИ ПЕРЕРАХУНОК ДЛЯ НОВОГО КВАРТАЛУ '
@ 5,17 prompt ' ПРОДОВЖИТИ БЕЗ ПЕРЕРАХУНКУ '
menu to r
do case
case r=1
do case
case kvrt=1
copy file c:amortizamortiz.dbf to c:amortizkvartal1oz1.dbf
case kvrt=2
copy file c:amortizamortiz.dbf to c:amortizkvartal2oz2.dbf
case kvrt=3
copy file c:amortizamortiz.dbf to c:amortizkvartal3oz3.dbf
case kvrt=4
copy file c:amortizamortiz.dbf to c:amortizkvartal4oz4.dbf
endcase
use amortiz
go top
do while !eof()
replace cena with amrt
replace oper1 with round(cena*staw*staw1/100,2)
replace amrt with cena-oper1
skip(1)
enddo
deactivate window nk
use zah
replace kvt with kvrt
close database
return
case r=2
deactivate window nk
return
endcase
else
do dtop
return
endif
do dtop
return
Лістінг модуля Pererah.prg
select a
USE ZAH
select b
use amortiz
go top
do while !eof()
do case
case grupa=1
replace oper1 with round(cena*a.g1P1*a.g1P2/100,2)
replace amrt with cena-oper1
case grupa=2
replace oper1 with round(cena*a.g2P1*a.g2P2/100,2)
replace amrt with cena-oper1
case grupa=3
replace oper1 with round(cena*a.g3P1*a.g3P2/100,2)
replace amrt with cena-oper1
otherwise
replace oper1 with 10101
replace amrt with 10101
endcase
skip(1)
enddo
return
Лістінг модуля Pids.prg
clear windows
close databases
set talk off
do dtop
select a
use amortiz
select b
use pids
replace sbg1 with 0
replace spg1 with 0
replace skg1 with 0
replace szg1 with 0
replace s23g1 with 0
replace s231g1 with 0
replace s24g1 with 0
replace s26g1 with 0
replace s44g1 with 0
replace s81g1 with 0
replace sbg2 with 0
replace spg2 with 0
replace skg2 with 0
replace szg2 with 0
replace s23g2 with 0
replace s231g2 with 0
replace s24g2 with 0
replace s26g2 with 0
replace s44g2 with 0
replace s81g2 with 0
replace sbg3 with 0
replace spg3 with 0
replace skg3 with 0
replace szg3 with 0
replace s23g3 with 0
replace s231g3 with 0
replace s24g3 with 0
replace s26g3 with 0
replace s44g3 with 0
replace s81g3 with 0
replace sbswith 0
replace spswith 0
replace skswith 0
replace szswith 0
replace s23swith 0
replace s231swith 0
replace s24swith 0
replace s26swith 0
replace s44swith 0
replace s81swith 0
store 0 to zspom,zspomz,zsbg1,zspg1,zskg1,zszg1,zs23g1,zs231g1, zs24g1,zs26g1, zs44g1,zs81g1,zsbg2,zspg2,zskg2,zszg2,zs23g2,zs231g2,zs24g2,zs26g2,zs44g2,zs81g2,zsbg3,zspg3,zskg3,zszg3,zs23g3,zs231g3,zs24g3,zs26g3,zs44g3,zs81g3,zsbs,zsps,zsks,zszs,zs23s,zs231s,zs24s,zs26s,zs44s,zs81s
Define window d01 from 5,10 to 11,60 double shadow color scheme 5
activate window d01
@ 0,4 say 'Проводиться підбиття підсумків. Почекайте !'
select a
x=reccount()
@ 2,1 say 'Всього записів'
@ 2,18 sayx
@ 3,1 say 'Залишилось записів'
do while !eof()
if a.grupa=1
zsbg1=zsbg1+a.balrax
zspg1=zspg1+a.cena
zskg1=zskg1+a.amrt
zszg1=zszg1+a.oper1
do case
case a.nrax=23
zs23g1=zs23g1+a.amrt
case a.nrax=23
zs231g1=zs231g1+a.amrt
case a.nrax=24
zs24g1=zs24g1+a.amrt
case a.nrax=26
zs26g1=zs26g1+a.amrt
case a.nrax=44
zs44g1=zs44g1+a.amrt
case a.nrax=81
zs81g1=zs81g1+a.amrt
otherwise
zspom=zspom+a.amrt
endcase
else
endif
if a.grupa=2
zsbg2=zsbg2+a.balrax
zspg2=zspg2+a.cena
zskg2=zskg2+a.amrt
zszg2=zszg2+a.oper1
do case
case a.nrax=23
zs23g2=zs23g2+a.amrt
case a.nrax=231
zs231g2=zs231g2+a.amrt
case a.nrax=24
zs24g2=zs24g2+a.amrt
case a.nrax=26
zs26g2=zs26g2+a.amrt
case a.nrax=44
zs44g2=zs44g2+a.amrt
case a.nrax=81
zs81g2=zs81g2+a.amrt
otherwise
zspom=zspom+a.amrt
endcase
else
endif
if a.grupa=3
zsbg3=zsbg3+a.balrax
zspg3=zspg3+a.cena
zskg3=zskg3+a.amrt
zszg3=zszg3+a.oper1
do case
case a.nrax=23
zs23g3=zs23g3+a.amrt
case a.nrax=23
zs231g3=zs231g3+a.amrt
case a.nrax=24
zs24g3=zs24g3+a.amrt
case a.nrax=26
zs26g3=zs26g3+a.amrt
case a.nrax=44
zs44g3=zs44g3+a.amrt
case a.nrax=81
zs81g3=zs81g3+a.amrt
otherwise
zspom=zspom+a.amrt
endcase
else
endif
zsbs=zsbs+a.balrax
zsps=zsps+a.cena
zsks=zsks+a.amrt
zszs=zszs+a.oper1
do case
case a.nrax=23
zs23s=zs23s+a.amrt
case a.nrax=23
zs231s=zs231s+a.amrt
case a.nrax=24
zs24s=zs24s+a.amrt
case a.nrax=26
zs26s=zs26s+a.amrt
case a.nrax=44
zs44s=zs44s+a.amrt
case a.nrax=81
zs81s=zs81s+a.amrt
otherwise
zspomz=zspom+a.amrt
endcase
x=x-1
@ 3,20 say x
skip(1)
enddo
select b
go top
replace b.sbg1 with zsbg1
replace b.spg1 with zspg1
replace b.skg1 with zskg1
replace b.szg1 with zszg1
replace b.s23g1 with zs23g1
replace b.s231g1 with zs231g1
replace b.s24g1 with zs24g1
replace b.s26g1 with zs26g1
replace b.s44g1 with zs44g1
replace b.s81g1 with zs81g1
replace b.sbg2 with zsbg2
replace b.spg2 with zspg2
replace b.skg2 with zskg2
replace b.szg2 with zszg2
replace b.s23g2 with zs23g2
replace b.s231g2 with zs231g2
replace b.s24g2 with zs24g2
replace b.s26g2 with zs26g2
replace b.s44g2 with zs44g2
replace b.s81g2 with zs81g2
replace b.sbg3 with zsbg3
replace b.spg3 with zspg3
replace b.skg3 with zskg3
replace b.szg3 with zszg3
replace b.s23g3 with zs23g3
replace b.s231g3 with zs231g3
replace b.s24g3 with zs24g3
replace b.s26g3 with zs26g3
replace b.s44g3 with zs44g3
replace b.s81g3 with zs81g3
replace b.sbswith zsbs
replace b.spswith zsps
replace b.skswith zsks
replace b.szswith zszs
replace b.s23swith zs23s
replace b.s231swith zs231s
replace b.s24swith zs24s
replace b.s26swith zs26s
replace b.s44swith zs44s
replace b.s81swith zs81s
report form fsum to printer
return to master
Лістінг модуля Printzv.prg
parameter bAR
set heading off
close databases
set talk off
set date german
clear windows
clear
do DTOP
clear
erase prm21.idx
select a
use amortiz
index on nazva to prm21.idx compact
erase prm22.idx
select b
use dovvid
index on nazvav to prm22.idx compact
select c
use prstat
select d
use st1
go top
stor=0
DEFINE WINDOW w01 FROM 5,10 TO 10,60 double shadow COLORSCHEME 1
define popup mg01 from 0,30
define bar 1 of mg01 prompt '1 група'
define bar 2 of mg01 prompt '2 група'
define bar 3 of mg01 prompt '3 група'
on selection popup mg01 do prg01 with bar() in printzv.prg
define popup zmd01 prompt field nazvav shadow
on selection popup zmd01 do prmd01 with recno() in printzv.prg
do case
case bAr=1
ACTIVATE WINDOW w01
@ 1,0 say ' Для яко• групи вивести звіт ?'
activate popup mg01
case bAr=2
DEFINE WINDOW w02 FROM 5,10 TO 15,60 COLORSCHEME 1 double shadow
ACTIVATE WINDOW w02
@ 0,0 say 'Визначіть для якого відділу вивести звіт ?'
select b
activate popup zmd01
case bAr=3
do print01
case bAr=5
do print02
case bar=6
select a
set filter to
replace c.nvid with 0
replace c.ngrp with 0
replace c.grupa with ' '
replace c.vid with ' '
endcase
select a
set filter to
clear windows
do dtop
close databases
return
procedure prg01
parameter b1
select c
do case
case b1=1
replace ngrp with 1
replace grupa with 'Звіт по першій групі'
case b1=2
replace ngrp with 2
replace grupa with 'Звіт по другій групі'
case b1=3
replace ngrp with 3
replace grupa with 'Звіт по третій групі'
otherwise
replace ngrp with 0
replace grupa with 'Звіт по всіх групах'
endcase
deactivate popup mg01
RETURN
procedureprmd01
parameter nv
select b
go top
goto(nv)
x1kv=kodv
x2nv=nazvav
select c
replace nvid with x1kv
replace vid with x2nv
deactivate popup zmd01
return
procedure print02
parameter bbb
clear windows
do dtop
select a
set filter to
select b
go top
do while !eof()
replace c.nvid with b.kodv
replace c.vid with b.nazvav
select a
go top
set filter to grp=b.kodv
store 0 to x1,x2,x3,x4
do while !eof()
x1=x1+balrax
x2=x2+cena
x3=x3+oper1
x4=x4+amrt
define window i001 from 8,10 to 20,71 double shadow color scheme 4
ACTIVATE WINDOW I001
@ 0,20 say 'ІНДИКАТОР ПРОЦЕСУ'
@ 1,2 SAY 'Виводиться звіт для відділу '+b.nazvav
@ 2,2 say 'По балансовій вартості - '
@ 3,2 say 'По початковій вартості - '
@ 4,2 say 'Знос - '
@ 5,2 say 'По залишковій вартості - '
@ 2,30 say x1
@ 3,30 say x2
@ 4,30 say x3
@ 5,30 say x4
skip(1)
enddo
select c
replace c.sr1 with x1
replace c.sr2 with x2
replace c.sr3 with x3
replace c.sr4 with x4
select a
do p00p
select d
stor=stor+1
replace d.st with stor
select b
skip(1)
enddo
do pids
return
procedure print01
parameter b
set filter to
if c.ngrp!=0
select a
set filter to a.grupa=c.ngrp
else
endif
if c.nvid!=0
select a
set filter to a.grp=c.nvid
else
endif
define window i001 from 8,10 to 20,71 double shadow color scheme 4
ACTIVATE WINDOW I001
@ 0,20 say 'ІНДИКАТОР ПРОЦЕСУ'
@ 1,2 SAY 'Виводиться звіт для відділу '+b.nazvav
@ 2,2 say 'По балансовій вартості - '
@ 3,2 say 'По початковій вартості - '
@ 4,2 say 'Знос - '
@ 5,2 say 'По залишковій вартості - '
select a
go top
store 0 to x1,x2,x3,x4
do while !eof()
x1=x1+balrax
x2=x2+cena
x3=x3+oper1
x4=x4+amrt
@ 2,30 say x1
@ 3,30 say x2
@ 4,30 say x3
@ 5,30 say x4
skip(1)
enddo
clear windows
dodtop
select c
replace c.sr1 with x1
replace c.sr2 with x2
replace c.sr3 with x3
replace c.sr4 with x4
select a
do p00p
return
procedure p00p
parameter b
clear windows
do dtop
ps=.t.
do while ps
if printstatus()
ps=.f.
else
define window prer from 10,10 to 15,55 double shadow color scheme 7
activatewindowprer
@ 0,2 say 'ПРИНТЕР НЕ ГОТОВИЙ !'
@ 1,1 say 'Приведіть принтер до стану ONLINE !'
@ 3,3 PROMPT ' ПОВТОРИТИ '
@ 3,18 PROMPT ' ВІДМІНА '
MENU TO X
IF X=2
clear windows
do dtop
RETURN
ELSE
ENDIF
endif
enddo
report form f1 to printer
return
Лістінг модуля Rezerv.prg
use zah
do case
case zax=.t.
define window r1 from 10,10 to 17,69 double shadow color sCheme 5
activate window r1
r=0
@ 0,0 say 'РЕЗЕРВУВАННЯ ДАНИХ'
@ 0,0 say 'Попередній сеанс роботи закінчено коректно !'
@ 1,0 say ' Для створення резервно• копі• натіснить <ЗАРЕЗЕРВУВАТИ> '
@ 2,0 say 'В випадку відмови натисніть <ВІДМІНА>'
@ 4,10 prompt ' ЗАРЕЗЕРВУВАТИ ' shadow
@ 4,32 prompt ' ВІДМІНА ' shadow
menu tor
if r=1
erase c:amortizrezervamortiz.dbf
copy file c:amortizamortiz.dbf to c:amortizrezervamortiz.dbf
clear window r1
return
else
clear window w1
replace zax with .f.
close database
return
endif
return
case zax=.f.
define window er from 10,5 to 16,73 double shadow color scheme 7
activate window er
@ 0,0 say 'НЕВДАЛЕ ЗАКІНЧЕННЯ СЕАНСУ РОБОТИ !' @ 1,0 say 'Попередній сеанс роботи програми закінчився некоректно !'
@ 3,15 prompt ' Відновити базу ' message 'Дані внесені під час останнього сеансу будуть втрачені'
@ 3,35 prompt ' Не відновлювати ' message 'В випадку якщо база пошкоджена, програма не працюватиме'
menu to r
do case
case r=1
ERASE c:amortizamortiz.dbf
copy file c:amortizrezervamortiz.dbf to c:amortizamortiz.dbf
clear window ER
replace zax with .f.
close database
return
case r=2
clear window ER
replace zax with .f.
close database
return
endcase
endcase
replace zax with .f.
close database
return
Лістінг модуля Vixod.prg
CLOSE DATABASES
define popup vp01 from 1,50 shadow
define bar 1 of vp01 prompt 'Вийти з програми'
define bar 2 of vp01 prompt '-'
define bar 3 of vp01 prompt 'Командний режим'
define bar 4 of vp01 prompt 'Назад в програму'
on selection popup vp01 do p01 with bar() in vixod.prg
activate popup vp01
procedure p01
parameter bar
do case
case bar=1
DEFINE WINDOW EXITW FROM 10,30 TO 13,50 DOUBLE SHADOWCOLOR SCHEME 7
ACTIVATE WINDOW EXITW
@ 0,0 SAY 'Вийти з програми ?'
@ 1,3 prompt ' ТАК ' SHADOW
@ 1,9 prompt ' НІ ' SHADOW
MENU TO X
do case
case X=1
USE ZAH
replace zax with .t.
close database
quit
case X=2
clear windows
do dtop
return
otherwise
return
endcase
deactivate popup vp01
case bar=3
clear windows
deactivate popup vp01
case bar=4
DEFINE WINDOW DTOP FROM 0,0 TO 24,79 COLORSCHEME 1
ACTIVATE WINDOW DTOP
deactivate popup vp01
otherwise
return
endcase
return
RETURN
Сегодня были уже 20 посетителей
Цікаве на сайті
Друзі Сайту!
1. СШ №4 м.Золочів
http://www.zolochiv-school4.org.ua
2. Інформація педагогу, конспекти уроків
http://ped-inform.org.ua
3. НВК Мавковичі
http://www.mavkovychi.org.ua
4. Інформатика
http://Flick.ho.ua
5. Географія
http://globys.ho.ua
Ссилку вставляйте в поле адреси вашої програми!!!!
Цей сайт присвячений інформатики та ІКТ в освіті. При його створенні ставилося завдання зібрати в одному місці велику кількість цікавого матеріалу з даної теми. А також, дати можливість вчителям інформатики і педагогам, що використовують комп'ютер на своїх уроках і позакласних заходах, обмінятися досвідом, методичними матеріалами, комп'ютерними програмами та ін. Ще один напрям діяльності сайту - розробка та надання ОУ зручного і надійного інструменту для створення єдиного-інформаційного простору школи, міста, району. Вдалося нам це чи ні - судити Вам.
:
