$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);