print "<tr class=titulo-celda>";
print "<td width=40>Código</td>";
print "<td width=350>Denominación</td>";
if ($ls_confiva == 'P') {
print "<td width=200>Programática</td>";
}
print "<td width=50>Porcentaje</td>";
print "<td width=250>Fórmula</td>";
print "</tr>";
for ($z = 1; $z <= $totrow; $z++) {
print "<tr class=celdas-blancas>";
$codigo = $data["codcar"][$z];
$denominacion = $data["dencar"][$z];
$codestpro = $data["codestpro"][$z];
$ls_estcla = $data["estcla"][$z];
$io_funciones_cfg->uf_formato_estructura($codestpro, $ls_codestpro1, $ls_codestpro2, $ls_codestpro3, $ls_codestpro4, $ls_codestpro5);
$as_codestpro1 = substr($codestpro, 0, 25);
$as_codestpro2 = substr($codestpro, 25, 25);
$as_codestpro3 = substr($codestpro, 50, 25);
$as_codestpro4 = substr($codestpro, 75, 25);
$as_codestpro5 = substr($codestpro, 100, 25);
if ($li_estmodest == '1') {
$codestpro = $ls_codestpro1 . $ls_codestpro2 . $ls_codestpro3;
} else {
$codestpro = $ls_codestpro1 . $ls_codestpro2 . $ls_codestpro3 . $ls_codestpro4 . $ls_codestpro5;
}
$porcentaje = $data["porcar"][$z];
$formula = $data["formula"][$z];
$estlibcom = $data["estlibcom"][$z];
$spg_cuenta = $data["spg_cuenta"][$z];
print "<td style=text-align:center><a href=\"javascript: aceptar('{$codigo}','{$denominacion}','{$codestpro}','{$porcentaje}','{$formula}','{$estlibcom}','{$spg_cuenta}','{$ls_estcla}','{$as_codestpro1}','{$as_codestpro2}','{$as_codestpro3}','{$as_codestpro4}','{$as_codestpro5}','{$ls_confiva}');\">" . $codigo . "</a></td>";
