Постачальник

4 5 6 7 8 9 10

Адреса: _______________________________

Тел. ____________ факс _________________

Банк: _________________________________

Р/р № _____________________ МФО ___________ Код: _______________

Розхідна накладна № _______________ від _______________

Отримувач: ____________________________

Адреса: _______________________________

Тел. ____________ факс _________________

Банк: _________________________________

Р/р № _____________________ МФО ___________ Код: _______________

Через

Доручення: ___________________ від ___________________

Договір /контракт/ № _____________________

Дата сплати: ______________ Умови відпуску ________________________

№ пп	Серія	Найменування	Од. вим.	Кількість	Вартість митна (імп.) завода-вироб. (укр.)	Націнка %	Ціна відпускна в ГРН.	Сума відпускна в ГРН	Сума ПДВ	Сума до оплати з урах. ПДВ

Всього

^{(сума прописом)}

в тому числі ПДВ/без ПДВ: ______________

Документ склав: _________________________________________________

^(П.І.Б.)

Товар відпустив: _________________________________________________ Товар отримав: _____________________________________

^{(П.І.Б.) (П.І.Б.)}

Додаток 10

Платіжне доручення № _________

від «___» ______________ 200__ р.

Одержано банком

«___» ___________ 200__ р.

Платник _________________________

Код за

ЄДРПОУ

код банку ДЕБЕТ СУМА

Банк платника

рах. №

Одержувач _______________________

Код за КРЕДИТ

ЄДРПОУ

код банку рах. №

Банк одержувача

рах. №

Сума (словами)

____________________________________________________________________________

Призначення платежу _________________________________________________________

Проведено банком

М.П.

«___» ___________ 200__ р.

Підписи платника

підпис банку

Додаток 11

Обороти по дебету

(дебет 60 кредит __)

Дата	Сума	Партнер	Коментар

«» ________________ 200__ р. Головний бухгалтер _____________________ ⁽^{підпис)}

Додаток 12

Обороти по кредиту

(кредит 60 дебет __)

Дата

Сума

Партнер

Коментар

«» ________________ 200__ р. Головний бухгалтер _____________________ ⁽^{підпис)}

Додаток 13

Оборот по дебету

( загальні суми )

Включно по _______________________

Назва (партнер)	Загальна сума

«» ________________ 200__ р. Головний бухгалтер _____________________ ⁽^{підпис)}

Додаток 14

Оборот по кредиту

( загальні суми )

Включно по _______________________

Назва (партнер)	Загальна сума

«» ________________ 200__ р. Головний бухгалтер _____________________ ⁽^{підпис)}

Додаток 15

Сальдо на початок місяця

(на _____________________)

Назва (партнер)	Дебет	Кредит

Всього
Згорнуте

«» ________________ 200__ р. Головний бухгалтер _____________________ ⁽^{підпис)}

Додаток 16

Сальдо на кінець місяця

(на _____________________)

Назва (партнер)

Дебет

Кредит

Всього

«» ________________ 200__ р. Головний бухгалтер _____________________ ⁽^{підпис)}

Згорнуте

Додаток 17

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

Сальдо на початок місяця (на ______________________________)
Дебет	Кредит	Згорнуте

Сальдо на кінець місяця (на ______________________________)
Дебет	Кредит	Згорнуте

«» ________________ 200__ р. Головний бухгалтер _____________________ ⁽^{підпис)}

Додаток 18

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

Дебет	Кредит	Сума
60
Всього по дебету
	60
Всього по кредиту

«» ________________ 200__ р. Головний бухгалтер _____________________ ⁽^{підпис)}

Додаток 19

Акт звірки

«___» _________________ 200__р.

Партнер: _____________________________________

Дебет	Кредит	Сума по дебету	Сума по кредиту	Дата	Номер документа

«» ________________ 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

*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

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 <= 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 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

\<<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 sh00004

endif

select (_clunions_)

endscan

************

* Вивід загальних сум

do l00004

stor = stor +1

if stor >=59

\<<chr(12)>>

stor = 7

do sh00004

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 sh00004

* 1.

\-----+----------------------------------------+---------------------

* 2.***<<padc('П О С Т А Ч А Л Ь Н И К И

\ |<<space(40)>>|<<padc(' Сальдо на кін.місяця',21,' ')>>

* 3.

\ № +<<padc('П О С Т А Ч А Л Ь Н И К И',40,' ')>>+----------+----------

* 4.

\ |<<SPACE(40)>>+<<padc('Дебет',10,' ')>>+<<padc('Кредит',10,' ')>>

* 5.

\-----+----------------------------------------+----------+----------

RETU

**************************************

PROCEDURE l00004

\-----+----------------------------------------+----------+----------

RETU

Додаток 2

Додаток 25

Додаток 26

Додаток 27

Додаток 28

Додаток 29

Додаток 30

Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:

4 5 6 7 8 9 10

Индукция и дедукция. Анализ и синтез

Анализ актива баланса

Правовое положение сословий в Российском государстве в XVIII веке

Калибры, виды и назначение. Контроль параметров макрогеометрии деталей калибрами

Классификация методов обучения

Примеры решения задач. Определите рентабельность продукции по следующим данным: количество выпущенных изделий за квартал - 1 500 штук

Самый сильный аргумент, почему эволюция человека не могла быть