From 50b153f8c26593a2f0f89c612ed7b5c22c8f5489 Mon Sep 17 00:00:00 2001
From: Andrew McMillan <debian@mcmillan.net.nz>
Date: Thu, 19 Feb 2009 13:26:13 +1300
Subject: [PATCH] Sub-sub-sort by voucher.invoicedate.

---
 process/report/vchenqry.p | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/process/report/vchenqry.p b/process/report/vchenqry.p
index 23e71fe..471a71f 100644
--- a/process/report/vchenqry.p
+++ b/process/report/vchenqry.p
@@ -56,6 +56,7 @@ DEF TEMP-TABLE ReportVoucher NO-UNDO
     FIELD CompanyCode LIKE Company.CompanyCode
     FIELD CreditorCode LIKE Creditor.CreditorCode
     FIELD CreditorName LIKE Creditor.NAME
+    FIELD InvoiceDate LIKE Voucher.Date
     FIELD VoucherSeq LIKE Voucher.VoucherSeq
   .
 
@@ -320,6 +321,7 @@ PROCEDURE each-company :
                   BY ReportVoucher.CompanyCode 
                   BY ReportVoucher.CreditorName
                   BY ReportVoucher.CreditorCode
+                  BY ReportVoucher.InvoiceDate
                   BY ReportVoucher.VoucherSeq:
      RUN each-voucher.
   END.
@@ -639,6 +641,7 @@ PROCEDURE save-voucher-details :
   ASSIGN ReportVoucher.CompanyCode = Company.CompanyCode
          ReportVoucher.CreditorCode = Creditor.CreditorCode
          ReportVoucher.CreditorName = Creditor.NAME
+         ReportVoucher.InvoiceDate = Voucher.DATE
          ReportVoucher.VoucherSeq = Voucher.VoucherSeq.
 
 END PROCEDURE.
-- 
2.11.4.GIT