";
print "| ".$_SESSION["la_empresa"]["nomestpro1"]." | ";
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,denestpro2,estcla ".
" FROM spg_ep2 ".
" WHERE codemp='".$ls_codemp."' ".
" AND codestpro1 ='".str_pad($as_codestprog1,25,"0",0)."' ".
" AND estcla ='".$as_estcla1."'".
" AND codestpro2 like '".$as_codestprog2."' ".
" AND denestpro2 like '".$as_denominacion."' ".
" ORDER BY codestpro1, codestpro2 ";
$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"];
$io_fun_nomina->uf_formato_programatica_detallado($li_len1,$ls_codestpro1);
$io_fun_nomina->uf_formato_programatica_detallado($li_len2,$ls_codestpro2);
$denominacion=$rs_data->fields["denestpro2"];
$ls_estcla=$rs_data->fields["estcla"];
switch($as_tipo)
{
case "":
print "