function print_po()
{
global $path_to_root;
include_once $path_to_root . "reporting/includes/pdf_report.inc";
$from = $_REQUEST['PARAM_0'];
$to = $_REQUEST['PARAM_1'];
$currency = $_REQUEST['PARAM_2'];
$bankaccount = $_REQUEST['PARAM_3'];
$email = $_REQUEST['PARAM_4'];
$comments = $_REQUEST['PARAM_5'];
if ($from == null) {
$from = 0;
}
if ($to == null) {
$to = 0;
}
$dec = user_price_dec();
$cols = array(4, 60, 225, 300, 325, 385, 450, 515);
// $headers in doctext.inc
$aligns = array('left', 'left', 'left', 'left', 'right', 'right', 'right');
$params = array('comments' => $comments, 'bankaccount' => $bankaccount);
$baccount = get_bank_account($params['bankaccount']);
$cur = get_company_Pref('curr_default');
if ($email == 0) {
$rep = new FrontReport(tr('PURCHASE ORDER'), "PurchaseOrderBulk.pdf", user_pagesize());
$rep->currency = $cur;
$rep->Font();
$rep->Info($params, $cols, null, $aligns);
}
for ($i = $from; $i <= $to; $i++) {
$myrow = get_po($i);
if ($email == 1) {
$rep = new FrontReport("", "", user_pagesize());
$rep->currency = $cur;
$rep->Font();
$rep->title = tr('PURCHASE ORDER');
$rep->filename = "PurchaseOrder" . $i . ".pdf";
$rep->Info($params, $cols, null, $aligns);
} else {
$rep->title = tr('PURCHASE ORDER');
}
$rep->Header2($myrow, null, $myrow, $baccount, 8);
$result = get_po_details($i);
$SubTotal = 0;
while ($myrow2 = db_fetch($result)) {
$Net = round($myrow2["unit_price"] * $myrow2["quantity_ordered"], user_price_dec());
$SubTotal += $Net;
$DisplayPrice = number_format2($myrow2["unit_price"], $dec);
$DisplayQty = number_format2($myrow2["quantity_ordered"], user_qty_dec());
$DisplayNet = number_format2($Net, $dec);
//$rep->TextCol(0, 1, $myrow2['item_code'], -2);
$rep->TextCol(0, 2, $myrow2['description'], -2);
$rep->TextCol(2, 3, $myrow2['delivery_date'], -2);
$rep->TextCol(3, 4, $DisplayQty, -2);
$rep->TextCol(4, 5, $myrow2['units'], -2);
$rep->TextCol(5, 6, $DisplayPrice, -2);
$rep->TextCol(6, 7, $DisplayNet, -2);
$rep->NewLine(1);
if ($rep->row < $rep->bottomMargin + 15 * $rep->lineHeight) {
$rep->Header2($myrow, $branch, $sales_order, $baccount);
}
}
if ($myrow['comments'] != "") {
$rep->NewLine();
$rep->TextColLines(1, 5, $myrow['comments'], -2);
}
$DisplaySubTot = number_format2($SubTotal, $dec);
$rep->row = $rep->bottomMargin + 15 * $rep->lineHeight;
$linetype = true;
$doctype = 8;
if ($rep->currency != $myrow['curr_code']) {
include $path_to_root . "reporting/includes/doctext2.inc";
} else {
include $path_to_root . "reporting/includes/doctext.inc";
}
$rep->TextCol(3, 6, $doc_Sub_total, -2);
$rep->TextCol(6, 7, $DisplaySubTot, -2);
$rep->NewLine();
$DisplayTotal = number_format2($SubTotal, $dec);
$rep->Font('bold');
$rep->TextCol(3, 6, $doc_TOTAL_PO, -2);
$rep->TextCol(6, 7, $DisplayTotal, -2);
$rep->Font();
if ($email == 1) {
$myrow['contact_email'] = $myrow['email'];
$myrow['DebtorName'] = $myrow['supp_name'];
$myrow['reference'] = $myrow['order_no'];
$rep->End($email, $doc_Order_no . " " . $myrow['reference'], $myrow);
}
}
if ($email == 0) {
$rep->End();
}
}
function print_statements()
{
global $path_to_root;
include_once $path_to_root . "reporting/includes/pdf_report.inc";
$customer = $_REQUEST['PARAM_0'];
$currency = $_REQUEST['PARAM_1'];
$bankaccount = $_REQUEST['PARAM_2'];
$email = $_REQUEST['PARAM_3'];
$comments = $_REQUEST['PARAM_4'];
$dec = user_price_dec();
$cols = array(4, 100, 130, 190, 250, 320, 385, 450, 515);
//$headers in doctext.inc
$aligns = array('left', 'left', 'left', 'left', 'right', 'right', 'right', 'right');
$params = array('comments' => $comments, 'bankaccount' => $bankaccount);
$baccount = get_bank_account($params['bankaccount']);
$cur = get_company_pref('curr_default');
$PastDueDays1 = get_company_pref('past_due_days');
$PastDueDays2 = 2 * $PastDueDays1;
if ($email == 0) {
$rep = new FrontReport(tr('STATEMENT'), "StatementBulk.pdf", user_pagesize());
$rep->currency = $cur;
$rep->Font();
$rep->Info($params, $cols, null, $aligns);
}
$sql = "SELECT debtor_no, name AS DebtorName, address, tax_id, email, curr_code, curdate() AS tran_date, payment_terms FROM debtors_master";
if ($customer != reserved_words::get_all_numeric()) {
$sql .= " WHERE debtor_no = {$customer}";
} else {
$sql .= " ORDER by name";
}
$result = db_query($sql, "The customers could not be retrieved");
while ($myrow = db_fetch($result)) {
$date = date('Y-m-d');
$myrow['order_'] = "";
$TransResult = getTransactions($myrow['debtor_no'], $date);
if (db_num_rows($TransResult) == 0) {
continue;
}
if ($email == 1) {
$rep = new FrontReport("", "", user_pagesize());
$rep->currency = $cur;
$rep->Font();
$rep->title = tr('STATEMENT');
$rep->filename = "Statement" . $myrow['debtor_no'] . ".pdf";
$rep->Info($params, $cols, null, $aligns);
}
$rep->Header2($myrow, null, null, $baccount, 12);
$rep->NewLine();
$linetype = true;
$doctype = 12;
if ($rep->currency != $myrow['curr_code']) {
include $path_to_root . "reporting/includes/doctext2.inc";
} else {
include $path_to_root . "reporting/includes/doctext.inc";
}
$rep->fontSize += 2;
$rep->TextCol(0, 8, $doc_Outstanding);
$rep->fontSize -= 2;
$rep->NewLine(2);
while ($myrow2 = db_fetch($TransResult)) {
$DisplayTotal = number_format2(Abs($myrow2["TotalAmount"]), $dec);
$DisplayAlloc = number_format2($myrow2["Allocated"], $dec);
if ($myrow2['type'] == 10) {
$DisplayNet = number_format2($myrow2["TotalAmount"] - $myrow2["Allocated"], $dec);
} else {
$DisplayNet = number_format2($myrow2["TotalAmount"] + $myrow2["Allocated"], $dec);
}
$rep->TextCol(0, 1, $myrow2['type_name'], -2);
$rep->TextCol(1, 2, $myrow2['reference'], -2);
$rep->TextCol(2, 3, sql2date($myrow2['tran_date']), -2);
if ($myrow2['type'] == 10) {
$rep->TextCol(3, 4, sql2date($myrow2['due_date']), -2);
}
if ($myrow2['TotalAmount'] > 0.0) {
$rep->TextCol(4, 5, $DisplayTotal, -2);
} else {
$rep->TextCol(5, 6, $DisplayTotal, -2);
}
$rep->TextCol(6, 7, $DisplayAlloc, -2);
$rep->TextCol(7, 8, $DisplayNet, -2);
$rep->NewLine();
if ($rep->row < $rep->bottomMargin + 10 * $rep->lineHeight) {
$rep->Header2($myrow, null, null, $baccount);
}
}
$nowdue = "1-" . $PastDueDays1 . " " . $doc_Days;
$pastdue1 = $PastDueDays1 + 1 . "-" . $PastDueDays2 . " " . $doc_Days;
$pastdue2 = $doc_Over . " " . $PastDueDays2 . " " . $doc_Days;
$CustomerRecord = get_customer_details($myrow['debtor_no']);
$str = array($doc_Current, $nowdue, $pastdue1, $pastdue2, $doc_Total_Balance);
$str2 = array(number_format2($CustomerRecord["Balance"] - $CustomerRecord["Due"], $dec), number_format2($CustomerRecord["Due"] - $CustomerRecord["Overdue1"], $dec), number_format2($CustomerRecord["Overdue1"] - $CustomerRecord["Overdue2"], $dec), number_format2($CustomerRecord["Overdue2"], $dec), number_format2($CustomerRecord["Balance"], $dec));
$col = array($rep->cols[0], $rep->cols[0] + 110, $rep->cols[0] + 210, $rep->cols[0] + 310, $rep->cols[0] + 410, $rep->cols[0] + 510);
$rep->row = $rep->bottomMargin + 8 * $rep->lineHeight;
for ($i = 0; $i < 5; $i++) {
$rep->TextWrap($col[$i], $rep->row, $col[$i + 1] - $col[$i], $str[$i], 'right');
}
$rep->NewLine();
for ($i = 0; $i < 5; $i++) {
$rep->TextWrap($col[$i], $rep->row, $col[$i + 1] - $col[$i], $str2[$i], 'right');
}
if ($email == 1) {
$rep->End($email, $doc_Statement . " " . $doc_as_of . " " . sql2date($date), $myrow, 12);
}
}
if ($email == 0) {
$rep->End();
}
}
function print_deliveries()
{
global $path_to_root;
include_once $path_to_root . "reporting/includes/pdf_report.inc";
$from = $_REQUEST['PARAM_0'];
$to = $_REQUEST['PARAM_1'];
$email = $_REQUEST['PARAM_2'];
$comments = $_REQUEST['PARAM_3'];
if ($from == null) {
$from = 0;
}
if ($to == null) {
$to = 0;
}
$dec = user_price_dec();
$fno = explode("-", $from);
$tno = explode("-", $to);
$cols = array(5, 70, 260, 340, 365, 420, 470, 520);
// $headers in doctext.inc
$aligns = array('left', 'left', 'right', 'left', 'right', 'right', 'right');
$params = array('comments' => $comments);
$cur = get_company_Pref('curr_default');
if ($email == 0) {
$rep = new FrontReport(tr('DELIVERY'), "DeliveryNoteBulk.pdf", user_pagesize());
$rep->currency = $cur;
$rep->fontSize = 10;
$rep->Font();
$rep->Info($params, $cols, null, $aligns);
}
for ($i = $fno[0]; $i <= $tno[0]; $i++) {
if (!exists_customer_trans(13, $i)) {
continue;
}
$myrow = get_customer_trans($i, 13);
$sales_order = get_sales_order_header($myrow["order_"]);
// ?
$branch = get_branch($myrow["branch_code"]);
$lang = $branch["lang_code"];
// get language from customer
readstrings($lang);
$tax_group_id = $branch['tax_group_id'];
$tax_rate = 0;
$tax_name = '';
$msg = "Error retrieving tax values";
$sql = "select rate from tax_group_items ";
$sql = $sql . "where tax_group_id=" . $tax_group_id . " limit 1";
$result1 = db_query($sql, $msg);
if (db_num_rows($result1) != 0) {
$myrow1 = db_fetch_row($result1);
$tax_rate = $myrow1[0];
}
$sql = "select name from tax_groups ";
$sql = $sql . "where id=" . $tax_group_id . " limit 1";
$result1 = db_query($sql, $msg);
if (db_num_rows($result1) != 0) {
$myrow1 = db_fetch_row($result1);
$tax_name = $myrow1[0];
}
$tax_included = 0;
if ($email == 1) {
$rep = new FrontReport("", "", user_pagesize());
$rep->currency = $cur;
$rep->Font();
$rep->title = tr('DELIVERY NOTE');
$rep->filename = "Delivery" . $myrow['reference'] . ".pdf";
$rep->Info($params, $cols, null, $aligns);
} else {
$rep->title = tr('DELIVERY NOTE');
}
$rep->Header2($myrow, $branch, $sales_order, '', 13);
$result = get_customer_trans_details(13, $i);
$SubTotal = 0;
while ($myrow2 = db_fetch($result)) {
$Net = round((1 - $myrow2["discount_percent"]) * $myrow2["unit_price"] * $myrow2["quantity"], user_price_dec());
$SubTotal += $Net;
$DisplayPrice = number_format2($myrow2["unit_price"], $dec, 1);
$DisplayQty = number_format2($myrow2["quantity"], user_qty_dec(), 1);
$DisplayNet = number_format2($Net, $dec, 1);
$DisplayDate = sql2date($myrow2["date_from"], 1);
if ($myrow2["discount_percent"] == 0) {
$DisplayDiscount = "";
} else {
$DisplayDiscount = number_format2($myrow2["discount_percent"] * 100, user_percent_dec(), 1) . "%";
}
$rep->TextCol(0, 1, $myrow2['stock_id'], -2);
$rep->TextCol(1, 2, $DisplayDate . " " . $myrow2['description'], -2);
$rep->TextCol(2, 3, $DisplayQty, -2);
$rep->TextCol(3, 4, $myrow2['units'], -2);
$rep->TextCol(4, 5, $DisplayPrice, -2);
$rep->TextCol(5, 6, $DisplayDiscount, -2);
$rep->TextCol(6, 7, $DisplayNet, -2);
$rep->NewLine(1);
if ($rep->row < $rep->bottomMargin + 15 * $rep->lineHeight) {
$rep->Header2($myrow, $branch, $sales_order, '', 13);
}
}
$comments = get_comments(13, $i);
if ($comments && db_num_rows($comments)) {
$rep->NewLine();
while ($comment = db_fetch($comments)) {
$rep->TextColLines(0, 6, $comment['memo_'], -2);
}
}
$DisplaySubTot = number_format2($SubTotal, $dec, 1);
$DisplayFreight = number_format2($myrow["ov_freight"], $dec, 1);
$rep->row = $rep->bottomMargin + 15 * $rep->lineHeight;
$linetype = true;
$doctype = 13;
if ($rep->currency != $myrow['curr_code']) {
include $path_to_root . "reporting/includes/doctext.inc";
} else {
include $path_to_root . "reporting/includes/doctext.inc";
}
$amount = $myrow["ov_freight"] + $SubTotal;
$subtotal3 = number_format2($amount, $dec, 1);
$rep->TextCol(3, 6, $doc_Sub_total, -2);
$rep->TextCol(6, 7, $DisplaySubTot, -2);
$rep->NewLine();
$rep->TextCol(3, 6, $doc_Shipping, -2);
$rep->TextCol(6, 7, $DisplayFreight, -2);
$rep->NewLine();
$rep->TextCol(3, 6, $doc_Sub_total, -2);
$rep->TextCol(6, 7, $subtotal3, -2);
$rep->NewLine();
$amount_tax = $amount / 100 * $tax_rate;
if ($rep->currency == 'CHF') {
$val = $amount_tax;
$val1 = floatval(intval(round($val * 20, 0)) / 20);
$amount_tax = $val1;
}
$amount_tot = $amount + $amount_tax;
$DisplayTax = number_format2($amount_tax, $dec, 1);
$DisplayTotal = number_format2($amount_tot, $dec, 1);
if ($tax_included) {
$rep->TextCol(3, 7, $doc_Included . " " . $tax_nmae . " (" . $tax_rate . "%) " . $doc_Amount . ":" . $DisplayTax, -2);
} else {
$rep->TextCol(3, 6, $tax_name . " (" . $tax_rate . "%)", -2);
$rep->TextCol(6, 7, $DisplayTax, -2);
}
$rep->NewLine();
$rep->Font('bold');
$rep->TextCol(3, 6, $doc_TOTAL_DELIVERY, -2);
$rep->TextCol(6, 7, $DisplayTotal, -2);
$rep->Font();
/*
$tax_items = get_customer_trans_tax_details(13, $i);
while ($tax_item = db_fetch($tax_items))
{
$DisplayTax = number_format2($tax_item['amount'], $dec,1);
if ($tax_item['included_in_price'])
{
$rep->TextCol(3, 7, $doc_Included . " " . $tax_item['tax_type_name'] .
" (" . $tax_item['rate'] . "%) " . $doc_Amount . ":" . $DisplayTax, -2);
}
else
{
$rep->TextCol(3, 6, $tax_item['tax_type_name'] . " (" .
$tax_item['rate'] . "%)", -2);
$rep->TextCol(6, 7, $DisplayTax, -2);
}
$rep->NewLine();
}
//$rep->NewLine();
$DisplayTotal = number_format2($myrow["ov_freight"] +$myrow["ov_freight_tax"] + $myrow["ov_gst"] +
$myrow["ov_amount"],$dec,1);
$rep->Font('bold');
$rep->TextCol(3, 6, $doc_TOTAL_DELIVERY, - 2);
$rep->TextCol(6, 7, $DisplayTotal, -2);
$rep->Font();
*/
if ($email == 1) {
$myrow['dimension_id'] = $paylink;
// helper for pmt link
if ($myrow['email'] == '') {
$myrow['email'] = $branch['email'];
$myrow['DebtorName'] = $branch['br_name'];
}
$rep->End($email, $doc_Delivery_no . " " . $myrow['reference'], $myrow, 13);
}
}
if ($email == 0) {
$rep->End();
}
}
function printit($from, $to, $currency, $bank, $email, $quote, $comments, $file)
{
global $path_to_root;
global $print_as_quote;
include_once $path_to_root . "reporting/includes/pdf_report.inc";
$dec = user_price_dec();
$cols = array(5, 70, 260, 340, 365, 420, 470, 520);
// $headers in doctext.inc
$aligns = array('left', 'left', 'right', 'left', 'right', 'right', 'right');
$params = array('comments' => $comments, 'bankaccount' => $bankaccount);
$baccount = get_bank_account($params['bankaccount']);
$cur = get_company_Pref('curr_default');
if ($quote == 1) {
$print_as_quote = 1;
}
if ($email == 0) {
if ($quote == 1) {
$rep = new FrontReport(tr("QUOTE"), "QuoteBulk.pdf", user_pagesize());
} else {
$rep = new FrontReport(tr("SALES ORDER"), "SalesOrderBulk.pdf", user_pagesize());
}
$rep->currency = $cur;
$rep->fontSize = 10;
$rep->Font();
$rep->Info($params, $cols, null, $aligns);
}
for ($i = $from; $i <= $to; $i++) {
$myrow = get_sales_order_header($i);
$branch = get_branch($myrow["branch_code"]);
$lang = $branch["lang_code"];
// get language from customer
readstrings($lang);
$tax_group_id = $branch['tax_group_id'];
$tax_rate = 0;
$tax_name = '';
$msg = "Error retrieving tax values";
$sql = "select rate from tax_group_items ";
$sql = $sql . "where tax_group_id=" . $tax_group_id . " limit 1";
$result1 = db_query($sql, $msg);
if (db_num_rows($result1) != 0) {
$myrow1 = db_fetch_row($result1);
$tax_rate = $myrow1[0];
}
$sql = "select name from tax_groups ";
$sql = $sql . "where id=" . $tax_group_id . " limit 1";
$result1 = db_query($sql, $msg);
if (db_num_rows($result1) != 0) {
$myrow1 = db_fetch_row($result1);
$tax_name = $myrow1[0];
}
$tax_included = 0;
if ($email == 1) {
$rep = new FrontReport("", "", user_pagesize());
$rep->currency = $cur;
$rep->Font();
if ($quote == 1) {
$rep->title = tr("QUOTE");
$rep->filename = "Quote" . $i . ".pdf";
} else {
$rep->title = tr("SALES ORDER");
$rep->filename = "SalesOrder" . $i . ".pdf";
}
$rep->Info($params, $cols, null, $aligns);
} else {
$rep->title = $quote == 1 ? tr("QUOTE") : tr("SALES ORDER");
}
$rep->Header2($myrow, $branch, $myrow, $baccount, 9);
$result = get_sales_order_details($i);
$SubTotal = 0;
while ($myrow2 = db_fetch($result)) {
$Net = round((1 - $myrow2["discount_percent"]) * $myrow2["unit_price"] * $myrow2["quantity"], user_price_dec());
$SubTotal += $Net;
$DisplayPrice = number_format2($myrow2["unit_price"], $dec, 1);
$DisplayQty = number_format2($myrow2["quantity"], user_qty_dec(), 1);
$DisplayNet = number_format2($Net, $dec, 1);
$DisplayDate = sql2date($myrow2["date_from"], 1);
if ($myrow2["discount_percent"] == 0) {
$DisplayDiscount = "";
} else {
$DisplayDiscount = number_format2($myrow2["discount_percent"] * 100, user_percent_dec(), 1) . "%";
}
$rep->TextCol(0, 1, $myrow2['stk_code'], -2);
$rep->TextCol(1, 2, $DisplayDate . " " . $myrow2['description'], -2);
$rep->TextCol(2, 3, $DisplayQty, -2);
$rep->TextCol(3, 4, $myrow2['units'], -2);
$rep->TextCol(4, 5, $DisplayPrice, -2);
$rep->TextCol(5, 6, $DisplayDiscount, -2);
$rep->TextCol(6, 7, $DisplayNet, -2);
$rep->NewLine(1);
if ($rep->row < $rep->bottomMargin + 15 * $rep->lineHeight) {
$rep->Header2($myrow, $branch, $sales_order, $baccount);
}
if ($myrow2['notes'] != "") {
$rep->TextColLines(1, 2, $myrow2['notes'], -2);
}
}
if ($myrow['comments'] != "") {
$rep->NewLine();
$rep->TextColLines(1, 5, $myrow['comments'], -2);
}
$DisplaySubTot = number_format2($SubTotal, $dec, 1);
$DisplayFreight = number_format2($myrow["freight_cost"], $dec, 1);
$rep->row = $rep->bottomMargin + 15 * $rep->lineHeight;
$linetype = true;
$doctype = 9;
if ($rep->currency != $myrow['curr_code']) {
include $path_to_root . "reporting/includes/doctext.inc";
} else {
include $path_to_root . "reporting/includes/doctext.inc";
}
$amount = $myrow["freight_cost"] + $SubTotal;
$subtotal3 = number_format2($amount, $dec, 1);
$rep->TextCol(3, 6, $doc_Sub_total, -4);
$rep->TextCol(6, 7, $DisplaySubTot, -4);
$rep->NewLine();
$rep->TextCol(3, 6, $doc_Shipping, -3);
$rep->TextCol(6, 7, $DisplayFreight, -3);
$rep->NewLine();
$rep->TextCol(3, 6, $doc_Sub_total, -2);
$rep->TextCol(6, 7, $subtotal3, -2);
$rep->NewLine();
$amount_tax = $amount / 100 * $tax_rate;
if ($rep->currency == 'CHF') {
$val = $amount_tax;
$val1 = floatval(intval(round($val * 20, 0)) / 20);
$amount_tax = $val1;
}
$amount_tot = $amount + $amount_tax;
$DisplayTax = number_format2($amount_tax, $dec, 1);
$DisplayTotal = number_format2($amount_tot, $dec, 1);
if ($tax_included) {
$rep->TextCol(3, 7, $doc_Included . " " . $tax_nmae . " (" . $tax_rate . "%) " . $doc_Amount . ":" . $DisplayTax, -2);
} else {
$rep->TextCol(3, 6, $tax_name . " (" . $tax_rate . "%)", -2);
$rep->TextCol(6, 7, $DisplayTax, -2);
}
$rep->NewLine();
$rep->Font('bold');
$rep->TextCol(3, 6, $doc_TOTAL_ORDER_INCL, -2);
$rep->TextCol(6, 7, $DisplayTotal, -2);
$rep->Font();
if ($email == 1) {
if ($myrow['contact_email'] == '') {
$myrow['contact_email'] = $branch['email'];
$myrow['DebtorName'] = $branch['br_name'];
}
$rep->End($file);
}
}
if ($email == 0) {
$rep->End($file);
}
}
