"; print "location.href='../../sigesp_inicio_sesion.php'"; print ""; } ?> selección de Partida Presupuestaria de Ingresos.
 
NuevoGrabarBuscarEliminarSalirAyuda
uf_obtenervalor_get("destino",""); if(array_key_exists("la_logusr",$_SESSION)) { $ls_logusr=$_SESSION["la_logusr"]; } else { $ls_logusr=""; } $ls_sistema = "CFG"; $ls_ventanas = "sigesp_spi_d_planctas.php"; $li_estmodest = $arre["estmodest"]; $la_security[1] = $ls_empresa; $la_security[2] = $ls_sistema; $la_security[3] = $ls_logusr; $la_security[4] = $ls_ventanas; if (array_key_exists("permisos",$_POST)||($ls_logusr=="PSEGIS")) { if($ls_logusr=="PSEGIS") { $ls_permisos=""; $la_accesos=$io_seguridad->uf_sss_load_permisossigesp(); } else { $ls_permisos = $_POST["permisos"]; $la_accesos["leer"] = $_POST["leer"]; $la_accesos["incluir"] = $_POST["incluir"]; $la_accesos["cambiar"] = $_POST["cambiar"]; $la_accesos["eliminar"] = $_POST["eliminar"]; $la_accesos["imprimir"] = $_POST["imprimir"]; $la_accesos["anular"] = $_POST["anular"]; $la_accesos["ejecutar"] = $_POST["ejecutar"]; } } else { $la_accesos["leer"] = ""; $la_accesos["incluir"] = ""; $la_accesos["cambiar"] = ""; $la_accesos["eliminar"] = ""; $la_accesos["imprimir"] = ""; $la_accesos["anular"] = ""; $la_accesos["ejecutar"] = ""; $ls_permisos = $io_seguridad->uf_sss_load_permisos($ls_empresa,$ls_logusr,$ls_sistema,$ls_ventanas,$la_accesos); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// if (array_key_exists("status",$_POST)) { $ls_estatus=$_POST["status"]; } else { $ls_estatus="NUEVO"; } $ls_formato = trim($dat["formspi"]); $ls_formatoaux = str_replace( "-", "",$ls_formato); $li_size_cta = strlen($ls_formatoaux); if (array_key_exists("operacion",$_POST)) { $ls_operacion = $_POST["operacion"]; $ls_codestpro1 = $_POST["txtcodestpro1"]; $ls_codestpro2 = $_POST["txtcodestpro2"]; $ls_codestpro3 = $_POST["txtcodestpro3"]; $ls_codestpro4 = $_POST["txtcodestpro4"]; $ls_codestpro5 = $_POST["txtcodestpro5"]; $ls_estcla = $_POST["txtestcla"]; } else { $ls_operacion = "NUEVO"; $ls_codestpro1 = $_GET["txtcodestpro1"]; $ls_codestpro2 = $_GET["txtcodestpro2"]; $ls_codestpro3 = $_GET["txtcodestpro3"]; $ls_codestpro4 = $_GET["txtcodestpro4"]; $ls_codestpro5 = $_GET["txtcodestpro5"]; $ls_estcla = $_GET["txtestcla"]; } //Titulos de la grid de Cuentas Presupuestarias. $title[1]="Cuenta de Ingreso"; $title[2]="Denominación"; $title[3]="Edición"; //Nombr del grid $grid1="grid"; //Total de filas iniciales del grid $total=50; //////////////////////////////////////////////////// N U E V O/////////////////////////////////////////////////////////////////// if ($ls_operacion=="NUEVO") { for ($i=1;$i<=$total;$i++) { //Object que contiene los objetos y valores iniciales del grid. $object[$i][1]=""; $object[$i][2]=""; $object[$i][3] ="Cancelar"; } $lastrow = 0; } ////////////////////////////////////////////////// G U A R D A R/////////////////////////////////////////////////////////////////// if($ls_operacion=="GUARDAR") { $total=$_POST["total"]; $lastrow=$_POST["lastrow"]; $li_error=0; $li_save=0; $ls_estcla = $_POST["txtestcla"]; $ls_codestpro1 = $_POST["txtcodestpro1"]; $ls_codestpro2 = $_POST["txtcodestpro2"]; $ls_codestpro3 = $_POST["txtcodestpro3"]; $ls_estcla = $ls_estcla; if ($li_estmodest=='2') { $ls_codestpro4 = $_POST["txtcodestpro4"]; $ls_codestpro5 = $_POST["txtcodestpro5"]; $ls_codestpro4 = str_pad($ls_codestpro4,25,0,0); $ls_codestpro5 = str_pad($ls_codestpro5,25,0,0); } else { $ls_codestpro4 = str_pad('',25,0,0); $ls_codestpro5 = str_pad('',25,0,0); } $ls_codestpro1= str_pad($ls_codestpro1,25,0,0); $ls_codestpro2= str_pad($ls_codestpro2,25,0,0); $ls_codestpro3= str_pad($ls_codestpro3,25,0,0); for($i=1;$i<=$total;$i++) { $ls_cuentaspi = $_POST["txtcuentaspi".$i]; $ls_dencuentaspi= $_POST["txtdencuenta".$i]; if(($ls_cuentaspi!="")&&($ls_dencuentaspi!="")) { $li_len=strlen($ls_cuentaspi); if($li_len!=$li_size_cta) { $ls_cuentaspi=$io_fun->uf_cerosderecha($ls_cuentaspi, $li_size_cta); } $lb_valido=$spicta->uf_buscar_contable($ls_cuentaspi,$ls_cuentascg); //if($lb_valido) //{ $lb_valido=$spicta->uf_valida_cuenta($ls_cuentaspi,$ls_cuentascg); if($lb_valido)//Si la cuenta es valida me permite insertar la cuenta { $lb_valido=$spicta->uf_procesar_cuentas($ls_cuentaspi,$ls_dencuentaspi,$ls_cuentascg, $ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4, $ls_codestpro5,$ls_estcla,$la_security); if(!$lb_valido)//No pudo procesar la cuenta { $li_error=$li_error+1; } else//Genero correctamente la cuenta { $li_save=$li_save+1; } } else//La cuenta no es valida { $li_error=$li_error+1; } // } } //Object que contiene los objetos y valores $object[$i][1]=""; $object[$i][2]=""; $object[$i][3]="Cancelar"; } $io_msg->message("$li_save Cuenta(s) guardada(s) ,$li_error Cuenta(s) con error"); } /////////////////////// D E L E T E///////////////////////////////////////////////////////////////// //Elimina la fila presionada if($ls_operacion=="DELETE") { $li_fila_del = $_POST["filadelete"]; $total = $_POST["total"]; $lastrow = $_POST["lastrow"]; $lastrow = $lastrow-1; $li_error = 0; $li_save = 0; $li_no_existen = 0; $li_temp = 0; for($i=1;$i<=$total;$i++) { $ls_cuentaspi = $_POST["txtcuentaspi".$i]; $ls_dencuentaspi = $_POST["txtdencuenta".$i]; if($i!=$li_fila_del) { $li_temp=$li_temp+1; $object[$li_temp][1]=""; $object[$li_temp][2]=""; $object[$li_temp][3]="Cancelar"; } else { $object[$total][1]=""; $object[$total][2]=""; $object[$total][3]="Cancelar"; //$io_msg->message("$li_save Cuenta(s) borrada(s) ,$li_error Cuenta(s) con error,$li_no_existen cuentas no existen"); } } } /////////////////////// D E L E T E A L L /////////////////////////////////////////////////////////////////// // Elimina todos las cuentas del detalle if($ls_operacion=="DELETEALL") { $total=$_POST["total"]; $lastrow=$_POST["lastrow"]; $li_error=0; $li_save=0; $li_no_existen=0; for($i=1;$i<=$total;$i++) { $ls_cuentaspi = $_POST["txtcuentaspi".$i]; $ls_dencuentaspi= $_POST["txtdencuenta".$i]; if(($ls_cuentaspi!="")&&($ls_dencuentaspi!="")) { $lb_valido=$spicta->uf_buscar_contable($ls_cuentaspi,$ls_cuentascg); $lb_valido=$spicta->uf_procesar_delete_cuenta($ls_cuentaspi,$ls_dencuentaspi,$ls_cuentascg, $lb_existe,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3, $ls_codestpro4,$ls_codestpro5,$ls_estcla,$la_security); if((!$lb_valido)&&(!$lb_existe)) { $li_no_existen=$li_no_existen+1; $ls_cuentaspi = ""; $ls_dencuentaspi= ""; } elseif((!$lb_valido)&&($lb_existe)) { $li_error=$li_error+1; } elseif(($lb_valido)&&($lb_existe)) { $li_save=$li_save+1; $ls_cuentaspi = ""; $ls_dencuentaspi= ""; } } $object[$i][1]=""; $object[$i][2]=""; $object[$i][3] ="Cancelar"; $lastrow = 0; } $io_msg->message("$li_save Cuenta(s) Eliminada(s) ,$li_error Cuenta(s) con error,$li_no_existen cuentas no existen"); } ?>

 

"); print(""); print(""); print(""); print(""); print(""); print(""); print(""); } else { print(""); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?>

 

Selección de Cuentas de Ingreso
 
     

makegrid($total,$title,$object,580,'Detalles Cuenta',$grid1);?>