function asignar_ica()
{
$con = new con();
$msg = new messages();
$fun = new funciones();
$con->connect();
//Fecha
date_default_timezone_set("America/Bogota");
$fecha = date('Y-m-d G:i:s');
$filename = "I_" . date('YmdGis');
$filename .= ".html";
$content = "";
$hoy = date('Y-m-d');
$content .= "<h1>Informe, asignación de código ICA</h1>";
$content .= "<br>Fecha " . $fecha . "<br>";
$content .= "<br>Archivo generado: " . $filename . "<br>";
//traemos listado de despachos aprobados
$qry_des = 'SELECT * FROM tbl_despachos WHERE de_estado=2 AND de_ica = "" ORDER BY de_id';
$arr_des = $fun->get_array($qry_des);
$can_des = count($arr_des);
$content .= "cantidad de despachos aprobados: " . $can_des;
//$fun->print_array($arr_des);
for ($i = 0; $i < $can_des; $i++) {
$content .= "<pre>";
$content .= "<br> Despacho #" . $i;
// traemos el último ica disponible del paquete autorizado
$qry_rem = 'SELECT * FROM tbl_remisiones_fisicas WHERE rf_estado = 99 LIMIT 1;';
$arr_rem = $fun->get_array($qry_rem);
$content .= "<br> ->cantidad de consecutivos usados: " . $arr_rem[0]['rf_cant_usados'];
$restantes = $arr_rem[0]['rf_dig_fin'] - $arr_rem[0]['rf_dig_ini'] - $arr_rem[0]['rf_cant_usados'];
if ($restantes > 0) {
$content .= "<br> ->consecutivos restantes: " . $restantes;
$cons = $arr_rem[0]['rf_dig_fin'] - $restantes;
$content .= "<br> ->consecutivo a usar: " . $cons;
// lo asignamos al despacho actual y guardamos
$content .= "<br> ->despacho actual: " . $arr_des[$i]["de_id"];
$tbl_de = "despachos";
$cam_de = "de_ica = '" . $cons . "'";
$whe_de = "de_id = " . $arr_des[$i]["de_id"];
$res_de = $fun->actualizar($tbl_de, $cam_de, $whe_de);
$tbl_rf = "remisiones_fisicas";
$cam_rf = "rf_cant_usados = '" . ($arr_rem[0]['rf_cant_usados'] + 1) . "'";
$whe_rf = "rf_id = " . $arr_rem[0]['rf_id'];
$res_rf = $fun->actualizar($tbl_rf, $cam_rf, $whe_rf);
if ($res_de == true && $res_rf == true) {
$r = "sin problemas";
} else {
$r = "con problemas, comuniquese con soporte";
}
$content .= "<br>Actualización completada " . $r;
$content .= "</pre>";
}
}
$content .= "<hr>";
// generamos informe
$fun->create_file($content, $filename);
//echo $content;
$con->disconnect();
}
function programar_rutas()
{
$con = new con();
$msg = new messages();
$fun = new funciones();
$con->connect();
//Fecha
date_default_timezone_set("America/Bogota");
$fecha = date('Y-m-d G:i:s');
$filename = "R_" . date('YmdGis');
$filename .= ".html";
$content = "";
$hoy = date('Y-m-d');
$content .= "<h1>Informe, generacion de rutas</h1>";
$content .= "<br>Fecha " . $fecha . "<br>";
//traemos municipios
$qry_sn = "SELECT * FROM tbl_subnucleos ORDER BY sn_id ASC";
$res_sn = $fun->get_array($qry_sn);
if (!$res_sn) {
$content .= $msg->get_msg("e025");
} else {
//($res_sn);
//cantidad de sn:
$cant_sn = count($res_sn);
$content .= "Total Municipios: " . $cant_sn . "<br>";
for ($i = 0; $i < $cant_sn; $i++) {
$content .= "<h1>municipio nro: " . $res_sn[$i]["sn_id"] . "";
$content .= "=> " . $res_sn[$i]["sn_subnucleo"] . "</h1><br>";
//traemos conductores asociados
$qry_con = 'SELECT * FROM tbl_personas
INNER JOIN tbl_vehiculos ON ve_id = pe_ve_id
WHERE
pe_f1 = ' . $res_sn[$i]["sn_id"] . ' OR
pe_f2 = ' . $res_sn[$i]["sn_id"] . '
;';
//$content.= $qry_con;
/*HACE FALTA LA DOBLE VALIDACIÓN DE QUE ESTE NO ESTÉ ASIGNADO O SUGERIDO A OTRA FINCA*/
$res_con = $fun->get_array($qry_con);
$cant_con = count($res_con);
$content .= "<br> cantidad de conductores: " . $cant_con;
//para cada subnucleo, listamos sus respectivas fincas
$qry_fin = 'SELECT * FROM tbl_fincas WHERE fi_sn_id = ' . $res_sn[$i]["sn_id"] . ';';
$res_fin = $fun->get_array($qry_fin);
//traemos inventarios por cada finca
$cant_fin = count($res_fin);
$content .= "<br> cantidad de fincas: " . $cant_fin . "<br>";
$arr_inv = array();
$pos = 0;
$c = 0;
for ($j = 0; $j < $cant_fin; $j++) {
$qry_inv = 'SELECT * FROM tbl_inventario WHERE in_fi_id = ' . $res_fin[$j]["fi_id"] . ' AND in_mt_restante > 0 AND in_estado=1;';
//$content.= $qry_inv;
$res_inv = $fun->get_array($qry_inv);
$c = count($res_inv);
if ($c > 1) {
$pos = $pos + $c;
for ($k = 0; $k < $pos; $k++) {
$arr_inv[$k] = $res_inv[$k];
}
}
if ($c == 1) {
$arr_inv[$pos] = $res_inv[0];
$pos++;
}
}
$cant_inv = count($arr_inv);
$content .= "<br> <h4>cantidad de inventarios de este municipio: " . $cant_inv . "</h4>";
/*$content.= "<pre>";
print_r($arr_inv);
$content.= "</pre>";*/
//traemos turnos
$qry_tur = 'SELECT * FROM tbl_turnos ORDER BY tu_id ASC';
$res_tur = $fun->get_array($qry_tur);
//variables de sesión para cada inventario
for ($ci = 0; $ci < $cant_inv; $ci++) {
$id_inv = $arr_inv[$ci]["in_id"];
$_SESSION[$id_inv]["inv_rest"] = $arr_inv[$ci]["in_mt_restante"];
//$content.= "<br>prueba variable sesion".$_SESSION[$id_inv]["inv_rest"];
}
//recorremos arreglo y vamos asignando conductores
if ($cant_inv > 0) {
$turno = 0;
$tg = 0;
for ($doblete = 0; $doblete < 2; $doblete++) {
$end = false;
$l = 0;
while ($end == false) {
for ($m = 0; $m < $cant_inv; $m++) {
if ($l == $cant_con) {
$end = true;
break;
}
//traemos inventario restante
//$inv_rest = $fun->get_custom("SELECT in_mt_restante FROM tbl_inventario WHERE in_id=".$arr_inv[$m]["in_id"]);
$inv_rest = $_SESSION[$arr_inv[$m]["in_id"]]["inv_rest"];
if ($inv_rest > 0) {
$inv_nuevo = $inv_rest - $res_con[$l]["ve_capacidad_m3"];
if ($inv_nuevo >= 0) {
$content .= "<pre>";
$content .= "<br> ----> [" . $l . "] asignando cond " . $res_con[$l]["pe_id"] . " (cap. " . $res_con[$l]["ve_capacidad_m3"] . "m<sup>3</sup>) a inventario " . $arr_inv[$m]["in_id"] . " en el turno (" . $turno . "): " . $res_tur[$turno]["tu_hora_ini"] . "\n\t\t\t\t \t\t\tinventario restante: " . $inv_nuevo;
$content .= "<br><strong>Actualizacion de inventario tbl_inventario, in_mt_restante =" . $inv_nuevo . "</strong> => resultado: ";
//$upd_vol = $fun->actualizar("inventario", "in_mt_restante =".$inv_nuevo, "in_id = ".$arr_inv[$m]["in_id"]);
$_SESSION[$arr_inv[$m]["in_id"]]["inv_rest"] = $inv_nuevo;
//cargamos en despachos como sugerencia [estado=1]
$tbl_des = 'despachos';
$fld_des = 'de_pe_id, de_ve_capacidad_m3, de_in_id, de_tu_id, de_inv_rest, de_created, de_estado';
$val_des = $res_con[$l]["pe_id"] . ',' . $res_con[$l]["ve_capacidad_m3"] . ',' . $arr_inv[$m]["in_id"] . ',' . $res_tur[$turno]["tu_id"] . ',' . $inv_nuevo . ',' . $_SESSION["ses_id"] . ',1';
$res_des = $fun->crear($tbl_des, $fld_des, $val_des);
//$content.= "<br>Probando SESSION VAR: inventario restante del inventario (".$arr_inv[$m]["in_id"].") :".$_SESSION[$arr_inv[$m]["in_id"]]["inv_rest"]."<br>";
$res_des = true;
if ($res_des) {
$tg++;
} else {
$content .= "(error)";
}
}
} else {
$m++;
}
$l++;
}
$turno++;
}
}
$content .= "<h3>Total turnos generados: " . $tg . "</h3>";
}
$content .= "<br>+++++++++++++++++++++++++++++++++++++++++++++++++++++++<br>";
}
}
// generamos informe
$fun->create_file($content, $filename);
//echo $content;
$con->disconnect();
unset($arr_inv);
}
