: CHECK_SALDO_51.PRG
чист
прдоклад 'Проверка на салдо klienti - фактури...'
грешка_лимит 10
искаме_форма 1
тф91 cbasename(0)

за_начално_салдо 1
ако fparam(0)>0 то за_начално_салдо fparam(1)=0

ако за_начално_салдо
 общо_салдо 'SALDO'
 моно_салдо 'SALDO_MONO'
 ново_салдо 'SALDO_F2'
иначе
 общо_салдо 'SALDO_C'
 моно_салдо 'SALDO_MONO_C'
 ново_салдо 'SALDO_F2_C'
крайако

брой_редове_в_антетката 2
грешка_ф2 0

база @ново_салдо
празно countrr(0)<3
ако празно то преход 1000

копи @моно_салдо TEMP1m
копи @ново_салдо TEMP1f
база TEMP1m
шк1 lencell(1)
обкол(1)
база TEMP1f
изткол(3,3)
ако countrr(0)<3 то преход 1000
шк1 lencell(1)
обкол(1)
група(3,1,countrr(0),countcc(0),1,2,5,1)
: разкол(1,шк1)
б countrr(0)
: колони(2,4,2,3,б)-
блок пълен(3,2,б,2)
блок пълен(3,4,б,4)
колони(3,5,3,3,б)-
блок пълен(3,4,б,5)
рел temp1m (1,2,3,1,4,3,10000000,100,3,10000000)
б1 countrr(0)
колони(4,5,5,3,б1)-
блок пълен(3,4,б1,4)
колони(3,5,2,3,б1)-
бкопи (3,2,б1,2) (0,4-2)
блок abs(3,4,б1,4)
добави 1
поле (б1+1,4)='>0'
маска . б1+1 temp1e
база temp1e
бб countrr(0)
грешка_сбор sum(1,4,бб,4)
копи . CHECK_RESULT
база CHECK_RESULT
изтр temp1e
изтр temp1f
изтр temp1m
: ако грешка_сбор<=грешка_лимит то преход 0800
1000 : 
стоп(3)