{
$ld_totaldisminucion=$ld_totaldisminucion+$la_disminucion["monto"][$li_i];
}
}
$ld_totalvariacion=$ld_totalaumento-$ld_totaldisminucion;
$lb_valido=$io_contrato-> uf_select_contrato($ls_codcon,$la_contrato);
if ($lb_valido)
{
$io_datastore->data=$la_contrato;
$li_i=1;
$ls_codcon=$io_datastore->getValue("codcon",$li_i);
$ls_moncon=$io_funsob->uf_convertir_numerocadena($io_datastore->getValue("monto",$li_i));
}
$io_anticipo->uf_calcular_montoanticipo($ls_codcon,$ld_montototalanticipoaux);
$ld_montototalanticipo=$io_funsob->uf_convertir_numerocadena($ld_montototalanticipoaux);
$ld_montocontrato=$la_contrato["monto"][1];
$ld_montocontratofinal=$ld_montocontrato+$ld_totalvariacion;
$ld_montocontrato=$io_funsob->uf_convertir_numerocadena($ld_montocontrato);
$ld_montocontratofinal=$io_funsob->uf_convertir_numerocadena($ld_montocontratofinal);
$ld_monvar=$io_funsob->uf_convertir_numerocadena($ld_totalvariacion);
$lb_valido=$io_obra->uf_select_obra($io_datastore->getValue("codobr",$li_i),$la_obra);
if($lb_valido)
$ls_desobr=$la_obra["desobr"][1];
}
elseif($ls_operacion=="ue_guardar")
{
$ld_monto=$io_funsob->uf_convertir_cadenanumero($ls_monto);
$ld_montotant=$io_funsob->uf_convertir_cadenanumero($ls_montotant);
$ld_porant=$io_funsob->uf_convertir_cadenanumero($ls_porant);
if($ld_montoanticipo!=0)
$la_data["totalanticipo"][$li_j]=$io_funsob->uf_convertir_numerocadena($ld_montoanticipo);
else
$la_data["totalanticipo"][$li_j]="---";
}
}
break;
case "amortizacionanticipo":
include_once("class_folder/sigesp_sob_c_anticipo.php");
include_once("class_folder/sigesp_sob_c_valuacion.php");
$io_anticipo=new sigesp_sob_c_anticipo();
$io_valuacion=new sigesp_sob_c_valuacion();
for($li_j=1;$li_j<=$li_filasdata;$li_j++)
{
$ls_codcon=$la_data["codcon"][$li_j];
$lb_valido=$io_anticipo->uf_calcular_montoanticipo($ls_codcon,$ld_montoanticipo);
if($lb_valido && $ld_montoanticipo!=0)
{
$lb_valido=$io_valuacion->uf_amortizacion_anticipo($ls_codcon,$ld_amortizacion);
if($lb_valido)
{
$ld_poramortizacion=$ld_amortizacion*100/$ld_montoanticipo;
$la_data["amortizacionanticipo"][$li_j]=$io_funsob->uf_convertir_numerocadena($ld_poramortizacion);
}
}
elseif($ld_montoanticipo==0)
{
$la_data["amortizacionanticipo"][$li_j]="---";
}
}
break;
