API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
74
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 15.23 KB | None | 0 0
raw download clone embed print report
  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 estructuras.
  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.     gjahr   LIKE anlc-gjahr,      " Ejercicio
  82.     afabe   LIKE anlc-afabe,      " Área de Valoración
  83.     anlkl   LIKE anla-anlkl,      " Clase AF
  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.     lnran LIKE anek-lnran,        " Nº actual de partida individual de activo fijo en ejercicio
  102.     monat LIKE anek-monat,        " Mes Contable
  103.     glvor LIKE anek-glvor,        " Operación empresarial
  104.     obart LIKE anek-obart,        " Clase del objeto emisor en la liquidación
  105.     objid LIKE anek-objid,        " Número del objeto emisor
  106.     belnr LIKE anek-belnr,        " Número documento de referencia
  107.     buzei LIKE anek-buzei,        " Número del apunte contable dentro del documento contable
  108.     bzdat LIKE anek-bzdat,        " Fecha de referencia
  109.     awtyp LIKE anek-awtyp,        " Operación de referencia
  110.     BWASL LIKE ANEP-BWASL   ,       " Clase mov.
  111.     ANBTR LIKE ANEP-ANBTR ,       " Importe Contabilizado
  112. END OF estructura.
  113.  
  114. " Gestion consulta a
  115. TYPES: BEGIN OF estructura_ca ,
  116.   bukrs LIKE anla-bukrs,  " Sociedad
  117.   anln1 LIKE anla-anln1,  " Nro. AF
  118.   anln2 LIKE anla-anln2,  " Sub. AF
  119.   gjahr LIKE anlc-gjahr,  " Ejercicio
  120.   afabe LIKE anlc-afabe,  " Área de Valoración
  121.   END OF estructura_ca.
  122.  
  123. " Gestion consulta b
  124.   TYPES: BEGIN OF estructura_cb ,
  125.     bukrs   LIKE anla-bukrs,    " Sociedad
  126.     anln1   LIKE anla-anln1,    " Nro. AF
  127.     anln2   LIKE anla-anln2,    " Sub. AF
  128.     gsber   LIKE anlav-gsber,   " Division
  129.     kostl   LIKE anlav-kostl,   " CeCo
  130.     werks   LIKE anlav-werks,   " Centro
  131.     stort   LIKE anlav-stort,   " Emplazamiento
  132.     anlue   LIKE anlav-anlue,   " Supra Activo
  133.     anlkl   LIKE anla-anlkl,    " Clase AF
  134.     gjahr   LIKE anlc-gjahr,  " Ejercicio
  135.     afabe   LIKE anlc-afabe,  " Área de Valoración
  136.     END OF estructura_cb.
  137.  
  138. " Gestion consulta c
  139. TYPES: BEGIN OF estructura_cc ,
  140.   bukrs LIKE anla-bukrs,  " Sociedad
  141.   anln1 LIKE anla-anln1,  " Nro. AF
  142.   anln2 LIKE anla-anln2,  " Sub. AF
  143.   lnran LIKE anek-lnran,  " Nº actual de partida individual de activo fijo en ejercicio
  144.   monat LIKE anek-monat,  " Mes Contable
  145.   glvor LIKE anek-glvor,  " Operación empresarial
  146.   obart LIKE anek-obart,  " Clase del objeto emisor en la liquidación
  147.   objid LIKE anek-objid,  " Número del objeto emisor
  148.   belnr LIKE anek-belnr,  " Número documento de referencia
  149.   buzei LIKE anek-buzei,  " Número del apunte contable dentro del documento contable
  150.   bzdat LIKE anek-bzdat,  " Fecha de referencia
  151.   awtyp LIKE anek-awtyp,  " Operación de referencia
  152.   END OF estructura_cc.
  153.  
  154. " Gestion consulta d: pep
  155. TYPES: BEGIN OF estructura_cd_pep ,
  156.   pspel LIKE AUFK-PSPEl,
  157.   aufnr LIKE AUFK-AUFNR,
  158. END OF estructura_cd_pep.
  159.  
  160. " Gestion consulta d: ord
  161. TYPES: BEGIN OF estructura_cd_ord,
  162.   pspel LIKE AUFK-PSPEl,
  163.   objnr LIKE AUFK-OBJNR,
  164.   relevante(2) TYPE c,
  165. END OF estructura_cd_ord.
  166.  
  167. " Gestion consulta d: ord
  168. TYPES: BEGIN OF estructura_cd_cosp,
  169.   objnr LIKE AUFK-OBJNR,
  170. END OF estructura_cd_cosp.
  171.  
  172. " Gestion consulta e - f
  173. TYPES: BEGIN OF estructura_e_f,
  174.   BUKRS LIKE ANEP-BUKRS,
  175.   ANLN1 LIKE ANEP-ANLN1,
  176.   ANLN2 LIKE ANEP-ANLN2,
  177.   AFABE LIKE ANEP-AFABE,
  178.   gjahr LIKE anlc-gjahr,  " Ejercicio
  179.   BELNR LIKE ANEP-BELNR ," Nº documento
  180.   BWASL LIKE ANEP-BWASL ," Clase mov.
  181.   ANBTR LIKE ANEP-ANBTR ," Importe Contabilizado
  182.   inversion LIKE anlc-kansw,    " Inversion del periodo
  183. END OF estructura_e_f.
  184.  
  185. "--------------------------------------------------------------------
  186. " Definimos tabla interna para el área de selección.
  187. "--------------------------------------------------------------------
  188. TYPES: BEGIN OF estructura_informe ,
  189.   "--------------------------------------------------------------------
  190.   " Datos comunes I.
  191.   "--------------------------------------------------------------------
  192.     bukrs   LIKE anla-bukrs,  " Sociedad
  193.     anln1   LIKE anla-anln1,  " Nro. AF
  194.     anln2   LIKE anla-anln2,  " Sub. AF
  195.     anlkl   LIKE anla-anlkl,  " Clase AF
  196.     gsber   LIKE anlav-gsber, " Division
  197.     kostl   LIKE anlav-kostl, " CeCo
  198.     werks   LIKE anlav-werks, " Centro
  199.     stort   LIKE anlav-stort, " Emplazamiento
  200.     anlue   LIKE anlav-anlue, " Supra Activo
  201.     pspid   LIKE anlav-pspid, " PEP
  202.     afabe   LIKE anlc-afabe,  " Área de Valoración
  203.     gjahr   LIKE anlc-gjahr,  " Ejercicio
  204.   "--------------------------------------------------------------------
  205.   " Datos del ejercicio
  206.   "--------------------------------------------------------------------
  207.     " 1
  208.     inversion_curso_1 LIKE anlc-kansw,
  209.     inversion_explo_1 LIKE anlc-kansw,
  210.     amortiza_explo_1 LIKE anlp-nafag,
  211.     " 2
  212.     inversion_curso_2 LIKE anlc-kansw,
  213.     inversion_explo_2 LIKE anlc-kansw,
  214.     amortiza_explo_2 LIKE anlp-nafag,
  215.     " 3
  216.     inversion_curso_3 LIKE anlc-kansw,
  217.     inversion_explo_3 LIKE anlc-kansw,
  218.     amortiza_explo_3 LIKE anlp-nafag,
  219.     " 4
  220.     inversion_curso_4 LIKE anlc-kansw,
  221.     inversion_explo_4 LIKE anlc-kansw,
  222.     amortiza_explo_4 LIKE anlp-nafag,
  223.     " 5
  224.     inversion_curso_5 LIKE anlc-kansw,
  225.     inversion_explo_5 LIKE anlc-kansw,
  226.     amortiza_explo_5 LIKE anlp-nafag,
  227.     " 6
  228.     inversion_curso_6 LIKE anlc-kansw,
  229.     inversion_explo_6 LIKE anlc-kansw,
  230.     amortiza_explo_6 LIKE anlp-nafag,
  231.     " 7
  232.     inversion_curso_7 LIKE anlc-kansw,
  233.     inversion_explo_7 LIKE anlc-kansw,
  234.     amortiza_explo_7 LIKE anlp-nafag,
  235.     " 8
  236.     inversion_curso_8 LIKE anlc-kansw,
  237.     inversion_explo_8 LIKE anlc-kansw,
  238.     amortiza_explo_8 LIKE anlp-nafag,
  239.     " 9
  240.     inversion_curso_9 LIKE anlc-kansw,
  241.     inversion_explo_9 LIKE anlc-kansw,
  242.     amortiza_explo_9 LIKE anlp-nafag,
  243.     " 10
  244.     inversion_curso_10 LIKE anlc-kansw,
  245.     inversion_explo_10 LIKE anlc-kansw,
  246.     amortiza_explo_10 LIKE anlp-nafag,
  247.     " Actual
  248.     inversion_curso_actual LIKE anlc-kansw,
  249.     inversion_explo_actual LIKE anlc-kansw,
  250.     amortiza_explo_actual_p1 LIKE anlp-nafag,
  251.     amortiza_explo_actual_p2 LIKE anlp-nafag,
  252.     amortiza_explo_actual_p3 LIKE anlp-nafag,
  253.     amortiza_explo_actual_p4 LIKE anlp-nafag,
  254.     amortiza_explo_actual_p5 LIKE anlp-nafag,
  255.     amortiza_explo_actual_p6 LIKE anlp-nafag,
  256.     amortiza_explo_actual_p7 LIKE anlp-nafag,
  257.     amortiza_explo_actual_p8 LIKE anlp-nafag,
  258.     amortiza_explo_actual_p9 LIKE anlp-nafag,
  259.     amortiza_explo_actual_p10 LIKE anlp-nafag,
  260.     amortiza_explo_actual_p11 LIKE anlp-nafag,
  261.     amortiza_explo_actual_p12 LIKE anlp-nafag,
  262.   "--------------------------------------------------------------------
  263.   " Datos comunes II.
  264.   "--------------------------------------------------------------------
  265.     inversion_curso_total LIKE anlc-kansw,  " Inversion del periodo
  266.     inversion_explo_total LIKE anlc-kansw,
  267.     amortizacion_total LIKE anlp-nafag,     " Amortizacion acum.
  268.     porcentaje_amortizacion LIKE anlp-nafag,
  269.     amortizacion LIKE anlp-nafag,           " Amortizacion acum.
  270.     kansw   LIKE anlc-kansw,                " Valor adq. acumulado
  271.     kinvz   LIKE anlc-kinvz,                " Subvención acum.
  272.     answl   LIKE anlc-answl,                " Movimientos cuenta balance
  273.     invzm   LIKE anlc-invzm,                " Subvención
  274.     nafap   LIKE anlp-nafap,                " Amort. planificada.
  275.     nafag   LIKE anlp-nafag,                " Amort. contabilizada en el eje.
  276.     nafaz   LIKE anlp-nafaz,                " Amort. normal a contabilizar.
  277.     belnr   LIKE anlp-belnr,                " Nro. de documento.
  278.     inversion LIKE anlc-kansw,              " Inversion del periodo
  279.     budat LIKE bkpf-budat,                  "Fecha de contab.
  280. END OF estructura_informe.
  281.  
  282. "--------------------------------------------------------------------
  283. " ------------- Declaracion de tipos tabla internas -----------------
  284. "--------------------------------------------------------------------
  285.  
  286. TYPES: it_estructura          TYPE STANDARD TABLE OF estructura.
  287. TYPES: it_estructura_informe  TYPE STANDARD TABLE OF estructura_informe.
  288. TYPES: it_estructura_ca       TYPE STANDARD TABLE OF estructura_ca.
  289. TYPES: it_estructura_cb       TYPE STANDARD TABLE OF estructura_cb.
  290. TYPES: it_estructura_cc       TYPE STANDARD TABLE OF estructura_cc.
  291. TYPES: it_estructura_cd_pep   TYPE STANDARD TABLE OF estructura_cd_pep.
  292. TYPES: it_estructura_cd_ord   TYPE STANDARD TABLE OF estructura_cd_ord.
  293. TYPES: it_estructura_cd_cosp  TYPE STANDARD TABLE OF estructura_cd_cosp.
  294. TYPES: it_estructura_ce_cf    TYPE STANDARD TABLE OF estructura_e_f.
  295.  
  296. "--------------------------------------------------------------------
  297. " ----------------- Declaracion de tablas internas -----------------
  298. "--------------------------------------------------------------------
  299. DATA:
  300.       gv_it_tabla_af TYPE it_estructura,
  301.       gv_it_tabla_af_aux TYPE it_estructura,
  302.       gv_it_tabla_af_aux_dos TYPE it_estructura,
  303.       gv_it_tabla_af_informe TYPE it_estructura_informe,
  304.       gv_wa_tabla_af_informe TYPE estructura_informe,
  305.       gv_wa_tabla_af TYPE estructura,
  306.       gt_af_ce_cf TYPE it_estructura_ce_cf.
  307.  
  308. FIELD-SYMBOLS: <fs_gv_it_tabla_af> LIKE LINE OF gv_it_tabla_af.
  309. FIELD-SYMBOLS: <fs_gv_it_tabla_af_tmp> LIKE LINE OF gv_it_tabla_af.
  310. FIELD-SYMBOLS: <fs_gv_it_tabla_af_aux> LIKE LINE OF gv_it_tabla_af.
  311.  
  312. DATA: BEGIN OF  gv_it_tabla_af_cabecera OCCURS 0,
  313.   titulo(20) TYPE c,
  314. END OF gv_it_tabla_af_cabecera.
  315.  
  316.  
  317.  
  318. "--------------------------------------------------------------------
  319. " -------------- Definición de parámetros de selección --------------
  320. "--------------------------------------------------------------------
  321.  
  322. SELECTION-SCREEN BEGIN OF BLOCK b_cero WITH FRAME TITLE text-001.
  323.  
  324. SELECT-OPTIONS so_bukrs FOR anla-bukrs
  325.   NO-EXTENSION NO INTERVALS OBLIGATORY.
  326. SELECT-OPTIONS so_anln1 FOR anla-anln1.
  327. SELECT-OPTIONS so_anln2 FOR anla-anln2.
  328. SELECT-OPTIONS so_anlkl FOR anla-anlkl.
  329. SELECT-OPTIONS so_gsber FOR anlav-gsber.
  330. SELECT-OPTIONS so_kostl FOR anlav-kostl.
  331. SELECT-OPTIONS so_werks FOR anlav-werks.
  332. SELECT-OPTIONS so_stort FOR anlav-stort.
  333. SELECT-OPTIONS so_anlue FOR anlav-anlue.
  334. SELECT-OPTIONS so_pspid FOR anlav-pspid.
  335. PARAMETERS pa_pool LIKE gv_pool_trabajo .
  336.  
  337. SELECT-OPTIONS datab FOR sy-datum MODIF ID fc OBLIGATORY.
  338. SELECT-OPTIONS so_afabe FOR anlc-afabe MODIF ID av OBLIGATORY.
  339. SELECTION-SCREEN SKIP.
  340.  
  341. SELECTION-SCREEN BEGIN OF BLOCK b_tres WITH FRAME TITLE text-004.
  342. PARAMETERS variant LIKE disvariant-variant.
  343. PARAMETERS strvr LIKE gv_variante_clasificacion.
  344. SELECTION-SCREEN END   OF BLOCK b_tres.
  345. SELECTION-SCREEN END   OF BLOCK b_cero.
  346.  
  347. "--------------------------------------------------------------------
  348. " Opción de listado
  349. "--------------------------------------------------------------------
  350. SELECTION-SCREEN BEGIN OF BLOCK b_uno WITH FRAME TITLE text-002.
  351. PARAMETERS:
  352.   r_op_af RADIOBUTTON GROUP uno USER-COMMAND u_uno,
  353.   r_op_np RADIOBUTTON GROUP uno, "Sólo números principales.
  354.   r_op_tg RADIOBUTTON GROUP uno. "Sólo totales grupo.
  355. SELECTION-SCREEN END   OF BLOCK b_uno.
  356.  
  357. "--------------------------------------------------------------------
  358. " Ajustes de Informe
  359. "--------------------------------------------------------------------
  360. SELECTION-SCREEN BEGIN OF BLOCK b_dos WITH FRAME TITLE text-003.
  361. PARAMETERS:
  362.   r_aei RADIOBUTTON GROUP dos MODIF ID aei USER-COMMAND u_dos,
  363.   r_aes RADIOBUTTON GROUP dos MODIF ID aes,
  364.   r_ans RADIOBUTTON GROUP dos MODIF ID ans.
  365. PARAMETERS: fecini LIKE sy-datum VALUE CHECK MODIF ID fit.
  366. SELECTION-SCREEN END   OF BLOCK b_dos.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!