"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } require_once("class_funciones_gasto.php"); $io_fun_spg = new class_funciones_gasto(); $ls_formato = $io_fun_spg->uf_select_config("SPG","REPORTE","MODIFICACION_PRESUPUESTARIA_TRASPASO","sigesp_spg_rpp_sol_mod_pre_forma0301.php","C"); ?> Comprobante de Rectificaciones
Contabilidad Presupuestaria de Gasto
 
                     
Nuevo Grabar Buscar Eliminar imprimir comprobante Salir        
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(); $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"]; $li_fila = 0; $ls_fuefin = $_POST["cmbfuefin"]; $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; $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; $ls_fuefin = "--"; $ls_coduniadm="-----"; $ls_denuniadm=""; } 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 = ""; $ldec_totctarec = 0; $ldec_tototracta = 0; $ls_comprobante = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_fecha = $_POST["txtfecha"]; $ls_descripcion = $_POST["txtdesccomp"]; $ls_codemp = $la_emp["codemp"]; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $ls_existe=$_POST["existe"]; if ($ls_contipo==0) { $ls_compread=""; } else { //$ls_compread="readonly"; $ls_compread=""; } //$ls_tipomod= $_POST["txttipomod"]; //$ls_dentipomod= $_POST["txtdentipomod"]; if ($ls_contipo==0) { $ls_mostrar=" style='display:none'"; } else { $ls_mostrar=" style='display:compact'"; } $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"],'SPGREC'); } } 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_procede = "SPGCMP"; $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_compread=""; } else { //$ls_compread="readonly"; $ls_compread=""; print(""); $ls_comprobante=""; } $ls_tipomod=""; // codigo del tipo de modificación presupuestaria $ls_dentipomod= ""; $ls_descripcion = ""; $ls_tipo = ""; $li_fila = 0; $ldec_mondeb=0; $ldec_diferencia=0; $ldec_monhab=0; $ldec_totctarec=0; $ldec_tototracta=0; $li_estapro = 0; $prov_sel=""; $bene_sel=""; $ning_sel="selected"; $totalDI=1; $totalAU=1; $ls_fuefin=""; $ls_coduniadm = "-----"; $ls_denuniadm = ""; $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_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); $ls_existe=$_POST["existe"]; } 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_fuefin = $_POST["cmbfuefin"]; $ls_coduniadm = $_POST["txtuniadm"]; $ls_denuniadm = $_POST["txtdenuni"]; $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); 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") { $lb_valido=false; $ls_existe="N"; $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"]; $lb_valido=$in_classcmp->uf_delete_all_comprobante($ls_codemp,$ls_comprobante,$ld_fecha,$ls_procedencia); if($lb_valido) { $ls_comprobante=""; $ld_fecha=""; $ls_descripcion=""; $li_estapro = 0; ///////////////////////////////// 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_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// $int_spg->io_sql->commit(); $msg->message("Comprobante Eliminado Satisfactoriamente"); } 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 ="-"; $li_fila =$_POST["fila"]; $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; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; 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]; $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_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("El Movimiento fue Eliminado ..."); ///////////////////////////////// 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]."-00-00; 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("El Movimiento no fue Eliminado ..."); $int_spg->io_sql->rollback(); } uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha); } if($ls_operacion=="DELETEAU") { $ls_comprobante=$_POST["txtcomprobante"]; $ld_fecha =$_POST["txtfecha"]; $ls_proccomp =$_POST["txtproccomp"]; $ls_desccomp =$_POST["txtdesccomp"]; $ls_provbene ="----------"; $ls_tipo ="-"; $li_fila =$_POST["fila"]; $ls_prov=$ls_provbene; $ls_bene=$ls_provbene; $ls_contipo= $_POST["tipomod"]; $ls_codtipo= $_POST["codtipomod"]; $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; 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=trim($_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("El Movimiento fue Eliminado ..."); ///////////////////////////////// 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("El Movimiento no fue Eliminado ..."); $int_spg->io_sql->rollback(); } 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_totctarec; $ldec_totctarec=0; global $ldec_tototracta; $ldec_tototracta=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); $h=0; if($li_numrows>0) { while($row=$in_classcmp->io_sql->fetch_row($rs_dtcmp)) { $ls_cuenta=$row["spg_cuenta"]; $li_estmodest=$la_emp["estmodest"]; $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] ="Eliminar Abrir"; $ldec_totctarec = $ldec_totctarec+$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] ="Eliminar Abrir"; $ldec_tototracta = $ldec_tototracta+$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(""); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?>

 

Comprobante de Rectificaciones
     
Procedencia Fecha
Número de la Modificación >  
Concepto de la Modificación  
Fuente de Financiamiento uf_load_fuentes_financiamiento($ls_empresa); ?>  
Unidad Administradora  
     Agregar a Cuentas de Rectificaciones Presupuestarias
makegrid($totalDI,$title,$objectDI,770,'Cuentas de Rectificaciones Presupuestarias',$grid1);?>
Total Cuentas de Rectificaciones " size="28" style="text-align:right">
     Agregar a Otras Cuentas
makegrid($totalAU,$title,$objectAU,770,'Otras Cuentas',$grid2);?>
Total Otras Cuentas
" size="28" style="text-align:right">