Modificación de Presupuesto Programado (Mensual)

"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } ?> Modificación de Presupuesto Programado (Mensual)

Contabilidad Presupuestaria de Gasto

"); print(" alert('La Programación se Realizo Trimestral, No se puede usar esta opción .');"); print('if(opener!=null){close();}else{window.location="sigespwindow_blank.php";}'); print(""); } } else { print(""); } $ls_empresa=$arre["codemp"]; $io_fun_gasto=new class_funciones_gasto(); $io_fun_gasto->uf_load_seguridad("SPG","sigesp_spg_p_modprog.php",$ls_permisos,$la_seguridad,$la_permisos); //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// $title[1]="Mes Disminución"; $title[2]="Mes Aumento"; $title[3]="Cuenta"; $title[4]="Monto"; $grid1="grid_modProg"; function cargar_linea_blanca($ls_fila, &$ls_object) { $ls_object[$ls_fila][1]=""; $ls_object[$ls_fila][2]=""; $ls_object[$ls_fila][3]=""; $ls_object[$ls_fila][4]=""; }/// fin de la funciòn if(array_key_exists("la_logusr",$_SESSION)) { $ls_logusr=$_SESSION["la_logusr"]; } else { $ls_logusr=""; } $ls_sistema="SPG"; $ls_ventana="sigesp_spg_p_modprog.php"; $la_security[1]=$ls_empresa; $la_security[2]=$ls_sistema; $la_security[3]=$ls_logusr; $la_security[4]=$ls_ventana; if (array_key_exists("permisos",$_POST)||($ls_logusr=="PSEGIS")) { if($ls_logusr=="PSEGIS") { $lb_permisos=true; } else { $lb_permisos=$_POST["permisos"]; } } else { $lb_permisos=$io_seguridad->uf_sss_select_permisos($ls_empresa,$ls_logusr,$ls_sistema,$ls_ventana); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// $sig_inc = new sigesp_include(); $con = $sig_inc->uf_conectar(); $fun_db = new class_funciones_db($con); $fun = new class_funciones(); $int_scg = new class_sigesp_int_scg(); $int_spg = new class_sigesp_int_spg(); $msg = new class_mensajes(); $io_grid = new grid_param(); $int_fec = new class_fecha(); $io_sql = new class_sql($con); $la_emp=$_SESSION["la_empresa"]; $li_estmodest = $la_emp["estmodest"]; $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; if(array_key_exists("operacion",$_POST)) { $ls_fecha = $_POST["txtfecha"]; $ls_fila = $_POST["fila"]; $ls_operacion=$_POST["operacion"]; $ls_cuentaplan = $_POST["txtcuenta"]; $ls_monto= $_POST["txtmonto"]; $ls_denominacion=$_POST["txtdenominacion"]; $ls_codestpro1=$_POST["codestpro1"]; $ls_codestpro1=str_pad($ls_codestpro1,25,"0",0); $ls_codestpro2=$_POST["codestpro2"]; $ls_codestpro2=str_pad($ls_codestpro2,25,"0",0); $ls_codestpro3=$_POST["codestpro3"]; $ls_codestpro3=str_pad($ls_codestpro3,25,"0",0); $ls_codestpro4="00"; $ls_codestpro4=str_pad($ls_codestpro4,25,"0",0); $ls_codestpro5="00"; $ls_codestpro5=str_pad($ls_codestpro5,25,"0",0); $ls_denestpro1=$_POST["denestpro1"]; $ls_denestpro2=$_POST["denestpro2"]; $ls_denestpro3=$_POST["denestpro3"]; if ($li_estmodest==2) { $ls_codestpro4=$_POST["codestpro4"]; $ls_codestpro4=str_pad($ls_codestpro4,25,"0",0); $ls_codestpro5=$_POST["codestpro5"]; $ls_codestpro5=str_pad($ls_codestpro5,25,"0",0); $ls_denestpro4=$_POST["denestpro5"]; $ls_denestpro5=$_POST["denestpro5"]; } $li_mes1=$_POST["mes1"]; $li_mes2=$_POST["mes2"]; $li_existe=$_POST["existe"]; $li_estcla=$_POST["estcla"]; } else { $ls_operacion="NUEVO"; $ls_denominacion=""; $array_fecha=getdate(); $ls_dia=$array_fecha["mday"]; $ls_mes=$array_fecha["mon"]; $ls_ano=$array_fecha["year"]; $ls_fecha=$fun->uf_cerosizquierda($ls_dia,2)."/".$fun->uf_cerosizquierda($ls_mes,2)."/".$ls_ano; $li_fila = 0; $li_estapro = 0; $ls_cuentaplan = ""; $ls_denominacion =""; $ls_monto="0,00"; $ls_codestpro1=""; $ls_codestpro2=""; $ls_codestpro3=""; $ls_denestpro1=""; $ls_denestpro2=""; $ls_denestpro3=""; if ($li_estmodest==2) { $ls_codestpro4=""; $ls_codestpro5=""; $ls_denestpro4=""; $ls_denestpro5=""; } $li_mes1=0; $li_mes2=0; $li_existe="N"; $li_estcla=""; } if($ls_operacion=="NUEVO")//Acciones para un comprobante nuevo { $ls_codestpro1=""; $ls_codestpro2=""; $ls_codestpro3=""; $ls_codestpro4=""; $ls_codestpro5=""; $ls_denestpro1=""; $ls_denestpro2=""; $ls_denestpro3=""; $ls_denestpro4=""; $ls_denestpro5=""; $ls_cuentaplan = ""; $ls_denominacion = ""; $ls_tipo = ""; $ls_fila =1; $li_estapro = 0; $totalDI=1; $totalAU=1; $ls_monto="0,00"; $li_estmodest=$la_emp["estmodest"];//modalidad if($li_estmodest==1) { $li_size=32; $li_size_estmodest = 32; $li_maxlength=29; } else { $li_size=40; $li_size_estmodest = 14; $li_maxlength=33; } $li_mes1=0; $li_mes2=0; $ls_fila=1; $li_existe="N"; $ls_fila=1; $li_estcla=""; cargar_linea_blanca($ls_fila, $ls_object); } if($ls_operacion=="GUARDAR") { $ls_fecha = $_POST["txtfecha"]; $ls_denominacion=$_POST["txtdenominacion"]; $ls_fila = $_POST["fila"]; $ls_cuentaplan = $_POST["txtcuenta"]; $ls_monto= $_POST["txtmonto"]; $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; $ls_codestpro1=$_POST["codestpro1"]; $ls_codest1=str_pad($ls_codestpro1,25,"0",0); $ls_codestpro2=$_POST["codestpro2"]; $ls_codest2=str_pad($ls_codestpro2,25,"0",0); $ls_codestpro3=$_POST["codestpro3"]; $ls_codest3=str_pad($ls_codestpro3,25,"0",0); $ls_codestpro4="00"; $ls_codest4=str_pad($ls_codestpro4,25,"0",0); $ls_codestpro5="00"; $ls_codest5=str_pad($ls_codestpro5,25,"0",0); if ($li_estmodest==2) { $ls_codestpro4=$_POST["codestpro4"]; $ls_codest4=str_pad($ls_codestpro4,25,"0",0); $ls_codestpro5=$_POST["codestpro5"]; $ls_codest5=str_pad($ls_codestpro5,25,"0",0); } $li_estcla=$_POST["estcla"]; $li_mes1=$_POST["mes1"]; $li_mes2=$_POST["mes2"]; $io_modprog->io_sql->begin_transaction();// iniciamos la transaccion $lb_valido=$io_modprog->uf_buscar_disponibilidad_mensual($li_mes1,$li_mes2,$ls_codest1,$ls_codest2,$ls_codest3,$ls_codest4,$ls_codest5,$li_estcla, $ls_cuentaplan, $ls_monto, $ls_fecha, $la_security); if ($lb_valido) { $io_modprog->io_sql->commit(); $li_existe="C"; } else { $io_modprog->io_sql->rollback(); } if ($lb_valido) { $ls_fila=$ls_fila+1; } for ($i=1;$i<$ls_fila;$i++) { $li_mespri=$_POST["txtmes1".$i]; if ($li_mespri=="") { $li_mespri=$li_mes1; } switch ($li_mespri) { case "1": $li_mespri="Enero"; break; case "2": $li_mespri="Febrero"; break; case "3": $li_mespri="Marzo"; break; case "4": $li_mespri="Abril"; break; case "5": $li_mespri="Mayo"; break; case "6": $li_mespri="Junio"; break; case "7": $li_mespri="Julio"; break; case "8": $li_mespri="Agosto"; break; case "9": $li_mespri="Septiembre"; break; case "10": $li_mespri="Octubre"; break; case "11": $li_mespri="Noviembre"; break; case "12": $li_mespri="Diciembre"; break; } $li_messegu=$_POST["txtmes2".$i]; if ($li_messegu=="") { $li_messegu=$li_mes2; } switch ($li_messegu) { case "1": $li_messegu="Enero"; break; case "2": $li_messegu="Febrero"; break; case "3": $li_messegu="Marzo"; break; case "4": $li_messegu="Abril"; break; case "5": $li_messegu="Mayo"; break; case "6": $li_messegu="Junio"; break; case "7": $li_messegu="Julio"; break; case "8": $li_messegu="Agosto"; break; case "9": $li_messegu="Septiembre"; break; case "10": $li_messegu="Octubre"; break; case "11": $li_messegu="Noviembre"; break; case "12": $li_messegu="Diciembre"; break; } $ls_monto1=$_POST["txtmontoact".$i]; if ( $ls_monto1=="") { $ls_monto1=$ls_monto; } $ls_cuenta1=$_POST["txtcuentaplan".$i]; if ( $ls_cuenta1=="") { $ls_cuenta1=$ls_cuentaplan; } $ls_object[$i][1]=""; $ls_object[$i][2]=""; $ls_object[$i][3]=""; $ls_object[$i][4]=""; } cargar_linea_blanca($ls_fila, $ls_object); } function uf_get_nombremes($as_mes) { $ls_nombre=""; switch($as_mes) { case "01":$ls_nombre= "Enero"; break; case "02":$ls_nombre= "Febrero"; break; case "03":$ls_nombre= "Marzo"; break; case "04":$ls_nombre= "Abril"; break; case "05":$ls_nombre= "Mayo"; break; case "06":$ls_nombre= "Junio"; break; case "07":$ls_nombre= "Julio"; break; case "08":$ls_nombre= "Agosto"; break; case "09":$ls_nombre= "Septiembre"; break; case "10":$ls_nombre= "Octubre"; break; case "11":$ls_nombre= "Noviembre"; break; case "12":$ls_nombre= "Diciembre"; break; } return $ls_nombre; } if($ls_operacion == "CARGAR_DT") { $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $ls_incio1=25-$ls_loncodestpro1; $ls_incio2=25-$ls_loncodestpro2; $ls_incio3=25-$ls_loncodestpro3; if($li_estmodest == 2) { $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; $ls_incio4=25-$ls_loncodestpro4; $ls_incio5=25-$ls_loncodestpro5; } $ls_codestpro1 =substr($ls_codestpro1,$ls_incio1,$ls_loncodestpro1); $ls_codestpro2 =substr($ls_codestpro2,$ls_incio2,$ls_loncodestpro2); $ls_codestpro3 =substr($ls_codestpro3,$ls_incio3,$ls_loncodestpro3); if($li_estmodest == 2) { $ls_codestpro4=substr($ls_codestpro4,$ls_incio4,$ls_loncodestpro4); $ls_codestpro5=substr($ls_codestpro5,$ls_incio5,$ls_loncodestpro5); } $ls_fila=2; $ls_mes1 = uf_get_nombremes($_POST["mes1"]); $ls_mes2 = uf_get_nombremes($_POST["mes2"]); $ls_object[1][1]=""; $ls_object[1][2]=""; $ls_object[1][3]=""; $ls_object[1][4]=""; cargar_linea_blanca($ls_fila,$ls_object); } ?>

uf_print_permisos($ls_permisos,$la_permisos,$ls_logusr,'if(opener!=null){close();}else{window.location="sigespwindow_blank.php";}'); unset($io_fun_gasto); ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?>

Modificación de Presupuesto Programado (Mensual)

		Fecha
Unidad Ejecutora








Cuenta
Mes Disminuir	Mes Aumentar
Monto

		Modificar Programación

makegrid($ls_fila,$title,$ls_object,770,'Listados de Periodos Mensuales Modificados',$grid1);?>