$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":
