";
print "close();";
print "opener.document.form1.submit();";
print "";
}
//--------------------------------------------------------------
function uf_print($as_tipo,$as_codnom,$as_codnomhas)
{
//////////////////////////////////////////////////////////////////////////////
// Function : uf_print
// Access : public
// Arguments : as_tipo // Tipo de Llamada del catálogo
// as_codnom // Código de Nómina
// as_codnomhas // Código de Nómina Hasta
// Description : Función que obtiene e imprime los resultados de la busqueda
// Creado Por : Ing. Yesenia Moreno
// Fecha Creación : 10/04/2006 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
require_once("../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
print "
";
print "
";
print "
Año
";
print "
Mes
";
print "
";
$ls_sql="SELECT DISTINCT ON (sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2)) sno_hperiodo.anocur, substr(cast(sno_hperiodo.fechasper as char(10)),6,2) as mes, sno_hperiodo.fechasper".
" FROM sno_hperiodo, sno_hnomina, sno_periodo ".
" WHERE sno_hnomina.espnom='0' ".
" AND sno_periodo.cerper= 1 ".
" AND sno_hperiodo.codemp=sno_hnomina.codemp ".
" AND sno_hperiodo.codnom=sno_hnomina.codnom ".
" AND sno_hperiodo.codemp=sno_periodo.codemp ".
" AND sno_hperiodo.codnom=sno_periodo.codnom ".
" AND sno_hperiodo.codperi=sno_periodo.codperi ";
if (($as_tipo=="replispreant")||($as_tipo=="replispreantint"))
{
$ls_sql="SELECT DISTINCT ON (sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2)) sno_hperiodo.anocur, substr(cast(sno_hperiodo.fechasper as char(10)),6,2) as mes".
" FROM sno_hperiodo, sno_hnomina, sno_periodo ".
" WHERE sno_hnomina.espnom='0' ".
" AND sno_periodo.cerper= 1 ".
" AND sno_hperiodo.codemp=sno_hnomina.codemp ".
" AND sno_hperiodo.codnom=sno_hnomina.codnom ".
" AND sno_hperiodo.codemp=sno_periodo.codemp ".
" AND sno_hperiodo.codnom=sno_periodo.codnom ".
" AND sno_hperiodo.codperi=sno_periodo.codperi ";
}
if(($as_tipo=="replispreantdesde")||($as_tipo=="replispreanthasta"))
{
$ls_sql="SELECT DISTINCT ON (sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2)) sno_hperiodo.anocur, substr(cast(sno_hperiodo.fechasper as char(10)),6,2) as mes, sno_hperiodo.fechasper, sno_hperiodo.codperi ".
" FROM sno_hperiodo, sno_hnomina, sno_periodo ".
" WHERE sno_hnomina.espnom='0' ".
" AND sno_periodo.cerper= 1 ".
" AND sno_hperiodo.codemp=sno_hnomina.codemp ".
" AND sno_hperiodo.codnom=sno_hnomina.codnom ".
" AND sno_hperiodo.codemp=sno_periodo.codemp ".
" AND sno_hperiodo.codnom=sno_periodo.codnom ".
" AND sno_hperiodo.codperi=sno_periodo.codperi ";
}
if(($as_tipo=="replispreantdesde")||($as_tipo=="replispreanthasta")||($as_tipo=="replispreant"))
{
$ls_sql=$ls_sql." AND (substr(cast(sno_hperiodo.fecdesper as char(10)),6,2) IN (SELECT LPAD(cast(mescurper as char(2)),2,'0') ".
" FROM sno_fideiperiodo ".
" WHERE sno_hperiodo.codemp=sno_fideiperiodo.codemp ".
" AND sno_hperiodo.codnom=sno_fideiperiodo.codnom ".
" AND sno_hperiodo.anocur=sno_fideiperiodo.anocurper)) ".
" AND sno_hperiodo.codemp='".$ls_codemp."' ".
" AND sno_hperiodo.codnom='".$as_codnom."' ";
}
elseif($as_tipo=="replispreantint")
{
$ls_sql=$ls_sql." AND (substr(cast(sno_hperiodo.fecdesper as char(10)),6,2) IN (SELECT LPAD(cast(mescurper as char(2)),2,'0') ".
" FROM sno_fideiperiodointereses ".
" WHERE sno_hperiodo.codemp=sno_fideiperiodointereses.codemp ".
" AND sno_hperiodo.codnom=sno_fideiperiodointereses.codnom ".
" AND sno_hperiodo.anocur=sno_fideiperiodointereses.anocurper)) ".
" AND sno_hperiodo.codemp='".$ls_codemp."' ".
" AND sno_hperiodo.codnom='".$as_codnom."' ";
}
else
{
$ls_sql=$ls_sql." AND (substr(cast(sno_hperiodo.fecdesper as char(10)),6,2) NOT IN (SELECT LPAD(cast(mescurper as char(2)),2,'0') ".
" FROM sno_fideiperiodo ".
" WHERE sno_hperiodo.codemp=sno_fideiperiodo.codemp ".
" AND sno_hperiodo.codnom=sno_fideiperiodo.codnom ".
" AND sno_hperiodo.anocur=sno_fideiperiodo.anocurper)) ".
" AND sno_hperiodo.codemp='".$ls_codemp."' ";
}
if(($as_tipo=="repapopat")||($as_tipo=="repipaspat")||($as_tipo=="repipascob")||($as_tipo=="repretislr"))
{
$ls_sql="SELECT DISTINCT ON (sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2)) sno_hperiodo.anocur, substr(cast(sno_hperiodo.fechasper as char(10)),6,2) as mes, sno_hperiodo.fechasper ".
" FROM sno_hperiodo, sno_hnomina, sno_periodo ".
" WHERE sno_hnomina.codnom>='".$as_codnom."' ".
" AND sno_hnomina.codnom<='".$as_codnomhas."' ".
" AND sno_hnomina.espnom='0' ".
" AND sno_periodo.cerper= 1 ".
" AND sno_hperiodo.codemp=sno_hnomina.codemp ".
" AND sno_hperiodo.codnom=sno_hnomina.codnom ".
" AND sno_hperiodo.codemp=sno_periodo.codemp ".
" AND sno_hperiodo.codnom=sno_periodo.codnom ".
" AND sno_hperiodo.codperi=sno_periodo.codperi ";
}
if (($as_tipo=="replispreant")||($as_tipo=="replispreantint"))
{
$ls_sql=$ls_sql." GROUP BY sno_hperiodo.anocur, sno_hperiodo.fechasper ".
" ORDER BY sno_hperiodo.anocur, mes ";
}
elseif (($as_tipo=="replispreantdesde")||($as_tipo=="replispreanthasta"))
{
$ls_sql=$ls_sql." GROUP BY sno_hperiodo.anocur, sno_hperiodo.fechasper, sno_hperiodo.codperi ".
" ORDER BY sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2) ";
}
else
{
$ls_sql=$ls_sql." GROUP BY sno_hperiodo.anocur, sno_hperiodo.fechasper ".
" ORDER BY sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2) ";
}
if(($as_tipo=="repapopatdes")||($as_tipo=="repapopathas")||($as_tipo=="replisperracrecdes")||($as_tipo=="replisperracrechas"))
{
$ls_sql="SELECT DISTINCT ON (sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2)) sno_hperiodo.anocur, substr(cast(sno_hperiodo.fechasper as char(10)),6,2) as mes ".
" FROM sno_hperiodo, sno_hnomina, sno_periodo ".
" WHERE sno_hnomina.codnom>='".$as_codnom."' ".
" AND sno_hnomina.codnom<='".$as_codnomhas."' ".
" AND sno_hnomina.espnom='0' ".
" AND sno_periodo.cerper= 1 ".
" AND sno_hperiodo.codemp=sno_hnomina.codemp ".
" AND sno_hperiodo.codnom=sno_hnomina.codnom ".
" AND sno_hperiodo.codemp=sno_periodo.codemp ".
" AND sno_hperiodo.codnom=sno_periodo.codnom ".
" AND sno_hperiodo.codperi=sno_periodo.codperi ".
" GROUP BY sno_hperiodo.anocur, mes ".
" ORDER BY sno_hperiodo.anocur, mes ";
}
if($as_tipo=="repcestic")
{
$ls_sql="SELECT DISTINCT ON (sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2)) sno_hperiodo.anocur, substr(cast(sno_hperiodo.fechasper as char(10)),6,2) as mes, sno_hperiodo.codperi, sno_hperiodo.fechasper ".
" FROM sno_hperiodo, sno_hnomina, sno_periodo ".
" WHERE sno_hnomina.espnom='1' ".
" AND sno_hnomina.ctnom='1' ".
" AND sno_hnomina.codnom>='".$as_codnom."' ".
" AND sno_hnomina.codnom<='".$as_codnomhas."' ".
" AND sno_periodo.cerper= 1 ".
" AND sno_hperiodo.codemp=sno_hnomina.codemp ".
" AND sno_hperiodo.codnom=sno_hnomina.codnom ".
" AND sno_hperiodo.codemp=sno_periodo.codemp ".
" AND sno_hperiodo.codnom=sno_periodo.codnom ".
" AND sno_hperiodo.codperi=sno_periodo.codperi ".
" GROUP BY sno_hperiodo.anocur, sno_hperiodo.fechasper, sno_hperiodo.codperi ".
" ORDER BY sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2) ";
}
if($as_tipo=="repperips")
{
$ls_sql="SELECT DISTINCT ON (sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2)) sno_hperiodo.anocur, substr(cast(sno_hperiodo.fechasper as char(10)),6,2) as mes, sno_hperiodo.codperi, sno_hperiodo.fechasper ".
" FROM sno_hperiodo, sno_hnomina, sno_periodo ".
" WHERE sno_hnomina.espnom='0' ".
" AND sno_hnomina.codnom>='".$as_codnom."' ".
" AND sno_hnomina.codnom<='".$as_codnomhas."' ".
" AND sno_periodo.cerper= 1 ".
" AND sno_hperiodo.codemp=sno_hnomina.codemp ".
" AND sno_hperiodo.codnom=sno_hnomina.codnom ".
" AND sno_hperiodo.codemp=sno_periodo.codemp ".
" AND sno_hperiodo.codnom=sno_periodo.codnom ".
" AND sno_hperiodo.codperi=sno_periodo.codperi ".
" GROUP BY sno_hperiodo.anocur, sno_hperiodo.fechasper, sno_hperiodo.codperi ".
" ORDER BY sno_hperiodo.anocur, sno_hperiodo.fechasper, sno_hperiodo.codperi ";
}
if($as_tipo=="repcuadrect")
{
$ls_sql="SELECT DISTINCT ON (sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2)) sno_hperiodo.anocur, substr(cast(sno_hperiodo.fechasper as char(10)),6,2) as mes, sno_hperiodo.codperi, sno_hperiodo.fechasper ".
" FROM sno_hperiodo, sno_hnomina, sno_periodo ".
" WHERE sno_hnomina.espnom='1' ".
" AND sno_hnomina.ctnom='1' ".
" AND sno_periodo.cerper= 1 ".
" AND sno_hperiodo.codemp=sno_hnomina.codemp ".
" AND sno_hperiodo.codnom=sno_hnomina.codnom ".
" AND sno_hperiodo.codemp=sno_periodo.codemp ".
" AND sno_hperiodo.codnom=sno_periodo.codnom ".
" AND sno_hperiodo.codperi=sno_periodo.codperi ".
" GROUP BY sno_hperiodo.anocur, sno_hperiodo.fechasper, sno_hperiodo.codperi ".
" ORDER BY sno_hperiodo.anocur, sno_hperiodo.fechasper, sno_hperiodo.codperi ";
}
if (($as_tipo=="mintrades")||($as_tipo=="mintrahas"))
{
$ls_sql="SELECT DISTINCT ON (sno_hperiodo.anocur,substr(cast(sno_hperiodo.fechasper as char(10)),6,2)) sno_hperiodo.anocur, substr(cast(sno_hperiodo.fechasper as char(10)),6,2) as mes ".
"FROM sno_hperiodo, sno_hnomina, sno_periodo ".
"WHERE sno_hnomina.espnom='0' ".
"AND sno_periodo.cerper= 1 ".
"AND sno_hperiodo.codemp=sno_hnomina.codemp ".
"AND sno_hperiodo.codnom=sno_hnomina.codnom ".
"AND sno_hperiodo.codemp=sno_periodo.codemp ".
"AND sno_hperiodo.codnom=sno_periodo.codnom ".
"AND sno_hperiodo.codperi=sno_periodo.codperi ".
"AND (substr(cast(sno_hperiodo.fecdesper as char(10)),6,2) ".
" NOT IN (SELECT LPAD(cast(mescurper as char(2)),2,'0') ".
" FROM sno_fideiperiodo ".
" WHERE sno_hperiodo.codemp=sno_fideiperiodo.codemp ".
" AND sno_hperiodo.codnom=sno_fideiperiodo.codnom AND sno_hperiodo.anocur=sno_fideiperiodo.anocurper)) ".
" AND sno_hperiodo.codemp='".$ls_codemp."' ".
"GROUP BY sno_hperiodo.anocur, sno_hperiodo.fechasper ".
"ORDER BY sno_hperiodo.anocur, sno_hperiodo.fechasper, sno_hperiodo.codperi";
}
$rs_data=$io_sql->select($ls_sql);
//echo $ls_sql;
if($rs_data===false)
{
$io_mensajes->message("ERROR->".$io_funciones->uf_convertirmsg($io_sql->message));
}
else
{
while($row=$io_sql->fetch_row($rs_data))
{
$ls_anocur=$row["anocur"];
$ls_mes=str_pad($row["mes"],2,"0",0);
if (($as_tipo=="replispreantdesde")||($as_tipo=="replispreanthasta"))
{
$ls_codperi=$row["codperi"];
}
switch($ls_mes)
{
case "01":
$ls_desmes="ENERO";
break;
case "02":
$ls_desmes="FEBRERO";
break;
case "03":
$ls_desmes="MARZO";
break;
case "04":
$ls_desmes="ABRIL";
break;
case "05":
$ls_desmes="MAYO";
break;
case "06":
$ls_desmes="JUNIO";
break;
case "07":
$ls_desmes="JULIO";
break;
case "08":
$ls_desmes="AGOSTO";
break;
case "09":
$ls_desmes="SEPTIEMBRE";
break;
case "10":
$ls_desmes="OCTUBRE";
break;
case "11":
$ls_desmes="NOVIEMBRE";
break;
case "12":
$ls_desmes="DICIEMBRE";
break;
}
switch ($as_tipo)
{
case "": // sigesp_snorh_p_fideicomiso
print "