$ld_totnom2=0;
$ld_totpor2=0;
$ld_totdesnom2=0;
$ld_totctnom2=0;
$ld_totgennom2=0;
$li_i=0;
while ((!$rs_data2->EOF)&&($lb_valido))
{
$ls_estruc=$rs_data2->fields["codprouniadm"];
$rs_data2->MoveNext();
$lb_valido=$io_report->uf_cuadrect($ls_codperi,$ls_ano,$ls_estruc,$ls_estruc,$ls_estcla,$ls_estcla2,$rs_data);
while ((!$rs_data->EOF)&&($lb_valido))
{
$ls_estruc2=$rs_data->fields["codprouniadm"];
$io_fun_nomina->uf_formatoprogramatica ($ls_estruc2,$ls_programatica);
$ls_desnom=$rs_data->fields["desnom"];
$ld_monto=$rs_data->fields["valsal"];
$ls_tipsal=trim($rs_data->fields["tipsal"]);
if ($ls_tipsal=='A')
{
$ld_totctnom=$ld_totctnom+abs($ld_monto);
$ld_totctnom2=$ld_totctnom2+abs($ld_monto);
}
elseif ($ls_tipsal=='D')
{
$ld_totdesnom=$ld_totdesnom+abs($ld_monto);
$ld_totdesnom2=$ld_totdesnom2+abs($ld_monto);
}
$rs_data->MoveNext();
if (trim($rs_data->fields["desnom"]) != trim($ls_desnom))
$ls_codestpro4=str_pad(trim($io_fun_nomina->uf_obtenervalor_get("codestpro4","")),25,"0",0);
$ls_codestpro5=str_pad(trim($io_fun_nomina->uf_obtenervalor_get("codestpro5","")),25,"0",0);
$ls_estcla=trim($io_fun_nomina->uf_obtenervalor_get("estcla",""));
$ls_subnomdes=$io_fun_nomina->uf_obtenervalor_get("subnomdes","");
$ls_subnomhas=$io_fun_nomina->uf_obtenervalor_get("subnomhas","");
$ld_fecdesper=$io_funciones->uf_convertirfecmostrar($_SESSION["la_nomina"]["fecdesper"]);
$ld_fechasper=$io_funciones->uf_convertirfecmostrar($_SESSION["la_nomina"]["fechasper"]);
$li_len1=0;
$li_len2=0;
$li_len3=0;
$li_len4=0;
$li_len5=0;
$ls_tituloprog="";
$ls_programatica="";
$io_fun_nomina->uf_loadmodalidad(&$li_len1,&$li_len2,&$li_len3,&$li_len4,&$li_len5,&$ls_tituloprog);
$io_fun_nomina->uf_formatoprogramatica($ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5,&$ls_programatica);
$ls_titulo="<b>Resumen Contable</b>";
$ls_titulo2="<b>Presupuestario de Aportes</b>";
$ls_titulo3="<b>".$ls_tituloprog."</b>";
$ls_titulo4="<b>".$ls_programatica."</b>";
$ls_periodo="<b>Período Nro ".$ls_peractnom.", ".$ld_fecdesper." - ".$ld_fechasper."</b>";
//--------------------------------------------------------------------------------------------------------------------------------
$lb_valido=uf_insert_seguridad($ls_titulo,$ls_titulo2,$ls_desnom,$ls_periodo,$li_tipo); // Seguridad de Reporte
if($lb_valido) // Buscamos la información que afecta el presupuesto
{
switch($ls_conpronom)
{
case "1":
$lb_valido=$io_report->uf_contableaportes_especifico_presupuesto_proyecto($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,
$ls_codestpro4,$ls_codestpro5,$ls_estcla,
$ls_nacper=$io_report->rs_data->fields["nacper"];
switch($ls_nacper)
{
case "V":
$ls_nacper="Venezolano";
break;
case "E":
$ls_nacper="Extranjero";
break;
}
$ls_desubifis=$io_report->rs_data->fields["desubifis"];
$ls_desest=$io_report->rs_data->fields["desest"];
$ls_denmun=$io_report->rs_data->fields["denmun"];
$ls_denpar=$io_report->rs_data->fields["denpar"];
$ls_programatica="";
$io_fun_nomina->uf_formatoprogramatica($io_report->rs_data->fields["codprouniadm"],&$ls_programatica);
$li_row=$li_row+1;
$lo_hoja->write($li_row, 0, $ls_nacper, $lo_datacenter);
$lo_hoja->write($li_row, 1, $ls_cedper, $lo_datacenter);
$lo_hoja->write($li_row, 2, $ls_apenomper, $lo_dataleft);
$lo_hoja->write($li_row, 3, $ls_sexper, $lo_datacenter);
$lo_hoja->write($li_row, 4, $ls_destipper, $lo_dataleft);
$lo_hoja->write($li_row, 5, $ls_descar, $lo_dataleft);
$lo_hoja->write($li_row, 6, $ls_desuniadm, $lo_dataleft);
$lo_hoja->write($li_row, 7, $ls_programatica, $lo_dataleft);
$lo_hoja->write($li_row, 8, $ld_fecingper, $lo_datacenter);
$lo_hoja->write_string($li_row, 9, $ls_codcueban, $lo_dataleft);
$lo_hoja->write($li_row, 10, $ls_desubifis, $lo_dataleft);
$lo_hoja->write($li_row, 11, $ls_desest, $lo_dataleft);
$lo_hoja->write($li_row, 12, $ls_denmun, $lo_dataleft);
$lo_hoja->write($li_row, 13, $ls_denpar, $lo_dataleft);
