";
print "| ".$_SESSION["la_empresa"]["nomestpro1"]." | ";
print "".$_SESSION["la_empresa"]["nomestpro2"]." | ";
print "".$_SESSION["la_empresa"]["nomestpro3"]." | ";
print "Código | ";
print "Denominación | ";
print "
";
$io_fun_nomina->uf_loadmodalidad($li_len1,$li_len2,$li_len3,$li_len4,$li_len5,$ls_titulo);
$ls_sql="SELECT codestpro1,codestpro2,codestpro3,codestpro4,denestpro4,estcla ".
" FROM spg_ep4 ".
" WHERE codemp='".$ls_codemp."' ".
" AND codestpro1 ='".str_pad($as_codestprog1,25,"0",0)."' ".
" AND codestpro2 ='".str_pad($as_codestprog2,25,"0",0)."' ".
" AND codestpro3 ='".str_pad($as_codestprog3,25,"0",0)."' ".
" AND estcla ='".$as_estcla."'".
" AND codestpro4 like '".$as_codestprog4."' ".
" AND denestpro4 like '".$as_denominacion."' ".
" ORDER BY codestpro1,codestpro2,codestpro3,codestpro4 ";
$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_codestpro1=$rs_data->fields["codestpro1"];
$ls_codestpro2=$rs_data->fields["codestpro2"];
$ls_codestpro3=$rs_data->fields["codestpro3"];
$ls_codestpro4=$rs_data->fields["codestpro4"];
$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);
$denominacion=$rs_data->fields["denestpro4"];
$ls_estcla=$rs_data->fields["estcla"];
switch($as_tipo)
{
case "":
print "