";
print "close();";
print "opener.document.form1.submit();";
print "";
}
//--------------------------------------------------------------
function uf_print($as_codconc, $as_nomcon, $as_tipo)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print
// Access: public
// Arguments: as_codconc // Código del concepto
// as_nomcon // nombre del concepto
// as_tipo // Tipo de Llamada del catálogo
// Description: Función que obtiene e imprime los resultados de la busqueda
// Creado Por: Ing. Yesenia Moreno
// Fecha Creación: 01/01/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_campo,$io_fun_nomina;
$ls_modalidad=$_SESSION["la_empresa"]["estmodest"];
$io_fun_nomina->uf_loadmodalidad($li_len1,$li_len2,$li_len3,$li_len4,$li_len5,$ls_titulo);
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"];
$ls_codnom=$_SESSION["la_nomina"]["codnom"];
print "";
print "";
print "| Código | ";
print "Nombre | ";
print "Signo | ";
print "Fórmula | ";
print "
";
$ls_sql="SELECT anocur, codperi, codconc, nomcon, titcon, sigcon, forcon, glocon, acumaxcon, valmincon, valmaxcon, concon, ".
" cueprecon, cueconcon, aplisrcon, sueintcon, intprocon, codestpro1, codestpro2, codestpro3, codestpro4, codestpro5, ".
" forpatcon, cueprepatcon, cueconpatcon, titretempcon, titretpatcon, valminpatcon, valmaxpatcon, codprov, cedben, ".
" conprenom, sueintvaccon, aplarccon, conprocon,estcla, intingcon, poringcon, spi_cuenta, repacucon, repconsunicon, ".
" consunicon, quirepcon, asifidper, asifidpat, frevarcon, persalnor,aplresenc,conperenc, codente,
repconsuniconc,consuniconc,prorat,sueintfid, ".
" (SELECT descripcion_ente ".
" FROM sno_entes ".
" WHERE codigo_ente = codente) as nombre_ente, ".
" (SELECT denominacion ".
" FROM spi_cuentas ".
" WHERE codemp='".$ls_codemp."' ".
" AND spi_cuentas.spi_cuenta=sno_thconcepto.spi_cuenta) as deningcon, ".
" (SELECT nompro ".
" FROM rpc_proveedor ".
" WHERE codemp='".$ls_codemp."' ".
" AND rpc_proveedor.cod_pro=sno_thconcepto.codprov) as proveedor, ".
" (SELECT nombene ".
" FROM rpc_beneficiario ".
" WHERE codemp='".$ls_codemp."' ".
" AND rpc_beneficiario.ced_bene=sno_thconcepto.cedben) as beneficiario, ".
" (SELECT denestpro1 ".
" FROM spg_ep1 ".
" WHERE spg_ep1.codemp=sno_thconcepto.codemp".
" AND spg_ep1.codestpro1=sno_thconcepto.codestpro1 ".
" AND spg_ep1.estcla = sno_thconcepto.estcla) as denestpro1, ".
" (SELECT denestpro2 ".
" FROM spg_ep2 ".
" WHERE spg_ep2.codemp=sno_thconcepto.codemp".
" AND spg_ep2.codestpro1=sno_thconcepto.codestpro1 ".
" AND spg_ep2.codestpro2=sno_thconcepto.codestpro2 ".
" AND spg_ep2.estcla = sno_thconcepto.estcla) as denestpro2, ".
" (SELECT denestpro3 ".
" FROM spg_ep3 ".
" WHERE spg_ep3.codemp=sno_thconcepto.codemp".
" AND spg_ep3.codestpro1=sno_thconcepto.codestpro1 ".
" AND spg_ep3.codestpro2=sno_thconcepto.codestpro2 ".
" AND spg_ep3.codestpro3=sno_thconcepto.codestpro3 ".
" AND spg_ep3.estcla = sno_thconcepto.estcla) as denestpro3, ".
" (SELECT denestpro4 ".
" FROM spg_ep4 ".
" WHERE spg_ep4.codemp=sno_thconcepto.codemp".
" AND spg_ep4.codestpro1=sno_thconcepto.codestpro1 ".
" AND spg_ep4.codestpro2=sno_thconcepto.codestpro2 ".
" AND spg_ep4.codestpro3=sno_thconcepto.codestpro3 ".
" AND spg_ep4.codestpro4=sno_thconcepto.codestpro4 ".
" AND spg_ep4.estcla = sno_thconcepto.estcla) as denestpro4, ".
" (SELECT denestpro5 ".
" FROM spg_ep5 ".
" WHERE spg_ep5.codemp=sno_thconcepto.codemp".
" AND spg_ep5.codestpro1=sno_thconcepto.codestpro1 ".
" AND spg_ep5.codestpro2=sno_thconcepto.codestpro2 ".
" AND spg_ep5.codestpro3=sno_thconcepto.codestpro3 ".
" AND spg_ep5.codestpro4=sno_thconcepto.codestpro4 ".
" AND spg_ep5.codestpro5=sno_thconcepto.codestpro5 ".
" AND spg_ep5.estcla = sno_thconcepto.estcla) as denestpro5 ".
" FROM sno_thconcepto ".
" WHERE codemp='".$ls_codemp."'".
" AND codnom='".$ls_codnom."'".
" AND codconc like '".$as_codconc."' ".
" AND nomcon like '".$as_nomcon."'";
if(($as_tipo=="reppredes")||($as_tipo=="repprehas")||($as_tipo=="repdetpredes")||($as_tipo=="repdetprehas"))
{
$ls_sql=$ls_sql." AND sigcon ='D' ";
}
if(($as_tipo=="repcuanomdes")||($as_tipo=="repcuanomhas"))
{
$ls_sql=$ls_sql." AND sigcon ='A' ";
}
if($as_tipo=="repapopat")
{
$ls_sql=$ls_sql." AND sigcon ='P' ";
}
$ls_sql=$ls_sql." ORDER BY codconc ";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->message("ERROR->".$io_funciones->uf_convertirmsg($io_sql->message));
}
else
{
while(!$rs_data->EOF)
{
$ls_codconc=$rs_data->fields["codconc"];
$ls_nomcon=$rs_data->fields["nomcon"];
$ls_titcon=$rs_data->fields["titcon"];
$ls_sigcon=$rs_data->fields["sigcon"];
$ls_forcon=$rs_data->fields["forcon"];
$li_glocon=$rs_data->fields["glocon"];
$li_acumaxcon=$io_fun_nomina->uf_formatonumerico($rs_data->fields["acumaxcon"]);
$li_valmincon=$io_fun_nomina->uf_formatonumerico($rs_data->fields["valmincon"]);
$li_valmaxcon=$io_fun_nomina->uf_formatonumerico($rs_data->fields["valmaxcon"]);
$ls_concon=$rs_data->fields["concon"];
$ls_cueprecon=$rs_data->fields["cueprecon"];
$ls_cueconcon=$rs_data->fields["cueconcon"];
$li_aplisrcon=$rs_data->fields["aplisrcon"];
$li_aplarccon=$rs_data->fields["aplarccon"];
$li_sueintcon=$rs_data->fields["sueintcon"];
$li_intprocon=$rs_data->fields["intprocon"];
$li_conprocon=$rs_data->fields["conprocon"];
$ls_codestpro1=$rs_data->fields["codestpro1"];
$ls_codestpro2=$rs_data->fields["codestpro2"];
$ls_codestpro3=$rs_data->fields["codestpro3"];
$ls_codestpro4=$rs_data->fields["codestpro4"];
$ls_codestpro5=$rs_data->fields["codestpro5"];
$io_fun_nomina->uf_formato_programatica_detallado($li_len1,$ls_codestpro1);
$io_fun_nomina->uf_formato_programatica_detallado($li_len2,$ls_codestpro2);
$io_fun_nomina->uf_formato_programatica_detallado($li_len3,$ls_codestpro3);
$io_fun_nomina->uf_formato_programatica_detallado($li_len4,$ls_codestpro4);
$io_fun_nomina->uf_formato_programatica_detallado($li_len5,$ls_codestpro5);
$ls_denestpro1=$rs_data->fields["denestpro1"];
$ls_denestpro2=$rs_data->fields["denestpro2"];
$ls_denestpro3=$rs_data->fields["denestpro3"];
$ls_denestpro4=$rs_data->fields["denestpro4"];
$ls_denestpro5=$rs_data->fields["denestpro5"];
$ls_estcla=$rs_data->fields["estcla"];
$ls_forpatcon=$rs_data->fields["forpatcon"];
$ls_cueprepatcon=$rs_data->fields["cueprepatcon"];
$ls_cueconpatcon=$rs_data->fields["cueconpatcon"];
$ls_titretempcon=$rs_data->fields["titretempcon"];
$ls_titretpatcon=$rs_data->fields["titretpatcon"];
$li_valminpatcon=$io_fun_nomina->uf_formatonumerico($rs_data->fields["valminpatcon"]);
$li_valmaxpatcon=$io_fun_nomina->uf_formatonumerico($rs_data->fields["valmaxpatcon"]);
$li_sueintvaccon=$rs_data->fields["sueintvaccon"];
$li_conprenom=$rs_data->fields["conprenom"];
$ls_denprecon=$rs_data->fields["denprecon"];
$ls_dencuecon=$rs_data->fields["dencuecon"];
$ls_dencueprepat="";
$ls_dencueconpat="";
$ls_codpro=$rs_data->fields["codprov"];
$ls_cedben=$rs_data->fields["cedben"];
$ls_proveedor=$rs_data->fields["proveedor"];
$ls_beneficiario=$rs_data->fields["beneficiario"];
$ls_repacucon=$rs_data->fields["repacucon"];
$ls_repconsunicon=$rs_data->fields["repconsunicon"];
$ls_consunicon=$rs_data->fields["consunicon"];
$ls_repconsuniconc=$rs_data->fields["repconsuniconc"];
$ls_consuniconc=$rs_data->fields["consuniconc"];
$ls_descon="";
$ls_codcon="";
$ls_nombre="";
$li_intingcon=$rs_data->fields["intingcon"];
$li_poringcon=number_format($rs_data->fields["poringcon"],2,",",".");
$ls_spicuenta=$rs_data->fields["spi_cuenta"];
$ls_deningcon=$rs_data->fields["deningcon"];
$ls_quirepcon=$rs_data->fields["quirepcon"];
$ls_asifidper=$rs_data->fields["asifidper"];
$ls_asifidpat=$rs_data->fields["asifidpat"];
$ls_frevarcon=$rs_data->fields["frevarcon"];
$ls_persalnor=$rs_data->fields["persalnor"];
$ls_perenc=$rs_data->fields["conperenc"];
$ls_aplresenc=$rs_data->fields["aplresenc"];
$ls_codente=$rs_data->fields["codente"];
$ls_txtente=$rs_data->fields["nombre_ente"];
$ls_prorat=$rs_data->fields["prorat"];
$ls_sueintfid=$rs_data->fields["sueintfid"];
if($ls_codpro=="----------")
{
$ls_descon="B";
$ls_codcon=$ls_cedben;
$ls_nombre=$ls_beneficiario;
}
if($ls_cedben=="----------")
{
$ls_descon="P";
$ls_codcon=$ls_codpro;
$ls_nombre=$ls_proveedor;
}
switch ($ls_sigcon)
{
case "A":
$ls_signo="Asignación";
break;
case "D":
$ls_signo="Deducción";
break;
case "P":
$ls_signo="Aporte Patronal";
break;
case "R":
$ls_signo="Reporte";
break;
case "B":
$ls_signo="Reintegro Deducción";
break;
case "E":
$ls_signo="Reintegro Asignación";
break;
case "X":
$ls_sigcon="Prestación Antiguedad";
break;
case "I":
$ls_sigcon="Intereses Prestación";
break;
}
switch ($as_tipo)
{
case "": // el llamado se hace desde sigesp_sno_d_hconcepto.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "MODIFICAR": // el llamado se hace desde sigesp_sno_p_hmodificarconcepto.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "replisconcdes": // el llamado se hace desde sigesp_sno_r_hlistadoconcepto.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "replisconchas": // el llamado se hace desde sigesp_sno_r_hlistadoconcepto.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "repapopat": // el llamado se hace desde sigesp_sno_r_haportepatronal.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "represconcdes": // el llamado se hace desde sigesp_sno_r_hresumenconcepto.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "represconchas": // el llamado se hace desde sigesp_sno_r_hresumenconcepto.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "represconcunides": // el llamado se hace desde sigesp_sno_r_resumenconceptounidad.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "represconcunihas": // el llamado se hace desde sigesp_sno_r_resumenconceptounidad.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "repcuanomdes": // el llamado se hace desde sigesp_sno_r_cuadrenomina.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "repcuanomhas": // el llamado se hace desde sigesp_sno_r_cuadrenomina.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_signo." | ";
print " | ";
print "
";
break;
case "reppredes": // el llamado se hace desde sigesp_sno_r_hlistadoprestamo.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_sigcon." | ";
print " | ";
print "
";
break;
case "repprehas": // el llamado se hace desde sigesp_sno_r_hlistadoprestamo.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_sigcon." | ";
print " | ";
print "
";
break;
case "repdetpredes": // el llamado se hace desde sigesp_sno_r_hlistadoprestamo.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_sigcon." | ";
print " | ";
print "
";
break;
case "repdetprehas": // el llamado se hace desde sigesp_sno_r_hlistadoprestamo.php
print "";
print "| ".$ls_codconc." | ";
print "".$ls_nomcon." | ";
print "".$ls_sigcon." | ";
print " | ";
print "
";
break;
}
$rs_data->MoveNext();
}
$io_sql->free_result($rs_data);
}
print "
";
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
unset($ls_codnom);
}
//--------------------------------------------------------------
?>
Catálogo de Concepto