$obj = ""; foreach ($contenido as $value) { $value = trim($value); if (!empty($value)) { $obj .= $value; } } $objeto = explode('$$', $obj); $i = -1; //GET THE POLICY ACORDING TO THE TYPE OF OBJECT AND THE TYPE OF USER //$ob=$politica[$item_data[5]][trim($arrHttp["usrtype"])]; $ob = $arrHttp["policy"]; $obj = explode('|', $ob); $fp = date("Ymd h:i A"); // DEVOLUTION DATE $fd = FechaDevolucion($obj[3], $obj[5], ""); // echo "<br>Fecha de devolución: ".$fd; // die; $ix = strpos($fp, " "); $diap = trim(substr($fp, 0, $ix)); $horap = trim(substr($fp, $ix)); $ix = strpos($fd, " "); $diad = trim(substr($fd, 0, $ix)); $horad = trim(substr($fd, $ix)); $ValorCapturado = "0001P\n"; $ValorCapturado .= "0010" . $arrHttp["inventario"] . "\n"; // INVENTORY NUMBER $ValorCapturado .= "0012" . $item_data[6] . "\n"; // VOLUME $ValorCapturado .= "0015" . $item_data[7] . "\n"; // TOME
break; case "D": $newdate = date("m/d/Y"); $fecha_d = substr($fecha_d, 4, 2) . "/" . substr($fecha_d, 6, 2) . "/" . substr($fecha_d, 0, 4); $atraso = dateDiff("/", $newdate, $fecha_d); break; } if ($atraso > 0) { $error = "&error=Está atrasado. No se puede renovar"; Regresar($error); die; } // Se pasa la fecha de préstamo y devolución anteriores al campo 200 $f_ant = "^a" . $fecha_p . "^b" . $hora_p . "^c" . $fecha_d . "^d" . $hora_p; //se calcula la nueva fecha de devolución $fecha_dev = FechaDevolucion($lapso, $unidad); $fecha_pres = date("Ymd h:i:s A"); $ixp = strpos($fecha_dev, " "); $fecha_d = trim(substr($fecha_dev, 0, $ixp)); $hora_d = trim(substr($fecha_dev, $ixp)); $ixp = strpos($fecha_pres, " "); $fecha_p = trim(substr($fecha_pres, 0, $ixp)); $hora_d = trim(substr($fecha_pres, $ixp)); $ValorCapturado = ""; $ValorCapturado .= "0030" . $fecha_p . "\n"; $ValorCapturado .= "0035" . $hora_p . "\n"; $ValorCapturado .= "0040" . $fecha_d . "\n"; $ValorCapturado .= "0045" . $hora_d . "\n"; $ValorCapturado .= "0200" . $f_ant . "\n"; $ValorCapturado = urlencode($ValorCapturado); $IsisScript = $xWxis . "actualizar_registro.xis";
$value = trim($value); if ($value != "") { if (substr($value, 0, 8) != '$$TOTAL:') { if ($value <= $fecha) { $copias_reservadas++; } } } } if ($num_copias - $copias_prestadas - $copias_reservadas - 1 <= 0) { echo "<font color=red><strong>No existen copias disponibles para la reserva</strong></font>"; echo "<br>"; echo $reserva_output; die; } //SE PROCESA LA RESERVA //Primero se determina la fecha hasta tanto está activa la reserva $f_dev = FechaDevolucion(1, "D", ""); $ValorCapturado = "0010" . $arrHttp["usuario"] . "\n0020" . $arrHttp["ctrl_num"] . "\n0030" . date('Ymd') . "\n0040" . substr($f_dev, 0, 8); $IsisScript = $xWxis . "actualizar.xis"; $query = "&base=reserve&cipar={$db_path}" . "par/reserve.par&login=abcd&Mfn=New&Opcion=crear&ValorCapturado=" . $ValorCapturado; include "../common/wxis_llamar.php"; foreach ($contenido as $linea) { if (substr($linea, 0, 4) == "MFN:") { $arrHttp["Mfn"] = trim(substr($linea, 4)); } else { if (trim($linea != "")) { $salida .= $linea . "\n"; } } }
function Sanciones($fecha_d, $atraso, $cod_usuario, $inventario, $politica) { global $Wxis, $xWxis, $db_path, $locales, $arrHttp, $msgstr; $p = explode('|', $politica); $multa = trim($p[7]); $multa_reserva = trim($p[8]); $dias = trim($p[9]); $dias_reserva = trim($p[10]); $sancion = ""; $ValorCapturado = ""; if ($multa != 0 and $multa != "") { $sancion = "M"; } if ($dias != 0 and $dias != "") { $sancion = "S"; } if ($sancion == "") { return; } switch ($sancion) { case "M": $tipor = "M"; //v1 $status = "0"; //v10 //cod_usuario //v20 $concepto = $msgstr["fine"] . " (" . $inventario . ")"; //v40 $fecha = date("Ymd"); //v30 $monto = $atraso * $p[7] * $locales["fine"]; //v50 $ValorCapturado = "0001{$tipor}\n0010{$status}\n0020{$cod_usuario}\n0030{$fecha}\n0040{$concepto}\n0050{$monto}\n"; break; case "S": $tipor = "S"; //v1 $status = "0"; //v10 //cod_usuario //v20 $concepto = "Suspensión por atraso (" . $inventario . ")"; //v40 $fecha = date("Ymd"); //v30 $lapso = $atraso * $p[9]; $fecha_v = FechaDevolucion($lapso, "D", ""); $fecha_v = substr($fecha_v, 0, 8); $ValorCapturado = "0001{$tipor}\n0010{$status}\n0020{$cod_usuario}\n0030{$fecha}\n0040{$concepto}\n0060{$fecha_v}\n"; break; default: return; break; } // print "<xmp>$ValorCapturado</xmp>"; if ($ValorCapturado != "") { $ValorCapturado = urlencode($ValorCapturado); $IsisScript = $xWxis . "actualizar.xis"; $query = "&base=suspml&cipar={$db_path}" . "par/suspml.par&login="******"login"] . "&Mfn=New&Opcion=crear&ValorCapturado=" . $ValorCapturado; include "../common/wxis_llamar.php"; // foreach ($contenido as $value) echo "$value<br>"; } }
$cod_usuario = $arrHttp["usuario"]; //v20 $concepto = $arrHttp["reason"]; //v40 $fecha = $fecha_desde; //v30 $monto = $arrHttp["units"] * $p[7] * $locales["fine"]; //v50 $ValorCapturado = "0001{$tipor}\n0010{$status}\n0020{$cod_usuario}\n0030{$fecha}\n0040{$concepto}\n0050{$monto}\n"; if (isset($arrHttp["comments"])) { $ValorCapturado .= "0100" . $arrHttp["comments"]; } break; case "S": // se calcula la fecha en que vence la suspensión $fecha_v = FechaDevolucion($arrHttp["units"], "D", $arrHttp["date"]); $tipor = "S"; //v1 $status = "0"; //v10 $cod_usuario = $arrHttp["usuario"]; //v20 $concepto = $arrHttp["reason"]; //v40 $fecha = $fecha_desde; //v30 $fecha_v = substr($fecha_v, 0, 8); //v60 $ValorCapturado = "0001{$tipor}\n0010{$status}\n0020{$cod_usuario}\n0030{$fecha}\n0040{$concepto}\n0060{$fecha_v}\n"; if (isset($arrHttp["comments"])) { $ValorCapturado .= "0100" . $arrHttp["comments"];