$ls_est5 = $io_function->uf_cerosizquierda($ls_est5,25);
}
else
{
$ls_est1 = $io_function->uf_cerosizquierda($ls_est1,25);
$ls_est2 = $io_function->uf_cerosizquierda($ls_est2,25);
$ls_est3 = $io_function->uf_cerosizquierda($ls_est3,25);
$ls_est4 = $io_function->uf_cerosizquierda(0,25);
$ls_est5 = $io_function->uf_cerosizquierda(0,25);
}
$ld_monto = $_POST["txtmonto"];
$ldec_monto=str_replace(".","",$ld_monto);
$ldec_monto=str_replace(",",".",$ldec_monto);
$ls_operacionpre= $_POST["txtoperacion"];
$ld_disponible=0;
$lb_valido=$in_classcmp->uf_spg_select_disponibilidad($ls_cuenta,$ls_est1,$ls_est2,$ls_est3,$ls_est4,$ls_est5,$ld_disponible,$ls_operacionpre,$ldec_monto,$ls_estcla);
//$lb_valido=false; // se cambio para fudeco
if(($ld_disponible<$ldec_monto)&&($lb_valido))
{
$io_msg->message(" La Cuenta ".trim($ls_cuenta)." no tiene disponibilidad " );
$ls_cuentaplan= "";
$ls_denominacion= "";
$ls_descripcion= "";
}
else
{
$ldec_monto=0;
$ls_comprobante= $_POST["comprobante"];
$ld_fecha = $_POST["fecha"];
$ls_proccomp = $_POST["procede"];
$ls_desccomp = $_POST["descripcion"];
$ls_monto = str_replace(",",".",$ls_monto);
$ls_estcla = trim($io_funciones_gasto->uf_obtenervalor("txtestcla".$i,""));
$ls_codestpro1 = str_pad(substr($ls_programatica,0,$li_loncodestpro1),25,0,0);
$ls_codestpro2 = str_pad(substr($ls_programatica,$li_loncodestpro1+1,$li_loncodestpro2),25,0,0);
$ls_codestpro3 = str_pad(substr($ls_programatica,$li_loncodestpro1+$li_loncodestpro2+2,$li_loncodestpro3),25,0,0);
if ($li_estmodest==2)
{
$ls_codestpro4 = str_pad(substr($ls_programatica,$li_loncodestpro1+$li_loncodestpro2+$li_loncodestpro3+$li_loncodestpro4+1,$li_loncodestpro4),25,0,0);
$ls_codestpro5 = str_pad(substr($ls_programatica,-$li_loncodestpro5),25,0,0);
}
else
{
$ls_codestpro4 = $ls_codestpro5 = str_pad("",25,0,0);
}
$ld_disponible=0;
$lb_valido=$in_classcmp->uf_spg_select_disponibilidad($ls_cuenta,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ld_disponible,$ls_operacion,$ls_monto,$ls_estcla);
if(($ld_disponible<$ls_monto)&&($lb_valido))
{
$io_msg->message(" La Cuenta ".trim($ls_cuenta)." no tiene disponibilidad " );
$ls_cuentaplan= "";
$ls_denominacion= "";
$ls_descripcion= "";
$lb_valido=false;
}
else
{
$lb_valido=$in_classcmp->uf_guardar_movimientos($arr_cmp,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ls_cuenta,$ls_procede,$ls_descripcion,$ls_documento,
$ls_operacion,0,$ls_monto,"C",$ls_codban,$ls_ctaban,
$ls_estcla);
if (!$lb_valido)
