IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

TP->T64: gnucash/report/business-reports/balsheet-eg[.eguile].scm

Browse Source
This commit is contained in:
Christopher Lam 2017-12-21 22:47:18 +08:00
parent e2c353fac6
commit e44df79b88
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnucash/report/business-reports/balsheet-eg.eguile.scm
View File

@ -128,7 +128,7 @@
<html>
<head>
<meta http-equiv="content-type" content="text-html; charset=utf-8">
<title><?scm:d coyname ?> <?scm:d reportname ?> <?scm:d (gnc-print-date opt-date-tp) ?></title>
<title><?scm:d coyname ?> <?scm:d reportname ?> <?scm:d (qof-print-date opt-date) ?></title>
<?scm (if css? (begin ?>
<link rel="stylesheet" href="<?scm:d opt-css-file ?>" type="text/css">
@ -157,7 +157,7 @@
<table border="0" cellpadding="16"><tr><td> <!-- hack for GTKHTML -->
<?scm )) ?>
<h3><?scm:d coyname ?></h3>
<h2><?scm:d reportname ?> <?scm:d (gnc-print-date opt-date-tp) ?></h2>
<h2><?scm:d reportname ?> <?scm:d (qof-print-date opt-date) ?></h2>
<?scm
;; This is where the work is done.

7
gnucash/report/business-reports/balsheet-eg.scm
View File

@ -381,10 +381,9 @@
(opt-price-source (get-option commodities-page optname-price-source))
(opt-show-foreign? (get-option commodities-page optname-show-foreign))
(opt-report-title (get-option general-page optname-report-title))
(opt-date-tp (gnc:timepair-end-day-time
(opt-date (gnc:time64-end-day-time
(gnc:date-option-absolute-time
(get-option general-page optname-date))))
(opt-date-secs (gnc:timepair->secs opt-date-tp))
(opt-columns (get-option display-page optname-columns))
(opt-font-family (get-option display-page optname-font-family))
(opt-font-size (get-option display-page optname-font-size))
@ -424,7 +423,7 @@
;; exchange rates calculation parameters
(exchange-fn
(gnc:case-exchange-fn opt-price-source opt-report-commodity opt-date-tp))
(gnc:case-exchange-fn opt-price-source opt-report-commodity opt-date))
; List of commodities (other than the local one) used
; so that exchange rate table can be displayed.
; xlist will become an association list of (comm . #t) pairs
@ -524,7 +523,7 @@
(>= (gnc-account-get-current-depth (car account-list)) curr-depth))
(let* ((account (car account-list))
(comm (xaccAccountGetCommodity account))
(bal (xaccAccountGetBalanceAsOfDate account opt-date-secs))
(bal (xaccAccountGetBalanceAsOfDate account opt-date))
(depth (flattened-acc-depth account))
(treedepth 1)
; Next account only qualifies as 'deeper' if we're not flattening