Comprobante de Traspaso

"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } ?> Comprobante de Traspaso >

Contabilidad Presupuestaria de Gasto

uf_load_seguridad("SPG","sigesp_spg_p_traspaso.php",$ls_permisos,$la_seguridad,$la_permisos); ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// require_once("../shared/class_folder/sigesp_c_seguridad.php"); $io_seguridad= new sigesp_c_seguridad(); $arre=$_SESSION["la_empresa"]; $li_estmodest=$arre["estmodest"]; $ls_empresa=$arre["codemp"]; if(array_key_exists("la_logusr",$_SESSION)) { $ls_logusr=$_SESSION["la_logusr"]; } else { $ls_logusr=""; } $ls_sistema="SPG"; $ls_ventana="sigesp_spg_p_traspaso.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); $in_classcmp = new sigesp_spg_c_mod_presupuestarias(); $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); $ls_reporte = $io_fun_gasto->uf_select_config("SPG","REPORTE","MODIFICACION_PRESUPUESTARIA_TRASPASO","sigesp_spg_rpp_sol_mod_pre_forma0301.php","C"); $la_emp=$_SESSION["la_empresa"]; $li_estmodest = $la_emp["estmodest"]; if(array_key_exists("operacion",$_POST)) { $ls_operacion = $_POST["operacion"]; $ls_procede = $_POST["txtproccomp"]; $ls_comprobante = $_POST["txtcomprobante"]; $ls_fecha = $_POST["txtfecha"]; $ls_descripcion = $_POST["txtdesccomp"]; $ls_procede = $_POST["txtproccomp"]; $li_estapro = $_POST["estapro"]; $ls_numtrasresolucion = $_POST["txtnumtrasresolucion"]; $li_fila = 0; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; //$ls_compread="readonly"; $ls_compread=""; $ls_existe=$_POST["existe"]; } else { $ls_operacion="NUEVO"; $ls_existe="N"; $_SESSION["ACTUALIZAR"]="NO"; $_SESSION["ib_new"] =true; $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_numtrasresolucion = ""; } if(array_key_exists("hidmostrarnumero",$_POST)){ $ls_hidmostrarnumero = $_POST["hidmostrarnumero"]; } else { $ls_hidmostrarnumero = "0"; } if(array_key_exists("hidnumtrares",$_POST)){ $ls_numtrasresolucion = $_POST["hidnumtrares"]; } //else { // $ls_numtrasresolucion = ""; //} if(array_key_exists("hidchecked",$_POST)){ $ls_hidchecked = $_POST["hidchecked"]; } else{ $ls_hidchecked = ""; } if(array_key_exists("cmbfuefin",$_POST)) { $ls_fuefin = $_POST["cmbfuefin"]; } else { $ls_fuefin = "--"; } if(array_key_exists("txtuniadm",$_POST)) { $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; } else { $ls_coduniadm = "-----"; $ls_denuniadm = ""; } if($ls_operacion=="VALIDAFECHA") { $readonly=""; $ls_existe=$_POST["existe"]; $ls_comprobante = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_fecha = $_POST["txtfecha"]; $ldec_totdi=$_POST["txttotspg"]; $ldec_totau=$_POST["txttotspg2"]; $ls_descripcion = $_POST["txtdesccomp"]; $ls_numtrasresolucion = $_POST["txtnumtrasresolucion"]; $ls_codemp=$la_emp["codemp"]; if ($ls_contipo==0) { $ls_compread=""; } else { //$ls_compread="readonly"; $ls_compread=""; } $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $lb_valido=$int_fec->uf_valida_fecha_periodo($ls_fecha,$ls_codemp); if(!($lb_valido)) { $msg->message($int_fec->is_msg_error); $ls_fecha="01/01/1900"; } else { if ($ls_existe=="N") { $lb_existe=$in_classcmp->uf_verificar_comprobante($ls_codemp,$ls_procede,$ls_comprobante); if (($ls_comprobante=="000000000000000")&&($ls_contipo==1)) { $msg->message(" Debe Seleccionar un Tipo de Modificación Presupuestaria para generar el Número del Comprobante"); } if($lb_existe) { $msg->message(" El Comprobante ya existe. El Sistema generara un nuevo numero de Comprobante"); //$ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGINS'); $ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGTRA'); } } else { $ls_comprobante=$_POST["txtcomprobante"]; } } $li_fila = 0; $prov_sel=""; $bene_sel=""; $ning_sel="selected"; $totalDI=1; $totalAU=1; $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_maxlength=29; } else { $li_size=40; $li_maxlength=33; } $objectDI[1][1]=""; $objectDI[1][2]=""; $objectDI[1][3]=""; $objectDI[1][4]=""; $objectDI[1][5]=""; $objectDI[1][6]=""; $objectDI[1][7]=""; $objectDI[1][8] =""; $objectAU[1][1]=""; $objectAU[1][2]=""; $objectAU[1][3]=""; $objectAU[1][4]=""; $objectAU[1][5]=""; $objectAU[1][6]=""; $objectAU[1][7]=""; $objectAU[1][8] =""; } //Titulos de la tabla de Detalle Presupuestario. $title[1]="Cuenta"; if($li_estmodest==1) { $title[2]="Imputación Presupuestaria"; } else { $title[2]="Programatico"; } $title[3]="Documento"; $title[4]="Descripción"; $title[5]="Procede"; $title[6]="Operación"; $title[7]="Monto"; $title[8]="Edición"; $grid1="grid_DI"; $grid2="grid_AU"; //Titulos de la tabla de Detalle Contable if($ls_operacion=="NUEVO")//Acciones para un comprobante nuevo { $ls_existe="N"; $ls_procede = "SPGCMP"; //$ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGTRA'); $ls_codtipo=""; $ls_contipo= $in_classcmp->uf_buscar_tipos($la_emp["codemp"]); if ($ls_contipo==0) { //$ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGREC'); $ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGTRA'); $ls_compread=""; } else { //$ls_compread="readonly"; $ls_compread=""; print(""); $ls_comprobante=""; } $ls_hidmostrarnumero="0"; $ls_hidchecked =""; $ls_numtrasresolucion = ""; $ls_tipomod=""; // codigo del tipo de modificación presupuestaria $ls_descripcion = ""; $ls_fuefin=""; $ls_coduniadm = "-----"; $ls_denuniadm = ""; $ls_uniadm=""; $ls_tipo = ""; $li_fila = 0; $ldec_mondeb=0; $ldec_diferencia=0; $ldec_monhab=0; $prov_sel=""; $bene_sel=""; $ning_sel="selected"; $ldec_totdi=0; $ldec_totau=0; $li_estapro = 0; $totalDI=1; $totalAU=1; $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_maxlength=29; } else { $li_size=40; $li_maxlength=33; } $objectDI[1][1]=""; $objectDI[1][2]=""; $objectDI[1][3]=""; $objectDI[1][4]=""; $objectDI[1][5]=""; $objectDI[1][6]=""; $objectDI[1][7]=""; $objectDI[1][8] =""; $objectAU[1][1]=""; $objectAU[1][2]=""; $objectAU[1][3]=""; $objectAU[1][4]=""; $objectAU[1][5]=""; $objectAU[1][6]=""; $objectAU[1][7]=""; $objectAU[1][8] =""; } if(($ls_operacion=="CARGAR_DT")||($ls_operacion=="VALIDAFECHA")) { $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha =$_POST["txtfecha"]; $ls_proccomp =$_POST["txtproccomp"]; $ls_desccomp =$_POST["txtdesccomp"]; $ls_provbene ="----------"; $ls_tipo ="-"; $ldec_mondeb=0; $ldec_diferencia=0; $ldec_monhab=0; $ls_fuefin = $_POST["cmbfuefin"]; $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; $ls_numtrasresolucion = $_POST["txtnumtrasresolucion"]; if ($ls_numtrasresolucion=="") { $ls_numtrasresolucion= $_POST["hidnumtrares"]; } $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $ls_existe=$_POST["existe"]; uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); } if($ls_operacion=="GUARDAR") { $ls_codemp=$la_emp["codemp"]; $ls_existe="C"; $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha=$_POST["txtfecha"]; $ls_procedencia=$_POST["txtproccomp"]; $ls_descripcion=$_POST["txtdesccomp"]; $ls_tipo="-"; $int_int->is_tipo=$ls_tipo; $int_int->is_cod_prov="----------"; $int_int->is_ced_ben="----------"; $int_int->ib_procesando_cmp=false; $int_int->is_fecha=$fun->uf_convertirdatetobd($ld_fecha); $ls_codemp=$la_emp["codemp"]; $ls_fuefin = $_POST["cmbfuefin"]; $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; $ls_numtrasresolucion = $_POST["txtnumtrasresolucion"]; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $lb_valido=$int_fec->uf_valida_fecha_periodo($ld_fecha,$ls_codemp); if(!($lb_valido)) { $msg->message($int_fec->is_msg_error); $ls_fecha="01/01/1900"; } else { $lb_valido=$in_classcmp->uf_guardar_automatico($ls_comprobante,$ld_fecha,$ls_procedencia,$ls_descripcion,$int_int->is_cod_prov,$int_int->is_ced_ben,$ls_tipo,2,0,$ls_fuefin,$ls_coduniadm,$ls_hidmostrarnumero,$ls_numtrasresolucion); if(!$lb_valido) { $msg->message($in_classcmp->is_msg_error); } else { $msg->message("Comprobante Guardado Satisfactoriamente"); } } uf_cargar_dt($la_emp["codemp"],$ls_procedencia,$ls_comprobante,$ld_fecha); } if($ls_operacion=="ELIMINAR") { $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; $ls_existe="N"; $lb_valido=false; $ls_codemp=$la_emp["codemp"]; $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha=$_POST["txtfecha"]; $ls_procedencia=$_POST["txtproccomp"]; $ls_descripcion=$_POST["txtdesccomp"]; $ls_tipo="-"; $in_classcmp->is_tipo=$ls_tipo; $in_classcmp->is_cod_prov="----------"; $in_classcmp->is_ced_ben="----------"; $in_classcmp->ib_procesando_cmp=false; $in_classcmp->is_fecha=$fun->uf_convertirdatetobd($ld_fecha); $ls_fuente = "----------"; $in_classcmp->is_cod_prov="----------"; $in_classcmp->is_ced_ben="----------"; $ls_comprobantes=$ls_comprobante; $ld_fechas=$ld_fecha; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $ls_numtrasresolucion = $_POST["txtnumtrasresolucion"]; $lb_valido=$in_classcmp->uf_delete_all_comprobante($ls_codemp,$ls_comprobante,$ld_fecha,$ls_procedencia); if($lb_valido) { $msg->message("Comprobante eliminado satisfactoriamente !!!"); $ls_comprobante=""; $ld_fecha=""; $ls_descripcion=""; $li_estapro = 0; ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="DELETE"; $ls_desc_event="Elimino el Comprobante ".$ls_comprobante." de fecha ".$ld_fecha." con procedencia ".$ls_procedencia; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// $int_spg->io_sql->commit(); $ls_fuefin=""; $ls_uniadm=""; } else { $int_spg->io_sql->rollback(); $msg->message("Error".$in_classcmp->is_msg_error); } uf_cargar_dt($la_emp["codemp"],$ls_procedencia,$ls_comprobantes,$ld_fechas); } if($ls_operacion=="DELETEDI") { $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha =$_POST["txtfecha"]; $ls_proccomp =$_POST["txtproccomp"]; $ls_desccomp =$_POST["txtdesccomp"]; $ls_provbene ="----------"; $ls_tipo ="-"; $ls_numtrasresolucion = $_POST["txtnumtrasresolucion"]; $li_fila =$_POST["fila"]; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $ls_prov=$ls_provbene; $ls_bene=$ls_provbene; $li_estmodest=$la_emp["estmodest"]; $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_incio1=0; $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_incio2=$ls_loncodestpro1; $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $ls_incio3=$ls_loncodestpro1+$ls_loncodestpro2; $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_incio4=$ls_incio3+$ls_loncodestpro3; $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; $ls_incio5=$ls_incio4+$ls_loncodestpro4; if($li_estmodest==2) { $estprog[0]=substr($_POST["txtprogramaticoDI".$li_fila],$ls_incio1,$ls_loncodestpro1); $estprog[1]=substr($_POST["txtprogramaticoDI".$li_fila],$ls_incio2,$ls_loncodestpro2); $estprog[2]=substr($_POST["txtprogramaticoDI".$li_fila],$ls_incio3,$ls_loncodestpro3); $estprog[3]=substr($_POST["txtprogramaticoDI".$li_fila],$ls_incio4,$ls_loncodestpro4); $estprog[4]=substr($_POST["txtprogramaticoDI".$li_fila],$ls_incio5,$ls_loncodestpro5); } else { $estprog[0]=substr($_POST["txtprogramaticoDI".$li_fila],$ls_incio1,$ls_loncodestpro1); $estprog[1]=substr($_POST["txtprogramaticoDI".$li_fila],$ls_incio2,$ls_loncodestpro2); $estprog[2]=substr($_POST["txtprogramaticoDI".$li_fila],$ls_incio3,$ls_loncodestpro3); $estprog[3]=$fun->uf_cerosizquierda(0,25); $estprog[4]=$fun->uf_cerosizquierda(0,25); } $estprog[0] = $fun->uf_cerosizquierda($estprog[0],25); $estprog[1] = $fun->uf_cerosizquierda($estprog[1],25); $estprog[2] = $fun->uf_cerosizquierda($estprog[2],25); $estprog[3] = $fun->uf_cerosizquierda($estprog[3],25); $estprog[4] = $fun->uf_cerosizquierda($estprog[4],25); $estprog[5] = $_POST["txtestcladis".$li_fila]; //print_r($estprog); $ls_cuenta=$_POST["txtcuentaDI".$li_fila]; $ls_procede_doc=$_POST["txtprocedeDI".$li_fila]; $ls_descripcion=$_POST["txtdescripcionDI".$li_fila]; $ls_documento=$_POST["txtdocumentoDI".$li_fila]; $ls_operacion=$_POST["txtoperacionDI".$li_fila]; $ldec_monto_anterior=$_POST["txtmontoDI".$li_fila]; $ldec_monto_actual=0; $li_tipo_comp=2; $ls_mensaje=$int_spg->uf_operacion_codigo_mensaje($ls_operacion); $int_spg->is_codemp=$la_emp["codemp"]; //$int_spg->is_fecha=$fun->uf_formatovalidofecha($ld_fecha); $int_spg->is_fecha=$fun->uf_convertirdatetobd($ld_fecha); $int_spg->is_procedencia=$ls_proccomp; $int_spg->is_comprobante=$ls_comprobante; $int_spg->is_tipo=$ls_tipo; $int_spg->is_cod_prov=$ls_prov; $int_spg->is_ced_ben=$ls_bene; $int_spg->ib_AutoConta=true; if ($ls_tipo=="B") { $ls_fuente = $ls_bene; } else { if ($ls_tipo=="P") { $ls_fuente = $ls_prov; } else { $ls_fuente = "----------"; } } $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; if(!$int_spg->uf_spg_select_cuenta($la_emp["codemp"],$estprog,$ls_cuenta,$ls_status,$ls_denominacion,$ls_sc_cuenta)) { return false; } $lb_valido=$in_classcmp->uf_int_spg_delete_movimiento($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha,$ls_tipo,$ls_fuente,$ls_prov,$ls_bene, $estprog,$ls_cuenta,$ls_procede_doc,$ls_documento,$ls_descripcion,$ls_mensaje,$li_tipo_comp, $ldec_monto_anterior,$ldec_monto_actual,$ls_sc_cuenta); if($lb_valido) { $msg->message("Movimiento eliminado satisfactoriamente"); ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="DELETE"; $ls_desc_event="Elimino el movimiento presupuestario ".$ls_documento." con operacion".$ls_operacion." por un monto de ".$ldec_monto_anterior." para la cuenta ".$ls_cuenta." correspondiente a la estructura programatica ".$estprog[0]."-".$estprog[1]."-".$estprog[2]."-".$estprog[3]."-".$estprog[4]."; para el comprobante ".$ls_comprobante." de fecha ".$ld_fecha; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// $int_spg->io_sql->commit(); } else { $msg->message("Movimiento no pudo ser eliminado"); $int_spg->io_sql->rollback(); } uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); } if($ls_operacion=="DELETEAU") { $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha =$_POST["txtfecha"]; $ls_proccomp =$_POST["txtproccomp"]; $ls_desccomp =$_POST["txtdesccomp"]; $ls_numtrasresolucion = $_POST["txtnumtrasresolucion"]; $ls_provbene ="----------"; $ls_tipo ="-"; $li_fila =$_POST["fila"]; $ls_prov=$ls_provbene; $ls_bene=$ls_provbene; $li_estmodest=$la_emp["estmodest"]; $li_estmodest=$la_emp["estmodest"]; $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_incio1=0; $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_incio2=$ls_loncodestpro1; $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $ls_incio3=$ls_loncodestpro1+$ls_loncodestpro2; $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_incio4=$ls_incio3+$ls_loncodestpro3; $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; $ls_incio5=$ls_incio4+$ls_loncodestpro4; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; if($li_estmodest==2) { $estprog[0]=substr($_POST["txtprogramaticoAU".$li_fila],$ls_incio1,$ls_loncodestpro1); $estprog[1]=substr($_POST["txtprogramaticoAU".$li_fila],$ls_incio2,$ls_loncodestpro2); $estprog[2]=substr($_POST["txtprogramaticoAU".$li_fila],$ls_incio3,$ls_loncodestpro3); $estprog[3]=substr($_POST["txtprogramaticoAU".$li_fila],$ls_incio4,$ls_loncodestpro4); $estprog[4]=substr($_POST["txtprogramaticoAU".$li_fila],$ls_incio5,$ls_loncodestpro5); } else { $estprog[0]=substr($_POST["txtprogramaticoAU".$li_fila],$ls_incio1,$ls_loncodestpro1); $estprog[1]=substr($_POST["txtprogramaticoAU".$li_fila],$ls_incio2,$ls_loncodestpro2); $estprog[2]=substr($_POST["txtprogramaticoAU".$li_fila],$ls_incio3,$ls_loncodestpro3); $estprog[3]=$fun->uf_cerosizquierda(0,25); $estprog[4]=$fun->uf_cerosizquierda(0,25); } $estprog[0] = $fun->uf_cerosizquierda($estprog[0],25); $estprog[1] = $fun->uf_cerosizquierda($estprog[1],25); $estprog[2] = $fun->uf_cerosizquierda($estprog[2],25); $estprog[3] = $fun->uf_cerosizquierda($estprog[3],25); $estprog[4] = $fun->uf_cerosizquierda($estprog[4],25); $estprog[5] = $_POST["txtestclaaum".$li_fila]; $ls_cuenta=$_POST["txtcuentaAU".$li_fila]; $ls_procede_doc=$_POST["txtprocedeAU".$li_fila]; $ls_descripcion=$_POST["txtdescripcionAU".$li_fila]; $ls_documento=$_POST["txtdocumentoAU".$li_fila]; $ls_operacion=$_POST["txtoperacionAU".$li_fila]; $ldec_monto_anterior=$_POST["txtmontoAU".$li_fila]; $ldec_monto_actual=0; $li_tipo_comp=2; $ls_mensaje=$int_spg->uf_operacion_codigo_mensaje($ls_operacion); $int_spg->is_codemp=$la_emp["codemp"]; $int_spg->is_fecha=$fun->uf_convertirdatetobd($ld_fecha); $int_spg->is_procedencia=$ls_proccomp; $int_spg->is_comprobante=$ls_comprobante; $int_spg->is_tipo=$ls_tipo; $int_spg->is_cod_prov=$ls_prov; $int_spg->is_ced_ben=$ls_bene; $int_spg->ib_AutoConta=true; if ($ls_tipo=="B") { $ls_fuente = $ls_bene; } else { if ($ls_tipo=="P") { $ls_fuente = $ls_prov; } else { $ls_fuente = "----------"; } } if(!$int_spg->uf_spg_select_cuenta($la_emp["codemp"],$estprog,$ls_cuenta,$ls_status,$ls_denominacion,$ls_sc_cuenta)) { $msg->message(" La cuenta ".$ls_cuenta." no existe ..."); return false; } $lb_valido=$in_classcmp->uf_int_spg_delete_movimiento($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha,$ls_tipo,$ls_fuente,$ls_prov,$ls_bene, $estprog,$ls_cuenta,$ls_procede_doc,$ls_documento,$ls_descripcion,$ls_mensaje,$li_tipo_comp, $ldec_monto_anterior,$ldec_monto_actual,$ls_sc_cuenta); if($lb_valido) { $msg->message(" Movimiento eliminado satisfactoriamente"); ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="DELETE"; $ls_desc_event="Elimino el movimiento presupuestario ".$ls_documento." con operacion ".$ls_operacion." por un monto de ".$ldec_monto_anterior." para la cuenta ".$ls_cuenta." correspondiente a la estructura programatica ".$estprog[0]."-". $estprog[1]."-".$estprog[2]."-".$estprog[3]."-".$estprog[4]."; para el comprobante ".$ls_comprobante." de fecha ".$ld_fecha; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// $int_spg->io_sql->commit(); } else { $int_spg->io_sql->rollback(); $msg->message(" El Movimiento no se pudo Eliminar"); } /////////////////////LLamado a la función de cargar los detalles//////////////////////////////////////////// uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); } function uf_cargar_dt($ls_codemp,$ls_proccomp,$ls_comprobante,$ld_fecha) { global $in_classcmp; global $la_emp; global $totalDI; global $totalAU; global $objectDI; global $objectAU; global $ldec_mondeb; global $ldec_monhab; global $ldec_diferencia; global $ldec_totdi; global $ldec_totau; $ldec_mondeb=0; $ldec_monhab=0; $ldec_diferencia=0; $ldec_totdi=0; $ldec_totau=0; $i=0; $rs_dtcmp=$in_classcmp->uf_cargar_dt_comprobante($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); $li_numrows=$in_classcmp->io_sql->num_rows($rs_dtcmp); $h=0; if($li_numrows>0) { while($row=$in_classcmp->io_sql->fetch_row($rs_dtcmp)) { $li_estmodest=$la_emp["estmodest"]; $ls_cuenta=$row["spg_cuenta"]; $ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $ls_incio1=25-$ls_loncodestpro1; $ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $ls_incio2=25-$ls_loncodestpro2; $ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $ls_incio3=25-$ls_loncodestpro3; $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_incio4=25-$ls_loncodestpro4; $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; $ls_incio5=25-$ls_loncodestpro5; if($li_estmodest==2) { $ls_programatico=substr($row["codest1"],$ls_incio1,$ls_loncodestpro1).substr($row["codest2"],$ls_incio2,$ls_loncodestpro2).substr($row["codest3"],$ls_incio3,$ls_loncodestpro3).substr($row["codest4"],$ls_incio4,$ls_loncodestpro4).substr($row["codest5"],$ls_incio5,$ls_loncodestpro5); } else { $ls_programatico=substr($row["codest1"],$ls_incio1,$ls_loncodestpro1).substr($row["codest2"],$ls_incio2,$ls_loncodestpro2).substr($row["codest3"],$ls_incio3,$ls_loncodestpro3); } $ls_codprog=$row["codest1"].$row["codest2"].$row["codest3"].$row["codest4"].$row["codest5"]; $ls_documento=$row["documento"]; $ls_descripcion=$row["descripcion"]; $ls_procede=$row["procede_doc"]; $ls_operacion=$row["operacion"]; $ldec_monto=$row["monto"]; $ls_estcla=trim($row["estcla"]); if(trim($ls_operacion)=="DI") { $i=$i+1; $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_maxlength=29; } else { $li_size=40; $li_maxlength=33; } $objectDI[$i][1]=""; $objectDI[$i][2]=""; $objectDI[$i][3]="". ""; $objectDI[$i][4]=""; $objectDI[$i][5]=""; $objectDI[$i][6]=""; $objectDI[$i][7]=""; $objectDI[$i][8] ="

"; $ldec_totdi = $ldec_totdi + $ldec_monto; } else { $h=$h+1; $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_maxlength=29; } else { $li_size=40; $li_maxlength=33; } $objectAU[$h][1]=""; $objectAU[$h][2]=""; $objectAU[$h][3]="". ""; $objectAU[$h][4]=""; $objectAU[$h][5]=""; $objectAU[$h][6]=""; $objectAU[$h][7]=""; $objectAU[$h][8] ="

"; $ldec_totau = $ldec_totau + $ldec_monto; } }//End While $in_classcmp->io_sql->free_result($rs_dtcmp); }//En if if($i==0) { $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_maxlength=29; } else { $li_size=40; $li_maxlength=33; } $objectDI[1][1]=""; $objectDI[1][2]=""; $objectDI[1][3]=""; $objectDI[1][4]=""; $objectDI[1][5]=""; $objectDI[1][6]=""; $objectDI[1][7]=""; $objectDI[1][8] =""; } if($h==0) { $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_maxlength=29; } else { $li_size=40; $li_maxlength=33; } $objectAU[1][1]=""; $objectAU[1][2]=""; $objectAU[1][3]=""; $objectAU[1][4]=""; $objectAU[1][5]=""; $objectAU[1][6]=""; $objectAU[1][7]=""; $objectAU[1][8] =""; } $totalDI=$i; $totalAU=$h; } ?>

"); } else { print(""); }*/ $io_fun_gasto->uf_print_permisos($ls_permisos,$la_permisos,$ls_logusr,"location.href='sigespwindow_blank.php'"); unset($io_fun_gasto); ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?> >

Comprobante de Traspaso

Procedencia

Fecha

Número de la Modificación

>Traspaso por resolución

Concepto de la Modificación

Fuente de Financiamiento

uf_load_fuentes_financiamiento($ls_empresa); ?>

Unidad Administradora