UTBOX ('Вкажіть кінцеву дату (сама пізня дата вказана вище) ', PADR (xx, 8),''))
SET ALTERNATE TO kniga.txtALTERNATE ON
SELECT d
В
SELECT cFILTER TO (c.dat> = m AND c.dat <= mm) topWHILE! EOF () = inndSEEK (se) = nainpc
?
? '| РАЗОМ |', PADR (itog, 12), '|', PADR (itog2, 11), '|', PADR (itog3, 11), '|'
? '+ ----------------------------------- + --- ----------- + ------------- + '
?''
?''
? ' Керівник організації __________________________________ '
? ' (Підпис) '
?''
?''
? ' Головний бухгалтер _________________________________ '
? ' (Підпис) '
? ' 'p align="justify">? ' 'p align="justify">? ' М.П. 'ALTERNATE TOCOMMAND kniga.txt NOEDIT SAVEFILTER TOINDEXES kniga.txt DATABASES ALL
програма операційний утримання заробітної
В В В
Програма формування Оборотно-сальдової відомості "oborotka.prg"
CLEARdate germanBELL onsafety OFFDEFAULT TO "C: Documents and Settings Андрій Робочий стіл РПЗ по БД! РПЗ Бази " CONSOLE OFFALTERNATE TO vedom.txtALTERNATE ON = CTOD (INPUTBOX ("Введіть системну дату!")) = MONTH (dato) inn TO inn1.idxbprixod.dbfon ndok TO ndok1.idxFILTER TO MONTH (dat) = nmcostatki.dbfon inn TO inn2.idxnm> = 2FILTER TO MONTH (dats) = nm-1topFILTER TO MONTH (dats) = 12.and.YEAR ( dats) = g-1
SELECT a
В
t = 0 && cумма з ПДВ = 0 && сума отримана = 0 && різниця tи y = 0 && дебет = 0 && кредит = 0 && проміжний дебет = 0 && проміжний кредит = 0 && різниця між Д і К = 0 && резултатівний дебет = 0 && результативний кредит = 0 && всього за Д = 0 & & всього за К
DO WHILE! EOF () = inn = nainpWHIL inn = kpbWHILE WITH kp, dats WITH dato, debet WITH dr, kredit WITH kra = 0 = 0 = 0 = 0 = 0 = 0
? '| усього за звітом: |', STR (vd, 11,2), '|', STR (vk, 11,2), '|'
? '+ -------------------------------------------- ---------------------------- + 'ALTERNATE TOCOMMAND vedom.txt
CLOSE ALL
В
В В В
Стартова програма, яка запускає програму меню.
SET POINT TO '.' (. t.)
_SCREEN.Visible =. T.
_SCREEN.caption = "ОБЛІК РОЗРАХУНКІВ З покупцями і замовниками"
_screen.Closable =. F.
_SCREEN.Picture = "024.JPG"
_screen.WindowState = 2