Definición de Plan de Cuentas de Gasto.

"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } ?> Definición de Plan de Cuentas de Gasto.

Sistema de Contabilidad Patrimonial

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"; } $dat=$_SESSION["la_empresa"]; $ls_formato=$dat["formpre"]; $ls_formatoaux = str_replace( "-", "",$ls_formato); $li_size_cta=strlen($ls_formatoaux); //Arreglo que contiene los parametros de configuracion de la empresa $dat=$_SESSION["la_empresa"]; //Instancia de la clase de manejo de Grid dinamico require_once("../shared/class_folder/grid_param.php"); require_once("../shared/class_folder/class_funciones.php"); $io_grid=new grid_param(); $io_fun=new class_funciones(); if(array_key_exists("operacion",$_POST)) { $ls_operacion=$_POST["operacion"]; } else { $ls_operacion = "NUEVO"; } //Titulos de la grid de Cuentas Presupuestarias. $title[1]="Cuenta Presupuestaria"; $title[2]="Denominación"; $title[3]="Cuenta Contable"; //$title[4]="Edición"; //Nombr del grid $grid1="grid"; //Total de filas iniciales del grid /////////////////////// N U E V O/////////////////////////////////////////////////////////////////// if($ls_operacion=="NUEVO") { $ls_estpro1 = ""; $ls_estpro2 = ""; $ls_estpro3 = ""; $ls_denestpro1 =""; $ls_denestpro2 =""; $ls_denestpro3 =""; $sig_spgcta->uf_cargar_cuentas($object,$total); $lastrow = 0; } if($ls_operacion=="BLANQUEAR") { 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]="

"; $object[$i][4] ="

"; } $lastrow = 0; } /////////////////////// G U A R D A R/////////////////////////////////////////////////////////////////// if($ls_operacion=="GUARDAR") { $total=$_POST["total"]; $lastrow=$_POST["lastrow"]; $ls_estpro1=$_POST["codestpro1"]; $ls_estpro2=$_POST["codestpro2"]; $ls_estpro3=$_POST["codestpro3"]; $la_estpro[0]=$ls_estpro1; $la_estpro[1]=$ls_estpro2; $la_estpro[2]=$ls_estpro3; $la_estpro[3]="00"; $la_estpro[4]="00"; $li_error=0; $li_save=0; for($i=1;$i<=$total;$i++) { $ls_cuentaspg = $_POST["txtcuentaspg".$i]; $ls_dencuentaspg= $_POST["txtdencuenta".$i]; $ls_cuentascg = $_POST["txtcuentascg".$i]; if(($ls_cuentaspg!="")&&($ls_dencuentaspg!="")&&($ls_cuentascg!="")) { $li_len=strlen($ls_cuentaspg); if($li_len!=$li_size_cta) { $ls_cuentaspg=$io_fun->uf_cerosderecha($ls_cuentaspg, $li_size_cta); } $lb_valido=$sig_spgcta->uf_valida_cuenta($ls_cuentaspg ,$la_estpro,$ls_cuentascg); if($lb_valido)//Si la cuenta es valida me permite insertar la cuenta { $lb_valido=$sig_spgcta->uf_procesar_cuentas($ls_cuentaspg,$ls_dencuentaspg,$la_estpro,$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_cuentaspg!="")&&($ls_cuentascg=="")) { $msg->message("Cuenta Presupuestaria $ls_cuentaspg ,necesita el casamiento contable"); } //Object que contiene los objetos y valores $object[$i][1]=""; $object[$i][2]=""; $object[$i][3]="

"; $object[$i][4] ="

"; } $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; $ls_estpro1=$_POST["codestpro1"]; $ls_estpro2=$_POST["codestpro2"]; $ls_estpro3=$_POST["codestpro3"]; $la_estpro[0]=$ls_estpro1; $la_estpro[1]=$ls_estpro2; $la_estpro[2]=$ls_estpro3; $la_estpro[3]="00"; $la_estpro[4]="00"; $li_error=0; $li_save=0; $li_no_existen=0; $li_temp=0; for($i=1;$i<=$total;$i++) { $ls_cuentaspg = $_POST["txtcuentaspg".$i]; $ls_dencuentaspg= $_POST["txtdencuenta".$i]; $ls_cuentascg = $_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]="

"; $object[$li_temp][4] ="

"; } else { $li_fila_del=0; $lb_valido=$sig_spgcta->uf_procesar_delete_cuenta($ls_cuentaspg,$ls_dencuentaspg,$la_estpro,$ls_cuentascg,$lb_existe,$la_security); if((!$lb_valido)&&(!$lb_existe)) { $li_no_existen=$li_no_existen+1; $ls_cuentaspg = ""; $ls_dencuentaspg= ""; $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]="

"; $object[$li_temp][4] ="

"; } elseif(($lb_valido)&&($lb_existe)) { $li_save=$li_save+1; $ls_cuentaspg = ""; $ls_dencuentaspg= ""; $ls_cuentascg = ""; } } } $object[$total][1]=""; $object[$total][2]=""; $object[$total][3]="

"; $object[$total][4] ="

"; $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"]; $ls_estpro1=$_POST["codestpro1"]; $ls_estpro2=$_POST["codestpro2"]; $ls_estpro3=$_POST["codestpro3"]; $la_estpro[0]=$ls_estpro1; $la_estpro[1]=$ls_estpro2; $la_estpro[2]=$ls_estpro3; $la_estpro[3]="00"; $la_estpro[4]="00"; $li_error=0; $li_save=0; $li_no_existen=0; for($i=1;$i<=$total;$i++) { $ls_cuentaspg = $_POST["txtcuentaspg".$i]; $ls_dencuentaspg= $_POST["txtdencuenta".$i]; $ls_cuentascg = $_POST["txtcuentascg".$i]; if(($ls_cuentaspg!="")&&($ls_dencuentaspg!="")) { $lb_valido=$sig_spgcta->uf_procesar_delete_cuenta($ls_cuentaspg,$ls_dencuentaspg,$la_estpro,$ls_cuentascg,$lb_existe,$la_security); if((!$lb_valido)&&(!$lb_existe)) { $li_no_existen=$li_no_existen+1; $ls_cuentaspg = ""; $ls_dencuentaspg= ""; $ls_cuentascg = ""; } elseif((!$lb_valido)&&($lb_existe)) { $li_error=$li_error+1; } elseif(($lb_valido)&&($lb_existe)) { $li_save=$li_save+1; $ls_cuentaspg = ""; $ls_dencuentaspg= ""; $ls_cuentascg = ""; } } $object[$i][1]=""; $object[$i][2]=""; $object[$i][3]="

"; $object[$i][4] ="

"; $lastrow = 0; } $msg->message("$li_save Cuenta(s) Eliminada(s) ,$li_error Cuenta(s) con error,$li_no_existen cuentas no existen"); } ?>