purchasing/supplier_invoice_grns.php

   1 <?php
   2
   3 $page_security = 5;
   4 $path_to_root="..";
   5
   6 include_once($path_to_root . "/purchasing/includes/supp_trans_class.inc");
   7 include_once($path_to_root . "/includes/session.inc");
   8 include_once($path_to_root . "/purchasing/includes/purchasing_ui.inc");
   9 include_once($path_to_root . "/purchasing/includes/purchasing_db.inc");
  10
  11 $js = "";
  12 if ($use_date_picker)
  13         $js .= get_js_date_picker();
  14 if ($use_popup_windows)
  15         $js .= get_js_open_window(900, 500);
  16 page(_("Select Received Items to Add"), false, false, "", $js);
  17
  18 if (!isset($_SESSION['supp_trans']))
  19 {
  20         display_note("To enter supplier transactions the supplier must first be selected from the supplier selection screen, then the link to enter a supplier credit note must be clicked on.", 1, 0);;
  21         exit;
  22 }
  23
  24 //-----------------------------------------------------------------------------------------
  25
  26 display_heading($_SESSION['supp_trans']->supplier_name);
  27
  28 echo "<br>";
  29
  30 //-----------------------------------------------------------------------------------------
  31
  32 function check_data()
  33 {
  34         global $check_price_charged_vs_order_price,
  35                 $check_qty_charged_vs_del_qty;
  36         if (!check_num('this_quantity_inv', 0) || input_num('this_quantity_inv')==0)
  37         {
  38                 display_error( _("The quantity to invoice must be numeric and greater than zero."));
  39                 set_focus('this_quantity_inv');
  40                 return false;
  41         }
  42
  43         if (!check_num('ChgPrice'))
  44         {
  45                 display_error( _("The price is not numeric."));
  46                 set_focus('ChgPrice');
  47                 return false;
  48         }
  49
  50         if ($check_price_charged_vs_order_price == True)
  51         {
  52                 if ($_POST['order_price']!=input_num('ChgPrice')) {
  53                      if ($_POST['order_price']==0 ||
  54                         input_num('ChgPrice')/$_POST['order_price'] >
  55                             (1 + (sys_prefs::over_charge_allowance() / 100)))
  56                     {
  57                         display_error(_("The price being invoiced is more than the purchase order price by more than the allowed over-charge percentage. The system is set up to prohibit this. See the system administrator to modify the set up parameters if necessary.") .
  58                         _("The over-charge percentage allowance is :") . sys_prefs::over_charge_allowance() . "%");
  59                         set_focus('ChgPrice');
  60                         return false;
  61                     }
  62                 }
  63         }
  64
  65         if ($check_qty_charged_vs_del_qty == True)
  66         {
  67                 if (input_num('this_quantity_inv') / ($_POST['qty_recd'] - $_POST['prev_quantity_inv']) >
  68                         (1+ (sys_prefs::over_charge_allowance() / 100)))
  69                 {
  70                         display_error( _("The quantity being invoiced is more than the outstanding quantity by more than the allowed over-charge percentage. The system is set up to prohibit this. See the system administrator to modify the set up parameters if necessary.")
  71                         . _("The over-charge percentage allowance is :") . sys_prefs::over_charge_allowance() . "%");
  72                         set_focus('this_quantity_inv');
  73                         return false;
  74                 }
  75         }
  76
  77         return true;
  78 }
  79
  80 //-----------------------------------------------------------------------------------------
  81
  82 if (isset($_POST['AddGRNToTrans']))
  83 {
  84
  85         if (check_data())
  86         {
  87         if (input_num('this_quantity_inv') >= ($_POST['qty_recd'] - $_POST['prev_quantity_inv']))
  88         {
  89                 $complete = true;
  90         }
  91         else
  92         {
  93                 $complete = false;
  94         }
  95
  96                 $_SESSION['supp_trans']->add_grn_to_trans($_POST['GRNNumber'], $_POST['po_detail_item'],
  97                         $_POST['item_code'], $_POST['item_description'], $_POST['qty_recd'],
  98                         $_POST['prev_quantity_inv'], input_num('this_quantity_inv'),
  99                         $_POST['order_price'], input_num('ChgPrice'), $complete,
 100                         $_POST['std_cost_unit'], "");
 101         }
 102 }
 103
 104 //-----------------------------------------------------------------------------------------
 105 $id = find_submit('Delete');
 106 if ($id != -1)
 107 {
 108         $_SESSION['supp_trans']->remove_grn_from_trans($id);
 109         $Ajax->activate('grn_items');
 110         $Ajax->activate('grn_table');
 111 }
 112
 113 //-----------------------------------------------------------------------------------------
 114 start_form(false,true);
 115 display_grn_items($_SESSION['supp_trans'], 1);
 116 end_form();
 117 echo "<br>";
 118
 119 hyperlink_no_params("$path_to_root/purchasing/supplier_invoice.php", _("Back to Supplier Invoice Entry"));
 120 echo "<hr>";
 121
 122 //-----------------------------------------------------------------------------------------
 123 start_form(false, true); // 2008-10-18 Joe Hunt. Moved form outside function
 124
 125 function display_grn_items_for_selection()
 126 {
 127         global $table_style;
 128
 129         div_start('grn_table'); // 2008-10-18 Joe Hunt Moved up a bit to compute num-rows = 0
 130         $result = get_grn_items(0, $_SESSION['supp_trans']->supplier_id, true);
 131
 132     if (db_num_rows($result) == 0)
 133     {
 134         display_note(_("There are no outstanding items received from this supplier that have not been invoiced by them."), 0, 1);
 135                 div_end(); // Changed 2008-10-18 Joe Hunt
 136         return;
 137     }
 138
 139     /*Set up a table to show the outstanding GRN items for selection */
 140
 141     display_heading2(_("Items Received Yet to be Invoiced"));
 142         //div_start('grn_table');
 143     start_table("$table_style colspan=7 width=95%");
 144     $th = array(_("Delivery"), _("Sequence #"), _("P.O."), _("Item"), _("Description"),
 145         _("Received On"), _("Quantity Received"), _("Quantity Invoiced"),
 146         _("Uninvoiced Quantity"), _("Order Price"), _("Total"));
 147     if ($_SESSION["wa_current_user"]->access == 2)      // Added 2008-10-18 by Joe Hunt. Only admins can remove GRNs
 148         $th[] = "";
 149     table_header($th);
 150     $i = $k = 0;
 151
 152     while ($myrow = db_fetch($result))
 153     {
 154                 $grn_already_on_invoice = false;
 155
 156         foreach ($_SESSION['supp_trans']->grn_items as $entered_grn)
 157         {
 158                 if ($entered_grn->id == $myrow["id"])
 159                 {
 160                         $grn_already_on_invoice = true;
 161                 }
 162         }
 163         if ($grn_already_on_invoice == false)
 164         {
 165
 166                         alt_table_row_color($k);
 167
 168                 label_cell(get_trans_view_str(25, $myrow["grn_batch_id"]));
 169                 //text_cells(null, 'grn_item_id', $myrow["id"]);
 170                 submit_cells('grn_item_id'.$myrow["id"], $myrow["id"], '', '', true);
 171                 label_cell(get_trans_view_str(systypes::po(), $myrow["purch_order_no"]));
 172             label_cell($myrow["item_code"]);
 173             label_cell($myrow["description"]);
 174             label_cell(sql2date($myrow["delivery_date"]));
 175             $dec = get_qty_dec($myrow["item_code"]);
 176             qty_cell($myrow["qty_recd"], false, $dec);
 177             qty_cell($myrow["quantity_inv"], false, $dec);
 178             qty_cell($myrow["qty_recd"] - $myrow["quantity_inv"], false, $dec);
 179             amount_cell($myrow["unit_price"]);
 180             amount_cell(round($myrow["unit_price"] * ($myrow["qty_recd"] - $myrow["quantity_inv"]),
 181                            user_price_dec()));
 182                 if ($_SESSION["wa_current_user"]->access == 2)  // Added 2008-10-18 by Joe Hunt. Only admins can remove GRNs
 183                         submit_cells('void_item_id'.$myrow["id"], _("Remove"), '', '', true);
 184                         end_row();
 185
 186                 $i++;
 187                 if ($i > 15)
 188                 {
 189                         $i = 0;
 190                         table_header($th);
 191                 }
 192         }
 193     }
 194
 195     end_table();
 196         div_end();
 197 }
 198
 199 //-----------------------------------------------------------------------------------------
 200 $id = find_submit('grn_item_id');
 201 $id2 = find_submit('void_item_id');
 202 if ($id != -1 || id2 != -1 || get_post('AddGRNToTrans'))
 203 {
 204         $Ajax->activate('grn_selector');
 205 }
 206 if (get_post('AddGRNToTrans') || $id2 != -1)
 207 {
 208         $Ajax->activate('grn_table');
 209         $Ajax->activate('grn_items');
 210 }
 211
 212 if ($_SESSION["wa_current_user"]->access == 2)
 213 {
 214         if ($id2 != -1) // Added section 2008-10-18 Joe Hunt for voiding delivery lines
 215         {
 216                 begin_transaction();
 217
 218                 $myrow = get_grn_item_detail($id2);
 219
 220                 $grn = get_grn_batch($myrow['grn_batch_id']);
 221
 222             $sql = "UPDATE ".TB_PREF."purch_order_details
 223                         SET quantity_received = qty_invoiced, quantity_ordered = qty_invoiced WHERE po_detail_item = ".$myrow["po_detail_item"];
 224             db_query($sql, "The quantity invoiced of the purchase order line could not be updated");
 225
 226             $sql = "UPDATE ".TB_PREF."grn_items
 227                 SET qty_recd = quantity_inv WHERE id = ".$myrow["id"];
 228                 db_query($sql, "The quantity invoiced off the items received record could not be updated");
 229
 230                 update_average_material_cost($grn["supplier_id"], $myrow["item_code"],
 231                         $myrow["unit_price"], -$myrow["QtyOstdg"], Today());
 232
 233                 add_stock_move(25, $myrow["item_code"], $myrow['grn_batch_id'], $grn['loc_code'], sql2date($grn["delivery_date"]), "",
 234                         -$myrow["QtyOstdg"], $myrow['std_cost_unit'], $grn["supplier_id"], 1, $myrow['unit_price']);
 235
 236                 commit_transaction();
 237         }
 238 }
 239
 240 display_grn_items_for_selection();
 241
 242 //-----------------------------------------------------------------------------------------
 243
 244 div_start('grn_selector');
 245
 246 //$id = find_submit('grn_item_id');
 247 if ($id != -1)
 248 {
 249
 250         $myrow = get_grn_item_detail($id);
 251
 252         echo "<br>";
 253         display_heading2(_("Delivery Item Selected For Adding To A Supplier Invoice"));
 254         start_table("$table_style width=80%");
 255         $th = array(_("Sequence #"), _("Item"), _("Description"), _("Quantity Outstanding"),
 256                 _("Quantity to Invoice"), _("Order Price"), _("Actual Price"));
 257         table_header($th);
 258
 259         start_row();
 260         label_cell($id);
 261         label_cell($myrow['item_code']);
 262         label_cell($myrow['description']);
 263         $dec = get_qty_dec($myrow['item_code']);
 264         qty_cell($myrow['QtyOstdg'], false, $dec);
 265         qty_cells(null, 'this_quantity_inv', number_format2($myrow['QtyOstdg'], $dec), null, null, $dec);
 266         amount_cell($myrow['unit_price']);
 267         small_amount_cells(null, 'ChgPrice', price_format($myrow['unit_price']));
 268         end_row();
 269         end_table(1);;
 270
 271         submit_center('AddGRNToTrans', _("Add to Invoice"), true, '', true);
 272
 273         hidden('GRNNumber', $id);
 274         hidden('item_code', $myrow['item_code']);
 275         hidden('item_description', $myrow['description']);;
 276         hidden('qty_recd', $myrow['qty_recd']);
 277         hidden('prev_quantity_inv', $myrow['quantity_inv']);
 278         hidden('order_price', $myrow['unit_price']);
 279         hidden('std_cost_unit', $myrow['std_cost_unit']);
 280
 281         hidden('po_detail_item', $myrow['po_detail_item']);
 282 }
 283 div_end();
 284
 285 //----------------------------------------------------------------------------------------
 286
 287 end_form();
 288 echo '<br>';
 289 end_page(false, true);
 290
 291 ?>