Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24

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

Скачали данный реферат: Roberta, Jagutkin, Юрлов, Fantika, Козланюк, Ксения.
Последние просмотренные рефераты на тему: сочинение, отправить сообщение, титульный курсовой работы, сочинение на тему онегин.



Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24

Поделитесь этой записью или добавьте в закладки