Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *&---------------------------------------------------------------------*
- *& Include Z_AF_AJUSTES_NIIF_ENEL_TOP *
- *&---------------------------------------------------------------------*
- "--------------------------------------------------------------------
- * ------------------ Definición de tablas------------------ .
- "--------------------------------------------------------------------
- TABLES: anla, anlav, anlc.
- "--------------------------------------------------------------------
- " ------------------ Definición de variables ------------------
- "--------------------------------------------------------------------
- TYPE-POOLS: slis.
- " Permite utilizar el encoding de abap.
- TYPE-POOLS: abap.
- DATA:
- "gv_af_it_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
- gv_af_it_fieldcat TYPE STANDARD TABLE OF slis_fieldcat_alv,
- gv_af_wa_fieldcat TYPE slis_fieldcat_alv,
- gs_layout TYPE slis_layout_alv,
- repid LIKE sy-repid,
- gv_events TYPE slis_t_event,
- gs_disvariant LIKE disvariant,
- gv_af_mes_en_curso(2) TYPE N,
- d_sortcat TYPE slis_t_sortinfo_alv,
- wa_sort TYPE slis_sortinfo_alv.
- "gv_af_fecha_imputacion TYPE sy-datum.
- DATA: gv_af_anio_en_curso LIKE sy-datum."#EC NEEDED
- DATA: gv_exit."#EC NEEDED
- DATA: gv_pool_trabajo(2) TYPE c. "Valor único
- DATA: gv_variante_clasificacion TYPE c.
- "--------------------------------------------------------------------
- " Permite llevar la cuenta de los distintos periodos, info útil a la
- " hora de armar el reporte.
- "--------------------------------------------------------------------
- DATA: gv_cont_periodo TYPE i.
- "--------------------------------------------------------------------
- " Rango que contiene la cant. de ejercicios contables.
- "--------------------------------------------------------------------
- RANGES : gv_rango_ejercicios FOR anla-bukrs.
- "--------------------------------------------------------------------
- " Rango para comparar los AF de un ejercicio.
- "--------------------------------------------------------------------
- RANGES: r_periodo FOR anlp-gjahr.
- "--------------------------------------------------------------------
- " Constantes.
- "--------------------------------------------------------------------
- CONSTANTS:
- gc_af_explo_inicio TYPE p VALUE 300000000000,
- gc_af_explo_fin TYPE p VALUE 400000000000,
- gc_fecini(8) TYPE c VALUE '20090101',
- gc_datab_aei(8) TYPE c VALUE '20071001',
- gc_afabe_aei_low(2) TYPE c VALUE '01',
- gc_afabe_aei_high(2) TYPE c VALUE '40',
- gc_datab_aes(8) TYPE c VALUE '20090107',
- gc_afabe_aes_low(2) TYPE c VALUE '51',
- gc_afabe_aes_high(2) TYPE c VALUE '54',
- gc_datab_ans_low(8) TYPE c VALUE '20100101',
- gc_datab_ans_high(8) TYPE c VALUE '99991231',
- gc_afabe_ans_low(2) TYPE c VALUE '52',
- gc_afabe_ans_high(2) TYPE c VALUE '54'.
- "--------------------------------------------------------------------
- " Definimos estructuras.
- "--------------------------------------------------------------------
- TYPES: BEGIN OF estructura ,
- bukrs LIKE anla-bukrs, " Sociedad
- anln1 LIKE anla-anln1, " Nro. AF
- anln2 LIKE anla-anln2, " Sub. AF
- gjahr LIKE anlc-gjahr, " Ejercicio
- afabe LIKE anlc-afabe, " Área de Valoración
- anlkl LIKE anla-anlkl, " Clase AF
- gsber LIKE anlav-gsber, " Division
- kostl LIKE anlav-kostl, " CeCo
- werks LIKE anlav-werks, " Centro
- stort LIKE anlav-stort, " Emplazamiento
- anlue LIKE anlav-anlue, " Supra Activo
- pspid LIKE anlav-pspid, " PEP
- kansw LIKE anlc-kansw, " Valor adq. acumulado
- kinvz LIKE anlc-kinvz, " Subvención acum.
- answl LIKE anlc-answl, " Movimientos cuenta balance
- invzm LIKE anlc-invzm, " Subvención
- nafap LIKE anlp-nafap, " Amort. planificada.
- nafag LIKE anlp-nafag, " Amort. contabilizada en el eje.
- nafaz LIKE anlp-nafaz, " Amort. normal a contabilizar.
- "belnr LIKE anlp-belnr, " Nro. de documento.
- inversion LIKE anlc-kansw, " Inversion del periodo
- amortizacion LIKE anlp-nafag, " Amortizacion acum.
- budat LIKE bkpf-budat, " Fecha de contab.
- lnran LIKE anek-lnran, " Nº actual de partida individual de activo fijo en ejercicio
- monat LIKE anek-monat, " Mes Contable
- glvor LIKE anek-glvor, " Operación empresarial
- obart LIKE anek-obart, " Clase del objeto emisor en la liquidación
- objid LIKE anek-objid, " Número del objeto emisor
- belnr LIKE anek-belnr, " Número documento de referencia
- buzei LIKE anek-buzei, " Número del apunte contable dentro del documento contable
- bzdat LIKE anek-bzdat, " Fecha de referencia
- awtyp LIKE anek-awtyp, " Operación de referencia
- END OF estructura.
- " Gestion consulta c
- TYPES: BEGIN OF estructura_cc ,
- bukrs LIKE anla-bukrs, " Sociedad
- anln1 LIKE anla-anln1, " Nro. AF
- anln2 LIKE anla-anln2, " Sub. AF
- lnran LIKE anek-lnran, " Nº actual de partida individual de activo fijo en ejercicio
- monat LIKE anek-monat, " Mes Contable
- glvor LIKE anek-glvor, " Operación empresarial
- obart LIKE anek-obart, " Clase del objeto emisor en la liquidación
- objid LIKE anek-objid, " Número del objeto emisor
- belnr LIKE anek-belnr, " Número documento de referencia
- buzei LIKE anek-buzei, " Número del apunte contable dentro del documento contable
- bzdat LIKE anek-bzdat, " Fecha de referencia
- awtyp LIKE anek-awtyp, " Operación de referencia
- END OF estructura_cc.
- " Gestion consulta d: pep
- TYPES: BEGIN OF estructura_cd_pep ,
- pspel LIKE AUFK-PSPEl,
- aufnr LIKE AUFK-AUFNR,
- END OF estructura_cd_pep.
- " Gestion consulta d: ord
- TYPES: BEGIN OF estructura_cd_ord,
- pspel LIKE AUFK-PSPEl,
- objnr LIKE AUFK-OBJNR,
- relevante(2) TYPE c,
- END OF estructura_cd_ord.
- " Gestion consulta d: ord
- TYPES: BEGIN OF estructura_cd_cosp,
- objnr LIKE AUFK-OBJNR,
- END OF estructura_cd_cosp.
- " Gestion consulta e - f
- TYPES: BEGIN OF estructura_e_f,
- BUKRS LIKE ANEP-BUKRS,
- ANLN1 LIKE ANEP-ANLN1,
- ANLN2 LIKE ANEP-ANLN2,
- AFABE LIKE ANEP-AFABE,
- BELNR LIKE ANEP-BELNR ," Nº documento
- BWASL LIKE ANEP-BWASL ," Clase mov.
- ANBTR LIKE ANEP-ANBTR ," Importe Contabilizado
- END OF estructura_e_f.
- "--------------------------------------------------------------------
- " Definimos tabla interna para el área de selección.
- "--------------------------------------------------------------------
- TYPES: BEGIN OF estructura_informe ,
- "--------------------------------------------------------------------
- " Datos comunes I.
- "--------------------------------------------------------------------
- bukrs LIKE anla-bukrs, " Sociedad
- anln1 LIKE anla-anln1, " Nro. AF
- anln2 LIKE anla-anln2, " Sub. AF
- anlkl LIKE anla-anlkl, " Clase AF
- gsber LIKE anlav-gsber, " Division
- kostl LIKE anlav-kostl, " CeCo
- werks LIKE anlav-werks, " Centro
- stort LIKE anlav-stort, " Emplazamiento
- anlue LIKE anlav-anlue, " Supra Activo
- pspid LIKE anlav-pspid, " PEP
- afabe LIKE anlc-afabe, " Área de Valoración
- gjahr LIKE anlc-gjahr, " Ejercicio
- "--------------------------------------------------------------------
- " Datos del ejercicio
- "--------------------------------------------------------------------
- " 1
- inversion_curso_1 LIKE anlc-kansw,
- inversion_explo_1 LIKE anlc-kansw,
- amortiza_explo_1 LIKE anlp-nafag,
- " 2
- inversion_curso_2 LIKE anlc-kansw,
- inversion_explo_2 LIKE anlc-kansw,
- amortiza_explo_2 LIKE anlp-nafag,
- " 3
- inversion_curso_3 LIKE anlc-kansw,
- inversion_explo_3 LIKE anlc-kansw,
- amortiza_explo_3 LIKE anlp-nafag,
- " 4
- inversion_curso_4 LIKE anlc-kansw,
- inversion_explo_4 LIKE anlc-kansw,
- amortiza_explo_4 LIKE anlp-nafag,
- " 5
- inversion_curso_5 LIKE anlc-kansw,
- inversion_explo_5 LIKE anlc-kansw,
- amortiza_explo_5 LIKE anlp-nafag,
- " 6
- inversion_curso_6 LIKE anlc-kansw,
- inversion_explo_6 LIKE anlc-kansw,
- amortiza_explo_6 LIKE anlp-nafag,
- " 7
- inversion_curso_7 LIKE anlc-kansw,
- inversion_explo_7 LIKE anlc-kansw,
- amortiza_explo_7 LIKE anlp-nafag,
- " 8
- inversion_curso_8 LIKE anlc-kansw,
- inversion_explo_8 LIKE anlc-kansw,
- amortiza_explo_8 LIKE anlp-nafag,
- " 9
- inversion_curso_9 LIKE anlc-kansw,
- inversion_explo_9 LIKE anlc-kansw,
- amortiza_explo_9 LIKE anlp-nafag,
- " 10
- inversion_curso_10 LIKE anlc-kansw,
- inversion_explo_10 LIKE anlc-kansw,
- amortiza_explo_10 LIKE anlp-nafag,
- " Actual
- inversion_curso_actual LIKE anlc-kansw,
- inversion_explo_actual LIKE anlc-kansw,
- amortiza_explo_actual_p1 LIKE anlp-nafag,
- amortiza_explo_actual_p2 LIKE anlp-nafag,
- amortiza_explo_actual_p3 LIKE anlp-nafag,
- amortiza_explo_actual_p4 LIKE anlp-nafag,
- amortiza_explo_actual_p5 LIKE anlp-nafag,
- amortiza_explo_actual_p6 LIKE anlp-nafag,
- amortiza_explo_actual_p7 LIKE anlp-nafag,
- amortiza_explo_actual_p8 LIKE anlp-nafag,
- amortiza_explo_actual_p9 LIKE anlp-nafag,
- amortiza_explo_actual_p10 LIKE anlp-nafag,
- amortiza_explo_actual_p11 LIKE anlp-nafag,
- amortiza_explo_actual_p12 LIKE anlp-nafag,
- "--------------------------------------------------------------------
- " Datos comunes II.
- "--------------------------------------------------------------------
- inversion_curso_total LIKE anlc-kansw, " Inversion del periodo
- inversion_explo_total LIKE anlc-kansw,
- amortizacion_total LIKE anlp-nafag, " Amortizacion acum.
- porcentaje_amortizacion LIKE anlp-nafag,
- amortizacion LIKE anlp-nafag, " Amortizacion acum.
- kansw LIKE anlc-kansw, " Valor adq. acumulado
- kinvz LIKE anlc-kinvz, " Subvención acum.
- answl LIKE anlc-answl, " Movimientos cuenta balance
- invzm LIKE anlc-invzm, " Subvención
- nafap LIKE anlp-nafap, " Amort. planificada.
- nafag LIKE anlp-nafag, " Amort. contabilizada en el eje.
- nafaz LIKE anlp-nafaz, " Amort. normal a contabilizar.
- belnr LIKE anlp-belnr, " Nro. de documento.
- inversion LIKE anlc-kansw, " Inversion del periodo
- budat LIKE bkpf-budat, "Fecha de contab.
- END OF estructura_informe.
- "--------------------------------------------------------------------
- " ------------- Declaracion de tipos tabla internas -----------------
- "--------------------------------------------------------------------
- TYPES: it_estructura TYPE STANDARD TABLE OF estructura.
- TYPES: it_estructura_informe TYPE STANDARD TABLE OF estructura_informe.
- TYPES: it_estructura_cc TYPE STANDARD TABLE OF estructura_cc.
- TYPES: it_estructura_cd_pep TYPE STANDARD TABLE OF estructura_cd_pep.
- TYPES: it_estructura_cd_ord TYPE STANDARD TABLE OF estructura_cd_ord.
- TYPES: it_estructura_cd_cosp TYPE STANDARD TABLE OF estructura_cd_cosp.
- TYPES: it_estructura_ce_cf TYPE STANDARD TABLE OF estructura_e_f.
- "--------------------------------------------------------------------
- " ----------------- Declaracion de tablas internas -----------------
- "--------------------------------------------------------------------
- DATA:
- gv_it_tabla_af TYPE it_estructura,
- gv_it_tabla_af_aux TYPE it_estructura,
- gv_it_tabla_af_aux_dos TYPE it_estructura,
- gv_it_tabla_af_informe TYPE it_estructura_informe,
- gv_wa_tabla_af_informe TYPE estructura_informe,
- gv_wa_tabla_af TYPE estructura.
- FIELD-SYMBOLS: <fs_gv_it_tabla_af> LIKE LINE OF gv_it_tabla_af.
- FIELD-SYMBOLS: <fs_gv_it_tabla_af_tmp> LIKE LINE OF gv_it_tabla_af.
- FIELD-SYMBOLS: <fs_gv_it_tabla_af_aux> LIKE LINE OF gv_it_tabla_af.
- DATA: BEGIN OF gv_it_tabla_af_cabecera OCCURS 0,
- titulo(20) TYPE c,
- END OF gv_it_tabla_af_cabecera.
- "--------------------------------------------------------------------
- " -------------- Definición de parámetros de selección --------------
- "--------------------------------------------------------------------
- SELECTION-SCREEN BEGIN OF BLOCK b_cero WITH FRAME TITLE text-001.
- SELECT-OPTIONS so_bukrs FOR anla-bukrs
- NO-EXTENSION NO INTERVALS OBLIGATORY.
- SELECT-OPTIONS so_anln1 FOR anla-anln1.
- SELECT-OPTIONS so_anln2 FOR anla-anln2.
- SELECT-OPTIONS so_anlkl FOR anla-anlkl.
- SELECT-OPTIONS so_gsber FOR anlav-gsber.
- SELECT-OPTIONS so_kostl FOR anlav-kostl.
- SELECT-OPTIONS so_werks FOR anlav-werks.
- SELECT-OPTIONS so_stort FOR anlav-stort.
- SELECT-OPTIONS so_anlue FOR anlav-anlue.
- SELECT-OPTIONS so_pspid FOR anlav-pspid.
- PARAMETERS pa_pool LIKE gv_pool_trabajo .
- SELECT-OPTIONS datab FOR sy-datum MODIF ID fc OBLIGATORY.
- SELECT-OPTIONS so_afabe FOR anlc-afabe MODIF ID av OBLIGATORY.
- SELECTION-SCREEN SKIP.
- SELECTION-SCREEN BEGIN OF BLOCK b_tres WITH FRAME TITLE text-004.
- PARAMETERS variant LIKE disvariant-variant.
- PARAMETERS strvr LIKE gv_variante_clasificacion.
- SELECTION-SCREEN END OF BLOCK b_tres.
- SELECTION-SCREEN END OF BLOCK b_cero.
- "--------------------------------------------------------------------
- " Opción de listado
- "--------------------------------------------------------------------
- SELECTION-SCREEN BEGIN OF BLOCK b_uno WITH FRAME TITLE text-002.
- PARAMETERS:
- r_op_af RADIOBUTTON GROUP uno USER-COMMAND u_uno,
- r_op_np RADIOBUTTON GROUP uno, "Sólo números principales.
- r_op_tg RADIOBUTTON GROUP uno. "Sólo totales grupo.
- SELECTION-SCREEN END OF BLOCK b_uno.
- "--------------------------------------------------------------------
- " Ajustes de Informe
- "--------------------------------------------------------------------
- SELECTION-SCREEN BEGIN OF BLOCK b_dos WITH FRAME TITLE text-003.
- PARAMETERS:
- r_aei RADIOBUTTON GROUP dos MODIF ID aei USER-COMMAND u_dos,
- r_aes RADIOBUTTON GROUP dos MODIF ID aes,
- r_ans RADIOBUTTON GROUP dos MODIF ID ans.
- PARAMETERS: fecini LIKE sy-datum VALUE CHECK MODIF ID fit.
- SELECTION-SCREEN END OF BLOCK b_dos.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement