X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=reporting%2Frep112.php;h=4662a785ea92f04c33ae471eb0910fd0ef62cc97;hb=5e8a0ec17ca39d933e8127c69aef02825725e236;hp=07e312cd9a514a24ed13859e25b0e71981926434;hpb=a3c366442e07bfa82a326df8fea3d9d4b35a3dd8;p=fa-stable.git diff --git a/reporting/rep112.php b/reporting/rep112.php index 07e312cd..4662a785 100644 --- a/reporting/rep112.php +++ b/reporting/rep112.php @@ -16,7 +16,7 @@ $page_security = $_POST['PARAM_0'] == $_POST['PARAM_1'] ? // $ Revision: 2.0 $ // Creator: Joe Hunt // date_: 2005-05-19 -// Title: Purchase Orders +// Title: Receipts // ---------------------------------------------------------------- $path_to_root=".."; @@ -33,11 +33,13 @@ function get_receipt($type, $trans_no) { $sql = "SELECT ".TB_PREF."debtor_trans.*, (".TB_PREF."debtor_trans.ov_amount + ".TB_PREF."debtor_trans.ov_gst + ".TB_PREF."debtor_trans.ov_freight + - ".TB_PREF."debtor_trans.ov_freight_tax + ".TB_PREF."debtor_trans.ov_discount) AS Total, + ".TB_PREF."debtor_trans.ov_freight_tax) AS Total, + ".TB_PREF."debtor_trans.ov_discount, ".TB_PREF."debtors_master.name AS DebtorName, ".TB_PREF."debtors_master.debtor_ref, - ".TB_PREF."debtors_master.curr_code, ".TB_PREF."debtors_master.payment_terms, ".TB_PREF."debtors_master.tax_id AS tax_id, - ".TB_PREF."debtors_master.email, ".TB_PREF."debtors_master.address - FROM ".TB_PREF."debtor_trans, ".TB_PREF."debtors_master + ".TB_PREF."debtors_master.curr_code, ".TB_PREF."debtors_master.payment_terms, " + .TB_PREF."debtors_master.tax_id AS tax_id, + ".TB_PREF."debtors_master.address + FROM ".TB_PREF."debtor_trans, ".TB_PREF."debtors_master WHERE ".TB_PREF."debtor_trans.debtor_no = ".TB_PREF."debtors_master.debtor_no AND ".TB_PREF."debtor_trans.type = ".db_escape($type)." AND ".TB_PREF."debtor_trans.trans_no = ".db_escape($trans_no); @@ -69,15 +71,17 @@ function print_receipts() $to = $_POST['PARAM_1']; $currency = $_POST['PARAM_2']; $comments = $_POST['PARAM_3']; + $orientation = $_POST['PARAM_4']; - if ($from == null) - $from = 0; - if ($to == null) - $to = 0; + 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(4, 85, 150, 225, 275, 360, 450, 515); @@ -88,45 +92,41 @@ function print_receipts() $cur = get_company_Pref('curr_default'); - if ($email == 0) - { - $rep = new FrontReport(_('RECEIPT'), "ReceiptBulk", user_pagesize()); - $rep->currency = $cur; - $rep->Font(); - $rep->Info($params, $cols, null, $aligns); - } + $rep = new FrontReport(_('RECEIPT'), "ReceiptBulk", user_pagesize(), 9, $orientation); + if ($orientation == 'L') + recalculate_cols($cols); + $rep->SetHeaderType('Header2'); + $rep->currency = $cur; + $rep->Font(); + $rep->Info($params, $cols, null, $aligns); - for ($i = $fno[0]; $i <= $tno[0]; $i++) + for ($i = $from; $i <= $to; $i++) { if ($fno[0] == $tno[0]) $types = array($fno[1]); else - $types = array(ST_BANKDEPOSIT, ST_CUSTPAYMENT, ST_CUSTCREDIT); + $types = array(ST_BANKDEPOSIT, ST_CUSTPAYMENT); foreach ($types as $j) { $myrow = get_receipt($j, $i); if (!$myrow) continue; - $baccount = get_default_bank_account($myrow['curr_code']); - $params['bankaccount'] = $baccount['id']; + if ($currency != ALL_TEXT && $myrow['curr_code'] != $currency) { + continue; + } + $res = get_bank_trans($j, $i); + $baccount = db_fetch($res); + $params['bankaccount'] = $baccount['bank_act']; - $rep->title = _('RECEIPT'); - $rep->Header2($myrow, null, $myrow, $baccount, ST_CUSTPAYMENT); + $contacts = get_branch_contacts($myrow['branch_code'], 'invoice', $myrow['debtor_no']); + $rep->SetCommonData($myrow, null, $myrow, $baccount, ST_CUSTPAYMENT, $contacts); + $rep->NewPage(); $result = get_allocations_for_receipt($myrow['debtor_no'], $myrow['type'], $myrow['trans_no']); - $linetype = true; $doctype = ST_CUSTPAYMENT; - if ($rep->currency != $myrow['curr_code']) - { - include($path_to_root . "/reporting/includes/doctext2.inc"); - } - else - { - include($path_to_root . "/reporting/includes/doctext.inc"); - } $total_allocated = 0; - $rep->TextCol(0, 4, $doc_Towards, -2); + $rep->TextCol(0, 4, _("As advance / full / part / payment towards:"), -2); $rep->NewLine(2); while ($myrow2=db_fetch($result)) @@ -142,20 +142,34 @@ function print_receipts() $total_allocated += $myrow2['amt']; $rep->NewLine(1); if ($rep->row < $rep->bottomMargin + (15 * $rep->lineHeight)) - $rep->Header2($myrow, null, $myrow, $baccount, ST_CUSTPAYMENT); + $rep->NewPage(); + } + + $memo = get_comments_string($j, $i); + if ($memo != "") + { + $rep->NewLine(); + $rep->TextColLines(1, 5, $memo, -2); } - $rep->row = $rep->bottomMargin + (15 * $rep->lineHeight); + $rep->row = $rep->bottomMargin + (16 * $rep->lineHeight); - $rep->TextCol(3, 6, $doc_Total_Allocated, -2); + $rep->TextCol(3, 6, _("Total Allocated"), -2); $rep->AmountCol(6, 7, $total_allocated, $dec, -2); $rep->NewLine(); - $rep->TextCol(3, 6, $doc_Left_To_Allocate, -2); - $rep->AmountCol(6, 7, $myrow['Total'] - $total_allocated, $dec, -2); + $rep->TextCol(3, 6, _("Left to Allocate"), -2); + $rep->AmountCol(6, 7, $myrow['Total'] + $myrow['ov_discount'] - $total_allocated, $dec, -2); + if (floatcmp($myrow['ov_discount'], 0)) + { + $rep->NewLine(); + $rep->TextCol(3, 6, _("Discount"), - 2); + $rep->AmountCol(6, 7, -$myrow['ov_discount'], $dec, -2); + } $rep->NewLine(); $rep->Font('bold'); - $rep->TextCol(3, 6, $doc_Total_Payment, - 2); + $rep->TextCol(3, 6, _("TOTAL RECEIPT"), - 2); $rep->AmountCol(6, 7, $myrow['Total'], $dec, -2); + $words = price_in_words($myrow['Total'], ST_CUSTPAYMENT); if ($words != "") { @@ -164,22 +178,21 @@ function print_receipts() } $rep->Font(); $rep->NewLine(); - $rep->TextCol(6, 7, $doc_Received, - 2); + $rep->TextCol(6, 7, _("Received / Sign"), - 2); $rep->NewLine(); - $rep->TextCol(0, 2, $doc_by_Cheque, - 2); + $rep->TextCol(0, 2, _("By Cash / Cheque* / Draft No."), - 2); $rep->TextCol(2, 4, "______________________________", - 2); - $rep->TextCol(4, 5, $doc_Dated, - 2); + $rep->TextCol(4, 5, _("Dated"), - 2); $rep->TextCol(5, 6, "__________________", - 2); $rep->NewLine(1); - $rep->TextCol(0, 2, $doc_Drawn, - 2); + $rep->TextCol(0, 2, _("Drawn on Bank"), - 2); $rep->TextCol(2, 4, "______________________________", - 2); - $rep->TextCol(4, 5, $doc_Drawn_Branch, - 2); + $rep->TextCol(4, 5, _("Branch"), - 2); $rep->TextCol(5, 6, "__________________", - 2); $rep->TextCol(6, 7, "__________________"); } } - if ($email == 0) - $rep->End(); + $rep->End(); } ?> \ No newline at end of file