[Gnucash-changes] r13965 - gnucash/trunk/src/scm/printing - Limit memo length to 27 chars on Quicken wallet checks with side stub

Chris Shoemaker chris at cvs.gnucash.org
Mon May 8 20:42:33 EDT 2006


Author: chris
Date: 2006-05-08 20:42:32 -0400 (Mon, 08 May 2006)
New Revision: 13965
Trac: http://svn.gnucash.org/trac/changeset/13965

Modified:
   gnucash/trunk/src/scm/printing/print-check.scm
Log:
   Limit memo length to 27 chars on Quicken wallet checks with side stub
   Patch by David Reiser, bug #340977


Modified: gnucash/trunk/src/scm/printing/print-check.scm
===================================================================
--- gnucash/trunk/src/scm/printing/print-check.scm	2006-05-09 00:04:55 UTC (rev 13964)
+++ gnucash/trunk/src/scm/printing/print-check.scm	2006-05-09 00:42:32 UTC (rev 13965)
@@ -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)



More information about the gnucash-changes mailing list