WWW.REFERATCENTRAL.ORG.UA - Я ТУТ НАВЧАЮСЬ

... відкритий, безкоштовний архів рефератів, курсових, дипломних робіт

ГоловнаБухгалтерський облік, Податки → Інформаційна система обліку і аналізу розрахунків з постачальниками і підрядниками (Диплом) - Дипломна робота

Інформаційна система обліку і аналізу розрахунків з постачальниками і підрядниками (Диплом) - Дипломна робота

(сума прописом)

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

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

(П.І.Б.)

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

(П.І.Б.) (П.І.Б.)

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

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

Loading...

 
 

Цікаве