";
print "";
print "| Código | ";
print "Denominación | ";
print "".$ls_titulo." | ";
print "Tipo | ";
print "
";
if($as_codigo!="")
{
$as_codigo=str_pad($as_codigo,12,"0",0);
}
$ls_coduniad1="%".substr($as_codigo,0,4)."%";
$ls_coduniad2="%".substr($as_codigo,4,2)."%";
$ls_coduniad3="%".substr($as_codigo,6,2)."%";
$ls_coduniad4="%".substr($as_codigo,8,2)."%";
$ls_coduniad5="%".substr($as_codigo,10,2)."%";
$ls_criterio="";
if (($as_tipo=="pagounides")||($as_tipo=="pagounihas"))
{
$ls_sql="SELECT codemp,minorguniadm,ofiuniadm,uniuniadm,depuniadm,prouniadm,desuniadm,codestpro1,codestpro2,codestpro3,codestpro4,".
" codestpro5,estcla, ".
" (SELECT denestpro1 ".
" FROM spg_ep1 ".
" WHERE codemp=sno_hunidadadmin.codemp".
" AND spg_ep1.codestpro1=sno_hunidadadmin.codestpro1 ".
" AND spg_ep1.estcla=sno_hunidadadmin.estcla) as denestpro1, ".
" (SELECT denestpro2 ".
" FROM spg_ep2 ".
" WHERE codemp=sno_hunidadadmin.codemp".
" AND spg_ep2.codestpro1=sno_hunidadadmin.codestpro1 ".
" AND spg_ep2.codestpro2=sno_hunidadadmin.codestpro2 ".
" AND spg_ep2.estcla=sno_hunidadadmin.estcla) as denestpro2, ".
" (SELECT denestpro3 ".
" FROM spg_ep3 ".
" WHERE codemp=sno_hunidadadmin.codemp".
" AND spg_ep3.codestpro1=sno_hunidadadmin.codestpro1 ".
" AND spg_ep3.codestpro2=sno_hunidadadmin.codestpro2 ".
" AND spg_ep3.codestpro3=sno_hunidadadmin.codestpro3 ".
" AND spg_ep3.estcla=sno_hunidadadmin.estcla) as denestpro3, ".
" (SELECT denestpro4 ".
" FROM spg_ep4 ".
" WHERE codemp=sno_hunidadadmin.codemp".
" AND spg_ep4.codestpro1=sno_hunidadadmin.codestpro1 ".
" AND spg_ep4.codestpro2=sno_hunidadadmin.codestpro2 ".
" AND spg_ep4.codestpro3=sno_hunidadadmin.codestpro3 ".
" AND spg_ep4.codestpro4=sno_hunidadadmin.codestpro4 ".
" AND spg_ep4.estcla=sno_hunidadadmin.estcla) as denestpro4, ".
" (SELECT denestpro5 ".
" FROM spg_ep5 ".
" WHERE codemp=sno_hunidadadmin.codemp".
" AND spg_ep5.codestpro1=sno_hunidadadmin.codestpro1 ".
" AND spg_ep5.codestpro2=sno_hunidadadmin.codestpro2 ".
" AND spg_ep5.codestpro3=sno_hunidadadmin.codestpro3 ".
" AND spg_ep5.codestpro4=sno_hunidadadmin.codestpro4 ".
" AND spg_ep5.codestpro5=sno_hunidadadmin.codestpro5 ".
" AND spg_ep5.estcla=sno_hunidadadmin.estcla) as denestpro5 ".
" FROM sno_hunidadadmin ".
" WHERE codemp='".$ls_codemp."' ".
" AND minorguniadm like '".$ls_coduniad1."' ".
" AND ofiuniadm like '".$ls_coduniad2."' ".
" AND uniuniadm like '".$ls_coduniad3."' ".
" AND depuniadm like '".$ls_coduniad4."' ".
" AND prouniadm like '".$ls_coduniad5."' ".
" AND desuniadm like '".$as_denominacion."' ".
" AND codnom BETWEEN '".$ls_codnomdes."' AND '".$ls_codnomhas."'".
" AND codperi BETWEEN '".$ls_codperides."' AND '".$ls_codperihas."'".
" GROUP BY codemp,minorguniadm,ofiuniadm,uniuniadm,depuniadm,prouniadm,desuniadm,codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,estcla ".
" ORDER BY minorguniadm,ofiuniadm,uniuniadm,depuniadm,prouniadm ";
}
else
{
$ls_sql="SELECT codemp,minorguniadm,ofiuniadm,uniuniadm,depuniadm,prouniadm,desuniadm,codestpro1,codestpro2,codestpro3,codestpro4,".
" codestpro5,estcla, ".
" (SELECT denestpro1 ".
" FROM spg_ep1 ".
" WHERE codemp=sno_hunidadadmin.codemp".
" AND spg_ep1.codestpro1=sno_hunidadadmin.codestpro1 ".
" AND spg_ep1.estcla=sno_hunidadadmin.estcla) as denestpro1, ".
" (SELECT denestpro2 ".
" FROM spg_ep2 ".
" WHERE codemp=sno_hunidadadmin.codemp".
" AND spg_ep2.codestpro1=sno_hunidadadmin.codestpro1 ".
" AND spg_ep2.codestpro2=sno_hunidadadmin.codestpro2 ".
" AND spg_ep2.estcla=sno_hunidadadmin.estcla) as denestpro2, ".
" (SELECT denestpro3 ".
" FROM spg_ep3 ".
" WHERE codemp=sno_hunidadadmin.codemp".
" AND spg_ep3.codestpro1=sno_hunidadadmin.codestpro1 ".
" AND spg_ep3.codestpro2=sno_hunidadadmin.codestpro2 ".
" AND spg_ep3.codestpro3=sno_hunidadadmin.codestpro3 ".
" AND spg_ep3.estcla=sno_hunidadadmin.estcla) as denestpro3, ".
" (SELECT denestpro4 ".
" FROM spg_ep4 ".
" WHERE codemp=sno_hunidadadmin.codemp".
" AND spg_ep4.codestpro1=sno_hunidadadmin.codestpro1 ".
" AND spg_ep4.codestpro2=sno_hunidadadmin.codestpro2 ".
" AND spg_ep4.codestpro3=sno_hunidadadmin.codestpro3 ".
" AND spg_ep4.codestpro4=sno_hunidadadmin.codestpro4 ".
" AND spg_ep4.estcla=sno_hunidadadmin.estcla) as denestpro4, ".
" (SELECT denestpro5 ".
" FROM spg_ep5 ".
" WHERE codemp=sno_hunidadadmin.codemp".
" AND spg_ep5.codestpro1=sno_hunidadadmin.codestpro1 ".
" AND spg_ep5.codestpro2=sno_hunidadadmin.codestpro2 ".
" AND spg_ep5.codestpro3=sno_hunidadadmin.codestpro3 ".
" AND spg_ep5.codestpro4=sno_hunidadadmin.codestpro4 ".
" AND spg_ep5.codestpro5=sno_hunidadadmin.codestpro5 ".
" AND spg_ep5.estcla=sno_hunidadadmin.estcla) as denestpro5 ".
" FROM sno_hunidadadmin ".
" WHERE codemp='".$ls_codemp."' ".
" AND minorguniadm like '".$ls_coduniad1."' ".
" AND ofiuniadm like '".$ls_coduniad2."' ".
" AND uniuniadm like '".$ls_coduniad3."' ".
" AND depuniadm like '".$ls_coduniad4."' ".
" AND prouniadm like '".$ls_coduniad5."' ".
" AND desuniadm like '".$as_denominacion."' ".
" AND codnom = '".$ls_codnom."' ".
" AND anocur = '".$ls_anocur."' ".
" AND codperi = '".$ls_codperi."' ".
" ORDER BY minorguniadm,ofiuniadm,uniuniadm,depuniadm,prouniadm ";
}
$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)
{
$codigo=$rs_data->fields["minorguniadm"].$rs_data->fields["ofiuniadm"].$rs_data->fields["uniuniadm"].$rs_data->fields["depuniadm"].$rs_data->fields["prouniadm"];
$ls_minorguniadm=$rs_data->fields["minorguniadm"];
$ls_ofiuniadm=$rs_data->fields["ofiuniadm"];
$ls_uniuniadm=$rs_data->fields["uniuniadm"];
$ls_depuniadm=$rs_data->fields["depuniadm"];
$ls_prouniadm=$rs_data->fields["prouniadm"];
$denominacion=$rs_data->fields["desuniadm"];
$ls_codest1=$rs_data->fields["codestpro1"];
$ls_codest2=$rs_data->fields["codestpro2"];
$ls_codest3=$rs_data->fields["codestpro3"];
$ls_codest4=$rs_data->fields["codestpro4"];
$ls_codest5=$rs_data->fields["codestpro5"];
$io_fun_nomina->uf_formato_programatica_detallado($li_len1,$ls_codest1);
$io_fun_nomina->uf_formato_programatica_detallado($li_len2,$ls_codest2);
$io_fun_nomina->uf_formato_programatica_detallado($li_len3,$ls_codest3);
$io_fun_nomina->uf_formato_programatica_detallado($li_len4,$ls_codest4);
$io_fun_nomina->uf_formato_programatica_detallado($li_len5,$ls_codest5);
$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"];
switch($ls_estcla)
{
case "P":
$ls_estclatipo="PROYECTO";
break;
case "A":
$ls_estclatipo="ACCION";
break;
}
switch($as_tipo)
{
case "": // Se hace el llamado desde sigesp_snorh_d_uni_adm.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "cestaticket": // Se hace el llamado desde sigesp_snorh_d_ct_unid.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "asignacion": // Se hace el llamado desde sigesp_sno_d_personalnomina.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "replisconc": // Se hace el llamado desde sigesp_sno_r_listadoconcepto.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "asignacioncargo": // Se hace el llamado desde sigesp_sno_d_asignacioncargo.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "represconcuni": // Se hace el llamado desde sigesp_sno_r_resumenconceptounidad.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "reprecpag": // Se hace el llamado desde sigesp_sno_r_recibopago.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "replisfir": // Se hace el llamado desde sigesp_sno_r_recibopago.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "reppagnomdes": // Se hace el llamado desde sigesp_sno_r_pagonominaunidadadmin.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "reppagnomhas": // Se hace el llamado desde sigesp_sno_r_pagonominaunidadadmin.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "pagounides": // Se hace el llamado desde sigesp_sno_r_pagonominaunidadadmin.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
print "
";
break;
case "pagounihas": // Se hace el llamado desde sigesp_sno_r_pagonominaunidadadmin.php
print "";
print "| ".$codigo." | ";
print "".$denominacion." | ";
print "".$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5." | ";
print "".$ls_estclatipo." | ";
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($io_unidadadmin);
}
//--------------------------------------------------------------
?>