sales/includes/db/sales_invoice_db.inc

   1 <?php
   2 /**********************************************************************
   3     Copyright (C) FrontAccounting, LLC.
   4         Released under the terms of the GNU Affero General Public License,
   5         AGPL, as published by the Free Software Foundation, either version
   6         3 of the License, or (at your option) any later version.
   7     This program is distributed in the hope that it will be useful,
   8     but WITHOUT ANY WARRANTY; without even the implied warranty of
   9     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  10     See the License here <http://www.gnu.org/licenses/agpl-3.0.html>.
  11 ***********************************************************************/
  12 //-----------------------------------------------------------------------------
  13 //      Add or update Sales Invoice
  14 //
  15 function write_sales_invoice(&$invoice)
  16 {
  17
  18         $trans_no = $invoice->trans_no;
  19         if (is_array($trans_no))
  20                 $trans_no = key($trans_no);
  21
  22         $date_ = $invoice->document_date;
  23         $charge_shipping =$invoice->freight_cost;
  24
  25         begin_transaction();
  26
  27         $company_data = get_company_prefs();
  28
  29         $branch_data = get_branch_accounts($invoice->Branch);
  30
  31         $customer = get_customer($invoice->customer_id);
  32
  33         // offer price values without freight costs
  34         $items_total = $invoice->get_items_total_dispatch();
  35         $freight_tax = $invoice->get_shipping_tax();
  36
  37         $delivery_no = $invoice->src_docs;
  38         if (is_array($delivery_no))
  39                 $delivery_no = 0;
  40
  41         update_customer_trans_version(get_parent_type(10), $invoice->src_docs);
  42
  43         $ov_gst = 0;
  44         $taxes = $invoice->get_taxes(); // all taxes with freight_tax
  45
  46         foreach ($taxes as $taxitem) {
  47                 $ov_gst +=  $taxitem['Value'];
  48         }
  49
  50         if($invoice->tax_included==0) {
  51             $items_added_tax = $ov_gst-$freight_tax;
  52             $freight_added_tax = $freight_tax;
  53         } else {
  54             $items_added_tax = 0;
  55             $freight_added_tax = 0;
  56         }
  57         // 2006-06-14. If the Customer Branch AR Account is set to a Bank Account,
  58         // the transaction will be settled at once.
  59         if (is_bank_account($branch_data['receivables_account']))
  60                 $alloc = $items_total + $items_added_tax + $invoice->freight_cost + $freight_added_tax;
  61         else
  62                 $alloc = 0;
  63
  64         /* Insert/update the debtor_trans */
  65         $sales_order = $invoice->order_no;
  66         if (is_array($sales_order))
  67                         $sales_order = $sales_order[0]; // assume all crucial SO data are same for every delivery
  68
  69         $invoice_no = write_customer_trans(10, $trans_no, $invoice->customer_id,
  70                 $invoice->Branch, $date_, $invoice->reference, $items_total, 0,
  71                 $items_added_tax, $invoice->freight_cost, $freight_added_tax,
  72                 $invoice->sales_type, $sales_order, $delivery_no,
  73                 $invoice->ship_via, $invoice->due_date, $alloc, 0, $invoice->dimension_id, $invoice->dimension2_id);
  74                 // 2008-06-14 extra $alloc, 2008-11-12 added dimension_id Joe Hunt
  75
  76         if ($trans_no == 0) {
  77                 $invoice->trans_no = array($invoice_no=>0);
  78                 set_document_parent($invoice);
  79         } else {
  80                 delete_comments(10, $invoice_no);
  81                 void_gl_trans(10, $invoice_no, true);
  82                 void_cust_allocations(10, $invoice_no); // ?
  83                 void_trans_tax_details(10, $invoice_no);
  84         }
  85         $total = 0;
  86         foreach ($invoice->line_items as $invoice_line) {
  87
  88                 $line_taxfree_price = get_tax_free_price_for_item($invoice_line->stock_id,
  89                         $invoice_line->price, 0, $invoice->tax_included,
  90                         $invoice->tax_group_array);
  91
  92                 $line_tax = get_full_price_for_item($invoice_line->stock_id,
  93                         $invoice_line->price, 0, $invoice->tax_included,
  94                         $invoice->tax_group_array) - $line_taxfree_price;
  95
  96                 write_customer_trans_detail_item(10, $invoice_no, $invoice_line->stock_id,
  97                         $invoice_line->item_description, $invoice_line->qty_dispatched,
  98                         $invoice_line->line_price(), $line_tax, $invoice_line->discount_percent,
  99                         $invoice_line->standard_cost,
 100                         $trans_no ? $invoice_line->id : 0);
 101
 102                 // Update delivery items for the quantity invoiced
 103                 if ($invoice_line->qty_old != $invoice_line->qty_dispatched)
 104                         update_parent_line(10, $invoice_line->src_id, ($invoice_line->qty_dispatched-$invoice_line->qty_old));
 105
 106                 if ($invoice_line->qty_dispatched != 0) {
 107                         $stock_gl_code = get_stock_gl_code($invoice_line->stock_id);
 108
 109                         if ($invoice_line->line_price() != 0) {
 110                                 //Post sales transaction to GL credit sales
 111
 112                                 // 2008-06-14. If there is a Branch Sales Account, then override with this,
 113                                 // else take the Item Sales Account
 114                                 $sales_account = ($branch_data['sales_account'] != "" ? $branch_data['sales_account'] : $stock_gl_code['sales_account']);
 115                                 // 2008-08-01. If there is a Customer Dimension, then override with this,
 116                                 // else take the Item Dimension (if any)
 117                                 $dim = ($invoice->dimension_id != $customer['dimension_id'] ? $invoice->dimension_id :
 118                                         ($customer['dimension_id'] != 0 ? $customer["dimension_id"] : $stock_gl_code["dimension_id"]));
 119                                 $dim2 = ($invoice->dimension2_id != $customer['dimension2_id'] ? $invoice->dimension2_id :
 120                                         ($customer['dimension2_id'] != 0 ? $customer["dimension2_id"] : $stock_gl_code["dimension2_id"]));
 121                                 $total += add_gl_trans_customer(10, $invoice_no, $date_, $sales_account, $dim, $dim2,
 122                                         (-$line_taxfree_price * $invoice_line->qty_dispatched),
 123                                         $invoice->customer_id, "The sales price GL posting could not be inserted");
 124
 125                                 if ($invoice_line->discount_percent != 0) {
 126
 127                                         $total += add_gl_trans_customer(10, $invoice_no, $date_,
 128                                                 $branch_data["sales_discount_account"], $dim, $dim2,
 129                                                 ($line_taxfree_price * $invoice_line->qty_dispatched * $invoice_line->discount_percent),
 130                                                 $invoice->customer_id, "The sales discount GL posting could not be inserted");
 131                                 } /*end of if discount !=0 */
 132                         }
 133                 } /*quantity dispatched is more than 0 */
 134         } /*end of delivery_line loop */
 135
 136         if (($items_total + $charge_shipping) != 0) {
 137                 $total += add_gl_trans_customer(10, $invoice_no, $date_, $branch_data["receivables_account"], 0, 0,
 138                         ($items_total + $charge_shipping + $items_added_tax + $freight_added_tax),
 139                         $invoice->customer_id, "The total debtor GL posting could not be inserted");
 140         }
 141
 142         if ($charge_shipping != 0) {
 143                 $total += add_gl_trans_customer(10, $invoice_no, $date_, $company_data["freight_act"], 0, 0,
 144                         -$invoice->get_tax_free_shipping(), $invoice->customer_id,
 145                         "The freight GL posting could not be inserted");
 146         }
 147         // post all taxes
 148         foreach ($taxes as $taxitem) {
 149
 150                 if ($taxitem['Net'] != 0) {
 151                         $ex_rate = get_exchange_rate_from_home_currency(get_customer_currency($invoice->customer_id), $date_);
 152                         add_trans_tax_details(10, $invoice_no, $taxitem['tax_type_id'],
 153                                 $taxitem['rate'], $invoice->tax_included, $taxitem['Value'],
 154                                  $taxitem['Net'], $ex_rate, $date_, $invoice->reference);
 155
 156                         $total += add_gl_trans_customer(10, $invoice_no, $date_, $taxitem['sales_gl_code'], 0, 0,
 157                                 (-$taxitem['Value']), $invoice->customer_id,
 158                                 "A tax GL posting could not be inserted");
 159                 }
 160         }
 161
 162         /*Post a balance post if $total != 0 */
 163         add_gl_balance(10, $invoice_no, $date_, -$total, payment_person_types::customer(), $invoice->customer_id);
 164
 165         add_comments(10, $invoice_no, $date_, $invoice->Comments);
 166
 167         if ($trans_no == 0) {
 168                 references::save_last($invoice->reference, 10);
 169                 if ($invoice->cash) {
 170                         $amount = $items_total + $items_added_tax + $invoice->freight_cost
 171                                 + $freight_added_tax;
 172
 173                         // to use debtors.pmt_discount on cash sale:
 174                         // extend invoice entry page with final amount after discount
 175                         // and change line below.
 176                         $discount = 0; // $invoice->cash_discount*$amount;
 177                         $pmtno = write_customer_payment(0, $invoice->customer_id,
 178                                 $invoice->Branch, $invoice->cash_account, $date_,
 179                                 references::get_next(12), $amount-$discount, $discount,
 180                                 _('Cash invoice').' '.$invoice->trans_no);
 181                         add_cust_allocation($amount, 12, $pmtno, 10, $invoice_no);
 182
 183                         update_debtor_trans_allocation(10, $invoice_no, $amount);
 184                         update_debtor_trans_allocation(12, $pmtno, $amount);
 185                 }
 186         }
 187         commit_transaction();
 188
 189         return $invoice_no;
 190 }
 191
 192 //--------------------------------------------------------------------------------------------------
 193
 194 function void_sales_invoice($type, $type_no)
 195 {
 196         begin_transaction();
 197
 198         void_bank_trans($type, $type_no, true);
 199         void_gl_trans($type, $type_no, true);
 200
 201         // reverse all the changes in parent document(s)
 202         $items_result = get_customer_trans_details($type, $type_no);
 203
 204         $deliveries = get_parent_trans($type, $type_no);
 205
 206         if (count($deliveries)) {
 207                 $srcdetails = get_customer_trans_details(get_parent_type($type), $deliveries);
 208                 while ($row = db_fetch($items_result)) {
 209                         $src_line = db_fetch($srcdetails);
 210                         update_parent_line(10, $src_line['id'], -$row['quantity']);
 211                 }
 212         }
 213         // clear details after they've been reversed in the sales order
 214         void_customer_trans_details($type, $type_no);
 215
 216         void_trans_tax_details($type, $type_no);
 217
 218         void_cust_allocations($type, $type_no);
 219
 220         // do this last because other voidings can depend on it - especially voiding
 221         // DO NOT MOVE THIS ABOVE VOIDING or we can end up with trans with alloc < 0
 222         void_customer_trans($type, $type_no);
 223
 224         commit_transaction();
 225 }
 226
 227 ?>