(сума прописом)
в тому числі ПДВ/без ПДВ: ______________
Документ склав: _________________________________________________
(П.І.Б.)
Товар відпустив: _________________________________________________ Товар отримав: _____________________________________
(П.І.Б.) (П.І.Б.)
Додаток 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