SF.net SVN: ledger-smb:[3253] trunk/bin/is.pl

[..hidden..]

Revision: 3253
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3253&view=rev
Author:   einhverfr
Date:     2011-06-15 12:54:58 +0000 (Wed, 15 Jun 2011)

Log Message:
-----------
Altering is.pl void routine to avoid duplicate invoices

Modified Paths:
--------------
    trunk/bin/is.pl

Modified: trunk/bin/is.pl
===================================================================
--- trunk/bin/is.pl	2011-06-15 12:52:42 UTC (rev 3252)
+++ trunk/bin/is.pl	2011-06-15 12:54:58 UTC (rev 3253)
@@ -527,6 +527,7 @@
     for my $i (1 .. $form->{rowcount}){
         $form->{"qty_$_"} *= -1;
     }
+    $form->{invnumber} .= '-VOID';
     $form->{reverse} = 1;
     &post_as_new;
 }


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