$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)