$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"];
