" x ""))))) (set! depth (max depth 1)); hack for depth=0 (if leftoverrule? (begin (set! lo-adjust -1) (set! lo-cell "
(accrec-treedepth accrec-as) 1)) (set! rshift-as 1)) (if (and (one-depth-1 accrec-li) (> (accrec-treedepth accrec-li) 1)) (set! rshift-li 1)) (if (and (one-depth-1 accrec-eq) (> (accrec-treedepth accrec-eq) 1)) (set! rshift-eq 1)) (if (and (one-depth-1 accrec-in) (> (accrec-treedepth accrec-in) 1)) (set! rshift-in 1)) (if (and (one-depth-1 accrec-ex) (> (accrec-treedepth accrec-ex) 1)) (set! rshift-ex 1)) (pl-cc 'merge (accrec-subtotal-cc accrec-in) #f) (pl-cc 'merge (accrec-subtotal-cc accrec-ex) #f) (le-cc 'merge (accrec-subtotal-cc accrec-li) #f) (le-cc 'merge (accrec-subtotal-cc accrec-eq) #f) (le-cc 'merge pl-cc #f) (balancing-cc 'merge (accrec-subtotal-cc accrec-as) #f) (balancing-cc 'minusmerge le-cc #f) (if debugging? (begin (display "Assets: ") (display accrec-as) (display " Liabilities: ") (display accrec-li) (display " Equities: ") (display accrec-eq) (display " Income: ") (display accrec-in) (display " Expense: ") (display accrec-ex))) ?>
Exchange Rates used for this report") ?>
|