Advertisement
Guest User

Untitled

a guest
Jun 21st, 2017
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 11.38 KB | None | 0 0
  1. *&---------------------------------------------------------------------*
  2. *&  Include           Z_AF_AJUSTES_NIIF_ENEL_TOP                       *
  3. *&---------------------------------------------------------------------*
  4.  
  5.  
  6. "--------------------------------------------------------------------
  7. * ------------------ Definición de tablas------------------ .
  8. "--------------------------------------------------------------------
  9.  
  10. TABLES: anla, anlav, anlc.
  11.  
  12.  
  13. "--------------------------------------------------------------------
  14. " ------------------ Definición de variables ------------------
  15. "--------------------------------------------------------------------
  16.  
  17. TYPE-POOLS: slis.
  18.  
  19. " Permite utilizar el encoding de abap.
  20. TYPE-POOLS: abap.
  21.  
  22. DATA:
  23.   "gv_af_it_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
  24.   gv_af_it_fieldcat TYPE STANDARD TABLE OF slis_fieldcat_alv,
  25.   gv_af_wa_fieldcat TYPE slis_fieldcat_alv,
  26.   gs_layout TYPE slis_layout_alv,
  27.   repid LIKE sy-repid,
  28.   gv_events TYPE slis_t_event,
  29.   gs_disvariant LIKE disvariant,
  30.   gv_af_mes_en_curso(2) TYPE N,
  31.   d_sortcat TYPE slis_t_sortinfo_alv,
  32.   wa_sort TYPE slis_sortinfo_alv.
  33.   "gv_af_fecha_imputacion TYPE sy-datum.
  34.  
  35. DATA: gv_af_anio_en_curso LIKE sy-datum."#EC NEEDED
  36. DATA: gv_exit."#EC NEEDED
  37.  
  38. DATA: gv_pool_trabajo(2) TYPE c. "Valor único
  39. DATA: gv_variante_clasificacion TYPE c.
  40. "--------------------------------------------------------------------
  41. " Permite llevar la cuenta  de los distintos periodos, info útil a la
  42. " hora de armar el reporte.
  43. "--------------------------------------------------------------------
  44. DATA: gv_cont_periodo TYPE i.
  45.  
  46. "--------------------------------------------------------------------
  47. " Rango que contiene la cant. de ejercicios contables.
  48. "--------------------------------------------------------------------
  49. RANGES : gv_rango_ejercicios FOR anla-bukrs.
  50.  
  51. "--------------------------------------------------------------------
  52. " Rango para comparar los AF de un ejercicio.
  53. "--------------------------------------------------------------------
  54. RANGES: r_periodo FOR anlp-gjahr.
  55.  
  56. "--------------------------------------------------------------------
  57. " Constantes.
  58. "--------------------------------------------------------------------
  59. CONSTANTS:
  60.   gc_af_explo_inicio TYPE p VALUE 300000000000,
  61.   gc_af_explo_fin TYPE p VALUE 400000000000,
  62.   gc_fecini(8) TYPE c VALUE '20090101',
  63.   gc_datab_aei(8) TYPE c VALUE '20071001',
  64.   gc_afabe_aei_low(2) TYPE c VALUE '01',
  65.   gc_afabe_aei_high(2) TYPE c VALUE '40',
  66.   gc_datab_aes(8) TYPE c VALUE '20090107',
  67.   gc_afabe_aes_low(2) TYPE c VALUE '51',
  68.   gc_afabe_aes_high(2) TYPE c VALUE '54',
  69.   gc_datab_ans_low(8) TYPE c VALUE '20100101',
  70.   gc_datab_ans_high(8) TYPE c VALUE '99991231',
  71.   gc_afabe_ans_low(2) TYPE c VALUE '52',
  72.   gc_afabe_ans_high(2) TYPE c VALUE '54'.
  73.  
  74. "--------------------------------------------------------------------
  75. " Definimos tabla interna para el área de selección.
  76. "--------------------------------------------------------------------
  77. TYPES: BEGIN OF estructura ,
  78.     bukrs   LIKE anla-bukrs,      " Sociedad
  79.     anln1   LIKE anla-anln1,      " Nro. AF
  80.     anln2   LIKE anla-anln2,      " Sub. AF
  81.     anlkl   LIKE anla-anlkl,      " Clase AF
  82.     afabe   LIKE anlc-afabe,      " Área de Valoración
  83.     gjahr   LIKE anlc-gjahr,      " Ejercicio
  84.     gsber   LIKE anlav-gsber,     " Division
  85.     kostl   LIKE anlav-kostl,     " CeCo
  86.     werks   LIKE anlav-werks,     " Centro
  87.     stort   LIKE anlav-stort,     " Emplazamiento
  88.     anlue   LIKE anlav-anlue,     " Supra Activo
  89.     pspid   LIKE anlav-pspid,     " PEP
  90.     kansw   LIKE anlc-kansw,      " Valor adq. acumulado
  91.     kinvz   LIKE anlc-kinvz,      " Subvención acum.
  92.     answl   LIKE anlc-answl,      " Movimientos cuenta balance
  93.     invzm   LIKE anlc-invzm,      " Subvención
  94.     nafap   LIKE anlp-nafap,      " Amort. planificada.
  95.     nafag   LIKE anlp-nafag,      " Amort. contabilizada en el eje.
  96.     nafaz   LIKE anlp-nafaz,      " Amort. normal a contabilizar.
  97.     belnr   LIKE anlp-belnr,      " Nro. de documento.
  98.     inversion LIKE anlc-kansw,    " Inversion del periodo
  99.     amortizacion LIKE anlp-nafag, " Amortizacion acum.
  100.     budat LIKE bkpf-budat,        "Fecha de contab.
  101. END OF estructura.
  102.  
  103. "--------------------------------------------------------------------
  104. " Definimos tabla interna para el área de selección.
  105. "--------------------------------------------------------------------
  106. TYPES: BEGIN OF estructura_informe ,
  107.   "--------------------------------------------------------------------
  108.   " Datos comunes I.
  109.   "--------------------------------------------------------------------
  110.     bukrs   LIKE anla-bukrs,  " Sociedad
  111.     anln1   LIKE anla-anln1,  " Nro. AF
  112.     anln2   LIKE anla-anln2,  " Sub. AF
  113.     anlkl   LIKE anla-anlkl,  " Clase AF
  114.     gsber   LIKE anlav-gsber, " Division
  115.     kostl   LIKE anlav-kostl, " CeCo
  116.     werks   LIKE anlav-werks, " Centro
  117.     stort   LIKE anlav-stort, " Emplazamiento
  118.     anlue   LIKE anlav-anlue, " Supra Activo
  119.     pspid   LIKE anlav-pspid, " PEP
  120.     afabe   LIKE anlc-afabe,  " Área de Valoración
  121.     gjahr   LIKE anlc-gjahr,  " Ejercicio
  122.   "--------------------------------------------------------------------
  123.   " Datos del ejercicio
  124.   "--------------------------------------------------------------------
  125.     " 1
  126.     inversion_curso_1 LIKE anlc-kansw,
  127.     inversion_explo_1 LIKE anlc-kansw,
  128.     amortiza_explo_1 LIKE anlp-nafag,
  129.     " 2
  130.     inversion_curso_2 LIKE anlc-kansw,
  131.     inversion_explo_2 LIKE anlc-kansw,
  132.     amortiza_explo_2 LIKE anlp-nafag,
  133.     " 3
  134.     inversion_curso_3 LIKE anlc-kansw,
  135.     inversion_explo_3 LIKE anlc-kansw,
  136.     amortiza_explo_3 LIKE anlp-nafag,
  137.     " 4
  138.     inversion_curso_4 LIKE anlc-kansw,
  139.     inversion_explo_4 LIKE anlc-kansw,
  140.     amortiza_explo_4 LIKE anlp-nafag,
  141.     " 5
  142.     inversion_curso_5 LIKE anlc-kansw,
  143.     inversion_explo_5 LIKE anlc-kansw,
  144.     amortiza_explo_5 LIKE anlp-nafag,
  145.     " 6
  146.     inversion_curso_6 LIKE anlc-kansw,
  147.     inversion_explo_6 LIKE anlc-kansw,
  148.     amortiza_explo_6 LIKE anlp-nafag,
  149.     " 7
  150.     inversion_curso_7 LIKE anlc-kansw,
  151.     inversion_explo_7 LIKE anlc-kansw,
  152.     amortiza_explo_7 LIKE anlp-nafag,
  153.     " 8
  154.     inversion_curso_8 LIKE anlc-kansw,
  155.     inversion_explo_8 LIKE anlc-kansw,
  156.     amortiza_explo_8 LIKE anlp-nafag,
  157.     " 9
  158.     inversion_curso_9 LIKE anlc-kansw,
  159.     inversion_explo_9 LIKE anlc-kansw,
  160.     amortiza_explo_9 LIKE anlp-nafag,
  161.     " 10
  162.     inversion_curso_10 LIKE anlc-kansw,
  163.     inversion_explo_10 LIKE anlc-kansw,
  164.     amortiza_explo_10 LIKE anlp-nafag,
  165.     " Actual
  166.     inversion_curso_actual LIKE anlc-kansw,
  167.     inversion_explo_actual LIKE anlc-kansw,
  168.     amortiza_explo_actual_p1 LIKE anlp-nafag,
  169.     amortiza_explo_actual_p2 LIKE anlp-nafag,
  170.     amortiza_explo_actual_p3 LIKE anlp-nafag,
  171.     amortiza_explo_actual_p4 LIKE anlp-nafag,
  172.     amortiza_explo_actual_p5 LIKE anlp-nafag,
  173.     amortiza_explo_actual_p6 LIKE anlp-nafag,
  174.     amortiza_explo_actual_p7 LIKE anlp-nafag,
  175.     amortiza_explo_actual_p8 LIKE anlp-nafag,
  176.     amortiza_explo_actual_p9 LIKE anlp-nafag,
  177.     amortiza_explo_actual_p10 LIKE anlp-nafag,
  178.     amortiza_explo_actual_p11 LIKE anlp-nafag,
  179.     amortiza_explo_actual_p12 LIKE anlp-nafag,
  180.   "--------------------------------------------------------------------
  181.   " Datos comunes II.
  182.   "--------------------------------------------------------------------
  183.     inversion_curso_total LIKE anlc-kansw,  " Inversion del periodo
  184.     inversion_explo_total LIKE anlc-kansw,
  185.     amortizacion_total LIKE anlp-nafag,     " Amortizacion acum.
  186.     porcentaje_amortizacion LIKE anlp-nafag,
  187.     amortizacion LIKE anlp-nafag,           " Amortizacion acum.
  188.     kansw   LIKE anlc-kansw,                " Valor adq. acumulado
  189.     kinvz   LIKE anlc-kinvz,                " Subvención acum.
  190.     answl   LIKE anlc-answl,                " Movimientos cuenta balance
  191.     invzm   LIKE anlc-invzm,                " Subvención
  192.     nafap   LIKE anlp-nafap,                " Amort. planificada.
  193.     nafag   LIKE anlp-nafag,                " Amort. contabilizada en el eje.
  194.     nafaz   LIKE anlp-nafaz,                " Amort. normal a contabilizar.
  195.     belnr   LIKE anlp-belnr,                " Nro. de documento.
  196.     inversion LIKE anlc-kansw,              " Inversion del periodo
  197.     budat LIKE bkpf-budat,                  "Fecha de contab.
  198. END OF estructura_informe.
  199.  
  200. TYPES: it_estructura TYPE STANDARD TABLE OF estructura.
  201. TYPES: it_estructura_informe TYPE STANDARD TABLE OF estructura_informe.
  202.  
  203. "--------------------------------------------------------------------
  204. " ----------------- Declaracion de tablas internas -----------------
  205. "--------------------------------------------------------------------
  206. DATA:
  207.       gv_it_tabla_af TYPE it_estructura,
  208.       gv_it_tabla_af_aux TYPE it_estructura,
  209.       gv_it_tabla_af_aux_dos TYPE it_estructura,
  210.       gv_it_tabla_af_informe TYPE it_estructura_informe,
  211.       gv_wa_tabla_af_informe TYPE estructura_informe,
  212.       gv_wa_tabla_af TYPE estructura .
  213.  
  214. FIELD-SYMBOLS: <fs_gv_it_tabla_af> LIKE LINE OF gv_it_tabla_af.
  215. FIELD-SYMBOLS: <fs_gv_it_tabla_af_tmp> LIKE LINE OF gv_it_tabla_af.
  216. FIELD-SYMBOLS: <fs_gv_it_tabla_af_aux> LIKE LINE OF gv_it_tabla_af.
  217.  
  218. DATA: BEGIN OF  gv_it_tabla_af_cabecera OCCURS 0,
  219.   titulo(20) TYPE c,
  220. END OF gv_it_tabla_af_cabecera.
  221.  
  222.  
  223.  
  224. "--------------------------------------------------------------------
  225. " -------------- Definición de parámetros de selección --------------
  226. "--------------------------------------------------------------------
  227.  
  228. SELECTION-SCREEN BEGIN OF BLOCK b_cero WITH FRAME TITLE text-001.
  229.  
  230. SELECT-OPTIONS so_bukrs FOR anla-bukrs
  231.   NO-EXTENSION NO INTERVALS OBLIGATORY.
  232. SELECT-OPTIONS so_anln1 FOR anla-anln1.
  233. SELECT-OPTIONS so_anln2 FOR anla-anln2.
  234. SELECT-OPTIONS so_anlkl FOR anla-anlkl.
  235. SELECT-OPTIONS so_gsber FOR anlav-gsber.
  236. SELECT-OPTIONS so_kostl FOR anlav-kostl.
  237. SELECT-OPTIONS so_werks FOR anlav-werks.
  238. SELECT-OPTIONS so_stort FOR anlav-stort.
  239. SELECT-OPTIONS so_anlue FOR anlav-anlue.
  240. SELECT-OPTIONS so_pspid FOR anlav-pspid.
  241. PARAMETERS pa_pool LIKE gv_pool_trabajo .
  242.  
  243. SELECT-OPTIONS datab FOR sy-datum MODIF ID fc OBLIGATORY.
  244. SELECT-OPTIONS so_afabe FOR anlc-afabe MODIF ID av OBLIGATORY.
  245. SELECTION-SCREEN SKIP.
  246.  
  247. SELECTION-SCREEN BEGIN OF BLOCK b_tres WITH FRAME TITLE text-004.
  248. PARAMETERS variant LIKE disvariant-variant.
  249. PARAMETERS strvr LIKE gv_variante_clasificacion.
  250. SELECTION-SCREEN END   OF BLOCK b_tres.
  251. SELECTION-SCREEN END   OF BLOCK b_cero.
  252.  
  253. "--------------------------------------------------------------------
  254. " Opción de listado
  255. "--------------------------------------------------------------------
  256. SELECTION-SCREEN BEGIN OF BLOCK b_uno WITH FRAME TITLE text-002.
  257. PARAMETERS:
  258.   r_op_af RADIOBUTTON GROUP uno USER-COMMAND u_uno,
  259.   r_op_np RADIOBUTTON GROUP uno, "Sólo números principales.
  260.   r_op_tg RADIOBUTTON GROUP uno. "Sólo totales grupo.
  261. SELECTION-SCREEN END   OF BLOCK b_uno.
  262.  
  263. "--------------------------------------------------------------------
  264. " Ajustes de Informe
  265. "--------------------------------------------------------------------
  266. SELECTION-SCREEN BEGIN OF BLOCK b_dos WITH FRAME TITLE text-003.
  267. PARAMETERS:
  268.   r_aei RADIOBUTTON GROUP dos MODIF ID aei USER-COMMAND u_dos,
  269.   r_aes RADIOBUTTON GROUP dos MODIF ID aes,
  270.   r_ans RADIOBUTTON GROUP dos MODIF ID ans.
  271. PARAMETERS: fecini LIKE sy-datum VALUE CHECK MODIF ID fit.
  272. SELECTION-SCREEN END   OF BLOCK b_dos.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement