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

Limit memo length to 27 chars on Quicken wallet checks with side stub

Browse Source 
Patch by David Reiser, bug #340977


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@13965 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Chris Shoemaker 2006-05-09 00:42:32 +00:00
parent 5340a658ec
commit aeda15cb74
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/scm/printing/print-check.scm
View File

@ -172,15 +172,22 @@
(+ offset (caddr words-pos)))
(gnc:print-session-text ps (number-to-words amount 100)))
(let ((memo-pos (assq 'memo format)))
(gnc:print-session-moveto ps (cadr memo-pos)
(+ offset (caddr memo-pos)))
(gnc:print-session-text ps memo))
(if (not (eq? (print-check-format:format format-info) 'wallet))
(let ((memo-pos (assq 'memo format)))
(gnc:print-session-moveto ps (cadr memo-pos)
(+ offset (caddr memo-pos)))
(gnc:print-session-text ps memo)))
(if (eq? (print-check-format:format format-info) 'wallet)
(begin
(let ((memo-pos (assq 'memo format)))
(gnc:print-session-moveto ps (cadr memo-pos)
(+ offset (caddr memo-pos)))
(if (< (string-length memo) 28)
(gnc:print-session-text ps memo)
(gnc:print-session-text ps (substring memo 0 27))))
(let ((memostub-pos (assq 'memo-stub format)))
(gnc:print-session-moveto ps (cadr memostub-pos)
(gnc:print-session-moveto ps (cadr memostub-pos)
(+ offset (caddr memostub-pos)))
(if (< (string-length memo) 22)
(set! memo-stub-text memo)