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();
}
}
