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_print_cierrecuentas_cargo($li_totalcargos,$ls_cargarcargos,"S",$ls_tipconpro);
}
uf_print_total($li_totalservicios,$li_totalcargos,"S");
}
break;
}
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_bienes($ai_totalbienes,$as_tipconpro,$as_tipsol)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_bienes
{
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')
{
uf_print_cierrecuentas_cargo($li_totalcargos,$ls_cargarcargos,"S");
}
uf_print_total($li_totalservicios,"S");
break;
case "O": // Conceptos
$ls_titulo="Conceptos";
uf_print_conceptos($li_totalconceptos);
uf_print_creditos($ls_titulo,$li_totalcargos,$ls_cargarcargos,"O");
uf_print_cierrecuentas_gasto($li_totalconceptos,"O");
if ($ls_tipafeiva=='P')
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":
uf_print_fuente_financiamiento($ls_codestpro1, $ls_codestpro2, $ls_codestpro3, $ls_codestpro4, $ls_codestpro5, $ls_estcla);
break;
case "MODALIDAD-CLAUSULAS":
