| |||||
МЕНЮ
| ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І ПІДРЯДНИКАМИ (на прикладі ПП Біомед)Код за КРЕДИТ ЄДРПОУ код банку рах. № Банк одержувача рах. № Сума (словами) ____________________________________________________________________________ Призначення платежу _________________________________________________________ Проведено банком «___» ___________ 200__ р. Підписи платника підпис банку Додаток 11 Обороти по дебету (дебет 60 кредит __) |Дата |Сума |Партнер |Коментар | | | | | | Додаток 12 Обороти по кредиту (кредит 60 дебет __) |Дата |Сума |Партнер |Коментар | | | | | | Додаток 13 Оборот по дебету (загальні суми) Включно по _______________________ |Назва (партнер) |Загальна сума | | | | Додаток 14 Оборот по кредиту (загальні суми) Включно по _______________________ |Назва (партнер) |Загальна сума | | | | Додаток 15 Сальдо на початок місяця (на _____________________) |Назва |Дебет |Кредит | |(партнер) | | | | | | | |Всього | | | |Згорнуте | | | Додаток 16 Сальдо на кінець місяця (на _____________________) |Назва |Дебет |Кредит | |(партнер) | | | | | | | |Всього | | | |Згорнуте | | | Додаток 17 Узагальнена сальдова відомість |Сальдо на початок місяця (на ______________________________) | |Дебет |Кредит |Згорнуте | | | | | |Сальдо на кінець місяця (на ______________________________) | |Дебет |Кредит |Згорнуте | | | | | Додаток 18 Журнал-ордер |Дебет |Кредит |Сума | |60 | | | |Всього по дебету | | | |60 | | |Всього по кредиту | | Додаток 19 Акт звірки «___» _________________ 200__р. Партнер: _____________________________________ |Дебет |Кредит |Сума |Сума |Дата |Номер документа | | | |по дебету |по кредиту | | | | | | | | | | Додаток 20 Додаток 20 (продовження) Додаток 21 Додаток 22 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("0000003") *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 f0000000 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,10000) 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 * p0000004 * Сальдо на поточний період на вказане число 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 t100004.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 > \ Сальдо на кінець місяця по > рах. Період: > >p. stor = 2 do sh00004 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 \>|>| *** сальдо кінцеве \\>| \\> **** підрахунок загальний сум * поч.сальдо 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 \> stor = 7 do sh00004 endif endif select (_clunions_) endscan ************ * Вивід загальних сум do l00004 stor = stor +1 if stor >=59 \> stor = 7 do sh00004 endif \>|>| *** сальдо кінцеве \\>| \\> \ Згорнуте > \> 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 sh00004 * 1. \-----+----------------------------------------+---------- ----------- * 2.***>|> * 3. \ № +>+------ ----+---------- * 4. \ |>+>+> * 5. \-----+----------------------------------------+---------- +---------- RETU ************************************** * ************************************** PROCEDURE l00004 \-----+----------------------------------------+------- ---+---------- RETU Додаток 24 Додаток 25 Додаток 26 Додаток 27 Додаток 28 Додаток 29 Додаток 30 ----------------------- [pic] Власник Директор Відділ реалізації Склад Бухгалтерія Заступник директора Юрист Відділ маркетингу Оприбуткування товарів Кінець Початок Журнал-ордер Журнал операцій Журнал операцій Журнал операцій Журнал операцій Платіжні доручення Розхідні накладні Облік оплати Оборотно- сальдова відомість Формування журнала- ордера Формування оборотно-сальдової відомості Контекст-діаграма системи обліку і аналізу розрахунків з постачальниками і підрядниками Система обліку і аналізу розрахунків з постачальниками і підрядниками Постачальники Банк Бухгалтерія Розхідна накладна Проплачене платіжне доручення Узагальнені оборотні відомості Акт звірки Журнал-ордер Сальдові відомості Узагальнені сальдові відомості Оборотні відомості Діаграма 1-го рівня системи обліку і аналізу розрахунків з постачальниками і підрядниками Акт звірки Узагальнені сальдові відомості Сальдові відомості Журнал-ордер Оборотні відомості Узагальнені оборотні відомості Платіжне доручення Розхідна накладна Дані, що зберігаються 3 Друк і передача результатних документів 2 Формування результатних документів Бухгалтерія 1 Ввід даних Банк Постачальники Дані про операції Діаграма 2-го рівня для процесу 1 “Ввід даних” Записана інформація про операції Файл операцій Інформація про операції, що записується Введена інформація про операції Платіжне доручення Розхідна накладна 1.3 Звірка і корекція БД 1.2 Запис на магнітний носій 1.1 Ввід даних про постачальника Діаграма 2-го рівня для процесу 2 “Формування результатних документів” Журнал-ордер Акт звірки Узагальнені сальдові відомості Узагальнені оборотні відомості Сальдові відомості Оборотні відомості Дані про операції 2.2 Формування узагальнених оборотних відомостей 2.3 Формування сальдових відомостей 2.4 Формування узагальнених сальдових відомостей 2.5 Формування журналу-ордеру 2.6 Формування акту звірки 2.1 Формування оборотних відомостей SDPrrdm SKPrrkm SDKrrdm SKKrrkm SDPrrdjm SKPrrkjm SDKrrdjm SKKrrkjm SODrrd ZODrrdjm ZOKrrkjm SOKrrk SOKrdrrk ODrrdrkjnd OKrdrrkjnd SODrrdrk Ordrkjnd PSnjzd SSnjd Snijd Knijd Pnijd Граф взаємозв’язку показників М.П. Інтерфейс (Menu, forms, help) Блок обчислень (Procedures, programs) Блок формування звітів (Queries, reports, views) СУБД БД (Database, tables) « » ________________ 200__ р. Головний бухгалтер _____________________ (підпис) « » ________________ 200__ р. Головний бухгалтер _____________________ (підпис) « » ________________ 200__ р. Головний бухгалтер _____________________ (підпис) « » ________________ 200__ р. Головний бухгалтер _____________________ (підпис) « » ________________ 200__ р. Головний бухгалтер _____________________ (підпис) « » ________________ 200__ р. Головний бухгалтер _____________________ (підпис) « » ________________ 200__ р. Головний бухгалтер _____________________ (підпис) « » ________________ 200__ р. Головний бухгалтер _____________________ (підпис) « » ________________ 200__ р. Головний бухгалтер _____________________ (підпис) Т1 Т3 Т7 Т9 Т2 Т5 Т8 Т10 Т4 Т17 Т19 Т20 Т11 Т13 Т12 Т6 Т14 Т15 Т16 Т18 Т21 Т22 Т23 Т24 Т56 Т55 Т29 Т25 Т26 Т28 Т27 Т31 Т32 Т33 Т34 Т35 Т36 Т30 Т39 Т42 Т41 Т40 Т37 Т38 Т45 Т51 Т50 Т49 Т48 Т47 Т46 Т43 Т44 Т52 Т53 Т54 ТАНГ, ІКІТ, ІСМ-51 105 Аркушів Літ. ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І ПІДРЯДНИКАМИ Маслияк Б.О. Затверд. Васильків Н.М Н. Контр. Реценз. Білоусов І.А. Перевір. Конєв Г.Б. Розроб. ІКІТ.95712.105.ДП 4 Арк. Дата Підпис № Докум. Лист Змн. Т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 Документи в електронному вигляді ІНФОРМАЦІЙНА СИСТЕМА ОБЛІКУ І АНАЛІЗУ РОЗРАХУНКІВ З ПОСТАЧАЛЬНИКАМИ І ПІДРЯДНИКАМИ 5 Арк. Дата Підпис № докум. Арк. Змн. |
ИНТЕРЕСНОЕ | |||
|