$ld_subordcom=$ld_creordcom=0; uf_print_bienes_sep($li_totalbienes,$ls_numsol,$ls_tipsol,$ls_tipconpro,$ld_subordcom,$ld_creordcom); uf_print_creditos_sep($ls_titulo,$li_totalcargos,$ls_cargarcargos,"B",$ls_numsol,$ls_tipsol,$ls_tipconpro,$ls_numordcom); break; case "AGREGARSERVICIOS-SEP": $ls_titulo="Servicios"; $ld_subordcom=$ld_creordcom=0; uf_print_servicios_sep($li_totalservicios,$ls_numsol,$ls_tipsol,$ls_tipconpro,$ld_subordcom,$ld_creordcom); uf_print_creditos_sep($ls_titulo,$li_totalcargos,$ls_cargarcargos,"S",$ls_numsol,$ls_tipsol,$ls_tipconpro,$ls_numordcom); break; case "AGREGARCUENTAS": if($ls_tipo=="B") { $ls_titulo="Bien o Material"; uf_print_bienes($li_totalbienes,$ls_tipconpro,$ls_tipsol); uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,"B",$ls_tipconpro,$ls_tipsol); uf_print_cierrecuentas_gasto($li_totalbienes,"B"); if ($ls_tipafeiva=='P') { uf_print_cierrecuentas_cargo($li_totalcargos,$ls_cargarcargos,"B",$ls_tipconpro); } uf_print_total($li_totalbienes,$li_totalcargos,"B"); } else { $ls_titulo="Servicios"; uf_print_servicios($li_totalservicios,$ls_tipconpro,$ls_tipsol); uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,"S",$ls_tipconpro,$ls_tipsol); uf_print_cierrecuentas_gasto($li_totalservicios,"S"); if ($ls_tipafeiva=='P')
uf_load_conceptos($ls_numsol); uf_load_creditos($ls_titulo,$ls_numsol,"O"); uf_load_cuentas($ls_numsol,"O"); if ($ls_tipafeiva=='P') { uf_load_cuentas_cargo($ls_numsol,"O"); } uf_load_total($li_subtotal,$li_cargos,$li_total); break; case "AGREGARCUENTAS": switch(substr($ls_tipo,3,1)) { case "B": // Bienes $ls_titulo="Bien o Material"; uf_print_bienes($li_totalbienes); uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,"B"); uf_print_cierrecuentas_gasto($li_totalbienes,"B"); if ($ls_tipafeiva=='P') { uf_print_cierrecuentas_cargo($li_totalcargos,$ls_cargarcargos,"B"); } uf_print_total($li_totalbienes,"B"); break; case "S": // Servicios $ls_titulo="Servicios"; uf_print_servicios($li_totalservicios); uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,"S"); uf_print_cierrecuentas_gasto($li_totalservicios,"S"); if ($ls_tipafeiva=='P')
$io_conexiones->decodificar_post(); // Tipo del catalogo que se requiere pintar $ls_catalogo=$io_funciones_soc->uf_obtenervalor("catalogo",""); switch($ls_catalogo) { case "PERSONAL": uf_print_personal(); break; case "UNIDADEJECUTORA": uf_print_unidad_ejecutora(); break; case "BIENES": uf_print_bienes(); break; case "SERVICIOS": uf_print_servicios(); break; case "PROVEEDOR": uf_print_proveedor($ls_tipo); break; case "COTIZACION_ANALISIS": uf_print_cotizacion_analisis(); break; case "FUENTE-FINANCIAMIENTO":