"; print "location.href='../../sigesp_inicio_sesion.php'"; print ""; } ?> Definición de Plan de Cuentas de Gasto.
Sistema de Configuración
 
 
NuevoSalirAyuda
uf_conectar(); $io_sql= new class_sql($con); $int_spg= new class_sigesp_int_spg(); ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// require_once("../../shared/class_folder/sigesp_c_seguridad.php"); $io_seguridad= new sigesp_c_seguridad(); $arre=$_SESSION["la_empresa"]; $ls_empresa=$arre["codemp"]; if(array_key_exists("la_logusr",$_SESSION)) { $ls_logusr=$_SESSION["la_logusr"]; } else { $ls_logusr=""; } $ls_sistema = "CFG"; $ls_ventanas = "sigesp_spg_d_copiarplandecuentas.php"; $la_security[1] = $ls_empresa; $la_security[2] = $ls_sistema; $la_security[3] = $ls_logusr; $la_security[4] = $ls_ventanas; $li_estmodest = $arre["estmodest"]; $ls_nomestpro4 = $dat["nomestpro4"]; $ls_nomestpro5 = $dat["nomestpro5"]; if ($li_estmodest=='1') { $li_maxlenght_1 = '20'; $li_maxlenght_2 = '6'; $li_maxlenght_3 = '3'; $li_size = '25'; $ls_ancho = '65'; $ls_nomestpro4 = ""; $ls_nomestpro5 = ""; $ls_denestpro4 = ""; $ls_denestpro5 = ""; } else { $li_maxlenght_1 = '2'; $li_maxlenght_2 = '2'; $li_maxlenght_3 = '2'; $li_size = '5'; $ls_ancho = '85'; } 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["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"]; if(array_key_exists("operacion",$_POST)) { $ls_operacion = $_POST["operacion"]; $ls_codestpro1 = $_POST["codestpro1"]; $ls_codestpro2 = $_POST["codestpro2"]; $ls_codestpro3 = $_POST["codestpro3"]; $ls_codestpro1h=$_POST["codestpro1h"]; $ls_codestpro2h=$_POST["codestpro2h"]; $ls_codestpro3h=$_POST["codestpro3h"]; if ($li_estmodest=='2') { $ls_codestpro4 = $_POST["codestpro4"]; $ls_codestpro5 = $_POST["codestpro5"]; $ls_codestpro4h=$_POST["codestpro4h"]; $ls_codestpro5h=$_POST["codestpro5h"]; } else { $ls_codestpro4 = ""; $ls_codestpro5 = ""; $ls_codestpro4h = ""; $ls_codestpro5h = ""; } } else { $ls_operacion = "NUEVO"; $ls_codestpro1 = ""; $ls_codestpro2 = ""; $ls_codestpro3 = ""; $ls_codestpro4 = ""; $ls_codestpro5 = ""; $ls_codestpro1h = ""; $ls_codestpro2h = ""; $ls_codestpro3h = ""; $ls_codestpro4h = ""; $ls_codestpro5h = ""; } /////////////////////// N U E V O/////////////////////////////////////////////////////////////////// if($ls_operacion=="NUEVO") { $ls_codestpro1 = ""; $ls_codestpro2 = ""; $ls_codestpro3 = ""; $ls_codestpro4 = ""; $ls_codestpro5 = ""; $ls_codestpro1h = ""; $ls_codestpro2h = ""; $ls_codestpro3h = ""; $ls_codestpro4h = ""; $ls_codestpro5h = ""; } /////////////////////// G U A R D A R/////////////////////////////////////////////////////////////////// if($ls_operacion=="COPIAR") { $ls_codestpro1=$_POST["codestpro1"]; $ls_codestpro2=$_POST["codestpro2"]; $ls_codestpro3=$_POST["codestpro3"]; $ls_estcla=$_POST["estclades"]; $ls_codestpro1h=$_POST["codestpro1h"]; $ls_codestpro2h=$_POST["codestpro2h"]; $ls_codestpro3h=$_POST["codestpro3h"]; $ls_estclah=$_POST["estclahas"]; $ls_montos=$_POST["chkmontos"]; $li_error = 0; $li_save = 0; $io_sql->begin_transaction(); if ($li_estmodest=='2') { /* $ls_codestpro1=str_pad($ls_codestpro1,20,"0",STR_PAD_LEFT); $ls_codestpro2=str_pad($ls_codestpro2,6,"0",STR_PAD_LEFT); $ls_codestpro3=str_pad($ls_codestpro3,3,"0",STR_PAD_LEFT); $ls_codestpro1h=str_pad($ls_codestpro1h,20,"0",STR_PAD_LEFT); $ls_codestpro2h=str_pad($ls_codestpro2h,6,"0",STR_PAD_LEFT); $ls_codestpro3h=str_pad($ls_codestpro3h,3,"0",STR_PAD_LEFT);*/ $ls_codestpro4 =$_POST["codestpro4"]; $ls_codestpro5 =$_POST["codestpro5"]; $ls_codestpro4h=$_POST["codestpro4h"]; $ls_codestpro5h=$_POST["codestpro5h"]; } else { $ls_codestpro4="00"; $ls_codestpro5="00"; $ls_codestpro4h="00"; $ls_codestpro5h="00"; } $lb_valido=true; $ls_codestpro1=str_pad($ls_codestpro1,25,"0",STR_PAD_LEFT); $ls_codestpro2=str_pad($ls_codestpro2,25,"0",STR_PAD_LEFT); $ls_codestpro3=str_pad($ls_codestpro3,25,"0",STR_PAD_LEFT); $ls_codestpro4=str_pad($ls_codestpro4,25,"0",STR_PAD_LEFT); $ls_codestpro5=str_pad($ls_codestpro5,25,"0",STR_PAD_LEFT); $ls_codestpro1h=str_pad($ls_codestpro1h,25,"0",STR_PAD_LEFT); $ls_codestpro2h=str_pad($ls_codestpro2h,25,"0",STR_PAD_LEFT); $ls_codestpro3h=str_pad($ls_codestpro3h,25,"0",STR_PAD_LEFT); $ls_codestpro4h=str_pad($ls_codestpro4h,25,"0",STR_PAD_LEFT); $ls_codestpro5h=str_pad($ls_codestpro5h,25,"0",STR_PAD_LEFT); if(($ls_codestpro1!="")&&($ls_codestpro2!="")&&($ls_codestpro3!="")) { $rs_data=$sig_spgcta->uf_buscar_cuentas($ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla); while((!$rs_data->EOF)&&($lb_valido)) { $ls_codemp=$rs_data->fields["codemp"]; $ls_spg_cuenta=$rs_data->fields["spg_cuenta"]; $ls_denominacion=$rs_data->fields["denominacion"]; $ls_status=$rs_data->fields["status"]; $ls_sccuenta=$rs_data->fields["sc_cuenta"]; $ls_nivel=$rs_data->fields["nivel"]; $ls_referencia=$rs_data->fields["referencia"]; $ls_scgctaint=$rs_data->fields["scgctaint"]; $ls_asignado = $rs_data->fields["asignado"]; $ls_distribuir = $rs_data->fields["distribuir"]; $ls_enero = $rs_data->fields["enero"]; $ls_febrero = $rs_data->fields["febrero"]; $ls_marzo = $rs_data->fields["marzo"]; $ls_abril = $rs_data->fields["abril"]; $ls_mayo = $rs_data->fields["mayo"]; $ls_junio = $rs_data->fields["junio"]; $ls_julio = $rs_data->fields["julio"]; $ls_agosto = $rs_data->fields["agosto"]; $ls_septiembre = $rs_data->fields["septiembre"]; $ls_octubre = $rs_data->fields["octubre"]; $ls_noviembre = $rs_data->fields["noviembre"]; $ls_diciembre = $rs_data->fields["diciembre"]; //$ls_asignado,$ls_distribuir,$ls_enero,$ls_febrero,$ls_marzo,$ls_abril,$ls_mayo,$ls_junio,$ls_julio,$ls_agosto,$ls_septiembre,$ls_octubre,$ls_noviembre,$ls_diciembre $lb_existe=$sig_spgcta->uf_verificar_cuentas_destino($ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,$ls_codestpro4h, $ls_codestpro5h,$ls_estclah,$ls_spg_cuenta); if (!$lb_existe) { if ($ls_montos=='on') { $lb_valido=$int_spg->uf_spg_insert_cuenta_y_monto($ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,$ls_codestpro4h, $ls_codestpro5h,$ls_estclah,$ls_spg_cuenta,$ls_denominacion,$ls_sccuenta, $ls_status,$ls_nivel,$ls_referencia,$ls_scgctaint, $ls_asignado,$ls_distribuir,$ls_enero,$ls_febrero,$ls_marzo,$ls_abril,$ls_mayo,$ls_junio,$ls_julio,$ls_agosto,$ls_septiembre,$ls_octubre,$ls_noviembre,$ls_diciembre, $ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5); } else { $lb_valido=$int_spg->uf_spg_insert_cuenta($ls_codestpro1h,$ls_codestpro2h,$ls_codestpro3h,$ls_codestpro4h, $ls_codestpro5h,$ls_estclah,$ls_spg_cuenta,$ls_denominacion,$ls_sccuenta, $ls_status,$ls_nivel,$ls_referencia,$ls_scgctaint); } //print "insertado $ls_spg_cuenta
"; if ($lb_valido) { $li_save=$li_save+1; } else { break; } }// fin del else $rs_data->MoveNext(); } if($lb_valido) { $io_sql->commit(); $io_msg->message("$li_save Cuenta(s) guardada(s) ,$li_error Cuenta(s) con error"); } else { $io_sql->rollback(); $io_msg->message("No se puede Copiar. Ya existe por lo menos $li_error cuenta Presupuestarias asociada a esa Estructura"); } if (($li_error==0)&&($li_save==0)) { $io_msg->message("No se encontraron cuentas Presupuestarias asociada a esa estructura"); } } $ls_codestpro1 = ""; $ls_codestpro2 = ""; $ls_codestpro3 = ""; $ls_codestpro4 = ""; $ls_codestpro5 = ""; $ls_codestpro1h = ""; $ls_codestpro2h = ""; $ls_codestpro3h = ""; $ls_codestpro4h = ""; $ls_codestpro5h = ""; } ?>

 

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

 

Traspasos de Cuentas entre Estructuras Presupuestarias
 

Origen Catálogo de Estructura Programatica 1 Catálogo de Estructura Programatica 2 Catálogo de Estructura Programatica 3
Destino
Catálogo de Estructura Programatica 1 Catálogo de Estructura Programatica 2 Catálogo de Estructura Programatica 3

Origen
Catálogo de Estructura Programatica 1 Catálogo de Estructura Programatica 2 Catálogo de Estructura Programatica 3 Catálogo de Estructura Programatica 3   Catálogo de Estructura Programatica 3
Destino
Catálogo de Estructura Programatica 1 Catálogo de Estructura Programatica 2 Catálogo de Estructura Programatica 3   Catálogo de Estructura Programatica 3   Catálogo de Estructura Programatica 3
   
        Incluir Montos