function print_credits() { global $path_to_root, $alternative_tax_include_on_docs, $suppress_tax_rates; include_once $path_to_root . "/reporting/includes/pdf_report.inc"; $from = $_POST['PARAM_0']; $to = $_POST['PARAM_1']; $currency = $_POST['PARAM_2']; $email = $_POST['PARAM_3']; $paylink = $_POST['PARAM_4']; $comments = $_POST['PARAM_5']; $orientation = $_POST['PARAM_6']; if (!$from || !$to) { return; } $orientation = $orientation ? 'L' : 'P'; $dec = 2; $fno = explode("-", $from); $tno = explode("-", $to); $from = min($fno[0], $tno[0]); $to = max($fno[0], $tno[0]); $cols = array(-20, 15, 20, 100, 130, 200, 255, 285, 335, 385, 440, 480, 550, 600); // $headers in doctext.inc $aligns = array('left', 'left', 'left', 'left', 'left', 'left', 'left', 'right', 'right', 'right', 'right', 'right'); $params = array('comments' => $comments); $cur = get_company_Pref('curr_default'); if ($email == 0) { $rep = new FrontReport(_('CREDIT NOTE'), "InvoiceBulk", user_pagesize(), 9, $orientation); } if ($orientation == 'L') { recalculate_cols($cols); } for ($i = $from; $i <= $to; $i++) { if (!exists_customer_trans(ST_CUSTCREDIT, $i)) { continue; } $sign = -1; $myrow = get_customer_trans($i, ST_CUSTCREDIT); $baccount = get_default_bank_account($myrow['curr_code']); $params['bankaccount'] = $baccount['id']; $branch = get_branch($myrow["branch_code"]); $branch['disable_branch'] = $paylink; // helper $sales_order = null; if ($email == 1) { $rep = new FrontReport("", "", user_pagesize(), 9, $orientation); $rep->title = _('CREDIT NOTE'); $rep->filename = "CreditNote" . $myrow['reference'] . ".pdf"; } $rep->SetHeaderType(0); $rep->currency = $cur; $rep->Font(); $rep->Info(null, $cols, null, $aligns); //$contacts = get_branch_contacts($branch['branch_code'], 'invoice', $branch['debtor_no'], true); //$rep->SetCommonData($myrow, $branch, $sales_order, $baccount, ST_CUSTCREDIT, $contacts); $rep->NewPage(); $result = get_customer_trans_details(ST_CUSTCREDIT, $i); $SubTotal = 0; //$data = get_custom_no($from, ST_CUSTCREDIT); $invoice_no = get_sales_invoice_no($myrow['order_'], ST_SALESINVOICE); $credit_no = get_custom_no($myrow['trans_no'], ST_CUSTCREDIT); $imc = get_imc_name($branch['branch_code']); $rep->NewLine(9); $rep->TextCol(6, 8, $myrow['TranDate']); $rep->NewLine(1); $oldrow = $rep->row; $rep->TextColLines(0, 12, $branch['br_name'], -2); $newrow = $rep->row; $rep->row = $oldrow; $rep->NewLine(3); $rep->TextCol(0, 3, "Ref. Invoice # " . $invoice_no, -2); $rep->TextCol(3, 5, "Credit#" . $credit_no, -2); $rep->TextCol(5, 8, $imc, -2); $rep->NewLine(2); $rep->NewLine(2); while ($myrow2 = db_fetch($result)) { if ($myrow2["quantity"] == 0) { continue; } $Net = round2($sign * ((1 - $myrow2["discount_percent"]) * $myrow2["unit_price"] * $myrow2["quantity"]), user_price_dec()); $SubTotal += $Net; $DisplayPrice = number_format2($myrow2["unit_price"], $dec); $DisplayQty = number_format2($sign * $myrow2["quantity"], get_qty_dec($myrow2['stock_id'])); $DisplayNet = number_format2($Net, $dec); if ($myrow2["discount_percent"] == 0) { $DisplayDiscount = ""; } else { $DisplayDiscount = number_format2($myrow2["discount_percent"] * 100, user_percent_dec()) . "%"; } //$rep->TextCol(4, 5, $myrow2['stock_id'], -2); $oldrow = $rep->row; $rep->TextColLines(2, 5, $myrow2['StockDescription'], -2); $newrow = $rep->row; $rep->row = $oldrow; $rep->TextCol(0, 1, $DisplayQty . " " . $myrow2['units'], -2); $rep->TextCol(6, 7, $DisplayPrice, -2); $rep->TextCol(7, 8, $DisplayNet, -2); $rep->row = $newrow; //$rep->NewLine(1); if ($rep->row < $rep->bottomMargin + 15 * $rep->lineHeight) { $rep->NewPage(); } } $memo = get_comments_string(ST_CUSTCREDIT, $i); if ($memo != "") { $rep->NewLine(); //$rep->TextColLines(1, 5, $memo, -2); } $DisplaySubTot = $SubTotal; $DisplayFreight = number_format2($sign * $myrow["ov_freight"], $dec); $DisplayTotal = $sign * ($myrow["ov_freight"] + $myrow["ov_gst"] + $myrow["ov_amount"] + $myrow["ov_freight_tax"]); $sub = $myrow["ov_freight"] + $myrow["ov_gst"] + $myrow["ov_amount"] + $myrow["ov_freight_tax"]; $Discount = abs($SubTotal) * ($myrow['bulk_discount'] / 100); //$rep->row = $rep->bottomMargin + (15 * $rep->lineHeight); $doctype = ST_CUSTCREDIT; $rep->NewLine(2); $rep->Font('bold'); $rep->TextCol(4, 7, _("Total Amount : "), -2); $rep->AmountCol(7, 8, $DisplaySubTot, 2); $rep->NewLine(); $rep->TextCol(4, 7, _("Volume Discount : "), -2); $rep->AmountCol(7, 8, $Discount, 2); $rep->NewLine(); $rep->TextCol(4, 7, _("Net Amount : "), -2); $rep->AmountCol(7, 8, $DisplayTotal, 2); $rep->Font(); if ($email == 1) { $myrow['dimension_id'] = $paylink; // helper for pmt link $rep->End($email); } } if ($email == 0) { $rep->End(); } }
function print_credits() { global $path_to_root, $alternative_tax_include_on_docs, $suppress_tax_rates; include_once $path_to_root . "/reporting/includes/pdf_report.inc"; $from = $_POST['PARAM_0']; $to = $_POST['PARAM_1']; $currency = $_POST['PARAM_2']; $email = $_POST['PARAM_3']; $paylink = $_POST['PARAM_4']; $comments = $_POST['PARAM_5']; $orientation = $_POST['PARAM_6']; if (!$from || !$to) { return; } $orientation = $orientation ? 'L' : 'P'; $dec = user_price_dec(); $fno = explode("-", $from); $tno = explode("-", $to); $from = min($fno[0], $tno[0]); $to = max($fno[0], $tno[0]); $cols = array(0, 10, 50, 100, 150, 200, 250, 300, 350, 380, 450, 480, 550, 600); // $headers in doctext.inc $aligns = array('center', 'left', 'left', 'left', 'left', 'left', 'left', 'left', 'right', 'right', 'right', 'right'); $params = array('comments' => $comments); $cur = get_company_Pref('curr_default'); if ($email == 0) { $rep = new FrontReport(_('CREDIT NOTE'), "InvoiceBulk", user_pagesize(), 9, $orientation); } if ($orientation == 'L') { recalculate_cols($cols); } for ($i = $from; $i <= $to; $i++) { if (!exists_customer_trans(ST_CUSTCREDIT, $i)) { continue; } $sign = -1; $myrow = get_customer_trans($i, ST_CUSTCREDIT); $baccount = get_default_bank_account($myrow['curr_code']); $params['bankaccount'] = $baccount['id']; $branch = get_branch($myrow["branch_code"]); $branch['disable_branch'] = $paylink; // helper $sales_order = null; if ($email == 1) { $rep = new FrontReport("", "", user_pagesize(), 9, $orientation); $rep->title = _('CREDIT NOTE'); $rep->filename = "CreditNote" . $myrow['reference'] . ".pdf"; } $rep->SetHeaderType(0); $rep->currency = $cur; $rep->Font(); $rep->Info(null, $cols, null, $aligns); //$contacts = get_branch_contacts($branch['branch_code'], 'invoice', $branch['debtor_no'], true); //$rep->SetCommonData($myrow, $branch, $sales_order, $baccount, ST_CUSTCREDIT, $contacts); $rep->NewPage(); $result = get_customer_trans_details(ST_CUSTCREDIT, $i); $SubTotal = 0; //$data = get_custom_no($from, ST_CUSTCREDIT); $invoice_no = get_sales_invoice_no($myrow['order_'], ST_SALESINVOICE); $imc = get_imc_name($branch['branch_code']); $rep->NewLine(8); $rep->TextCol(8, 10, "Date : " . $myrow['TranDate']); $rep->NewLine(2); $oldrow = $rep->row; $rep->TextColLines(3, 12, "Client : " . $branch['br_name'], -2); $newrow = $rep->row; $rep->row = $oldrow; $rep->NewLine(2); $rep->TextCol(3, 5, "Invoice # : " . $invoice_no, -2); $rep->TextCol(8, 10, "IMC: " . $imc, -2); $rep->NewLine(2); $rep->TextCol(3, 4, _("QTY")); $rep->TextCol(5, 7, _("DESCRIPTION")); $rep->TextCol(8, 9, _("PRICE")); $rep->TextCol(9, 10, _("AMOUNT")); $rep->NewLine(2); while ($myrow2 = db_fetch($result)) { if ($myrow2["quantity"] == 0) { continue; } $Net = round2($sign * ((1 - $myrow2["discount_percent"]) * $myrow2["unit_price"] * $myrow2["quantity"]), user_price_dec()); $SubTotal += $Net; $DisplayPrice = number_format2($myrow2["unit_price"], $dec); $DisplayQty = number_format2($sign * $myrow2["quantity"], get_qty_dec($myrow2['stock_id'])); $DisplayNet = number_format2($Net, $dec); if ($myrow2["discount_percent"] == 0) { $DisplayDiscount = ""; } else { $DisplayDiscount = number_format2($myrow2["discount_percent"] * 100, user_percent_dec()) . "%"; } //$rep->TextCol(4, 5, $myrow2['stock_id'], -2); $oldrow = $rep->row; $rep->TextColLines(4, 8, $myrow2['StockDescription'], -2); $newrow = $rep->row; $rep->row = $oldrow; $rep->TextCol(3, 4, $DisplayQty . " " . $myrow2['units'], -2); $rep->TextCol(8, 9, $DisplayPrice, -2); $rep->TextCol(9, 10, $DisplayNet, -2); $rep->row = $newrow; //$rep->NewLine(1); if ($rep->row < $rep->bottomMargin + 15 * $rep->lineHeight) { $rep->NewPage(); } } $memo = get_comments_string(ST_CUSTCREDIT, $i); if ($memo != "") { $rep->NewLine(); //$rep->TextColLines(1, 5, $memo, -2); } $DisplaySubTot = number_format2($SubTotal, $dec); $DisplayFreight = number_format2($sign * $myrow["ov_freight"], $dec); //$rep->row = $rep->bottomMargin + (15 * $rep->lineHeight); $doctype = ST_CUSTCREDIT; $rep->TextCol(7, 9, _("Sub-total"), -2); $rep->TextCol(9, 10, $DisplaySubTot, -2); $rep->NewLine(); $rep->TextCol(7, 9, _("Shipping"), -2); $rep->TextCol(9, 10, $DisplayFreight, -2); $rep->NewLine(); /*$tax_items = get_trans_tax_details(ST_CUSTCREDIT, $i); $first = true; while ($tax_item = db_fetch($tax_items)) { if ($tax_item['amount'] == 0) continue; $DisplayTax = number_format2($sign*$tax_item['amount'], $dec); if (isset($suppress_tax_rates) && $suppress_tax_rates == 1) $tax_type_name = $tax_item['tax_type_name']; else $tax_type_name = $tax_item['tax_type_name']." (".$tax_item['rate']."%) "; if ($tax_item['included_in_price']) { if (isset($alternative_tax_include_on_docs) && $alternative_tax_include_on_docs == 1) { if ($first) { $rep->TextCol(3, 6, _("Total Tax Excluded"), -2); $rep->TextCol(6, 7, number_format2($sign*$tax_item['net_amount'], $dec), -2); $rep->NewLine(); } $rep->TextCol(3, 6, $tax_type_name, -2); $rep->TextCol(6, 7, $DisplayTax, -2); $first = false; } else $rep->TextCol(3, 7, _("Included") . " " . $tax_type_name . _("Amount") . ": " . $DisplayTax, -2); } else { $rep->TextCol(3, 6, $tax_type_name, -2); $rep->TextCol(6, 7, $DisplayTax, -2); } $rep->NewLine(); }*/ $rep->NewLine(); $DisplayTotal = number_format2($sign * ($myrow["ov_freight"] + $myrow["ov_gst"] + $myrow["ov_amount"] + $myrow["ov_freight_tax"]), $dec); $rep->Font('bold'); $rep->TextCol(7, 9, _("TOTAL CREDIT"), -2); $rep->TextCol(9, 10, $DisplayTotal, -2); $words = price_in_words($myrow['Total'], ST_CUSTCREDIT); if ($words != "") { $rep->NewLine(1); $rep->TextCol(1, 7, $myrow['curr_code'] . ": " . $words, -2); } $rep->Font(); if ($email == 1) { $myrow['dimension_id'] = $paylink; // helper for pmt link $rep->End($email); } } if ($email == 0) { $rep->End(); } }