"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } $li_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $li_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $li_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $li_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $li_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; $_SESSION['disable_trans']=0; ?> Comprobante Presupuestario
Contabilidad Presupuestaria de Gasto
 
                     
Nuevo Grabar Buscar Eliminar Salir            
uf_sss_select_permisos($ls_codemp,$ls_logusr,$ls_sistema,$ls_ventana); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// $io_include=new sigesp_include(); $io_connect=$io_include->uf_conectar(); $io_sql=new class_sql($io_connect); $io_function=new class_funciones(); $io_fecha=new class_fecha(); $io_msg = new class_mensajes(); $io_function_db=new class_funciones_db($io_connect); $in_classcmp=new sigesp_spg_c_comprobante(); $io_int_scg=new class_sigesp_int_scg(); $io_int_spg=new class_sigesp_int_spg(); $io_msg=new class_mensajes(); $io_grid=new grid_param(); $io_funciones_gasto= new class_funciones_gasto(); $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_provbene = $_POST["txtprovbene"]; $ls_desproben = $_POST["txtdesproben"]; $ls_tipo = $_POST["tipo"]; $ls_descripcion = $_POST["txtdesccomp"]; $ls_status = $_POST["status_actual"]; $ls_codban = $_POST["txtcodban"]; $ls_ctaban = $_POST["txtctaban"]; $li_fila = 0; $ls_rendicion=""; $ls_rendfon=$io_funciones_gasto->uf_obtenervalor("chrenfon","0"); $ls_disabled=""; $ls_fuentefin=$_POST["txtfuente"]; $ls_desfuente=$_POST["txtdesfuente"]; $ls_existe=$_POST["existe"]; $ls_parametros=$_POST["parametros"]; } else { $ls_operacion="NUEVO"; $_SESSION["ACTUALIZAR"]="NO"; $_SESSION["ib_new"] =true; $ls_fecha=date("d/m/Y"); $li_fila = 0; $ls_rendicion=""; $ls_rendfon=$io_funciones_gasto->uf_obtenervalor("chrenfon","0"); $ls_disabled=""; $ls_fuentefin=""; $ls_desfuente=""; $ls_existe="N"; $ls_parametros=""; } if (array_key_exists("estcla",$_POST)) { $ls_estcla=$_POST["estcla"]; } else { $ls_estcla=""; } if($ls_operacion=="VALIDAFECHA") { $readonly=""; $ldec_mondeb=0; $ldec_diferencia=0; $ldec_monhab=0; $ls_comprobante = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_fecha = $_POST["txtfecha"]; $ls_tipo = $_POST["tipo"]; $ls_provbene = $_POST["txtprovbene"]; $ls_desproben = $_POST["txtdesproben"]; $ls_descripcion = $_POST["txtdesccomp"]; $ls_codemp=$la_emp["codemp"]; $lb_valido=$io_fecha->uf_valida_fecha_periodo($ls_fecha,$ls_codemp); if(!($lb_valido)) { $io_msg->message($io_fecha->is_msg_error); $ls_fecha="01/01/1900"; } else { $lb_existe=$in_classcmp->uf_verificar_comprobante($ls_codemp,$ls_procede,$ls_comprobante); if($lb_existe) { $io_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"],'SPGCMP'); } } $li_fila = 0; $prov_sel= ""; $bene_sel= ""; $ning_sel= "selected"; $totalpre= 1; $totalcon= 1; $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_maxlength=29; $li_sizedoc=30; $li_maxlengthdoc=30; $li_sizedes=40; $li_maxlengthdes=254; } else { $li_size=40; $li_maxlength=33; $li_sizedoc=37; $li_maxlengthdoc=15; $li_sizedes=41; $li_maxlengthdes=254; } $object[1][1] = ""; $object[1][2] = ""; $object[1][3] = ""; $object[1][4] = ""; $object[1][5] = ""; $object[1][6] = ""; $object[1][7] = ""; $object[1][8] = ""; $object2[1][1] = ""; $object2[1][2] = ""; $object2[1][3] = ""; $object2[1][4] = ""; $object2[1][5] = ""; $object2[1][6] = ""; $object2[1][7] = ""; uf_cargar_dt($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha); } //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_SPG"; //Titulos de la tabla de Detalle Contable $title2[1]="Cuenta"; $title2[2]="Documento"; $title2[3]="Descripción"; $title2[4]="Procede"; $title2[5]="D/H"; $title2[6]="Monto"; $title2[7]="Edición"; $grid2="grid_SCG"; if($ls_operacion=="NUEVO")//Acciones para un comprobante nuevo { $ls_procede = "SPGCMP"; $ls_status = "N"; $ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGCMP'); $ls_provbene = "----------"; $ls_desproben = ""; $ls_tipo = ""; $ls_descripcion = ""; $ls_tipo = ""; $li_fila = 0; $ldec_mondeb = 0; $ldec_diferencia=0; $ldec_monhab = 0; $ldec_totspg = 0; $prov_sel = ""; $bene_sel = ""; $ning_sel = "selected"; $totalpre = 1; $totalcon = 1; $ls_codban = "---"; $ls_ctaban = "-------------------------"; $ls_fuentefin="--"; $ls_desfuente=""; $ls_existe="N"; $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_size=32; $li_maxlength=29; $li_sizedoc=30; $li_maxlengthdoc=30; $li_sizedes=40; $li_maxlengthdes=254; } else { $li_size=40; $li_maxlength=33; $li_sizedoc=37; $li_maxlengthdoc=15; $li_sizedes=41; $li_maxlengthdes=254; } } if($ls_operacion=="CARGAR_DT") { $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha =$_POST["txtfecha"]; $ls_proccomp =$_POST["txtproccomp"]; $ls_desccomp =$_POST["txtdesccomp"]; $ls_provbene =$_POST["txtprovbene"]; $ls_desproben = $_POST["txtdesproben"]; $ls_codban =$_POST["txtcodban"]; $ls_ctaban =$_POST["txtctaban"]; $ls_tipo =$_POST["tipo"]; $ls_disabled=""; $ls_rendfon =$io_funciones_gasto->uf_obtenervalor("chrenfon","0"); if ($ls_rendfon=='1') { $ls_rendicion="checked"; $ls_disabled="disabled"; } else { $ls_rendicion=""; $ls_disabled="disabled"; } $ldec_mondeb=0; $ldec_diferencia=0; $ldec_monhab=0; if($ls_tipo=="P") { $ls_prov=$ls_provbene; $ls_bene="----------"; $prov_sel="selected"; $bene_sel=""; $ning_sel=""; } else { $ls_bene=$ls_provbene; $ls_prov="----------"; $prov_sel=""; $bene_sel="selected"; $ning_sel=""; } uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); } ///////////////////////////funcion para cargar (en lote)/////////////////////////////////////////////////////////////////////// function uf_load_data(&$as_parametros,$as_comp, $as_comp2) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_load_variables // Access: private // Description: Función que carga todas las variables necesarias en la página // Creado Por: Ing. Jennifer Rivero // Fecha Creación: 03/12/2008 ////////////////////////////////////////////////////////////////////////////// global $totalpre, $totalcon; for($li_i=1;($li_i<$totalpre);$li_i++) { $ls_cuenta1=$_POST["txtcuenta".$li_i]; $ls_programatica1=$_POST["txtprogramatico".$li_i]; $ls_documento1=$_POST["txtdocumento".$li_i]; if ($as_comp==$ls_documento1) { $ls_documento1=$as_comp2; } $ls_descrip1=$_POST["txtdescripcion".$li_i]; $ls_procede1=$_POST["txtprocede".$li_i]; $ls_operacion1=$_POST["txtoperacion".$li_i]; $ls_monto1=$_POST["txtmonto".$li_i]; $ls_estcla1=$_POST["txtestcla".$li_i]; $ls_scg1=$_POST["txtscgcta".$li_i]; $as_parametros=$as_parametros."&txtcuenta".$li_i."=".$ls_cuenta1."&txtprogramtico".$li_i."=".$ls_programatica1."". "&txtdocumento".$li_i."=".$ls_documento1."&txtdescripcion".$li_i."=".$ls_descrip1."". "&txtprocede".$li_i."=".$ls_procede1."&txtoperacion".$li_i."=".$ls_operacion1."". "&txtmonto".$li_i."=".$ls_monto1."&txtestcla".$li_i."=".$ls_estcla1."&scgcta".$li_i."=".$ls_scg1; } $as_parametros=$as_parametros."&totaldetalles=".$totalpre.""; for($li_j=1;($li_j<$totalcon);$li_j++) { $ls_cuentascg1=$_POST["txtcontable".$li_j]; $ls_docscg1=$_POST["txtdocscg".$li_j]; if ($as_comp==$ls_docscg1) { $ls_docscg1=$as_comp2; } $ls_desdoc1=$_POST["txtdesdoc".$li_j]; $ls_procdoc1=$_POST["txtprocdoc".$li_j]; $ls_debhab1=$_POST["txtdebhab".$li_j]; $ls_montocont1=$_POST["txtmontocont".$li_j]; $as_parametros=$as_parametros."&txtcontable".$li_j."=".$ls_cuentascg1."&txtdocscg".$li_j."=".$ls_docscg1."". "&txtdesdoc".$li_j."=".$ls_desdoc1."&txtprocdoc".$li_j."=".$ls_procdoc1."". "&txtdebhab".$li_j."=".$ls_debhab1."&txtmontocont".$li_j."=".$ls_montocont1; } $as_parametros=$as_parametros."&totaldetallescont=".$totalcon.""; }// fin de lafuncion uf_load_data() /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// if($ls_operacion=="GUARDAR") { $ls_codemp=$la_emp["codemp"]; $ls_operacion=$_POST["operacion"]; $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha=$_POST["txtfecha"]; $_SESSION["fechacomprobante"]=$ld_fecha; $ls_procedencia=$_POST["txtproccomp"]; $ls_descripcion=$_POST["txtdesccomp"]; $ls_tipo=$_POST["tipo"]; $in_classcmp->io_int_int->is_tipo=$ls_tipo; $in_classcmp->io_int_int->is_cod_prov=$_POST["txtprovbene"]; $in_classcmp->io_int_int->is_ced_ben=$_POST["txtprovbene"]; $ls_desproben = $_POST["txtdesproben"]; $in_classcmp->io_int_int->ib_procesando_cmp=false; $in_classcmp->io_int_int->id_fecha=$io_function->uf_convertirdatetobd($ld_fecha); $ls_codban = "---"; $ls_ctaban = "-------------------------"; $ls_rendfon =$io_funciones_gasto->uf_obtenervalor("chrenfon","0"); $ls_existe=$_POST["existe"]; if ($ls_rendfon=='1') { $ls_rendicion="checked"; $ls_disabled="disabled"; } else { $ls_rendicion=""; $ls_disabled="disabled"; } if( $ls_tipo=='P') { $ls_fuente = $_POST["txtprovbene"]; $in_classcmp->io_int_int->is_cod_prov=$_POST["txtprovbene"]; $in_classcmp->io_int_int->is_ced_ben="----------"; $prov_sel="selected"; $bene_sel=""; $ning_sel=""; } elseif($ls_tipo=='B') { $ls_fuente = $_POST["txtprovbene"]; $in_classcmp->io_int_int->is_ced_ben=$_POST["txtprovbene"]; $in_classcmp->io_int_int->is_cod_prov="----------"; $prov_sel=""; $bene_sel="selected"; $ning_sel=""; } else { $ls_fuente = "-"; $in_classcmp->io_int_int->is_cod_prov="----------"; $in_classcmp->io_int_int->is_ced_ben="----------"; $prov_sel=""; $bene_sel=""; $ning_sel="selected"; } $ls_codemp=$la_emp["codemp"]; $lb_valido=$io_fecha->uf_valida_fecha_periodo($ls_fecha,$ls_codemp); if(!($lb_valido)) { $io_msg->message($io_fecha->is_msg_error); $ls_fecha="01/01/1900"; } else { $ls_fuentefin=$_POST["txtfuente"]; $ls_comprobante2=$ls_comprobante; $ls_comprobante3=$ls_comprobante; $in_classcmp->io_int_spg->io_sql->begin_transaction(); $_SESSION['disable_trans']=1; $lb_existe=$in_classcmp->uf_verificar_comprobante($ls_codemp,$ls_procede,$ls_comprobante); $lb_valido=$in_classcmp->uf_guardar_automatico($ls_comprobante,$ld_fecha,$ls_procedencia,$ls_descripcion, $in_classcmp->io_int_int->is_cod_prov, $in_classcmp->io_int_int->is_ced_ben,$ls_tipo,1, $ls_codban,$ls_ctaban, $ls_rendfon, $ls_fuentefin, $ls_existe); if ($lb_valido) { $totalpre=$_POST["totpre"]; $arr_cmp["comprobante"]=$ls_comprobante; $ld_fecdb=$io_function->uf_convertirdatetobd($ld_fecha); $arr_cmp["fecha"] = $ld_fecdb; $arr_cmp["procedencia"] = $ls_procedencia; $arr_cmp["descripcion"] = $ls_descripcion; $arr_cmp["proveedor"] = $in_classcmp->io_int_int->is_cod_prov; $arr_cmp["beneficiario"] = $in_classcmp->io_int_int->is_ced_ben; $arr_cmp["tipo"] = $ls_tipo; $arr_cmp["codemp"] = $ls_codemp; $arr_cmp["tipo_comp"] = 1; usleep(3000000); for ($i=1;($i<$totalpre && $lb_valido);$i++) { $ls_cuenta = trim($io_funciones_gasto->uf_obtenervalor("txtcuenta".$i,"")); $ls_programatica = trim($io_funciones_gasto->uf_obtenervalor("txtprogramatico".$i,"")); $ls_documento = trim($io_funciones_gasto->uf_obtenervalor("txtdocumento".$i,"")); if ($ls_documento==$ls_comprobante2) { $ls_documento=$ls_comprobante; } $ls_descripcion = trim($io_funciones_gasto->uf_obtenervalor("txtdescripcion".$i,"")); $ls_procede = trim($io_funciones_gasto->uf_obtenervalor("txtprocede".$i,"")); $ls_operacion = trim($io_funciones_gasto->uf_obtenervalor("txtoperacion".$i,"")); $ls_monto = trim($io_funciones_gasto->uf_obtenervalor("txtmonto".$i,"")); $ls_monto = str_replace(".","",$ls_monto); $ls_monto = str_replace(",",".",$ls_monto); $ls_estcla = trim($io_funciones_gasto->uf_obtenervalor("txtestcla".$i,"")); $ls_codestpro1 = str_pad(substr($ls_programatica,0,$li_loncodestpro1),25,0,0); $ls_codestpro2 = str_pad(substr($ls_programatica,$li_loncodestpro1+1,$li_loncodestpro2),25,0,0); $ls_codestpro3 = str_pad(substr($ls_programatica,$li_loncodestpro1+$li_loncodestpro2+2,$li_loncodestpro3),25,0,0); if ($li_estmodest==2) { $ls_codestpro4 = str_pad(substr($ls_programatica,$li_loncodestpro1+$li_loncodestpro2+$li_loncodestpro3+3,$li_loncodestpro4),25,0,0); $ls_codestpro5 = str_pad(substr($ls_programatica,-$li_loncodestpro5),25,0,0); } else { $ls_codestpro4 = $ls_codestpro5 = str_pad("",25,0,0); } $ld_disponible=0; $lb_valido=$in_classcmp->uf_spg_select_disponibilidad($ls_cuenta,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5, $ld_disponible,$ls_operacion,$ls_monto,$ls_estcla); if(($ld_disponible<$ls_monto)&&($lb_valido)) { $io_msg->message(" La Cuenta ".trim($ls_cuenta)." no tiene disponibilidad " ); $ls_cuentaplan= ""; $ls_denominacion= ""; $ls_descripcion= ""; $lb_valido=false; } else { $lb_valido=$in_classcmp->uf_guardar_movimientos($arr_cmp,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5, $ls_cuenta,$ls_procede,$ls_descripcion,$ls_documento, $ls_operacion,0,$ls_monto,"C",$ls_codban,$ls_ctaban, $ls_estcla); if (!$lb_valido) { $lb_valido=false; //return false; } }// fin de disponibilidad }// fin del for }// fin del Valido (guardar detalle presupuestarios) if ($lb_valido) { $totalcon=$_POST["totcon"]; for ($j=1;$j<$totalcon;$j++) { $ls_sc_cuenta=trim($io_funciones_gasto->uf_obtenervalor("txtcontable".$j,"")); $ls_documento=trim($io_funciones_gasto->uf_obtenervalor("txtdocscg".$j,"")); if ($ls_documento==$ls_comprobante3) { $ls_documento=$ls_comprobante; } $ls_desdoc=trim($io_funciones_gasto->uf_obtenervalor("txtdesdoc".$j,"")); $ls_procdoc=trim($io_funciones_gasto->uf_obtenervalor("txtprocdoc".$j,"")); $ls_debhab=trim($io_funciones_gasto->uf_obtenervalor("txtdebhab".$j,"")); $ldec_monto=trim($io_funciones_gasto->uf_obtenervalor("txtmontocont".$j,"")); $ldec_monto = str_replace(".","",$ldec_monto); $ldec_monto = str_replace(",",".",$ldec_monto); if (($ls_sc_cuenta!="")&&($ls_documento!="")) { $lb_valido=$in_classcmp->uf_guardar_movimientos_contable($arr_cmp,$ls_sc_cuenta,$ls_procdoc,$ls_desdoc, $ls_documento,$ls_debhab,$ldec_monto, $ls_codban,$ls_ctaban,$ld_fecdb); } }// fin de for contable } // fin del Valido (guardar detalle contables) $_SESSION['disable_trans']=0; if ($lb_valido) { $in_classcmp->io_int_spg->io_sql->commit(); $ls_existe="C"; $io_msg->message(" El Comprobante se registro Exitosamente..." ); } else { $in_classcmp->io_int_spg->io_sql->rollback(); $io_msg->message($in_classcmp->is_msg_error); $io_msg->message(" Error al guardar Comprobante" ); } }// fin del else $ls_parametros=""; uf_load_data($ls_parametros,$ls_comprobante2, $ls_comprobante); }// fin del guardar if($ls_operacion=="ELIMINAR") { $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=$_POST["tipo"]; $in_classcmp->io_int_int->is_tipo=$ls_tipo; $in_classcmp->io_int_int->is_cod_prov=$_POST["txtprovbene"]; $in_classcmp->io_int_int->is_ced_ben=$_POST["txtprovbene"]; $ls_desproben = $_POST["txtdesproben"]; $in_classcmp->io_int_int->ib_procesando_cmp=false; $in_classcmp->io_int_int->id_fecha=$io_function->uf_convertirdatetobd($ld_fecha); $ls_codban = "---"; $ls_ctaban = "-------------------------"; $ls_rendfon =$io_funciones_gasto->uf_obtenervalor("chrenfon","0"); if ($ls_rendfon=='1') { $ls_disabled=""; $ls_rendicion="checked"; $ls_disabled="disabled"; } else { $ls_disabled=""; $ls_rendicion=""; $ls_disabled=""; } if($ls_tipo=='P') { $ls_fuente = $_POST["txtprovbene"]; $in_classcmp->io_int_int->is_cod_prov=$_POST["txtprovbene"]; $in_classcmp->io_int_int->is_ced_ben="----------"; $prov_sel="selected"; $bene_sel=""; $ning_sel=""; } elseif($ls_tipo=='B') { $ls_fuente = $_POST["txtprovbene"]; $in_classcmp->io_int_int->is_ced_ben=$_POST["txtprovbene"]; $in_classcmp->io_int_int->is_cod_prov="----------"; $prov_sel=""; $bene_sel="selected"; $ning_sel=""; } else { $ls_fuente = "-"; $in_classcmp->io_int_int->is_cod_prov="----------"; $in_classcmp->io_int_int->is_ced_ben="----------"; $prov_sel=""; $bene_sel=""; $ning_sel="selected"; } $lb_valido=$in_classcmp->io_int_int->uf_init_delete($ls_codemp,$ls_procedencia,$ls_comprobante, $in_classcmp->io_int_int->id_fecha,$ls_tipo,$in_classcmp->io_int_int->is_ced_ben,$in_classcmp->io_int_int->is_cod_prov,false,$ls_codban,$ls_ctaban); if (!$lb_valido) { $io_msg->message("Comprobante no existe"); } else { $lb_valido = $in_classcmp->io_int_int->uf_int_init_transaction_begin(); if(!$lb_valido) { $io_msg->message($in_classcmp->io_int_int->is_msg_error); } if($lb_valido) { $lb_valido = $in_classcmp->io_int_int->uf_init_end_transaccion_integracion($la_seguridad); if (!$lb_valido) { $io_msg->message("Error".$in_classcmp->io_int_int->is_msg_error); $in_classcmp->io_int_int->io_sql->rollback(); } else { $io_msg->message("Comprobante eliminado satisfactoriamente"); $ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPGCMP'); $ls_fecha = date("d/m/Y"); $ls_provbene = ""; $ls_desproben = ""; $ls_tipo = "-"; $ls_descripcion = ""; ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="DELETE"; $ls_desc_event="Elimino el comprobante presupuestario ".$ls_comprobante." de fecha ".$ld_fecha." y procedencia ".$ls_procedencia; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_codemp,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// $in_classcmp->io_int_int->io_sql->commit(); } } } uf_cargar_dt($la_emp["codemp"],$ls_procedencia,$ls_comprobante,$ld_fecha); } if($ls_operacion=="DELETESPG") { $ls_comprobante= $_POST["txtcomprobante"]; $ld_fecha = $_POST["txtfecha"]; $_SESSION["fechacomprobante"] = $ld_fecha; $ls_proccomp = $_POST["txtproccomp"]; $ls_desccomp = $_POST["txtdesccomp"]; $ls_provbene = $_POST["txtprovbene"]; $ls_tipo = $_POST["tipo"]; $li_fila = $_POST["fila"]; $ls_desproben = $_POST["txtdesproben"]; $ls_codban = "---"; $ls_ctaban = "-------------------------"; $ls_rendfon =$io_funciones_gasto->uf_obtenervalor("chrenfon","0"); if ($ls_rendfon=='1') { $ls_disabled=""; $ls_rendicion="checked"; $ls_disabled="disabled"; } else { $ls_disabled=""; $ls_rendicion=""; $ls_disabled=""; } if($ls_tipo=="P") { $ls_prov=$ls_provbene; $ls_bene="----------"; $prov_sel="selected"; $bene_sel=""; $ning_sel=""; } elseif($ls_tipo=="B") { $ls_bene=$ls_provbene; $ls_prov="----------"; $prov_sel=""; $bene_sel="selected"; $ning_sel=""; } else { $ls_bene="----------"; $ls_prov="----------"; $prov_sel=""; $bene_sel=""; $ning_sel="selected"; } $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;//25-$ls_loncodestpro3; $ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $ls_incio4=$ls_incio3+$ls_loncodestpro3;//25-$ls_loncodestpro4; $ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; $ls_incio5=$ls_incio4+$ls_loncodestpro4;//25-$ls_loncodestpro5; $ls_estcla=$_POST["txtestcla".$li_fila]; if($li_estmodest==2) { $estprog[0]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio1,$ls_loncodestpro1); $estprog[1]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio2,$ls_loncodestpro2); $estprog[2]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio3,$ls_loncodestpro3); $estprog[3]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio4,$ls_loncodestpro4); $estprog[4]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio5,$ls_loncodestpro5); } else { $estprog[0]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio1,$ls_loncodestpro1); $estprog[1]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio2,$ls_loncodestpro2); $estprog[2]=substr(str_replace("-","",$_POST["txtprogramatico".$li_fila]),$ls_incio3,$ls_loncodestpro3); $estprog[3]=$io_function->uf_cerosizquierda(0,25); $estprog[4]=$io_function->uf_cerosizquierda(0,25); } $estprog[0] = $io_function->uf_cerosizquierda($estprog[0],25); $estprog[1] = $io_function->uf_cerosizquierda($estprog[1],25); $estprog[2] = $io_function->uf_cerosizquierda($estprog[2],25); $estprog[3] = $io_function->uf_cerosizquierda($estprog[3],25); $estprog[4] = $io_function->uf_cerosizquierda($estprog[4],25); $estprog[5] = $ls_estcla; $ls_cuenta=$_POST["txtcuenta".$li_fila]; $ls_procede_doc=$_POST["txtprocede".$li_fila]; $ls_descripcion=$_POST["txtdescripcion".$li_fila]; $ls_documento=$_POST["txtdocumento".$li_fila]; $ls_operacion2=$_POST["txtoperacion".$li_fila]; $ldec_monto_anterior=$_POST["txtmonto".$li_fila]; $ldec_monto_actual=0; $li_tipo_comp=1; $ls_mensaje=$io_int_spg->uf_operacion_codigo_mensaje($ls_operacion2); $io_int_spg->is_codemp = $la_emp["codemp"]; $io_int_spg->id_fecha = $io_function->uf_convertirdatetobd($ld_fecha); $io_int_spg->is_procedencia= $ls_proccomp; $io_int_spg->is_comprobante= $ls_comprobante; $io_int_spg->is_tipo = $ls_tipo; $io_int_spg->is_cod_prov = $ls_prov; $io_int_spg->is_ced_ben = $ls_bene; $io_int_spg->ib_AutoConta = true; $ls_denominacion=""; $ls_status=""; $ls_sc_cuenta=""; if ($ls_tipo=="B") { $ls_fuente = $ls_bene; } else { if ($ls_tipo=="P") { $ls_fuente = $ls_prov; } else { $ls_fuente = "----------"; } } if(!$io_int_spg->uf_spg_select_cuenta($la_emp["codemp"],$estprog,$ls_cuenta,$ls_status,$ls_denominacion,$ls_sc_cuenta)) { $io_msg->message(" Registro No Fue Eliminado, la cuenta No existe"); } $lb_valido=$io_int_spg->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,$ls_codban, $ls_ctaban); if($lb_valido) { $io_msg->message(" Registro Eliminado Satisfactoriamente"); ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="DELETE"; $ls_desc_event="Elimino el movimiento presupuestario ".$ls_documento." con operacion".$ls_operacion2." por un monto de ".$ldec_monto_anterior." para la cuenta ".$ls_cuenta." correspondiente a la estructura programatica ".$estprog[0]."-".$estprog[1]."-".$estprog[2]."-00-00; para el comprobante ".$ls_comprobante." de fecha ".$ld_fecha; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_codemp,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// $io_int_spg->io_sql->commit(); } else { $io_int_spg->io_sql->rollback(); $io_msg->message(" Registro No Fue Eliminado "); } uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); } if($ls_operacion=="DELETESCG") { $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha =$_POST["txtfecha"]; $ls_proccomp =$_POST["txtproccomp"]; $ls_desccomp =$_POST["txtdesccomp"]; $ls_provbene =$_POST["txtprovbene"]; $ls_tipo =$_POST["tipo"]; $li_fila =$_POST["fila"]; $ls_desproben = $_POST["txtdesproben"]; $ls_codban = "---"; $ls_ctaban = "-------------------------"; $ls_rendfon =$io_funciones_gasto->uf_obtenervalor("chrenfon","0"); if ($ls_rendfon=='1') { $ls_disabled=""; $ls_rendicion="checked"; $ls_disabled="disabled"; } else { $ls_disabled=""; $ls_rendicion=""; $ls_disabled=""; } if($ls_tipo=="P") { $ls_prov=$ls_provbene; $ls_bene="----------"; $prov_sel="selected"; $bene_sel=""; $ning_sel=""; } else { $ls_bene=$ls_provbene; $ls_prov="----------"; $prov_sel=""; $bene_sel="selected"; $ning_sel=""; } $ls_cuenta=$_POST["txtcontable".$li_fila]; $ls_procdoc=$_POST["txtprocdoc".$li_fila]; $ls_desdoc=$_POST["txtdesdoc".$li_fila]; $ls_docscg=$_POST["txtdocscg".$li_fila]; $ls_debhab=$_POST["txtdebhab".$li_fila]; $ldec_monto_anterior=$_POST["txtmontocont".$li_fila]; $ldec_monto_actual=0; $li_tipo_comp=1; //$ls_mensaje=$int_scg->uf_operacion_codigo_mensaje($ls_operacion); $io_int_scg->is_codemp=$la_emp["codemp"]; $io_int_scg->id_fecha=$io_function->uf_convertirdatetobd($ld_fecha); $io_int_scg->is_procedencia=$ls_proccomp; $io_int_scg->is_comprobante=$ls_comprobante; $io_int_scg->is_tipo=$ls_tipo; $io_int_scg->is_cod_prov=$ls_prov; $io_int_scg->is_ced_ben=$ls_bene; $io_int_scg->ib_AutoConta=true; $lb_valido=$io_int_scg->uf_scg_procesar_delete_movimiento($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$io_int_scg->id_fecha, $ls_cuenta, $ls_procdoc, $ls_docscg,$ls_debhab, $ldec_monto_anterior,$ls_codban,$ls_ctaban); if($lb_valido) { $io_msg->message(" Registro Eliminado Satisfactoriamente"); $io_int_scg->io_sql->commit(); ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="DELETE"; $ls_desc_event="Elimino el movimiento contable ".$ls_docscg." con operacion ".$ls_debhab." por un monto de ".$ldec_monto_anterior." para la cuenta ".$ls_cuenta."; para el comprobante ".$ls_comprobante." de fecha ".$ld_fecha; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_codemp,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// } else { $io_int_scg->io_sql->rollback(); $io_msg->message(" Registro No Fue Eliminado "); } 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 $totalpre; global $totalcon; global $object; global $object2; global $ldec_mondeb; global $ldec_monhab; global $ldec_diferencia; global $ldec_totspg; $ldec_totspg=0; $ldec_mondeb=0; $ldec_monhab=0; $ldec_diferencia=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); $totalpre=1; $totalcon=1; $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($li_numrows>0) { $totalpre=$li_numrows; while($row=$in_classcmp->io_sql->fetch_row($rs_dtcmp)) { $i=$i+1; $ls_cuenta=$row["spg_cuenta"]; if($li_estmodest==2) { $ls_programatico=substr($row["codest1"],-$ls_loncodestpro1).substr($row["codest2"],-$ls_loncodestpro2).substr($row["codest3"],-$ls_loncodestpro3).substr($row["codest4"],-$ls_loncodestpro4).substr($row["codest5"],-$ls_loncodestpro5); } else { $ls_programatico=substr($row["codest1"],-$ls_loncodestpro1).substr($row["codest2"],-$ls_loncodestpro2).substr($row["codest3"],-$ls_loncodestpro3); } $ls_documento=$row["documento"]; $ls_descripcion=$row["descripcion"]; $ls_procede=$row["procede_doc"]; $ls_operacion=$row["operacion"]; $ldec_monto=$row["monto"]; $ls_estcla=$row["estcla"]; if($li_estmodest==1) { $li_size=32; $li_maxlength=$ls_loncodestpro1+$ls_loncodestpro2+$ls_loncodestpro3+10; } else { $li_size=40; $li_maxlength=$ls_loncodestpro1+$ls_loncodestpro2+$ls_loncodestpro3+$ls_loncodestpro4+$ls_loncodestpro5+10; } $object[$i][1]=""; $object[$i][2]=""; $object[$i][3]=""; $object[$i][4]=""; $object[$i][5]=""; $object[$i][6]=""; $object[$i][7]=""; $object[$i][8] ="Eliminar"; $ldec_totspg = $ldec_totspg + $ldec_monto; } $in_classcmp->io_sql->free_result($rs_dtcmp); } else { if ($li_estmodest==1) { $li_size=32; $li_maxlength=$ls_loncodestpro1+$ls_loncodestpro2+$ls_loncodestpro3+10; } else { $li_size=40; $li_maxlength=$ls_loncodestpro1+$ls_loncodestpro2+$ls_loncodestpro3+$ls_loncodestpro4+$ls_loncodestpro5+10; } $object[1][1]=""; $object[1][2]=""; $object[1][3]=""; $object[1][4]=""; $object[1][5]=""; $object[1][6]=""; $object[1][7]=""; $object[1][8] =""; } $i=0; $rs_dtscg=$in_classcmp->uf_cargar_dt_contable_cmp($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); $li_numrows=$in_classcmp->io_sql->num_rows($rs_dtscg); //$totalpre=$li_numrows; if($li_numrows>0) { $totalcon=$li_numrows; while($row=$in_classcmp->io_sql->fetch_row($rs_dtscg)) { $i=$i+1;+ $ls_sc_cuenta=$row["sc_cuenta"]; $ls_documento=$row["documento"]; $ls_desdoc=$row["descripcion"]; $ls_procdoc=$row["procede_doc"]; $ls_debhab=$row["debhab"]; $ldec_monto=$row["monto"]; if($ls_debhab=="D") { $ldec_mondeb=$ldec_mondeb+$ldec_monto; } else { $ldec_monhab=$ldec_monhab+$ldec_monto; } if($li_estmodest==1) { $li_sizedoc=30; $li_sizedes=40; } else { $li_sizedoc=37; $li_sizedes=41; } $object2[$i][1]=""; $object2[$i][2]=""; $object2[$i][3]=""; $object2[$i][4]=""; $object2[$i][5]=""; $object2[$i][6]=""; $object2[$i][7] ="Eliminar"; } $ldec_diferencia=$ldec_mondeb-$ldec_monhab; $in_classcmp->io_sql->free_result($rs_dtscg); } else { $li_estmodest=$la_emp["estmodest"]; if($li_estmodest==1) { $li_sizedoc=30; $li_sizedes=40; } else { $li_sizedoc=37; $li_sizedes=41; } $object2[1][1]=""; $object2[1][2]=""; $object2[1][3]=""; $object2[1][4]=""; $object2[1][5]=""; $object2[1][6]=""; $object2[1][7] =""; } } if($ls_tipo=='P') { $prov_sel="checked"; $bene_sel=""; $ning_sel=""; } elseif($ls_tipo=='B') { $prov_sel=""; $bene_sel="checked"; $ning_sel=""; } else { $prov_sel=""; $bene_sel=""; $ning_sel="checked"; } if($ls_status=="C") { $readonly="readonly"; } else { $readonly=""; } ?>
"); } else { print(""); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?>
Comprobante Presupuestario
     

Procedencia
Fecha size="15" maxlength="15" datepicker="true">

Comprobante

 > > Rendición de Fondos

Descripción

Tipo


 

Código/Cédula

 Catalogo Proveedores/Beneficiarios  

Fuente de Financiamiento

Catalogo Proveedores/Beneficiarios  
     Agregar detalle Presupuesto
makegrid($totalpre,$title,$object,820,'Detalles Presupuestarios',$grid1);?>
makegrid($totalcon,$title2,$object2,820,'Detalles Contable',$grid2);*/?>
       
       
     
"; print " ue_reload();"; print ""; } if (($ls_operacion=="DELETESPG")||($ls_operacion=="DELETESCG")) { print ""; } ?>