[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb:[4883] trunk



Revision: 4883
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4883&view=rev
Author:   einhverfr
Date:     2012-06-10 10:39:16 +0000 (Sun, 10 Jun 2012)
Log Message:
-----------

Adding AR/AP transaction description to screen (already in db since 1.3 but unused)

Modified Paths:
--------------
    trunk/Changelog
    trunk/LedgerSMB/AA.pm
    trunk/LedgerSMB/Form.pm
    trunk/bin/aa.pl

Modified: trunk/Changelog
===================================================================
--- trunk/Changelog	2012-06-10 10:09:41 UTC (rev 4882)
+++ trunk/Changelog	2012-06-10 10:39:16 UTC (rev 4883)
@@ -17,6 +17,7 @@
 * invoice.unit is now unbounded numeric to reduce errors (Chris T, 3516235)
 * Invoices with inventory subject to draft/vouchers workflows (Chris T)
 * Added Equity (Temp) account type (Chris T)
+* Added description field to AR/AP transaction screen (Chris T)
 
 New RESTful Web Services Framework
 * Supports XML and JSON as input formats

Modified: trunk/LedgerSMB/AA.pm
===================================================================
--- trunk/LedgerSMB/AA.pm	2012-06-10 10:09:41 UTC (rev 4882)
+++ trunk/LedgerSMB/AA.pm	2012-06-10 10:39:16 UTC (rev 4883)
@@ -373,6 +373,7 @@
     $query = qq|
 		UPDATE $table 
 		SET invnumber = ?,
+                    description = ?,
 			ordnumber = ?,
 			transdate = ?,
 			taxincluded = ?,
@@ -390,8 +391,8 @@
 	|;
     
     my @queryargs = (
-        $form->{invnumber},     $form->{ordnumber},
-        $form->{transdate},     
+        $form->{invnumber},     $form->{description},    
+        $form->{ordnumber},     $form->{transdate},     
         $form->{taxincluded},   $invamount,
         $form->{duedate},       $paid,
         $datepaid,              $invnetamount,
@@ -400,7 +401,6 @@
         $form->{ponumber},      $form->{reverse},
         $form->{id}
     );
-
     $dbh->prepare($query)->execute(@queryargs) || $form->dberror($query);
     if (defined $form->{approved}) {
 

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2012-06-10 10:09:41 UTC (rev 4882)
+++ trunk/LedgerSMB/Form.pm	2012-06-10 10:39:16 UTC (rev 4883)
@@ -2334,7 +2334,8 @@
 				a.amount AS oldinvtotal, a.paid AS oldtotalpaid,
 				a.person_id, e.name AS employee, 
 				c.language_code, a.ponumber, a.reverse,
-                                a.approved, ctf.default_reportable
+                                a.approved, ctf.default_reportable, 
+                                a.description
 			FROM $arap a
 			JOIN entity_credit_account c 
 				ON (a.entity_credit_account = c.id)

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2012-06-10 10:09:41 UTC (rev 4882)
+++ trunk/bin/aa.pl	2012-06-10 10:39:16 UTC (rev 4883)
@@ -683,6 +683,12 @@
 	      $exchangerate
 	      $department
 	      $taxincluded
+            <tr>
+               <th align="right" nowrap>| . $locale->text('Description') . qq|
+               </th>
+               <td><input type="text" name="description" size="40" 
+                   value="| . $form->{description} . qq|" /></td>
+            </tr>
 	    </table>
 	  </td>
 	  <td align=right>

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