[Fmsystem-commits] [11619] property: vendor cat at export of voucher

[Sigurd Nes]

Revision: 11619
          http://svn.sv.gnu.org/viewvc/?view=rev&root=fmsystem&revision=11619
Author:   sigurdne
Date:     2014-01-22 16:34:43 +0000 (Wed, 22 Jan 2014)
Log Message:
-----------
property: vendor cat at export of voucher

Modified Paths:
--------------
    trunk/property/inc/export/default/Agresso_X114

Modified: trunk/property/inc/export/default/Agresso_X114
===================================================================
--- trunk/property/inc/export/default/Agresso_X114      2014-01-22 14:52:48 UTC 
(rev 11618)
+++ trunk/property/inc/export/default/Agresso_X114      2014-01-22 16:34:43 UTC 
(rev 11619)
@@ -930,10 +930,14 @@
 
                        if($accountline)
                        {
+                               $this->db->query('SELECT category FROM 
fm_vendor WHERE id=' . (int) $oRsBilag[0]['spvend_code']);
+                               $this->db->next_record();
+                               $_vendor_category = $this->db->f('category');
+
                                $accountline[] = array
                                (
                                        'TRANSACTIONTYPE'               => 
'R114',
-                                       'ACCOUNTLINK.CODE'              => 2400,
+                                       'ACCOUNTLINK.CODE'              => 
$_vendor_category == 1 ? 2400 : 2460,
                                        'CURRENCY'                              
=> $oRsBilag[0]['currency'],
                                        'AMOUNT'                                
=> (-1 * $sum_amount),
                                        'TAXCODE'                               
=> $oRsBilag[0]['mvakode'],