"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } ?> Comprobante de Ingreso
Sistema de Presupuesto de Ingreso
 
                     
Nuevo Grabar Buscar Eliminar Salir            
uf_sss_select_permisos($ls_empresa,$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_spi_c_comprobante(); $io_int_scg=new class_sigesp_int_scg(); $io_int_spi=new class_sigesp_int_spi(); $io_msg=new class_mensajes(); $io_grid=new grid_param(); $io_class_spi = new class_funciones_spi(); $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"]; $li_fila = 0; $ls_codban = $_POST["txtcodban"]; $ls_ctaban = $_POST["txtctaban"]; } else { $ls_operacion="NUEVO"; $_SESSION["ACTUALIZAR"]="NO"; $_SESSION["ib_new"] =true; $ls_fecha=date("d/m/Y"); $li_fila = 0; } 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"]; $ls_codban=$_POST["txtcodban"]; $ls_ctaban=$_POST["txtctaban"]; $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"],'SPICMP'); } } $li_fila = 0; $prov_sel= ""; $bene_sel= ""; $ning_sel= "selected"; $totalpre= 1; $totalcon= 1; $li_estpreing = $la_emp["estpreing"]; if ($li_estpreing==0) { $object[1][1] = ""; $object[1][2] = ""; $object[1][3] = ""; $object[1][4] = ""; $object[1][5] = ""; $object[1][6] = ""; $object[1][7] = ""; } else { $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,$ls_codban,$ls_ctaban); } //Titulos de la tabla de Detalle Presupuestario. $li_estpreing = $la_emp["estpreing"]; if ($li_estpreing==0) { $title[1]="Cuenta"; $title[2]="Documento"; $title[3]="Descripción"; $title[4]="Procede"; $title[5]="Operación"; $title[6]="Monto"; $title[7]="Edición"; $grid1="grid_SPI"; } else { $title[1]="Cuenta"; if($li_estmodest==1) { $title[2]="Imputación Presupuestaria"; } else { $title[2]="Programatica"; } $title[3]="Documento"; $title[4]="Descripción"; $title[5]="Procede"; $title[6]="Operación"; $title[7]="Monto"; $title[8]="Edición"; $grid1="grid_SPI"; } //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"; //$object[$i][1]="";$object[$i][2]="";$object[$i][3]=""; $object[$i][4]=""; $grid2="grid_SCG"; if($ls_operacion=="NUEVO")//Acciones para un comprobante nuevo { $ls_procede = "SPICMP"; $ls_status = "N"; $ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPICMP'); $ls_provbene = "----------"; $ls_desproben = ""; $ls_tipo = ""; $ls_descripcion = ""; $ls_tipo = ""; $li_fila = 0; $ldec_mondeb = 0; $ldec_diferencia=0; $ldec_monhab = 0; $ldec_totspi = 0; $prov_sel = ""; $bene_sel = ""; $ning_sel = "selected"; $totalpre = 1; $totalcon = 1; $li_estpreing = $la_emp["estpreing"]; if ($li_estpreing==0) { $object[1][1] = ""; $object[1][2] = ""; $object[1][3] = ""; $object[1][4] = ""; $object[1][5] = ""; $object[1][6] = ""; $object[1][7] = ""; } else { $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] = ""; } 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_tipo =$_POST["tipo"]; $ldec_mondeb=$_POST["txttotspg"]; $ls_codban=$_POST["txtcodban"]; $ls_ctaban=$_POST["txtctaban"]; $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,$ls_codban,$ls_ctaban); } if($ls_operacion=="GUARDAR") { $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"]; $int_int->is_tipo = $ls_tipo; $int_int->is_cod_prov= $_POST["txtprovbene"]; $int_int->is_ced_ben = $_POST["txtprovbene"]; $ls_desproben = $_POST["txtdesproben"]; $ls_codban=$_POST["txtcodban"]; $ls_ctaban=$_POST["txtctaban"]; $int_int->ib_procesando_cmp=false; $int_int->id_fecha=$io_function->uf_convertirdatetobd($ld_fecha); $int_int->is_codban = $ls_codban; $int_int->is_ctaban = $ls_ctaban; if($ls_tipo=='P') { $ls_fuente = $_POST["txtprovbene"]; $int_int->is_cod_prov=$_POST["txtprovbene"]; $int_int->is_ced_ben="----------"; $prov_sel="selected"; $bene_sel=""; $ning_sel=""; } elseif($ls_tipo=='B') { $ls_fuente = $_POST["txtprovbene"]; $int_int->is_ced_ben=$_POST["txtprovbene"]; $int_int->is_cod_prov="----------"; $prov_sel=""; $bene_sel="selected"; $ning_sel=""; } else { $ls_fuente = "-"; $int_int->is_cod_prov="----------"; $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 { $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,1, $ls_codban,$ls_ctaban); if(!$lb_valido) { $io_msg->message($in_classcmp->is_msg_error); } } uf_cargar_dt($la_emp["codemp"],$ls_procedencia,$ls_comprobante,$ld_fecha,$ls_codban,$ls_ctaban); } if($ls_operacion=="ELIMINAR") { $lb_valido=false; require_once("../shared/class_folder/class_sigesp_int_int.php"); require_once("../shared/class_folder/class_sigesp_int_spg.php"); require_once("../shared/class_folder/class_sigesp_int_spi.php"); $int_int=new class_sigesp_int_int(); $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"]; $int_int->is_tipo=$ls_tipo; $int_int->is_cod_prov=$_POST["txtprovbene"]; $int_int->is_ced_ben=$_POST["txtprovbene"]; $ls_desproben = $_POST["txtdesproben"]; $int_int->ib_procesando_cmp=false; $int_int->id_fecha=$io_function->uf_convertirdatetobd($ld_fecha); $ls_codban=$_POST["txtcodban"]; $ls_ctaban=$_POST["txtctaban"]; if($ls_tipo=='P') { $ls_fuente = $_POST["txtprovbene"]; $int_int->is_cod_prov=$_POST["txtprovbene"]; $int_int->is_ced_ben="----------"; $prov_sel="selected"; $bene_sel=""; $ning_sel=""; } elseif($ls_tipo=='B') { $ls_fuente = $_POST["txtprovbene"]; $int_int->is_ced_ben=$_POST["txtprovbene"]; $int_int->is_cod_prov="----------"; $prov_sel=""; $bene_sel="selected"; $ning_sel=""; } else { $ls_fuente = "-"; $int_int->is_cod_prov="----------"; $int_int->is_ced_ben="----------"; $prov_sel=""; $bene_sel=""; $ning_sel="selected"; } $lb_valido=$int_int->uf_init_delete($ls_codemp,$ls_procedencia,$ls_comprobante,$int_int->id_fecha,$ls_tipo, $int_int->is_ced_ben,$int_int->is_cod_prov,false,$ls_codban,$ls_ctaban); if (!$lb_valido) { $io_msg->message("Comprobante no existe"); } else { $lb_valido = $int_int->uf_int_init_transaction_begin(); if(!$lb_valido) { $io_msg->message($int_int->is_msg_error); } if($lb_valido) { $lb_valido = $int_int->uf_init_end_transaccion_integracion($la_seguridad); if (!$lb_valido) { $io_msg->message("Error".$int_int->is_msg_error); $int_int->io_sql->rollback(); } else { $io_msg->message("Comprobante eliminado satisfactoriamente"); $ls_comprobante = $in_classcmp->uf_generar_num_cmp($la_emp["codemp"],'SPICMP'); $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_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// $int_int->io_sql->commit(); } } } uf_cargar_dt($la_emp["codemp"],$ls_procedencia,$ls_comprobante,$ld_fecha,$ls_codban,$ls_ctaban); } if($ls_operacion=="DELETESPI") { $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=$_POST["txtcodban"]; $ls_ctaban=$_POST["txtctaban"]; $mesvalido=false; $mesvalido=$io_fecha->uf_valida_fecha_periodo($ld_fecha,$ls_codemp); if($mesvalido===false){$io_msg->message($io_fecha->is_msg_error);} 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"; } $ls_cuenta=$_POST["txtcuenta".$li_fila]; if($li_estpreing==1) { $ls_estructura =$_POST["txtestructura".$li_fila]; } $ls_procede_doc=$_POST["txtprocede".$li_fila]; $ls_descripcion=$_POST["txtdescripcion".$li_fila]; $ls_documento=$_POST["txtdocumento".$li_fila]; $ls_operacion=$_POST["txtoperacion".$li_fila]; $ldec_monto_anterior=$_POST["txtmonto".$li_fila]; $ldec_monto_actual=0; $li_tipo_comp=1; $ls_mensaje=$io_int_spi->uf_operacion_codigo_mensaje($ls_operacion); $io_int_spi->is_codemp = $la_emp["codemp"]; $io_int_spi->id_fecha = $io_function->uf_convertirdatetobd($ld_fecha); $io_int_spi->is_procedencia= $ls_proccomp; $io_int_spi->is_comprobante= $ls_comprobante; $io_int_spi->is_tipo = $ls_tipo; $io_int_spi->is_cod_prov = $ls_prov; $io_int_spi->is_ced_ben = $ls_bene; $io_int_spi->ib_AutoConta = true; $io_int_spi->is_codban = $ls_codban; $io_int_spi->is_ctaban = $ls_ctaban; $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_spi->uf_spi_select_cuenta($la_emp["codemp"],$ls_cuenta,$ls_status,$ls_denominacion,$ls_sc_cuenta)) { return false; } if($li_estpreing==1) { $ls_codest1 = substr($ls_estructura,0,25); $ls_codest2 = substr($ls_estructura,25,25); $ls_codest3 = substr($ls_estructura,50,25); $ls_codest4 = substr($ls_estructura,75,25); $ls_codest5 = substr($ls_estructura,100,25); $ls_estcla6 = substr($ls_estructura,125,1); } else { $ls_codest1 = '-------------------------'; $ls_codest2 = '-------------------------'; $ls_codest3 = '-------------------------'; $ls_codest4 = '-------------------------'; $ls_codest5 = '-------------------------'; $ls_estcla6 = '-'; } if($mesvalido){ $lb_valido=$io_int_spi->uf_int_spi_delete_movimiento($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha,$ls_tipo,$ls_fuente,$ls_prov,$ls_bene, $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,$ls_codest1,$ls_codest2,$ls_codest3, $ls_codest4,$ls_codest5,$ls_estcla6); if($lb_valido and $mesvalido) { $io_int_spi->io_sql->commit(); ///////////////////////////////// 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."; 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 ////////////////////////////// } else { $io_int_spi->io_sql->rollback(); } } uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha,$ls_codban,$ls_ctaban); } 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=$_POST["txtcodban"]; $ls_ctaban=$_POST["txtctaban"]; $mesvalido=false; $mesvalido=$io_fecha->uf_valida_fecha_periodo($ld_fecha,$_SESSION["la_empresa"]['codemp']); if($mesvalido===false){$io_msg->message($io_fecha->is_msg_error);} 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; $io_int_scg->is_codban = $ls_codban; $io_int_scg->is_ctaban = $ls_ctaban; if($mesvalido){ $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 and $mesvalido) { $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_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event); //////////////////////////////// SEGURIDAD ////////////////////////////// } else{ $io_int_scg->io_sql->rollback(); } } uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha,$ls_codban,$ls_ctaban); } function uf_cargar_dt($ls_codemp,$ls_proccomp,$ls_comprobante,$ld_fecha,$ls_codban,$ls_ctaban) { 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_totspi; global $ls_codban; global $ls_ctaban; global $ls_estructura; $ldec_totspi=0; $ldec_mondeb=0; $ldec_monhab=0; $ldec_diferencia=0; $i=0; $li_estpreing = $la_emp["estpreing"]; $ls_estmodest = $la_emp["estmodest"]; $li_loncodestpro1 = $la_emp["loncodestpro1"]; $li_loncodestpro2 = $la_emp["loncodestpro2"]; $li_loncodestpro3 = $la_emp["loncodestpro3"]; $li_loncodestpro4 = $la_emp["loncodestpro4"]; $li_loncodestpro5 = $la_emp["loncodestpro5"]; $ls_estructura = ""; $rs_dtcmp=$in_classcmp->uf_cargar_dt_comprobante($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha,$ls_codban,$ls_ctaban); $li_numrows=$in_classcmp->io_sql->num_rows($rs_dtcmp); $totalpre=1; $totalcon=1; if($li_numrows>0) { $totalpre=$li_numrows; while($row=$in_classcmp->io_sql->fetch_row($rs_dtcmp)) { $i=$i+1; $ls_cuenta=trim($row["spi_cuenta"]); $ls_documento=trim($row["documento"]); $ls_descripcion=trim($row["descripcion"]); $ls_procede=trim($row["procede_doc"]); $ls_operacion=trim($row["operacion"]); $ldec_monto=$row["monto"]; //----------------estructuras asociadas al ingresos-------------------------------------------------- $ls_codestpro1=$row["codestpro1"]; $ls_codestpro2=$row["codestpro2"]; $ls_codestpro3=$row["codestpro3"]; $ls_codestpro4=$row["codestpro4"]; $ls_codestpro5=$row["codestpro5"]; $ls_estcla=$row["estcla"]; $ls_estructura =$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5.$ls_estcla; $ls_codestpro1 = trim(substr($ls_codestpro1,-$li_loncodestpro1)); $ls_codestpro2 = trim(substr($ls_codestpro2,-$li_loncodestpro2)); $ls_codestpro3 = trim(substr($ls_codestpro3,-$li_loncodestpro3)); if ($ls_estmodest==2) { $ls_denestcla=""; $ls_codestpro4 = trim(substr($ls_codestpro4,-$li_loncodestpro4)); $ls_codestpro5 = trim(substr($ls_codestpro5,-$li_loncodestpro5)); $ls_programatica = $ls_codestpro1."-".$ls_codestpro2."-".$ls_codestpro3."-".$ls_codestpro4."-".$ls_codestpro5; } else { if ($ls_estcla=='P') { $ls_denestcla = 'Proyecto'; } else { $ls_denestcla = 'Acción Centralizada'; } $ls_programatica=$ls_codestpro1.'-'.$ls_codestpro2.'-'.$ls_codestpro3; } //-------------------------------------------------------------------------------------------------- if ($li_estpreing==0) { $object[$i][1]=""; $object[$i][2]=""; $object[$i][3]=""; $object[$i][4]=""; $object[$i][5]=""; $object[$i][6]=""; $object[$i][7]="Eliminar"; $ldec_totspi = $ldec_totspi + $ldec_monto; } else { $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_totspi = $ldec_totspi + $ldec_monto; } } $in_classcmp->io_sql->free_result($rs_dtcmp); } else { if ($li_estpreing==0) { $object[1][1]=""; $object[1][2]=""; $object[1][3]=""; $object[1][4]=""; $object[1][5]=""; $object[1][6]=""; $object[1][7]=""; } else { $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,$ls_codban,$ls_ctaban); $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; } $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 { $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 de Ingresos
     

Procedencia
Fecha datepicker="true">

Comprobante

 >  

Descripción

Tipo


 

Código/Cédula

 > Catalogo Proveedores/Beneficiarios  
     Agregar detalle Ingresos
makegrid($totalpre,$title,$object,770,'Detalles Presupuestarios',$grid1);?>
Total Ingresos
" readonly="true" size="28" style="text-align:right">

     Agregar detalle Contable

makegrid($totalcon,$title2,$object2,770,'Detalles Contable',$grid2);?>
       
Debe
" size="28" readonly>
       
Haber
" size="28" readonly>
     
Diferencia

" size="28" readonly>