$formato_obj = "v1'|',v10'|',v20'|',v30'|',v40'|',v50'|',v60'|',v100'|',f(mfn,1,0)/";
$query = "&Expresion=TRANS_M_" . $arrHttp["usuario"] . "&base=suspml&cipar={$db_path}" . "par/suspml.par&Pft=" . $formato_obj;
$IsisScript = $xWxis . "cipres_usuario.xis";
include "../common/wxis_llamar.php";
$multa = array();
foreach ($contenido as $linea) {
// echo $linea."<br>";
$multa[] = $linea;
}
$nmulta = 0;
if (count($multa) > 0) {
$sanctions_output .= "<br><strong>" . $msgstr["fine"] . "</strong>\r\n\t\t<table width=95% bgcolor=#cccccc><th>" . $msgstr["status"] . "</th>\r\n\t\t<th>" . $msgstr["date"] . "</th><th>" . $msgstr["concept"] . "</th><th>" . $msgstr["amount"] . "</th><th>" . $msgstr["comments"] . "</th>";
foreach ($multa as $linea) {
$p = explode("|", $linea);
$nmulta = $nmulta + 1;
$fecha1 = PrepararFecha($p[3]);
$sanctions_output .= "<tr><td bgcolor=white align=center valign=top>" . $status[$p[1]] . "</td>\r\n\t\t\t\t<td bgcolor=white nowrap align=center valign=top>" . $fecha1 . "</td><td bgcolor=white nowrap align=center valign=top>" . $p[4] . "</td><td bgcolor=white nowrap align=center valign=top>" . $p[5] . "<td bgcolor=white valign=top>" . $p[7] . "</td>";
}
$sanctions_output .= "</table>";
}
if ($sanctions_output != "" and isset($arrHttp["inventory"])) {
$ec_output .= "<font color=red><strong>" . $msgstr["pending_sanctions"] . "</strong></font>";
}
ProduceOutput($ec_output . $sanctions_output);
//=====================================================================================
function ProduceOutput($ec_output)
{
global $msgstr, $arrHttp, $reservas_p, $signatura, $posicion_cola, $msg_1, $cont, $institution_name, $db_path;
include "../common/header.php";
echo "<body>";
include "../common/institutional_info.php";
$Expresion = urlencode($Expresion);
$pft_inventory = LeerPft("loans_inventorynumber.pft");
$pft_inventory = "(" . $pft_inventory . "/)";
$query = "&Opcion=disponibilidad&base={$catalog_db}&cipar={$db_path}" . "par/{$catalog_db}.par&Expresion=" . $Expresion . "&Pft={$pft_inventory}";
include "../common/wxis_llamar.php";
foreach ($contenido as $val) {
if (trim($val) != "") {
ShowItems($val);
}
}
echo "</table>";
echo "<p>";
echo "</div></div>";
include "../common/footer.php";
echo "</body></html>";
function ShowItems($item)
{
if (substr($item, 0, 8) != '$$TOTAL:') {
$l = explode('$$$', $item);
echo "<tr><td bgcolor=white></td>";
echo "<td bgcolor=white>" . $l[0] . "</td>";
<div class="formContent">
<form name=sanctions method=post action=sanctions_update.php onSubmit="return false">
<?php
// se presenta la información del usuario
$formato_us = $db_path . "users/loans/" . $_SESSION["lang"] . "/loans_usdisp.pft";
if (!isset($formato_us)) {
$formato_us = $db_path . "users/loans/" . $lang_db . "/loans_usdisp.pft";
}
$query = "&Expresion=CO_" . $arrHttp["usuario"] . "&base=users&cipar={$db_path}/par/users.par&Formato=" . $formato_us;
$contenido = "";
$IsisScript = $xWxis . "cipres_usuario.xis";
include "../common/wxis_llamar.php";
foreach ($contenido as $linea) {
echo $linea . "\n";
}
include "sanctions_read.php";
//se incluye el procedimiento para leer las sanciones
$fecha_exp = "";
$fecha_dia = PrepararFecha(date("Ymd"));
$fecha_exp = $fecha_dia;
if (count($susp) > 0) {
// se determina el vencimiento de la última sanción
$sancion = $susp[count($susp) - 1];
$p = explode("|", $sancion);
if ($p[6] > $fecha_dia) {
$exp_date = mktime(0, 0, 0, substr($p[6], 4, 2), substr($p[6], 6, 2) + 1, substr($p[6], 0, 4));
$exp_date = date("Ymd", $exp_date);
$fecha_exp = PrepararFecha($exp_date);
} else {
$fecha_exp = $fecha_dia;
}
