Advertisement
Guest User

Untitled

a guest
Jun 21st, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 2.34 KB | None | 0 0
  1. IF lv_lines NE 0.
  2.     GET RUN TIME FIELD lv_rt_str.
  3.  
  4.     SORT gv_it_tabla_af BY bukrs anln1 anln2.
  5.     SELECT afabe kansw kinvz answl invzm gjahr
  6.     FROM anlc
  7.     INTO CORRESPONDING FIELDS OF TABLE gv_it_tabla_af_aux
  8.     FOR ALL ENTRIES IN gv_it_tabla_af
  9.     WHERE
  10.     bukrs = gv_it_tabla_af-bukrs AND
  11.     anln1 = gv_it_tabla_af-anln1 AND
  12.     anln2 = gv_it_tabla_af-anln2 AND
  13.     afabe IN so_afabe AND
  14.     gjahr IN r_periodo.
  15.  
  16.     SORT gv_it_tabla_af_aux.
  17.     DELETE ADJACENT DUPLICATES FROM gv_it_tabla_af_aux.
  18.  
  19.     IF sy-subrc EQ 0.
  20.      " Movemos los datos auxiliares junto al AF a la tabla aux_dos.
  21.       LOOP AT gv_it_tabla_af_aux ASSIGNING <fs_gv_it_tabla_af_aux>.
  22.         " Datos comunes
  23.         MOVE <fs_gv_it_tabla_af>-bukrs TO gv_wa_tabla_af-bukrs.
  24.         MOVE <fs_gv_it_tabla_af>-anln1 TO gv_wa_tabla_af-anln1.
  25.         MOVE <fs_gv_it_tabla_af>-anln2 TO gv_wa_tabla_af-anln2.
  26.         MOVE <fs_gv_it_tabla_af>-anlkl TO gv_wa_tabla_af-anlkl.
  27.         MOVE <fs_gv_it_tabla_af>-anlue TO gv_wa_tabla_af-anlue.
  28.         MOVE <fs_gv_it_tabla_af>-werks TO gv_wa_tabla_af-werks.
  29.         MOVE <fs_gv_it_tabla_af>-gsber TO gv_wa_tabla_af-gsber.
  30.         MOVE <fs_gv_it_tabla_af>-stort TO gv_wa_tabla_af-stort.
  31.         MOVE <fs_gv_it_tabla_af>-kostl TO gv_wa_tabla_af-kostl.
  32.  
  33.         " Datos diferentes
  34.         MOVE <fs_gv_it_tabla_af_aux>-afabe TO gv_wa_tabla_af-afabe.
  35.         MOVE <fs_gv_it_tabla_af_aux>-kansw TO gv_wa_tabla_af-kansw.
  36.         MOVE <fs_gv_it_tabla_af_aux>-kinvz TO gv_wa_tabla_af-kinvz.
  37.         MOVE <fs_gv_it_tabla_af_aux>-answl TO gv_wa_tabla_af-answl.
  38.         MOVE <fs_gv_it_tabla_af_aux>-invzm TO gv_wa_tabla_af-invzm.
  39.         MOVE <fs_gv_it_tabla_af_aux>-gjahr TO gv_wa_tabla_af-gjahr.
  40.  
  41.         PERFORM z_af_obtener_inversion.
  42.         APPEND gv_wa_tabla_af TO gv_it_tabla_af_aux_dos.
  43.         CLEAR gv_wa_tabla_af.
  44.       ENDLOOP.
  45.  
  46.     ENDIF.
  47.     " desvinculamos
  48.     UNASSIGN <fs_gv_it_tabla_af>.
  49.     UNASSIGN <fs_gv_it_tabla_af_aux>.
  50.  
  51.     GET RUN TIME FIELD lv_rt_end.
  52.     lv_run_time2 = ( lv_rt_end - lv_rt_str ) / 1000000 .
  53.  
  54.     "WRITE:/ 'Runtime para perform c_bis', RUN_TIME2.
  55.   ENDIF.
  56.   " Limpiarmos la tabla principal.
  57.   REFRESH gv_it_tabla_af.
  58.  
  59.   " Asignamos la tabla principla a la auxiliar.
  60.   gv_it_tabla_af[] = gv_it_tabla_af_aux_dos[].
  61.  
  62.   " Limpiamos la tabla auxiliar
  63.   REFRESH gv_it_tabla_af_aux_dos.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement