: spravka.prg
: прави справка
чист
вид fparam(1)
за_деня вид=1
за_клиент вид=2

ако за_деня то подпреход 1000
ако за_клиент то подпреход 2000

стоп(3)
===================================================
1000 : за деня
да 0
отг1 DMYTODATE(thisday,thismonth,thisyear)
въпрос ('Справка за продажбите за един ден','Въведете датата:',@отг1,@да)
ако да=0 то стоп(3)
копи register r_temp
база r_temp
добави 2
б countrr(0)
поле (б,2)=отг1
поле (б-1,1)=1
поле (б-1,2)=2
поле (б-1,6)=3
поле (б-1,5)=4
изтр spravka
смес . б-1 spravka &
база spravka
изтр r_temp
ако countrr(0)<2 то кажи ##няма_продажби_за_тази_дата
добави -1
б countrr(0)
група (1,1,б,4,1,4,4,1)
б countrr(0)
добави 2
блок пълен(б+1,1,б+1,4)================================================
поле (б+2,4)=sum(1,4,б,4)
поле (б+2,3)='Сбор:'
вмкред(1,2)
блок пълен(2,1,2,4)===================================================
поле (1,1)='документ'
поле (1,3)='клиент'
поле (1,4)='сума'
вмкред(1,2)
изткол(2,2)
поле (1,2)='Справка за продажбите '+отг1
пробратно

===================================================
2000 : справка за продажбите към един клиент

: търси клиента в номенклатурата
клетка scell(curr(0),curc(0))
номенклатура 'klienti'
база @номенклатура
кл scopy(клетка,1,40)
ред_кл present(кл,1,1,1)
гоняма ред_кл=0
ако гоняма то кажи ##не_е_намерен_посочете_го_и_опитайте_пак

: тук вече се знае, че клиента е записан в ред_кл ot номенклатура KLIENTI
копи register r_temp
база r_temp
създай spravka(12,30,10)

: подготвя заявка за извличане на записи от регистъра
добави 2
б countrr(0)
поле (б,6)=кл
поле (б-1,1)=1
поле (б-1,2)=2
поле (б-1,4)=3
поле (б-1,5)=4
: стартира заявката
смес . б-1 spravka &

база spravka
изтр r_temp
отрезф(1,0)
ако countrr(0)<2 то кажи ##няма_продажби_за_този_клиент
отрезф(0,1)
б countrr(0)
: сборува всички документи
група (1,1,б,3,1,3,3,1)
б countrr(0)

: оформя епилог - сборна линия
добави 2
блок пълен(б+1,1,б+1,3)================================================
поле (б+2,3)=sum(1,3,б,3)
поле (б+2,2)='Сбор:'

: оформя хедър - заглавна част
вмкред(1,2)
блок пълен(2,1,2,3)===================================================
поле (1,1)='документ'
поле (1,2)='дата'
поле (1,3)='сума'
вмкред(1,3)
обкол(1)
поле (1,1)='Справка за продажбите за един клиент'
поле (2,1)='клиент :'+кл
пробратно
========================================