"; print "location.href='../../sigesp_inicio_sesion.php'"; print ""; } ?> Definición de Plan de Cuentas de Ingreso.
Sistema de Configuración
 
 
NuevoGrabarBuscarEliminarImprimirSalirAyuda
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"]; } else { $ls_operacion = "NUEVO"; } //Titulos de la grid de Cuentas Presupuestarias. $title[1]="Cuenta de Ingreso"; $title[2]="Denominación"; $title[3]="Cuenta Contable"; $title[4]="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]="Catalogo de Cuentas Contablese "; $object[$i][4] ="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; for($i=1;$i<=$total;$i++) { $ls_cuentaspi = trim($_POST["txtcuentaspi".$i]); $ls_dencuentaspi= $_POST["txtdencuenta".$i]; $ls_cuentascg = trim($_POST["txtcuentascg".$i]); if(($ls_cuentaspi!="")&&($ls_dencuentaspi!="")&&($ls_cuentascg!="")) { $li_len=strlen($ls_cuentaspi); if($li_len!=$li_size_cta) { $ls_cuentaspi=$io_fun->uf_cerosderecha($ls_cuentaspi, $li_size_cta); } $lb_valido=$sig_spicta->uf_valida_cuenta($ls_cuentaspi,$ls_cuentascg); if($lb_valido)//Si la cuenta es valida me permite insertar la cuenta { $lb_valido=$sig_spicta->uf_procesar_cuentas(trim($ls_cuentaspi),$ls_dencuentaspi,trim($ls_cuentascg),$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; } } if(($ls_cuentaspi!="")&&($ls_cuentascg=="")) { $io_msg->message("Cuenta Presupuestaria $ls_cuentaspi ,necesita el casamiento contable"); } //Object que contiene los objetos y valores $object[$i][1]=""; $object[$i][2]=""; $object[$i][3]="Catalogo de Cuentas Contablese "; $object[$i][4] ="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 = trim($_POST["txtcuentaspi".$i]); $ls_dencuentaspi = $_POST["txtdencuenta".$i]; $ls_cuentascg = trim($_POST["txtcuentascg".$i]); if($i!=$li_fila_del) { $li_temp=$li_temp+1; $object[$li_temp][1]=""; $object[$li_temp][2]=""; $object[$li_temp][3]="Catalogo de Cuentas Contablese "; $object[$li_temp][4] ="Cancelar"; } else { $li_fila_del=0; $lb_valido=$sig_spicta->uf_procesar_delete_cuenta($ls_cuentaspi,$ls_dencuentaspi,$ls_cuentascg,$lb_existe,$la_security); if((!$lb_valido)&&(!$lb_existe)) { $li_no_existen=$li_no_existen+1; $ls_cuentaspi = ""; $ls_dencuentaspi= ""; $ls_cuentascg = ""; } elseif((!$lb_valido)&&($lb_existe)) { $li_error=$li_error+1; $li_temp=$li_temp+1; $object[$li_temp][1]=""; $object[$li_temp][2]=""; $object[$li_temp][3]="Catalogo de Cuentas Contablese "; $object[$li_temp][4] ="Cancelar"; } elseif(($lb_valido)&&($lb_existe)) { $li_save=$li_save+1; $ls_cuentaspi = ""; $ls_dencuentaspi= ""; $ls_cuentascg = ""; } } } $object[$total][1]=""; $object[$total][2]=""; $object[$total][3]="Catalogo de Cuentas Contablese "; $object[$total][4] ="Cancelar"; $io_msg->message("$li_save Cuenta(s) Eliminada(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 = trim($_POST["txtcuentaspi".$i]); $ls_dencuentaspi= $_POST["txtdencuenta".$i]; $ls_cuentascg = trim($_POST["txtcuentascg".$i]); if(($ls_cuentaspi!="")&&($ls_dencuentaspi!="")) { $lb_valido=$sig_spicta->uf_procesar_delete_cuenta(trim($ls_cuentaspi),$ls_dencuentaspi,trim($ls_cuentascg),$lb_existe,$la_security); if((!$lb_valido)&&(!$lb_existe)) { $li_no_existen=$li_no_existen+1; $ls_cuentaspi = ""; $ls_dencuentaspi= ""; $ls_cuentascg = ""; } elseif((!$lb_valido)&&($lb_existe)) { $li_error=$li_error+1; } elseif(($lb_valido)&&($lb_existe)) { $li_save=$li_save+1; $ls_cuentaspi = ""; $ls_dencuentaspi= ""; $ls_cuentascg = ""; } } $object[$i][1]=""; $object[$i][2]=""; $object[$i][3]="Catalogo de Cuentas Contablese "; $object[$i][4] ="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 ///////////////////////////////////////////// ?>

 

Definición Plan de Cuentas de Ingreso
 
   
     

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