SF.net SVN: ledger-smb:[6375] trunk/LedgerSMB/Upgrade_Tests.pm

[..hidden..]

Revision: 6375
          http://sourceforge.net/p/ledger-smb/code/6375
Author:   ehuelsmann
Date:     2014-01-04 23:18:39 +0000 (Sat, 04 Jan 2014)
Log Message:
-----------
Check AR invoices for unique numbers.

Modified Paths:
--------------
    trunk/LedgerSMB/Upgrade_Tests.pm

Modified: trunk/LedgerSMB/Upgrade_Tests.pm
===================================================================
--- trunk/LedgerSMB/Upgrade_Tests.pm	2014-01-04 21:05:53 UTC (rev 6374)
+++ trunk/LedgerSMB/Upgrade_Tests.pm	2014-01-04 23:18:39 UTC (rev 6375)
@@ -357,7 +357,50 @@
     max_version => '2.8'
     );
 
+push @tests, __PACKAGE__->new(
+    test_query => "select *
+                     from ar
+                    where invnumber in (select invnumber
+                                          from ar
+                                         group by invnumber
+                                         having count(*) > 1)
+                   order by invnumber",
+    display_name => $LedgerSMB::App_State::Locale->text('Non-unique invoice numbers'),
+    name => 'no_duplicate_ar_invoicenumbers',
+    display_cols => ['id', 'invnumber', 'transdate', 'duedate', 'datepaid',
+                     'ordnumber', 'quonumber', 'approved'],
+    column => 'invnumber',
+ instructions => $LedgerSMB::App_State::Locale->text(
+                   'Please make all AR invoice numbers unique'),
+    table => 'ar',
+    appname => 'sql-ledger',
+    min_version => '2.7',
+    max_version => '2.8'
+    );
 
+#  There's no AP uniqueness requirement? 
+# push @tests, __PACKAGE__->new(
+#     test_query => "select *
+#                      from ap
+#                     where invnumber in (select invnumber
+#                                                from ap
+#                                               group by invnumber
+#                                               having count(*) > 1)
+#                     order by invnumber",
+#     display_name => $LedgerSMB::App_State::Locale->text('Non-unique invoice numbers'),
+#     name => 'no_duplicate_ap_invoicenumbers',
+#     display_cols => ['id', 'invnumber', 'transdate', 'duedate', 'datepaid',
+#                      'ordnumber', 'quonumber', 'approved'],
+#     column => 'invnumber',
+#  instructions => $LedgerSMB::App_State::Locale->text(
+#                    'Please make all AP invoice numbers unique'),
+#     table => 'ap',
+#     appname => 'sql-ledger',
+#     min_version => '2.7',
+#     max_version => '2.8'
+#     );
+
+
 push @tests, __PACKAGE__->new(
     test_query => "select *
                      from makemodel

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.


------------------------------------------------------------------------------
Rapidly troubleshoot problems before they affect your business. Most IT 
organizations don't have a clear picture of how application performance 
affects their revenue. With AppDynamics, you get 100% visibility into your 
Java,.NET, & PHP application. Start your 15-day FREE TRIAL of AppDynamics Pro!
http://pubads.g.doubleclick.net/gampad/clk?id=84349831&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits