|
|
||||
|
|
|
Додаток 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="..."
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
При использовании материалов активная ссылка на источник обязательна.