Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IF lv_lines NE 0.
- GET RUN TIME FIELD lv_rt_str.
- SORT gv_it_tabla_af BY bukrs anln1 anln2.
- SELECT afabe kansw kinvz answl invzm gjahr
- FROM anlc
- INTO CORRESPONDING FIELDS OF TABLE gv_it_tabla_af_aux
- FOR ALL ENTRIES IN gv_it_tabla_af
- WHERE
- bukrs = gv_it_tabla_af-bukrs AND
- anln1 = gv_it_tabla_af-anln1 AND
- anln2 = gv_it_tabla_af-anln2 AND
- afabe IN so_afabe AND
- gjahr IN r_periodo.
- SORT gv_it_tabla_af_aux.
- DELETE ADJACENT DUPLICATES FROM gv_it_tabla_af_aux.
- IF sy-subrc EQ 0.
- " Movemos los datos auxiliares junto al AF a la tabla aux_dos.
- LOOP AT gv_it_tabla_af_aux ASSIGNING <fs_gv_it_tabla_af_aux>.
- " Datos comunes
- MOVE <fs_gv_it_tabla_af>-bukrs TO gv_wa_tabla_af-bukrs.
- MOVE <fs_gv_it_tabla_af>-anln1 TO gv_wa_tabla_af-anln1.
- MOVE <fs_gv_it_tabla_af>-anln2 TO gv_wa_tabla_af-anln2.
- MOVE <fs_gv_it_tabla_af>-anlkl TO gv_wa_tabla_af-anlkl.
- MOVE <fs_gv_it_tabla_af>-anlue TO gv_wa_tabla_af-anlue.
- MOVE <fs_gv_it_tabla_af>-werks TO gv_wa_tabla_af-werks.
- MOVE <fs_gv_it_tabla_af>-gsber TO gv_wa_tabla_af-gsber.
- MOVE <fs_gv_it_tabla_af>-stort TO gv_wa_tabla_af-stort.
- MOVE <fs_gv_it_tabla_af>-kostl TO gv_wa_tabla_af-kostl.
- " Datos diferentes
- MOVE <fs_gv_it_tabla_af_aux>-afabe TO gv_wa_tabla_af-afabe.
- MOVE <fs_gv_it_tabla_af_aux>-kansw TO gv_wa_tabla_af-kansw.
- MOVE <fs_gv_it_tabla_af_aux>-kinvz TO gv_wa_tabla_af-kinvz.
- MOVE <fs_gv_it_tabla_af_aux>-answl TO gv_wa_tabla_af-answl.
- MOVE <fs_gv_it_tabla_af_aux>-invzm TO gv_wa_tabla_af-invzm.
- MOVE <fs_gv_it_tabla_af_aux>-gjahr TO gv_wa_tabla_af-gjahr.
- PERFORM z_af_obtener_inversion.
- APPEND gv_wa_tabla_af TO gv_it_tabla_af_aux_dos.
- CLEAR gv_wa_tabla_af.
- ENDLOOP.
- ENDIF.
- " desvinculamos
- UNASSIGN <fs_gv_it_tabla_af>.
- UNASSIGN <fs_gv_it_tabla_af_aux>.
- GET RUN TIME FIELD lv_rt_end.
- lv_run_time2 = ( lv_rt_end - lv_rt_str ) / 1000000 .
- "WRITE:/ 'Runtime para perform c_bis', RUN_TIME2.
- ENDIF.
- " Limpiarmos la tabla principal.
- REFRESH gv_it_tabla_af.
- " Asignamos la tabla principla a la auxiliar.
- gv_it_tabla_af[] = gv_it_tabla_af_aux_dos[].
- " Limpiamos la tabla auxiliar
- REFRESH gv_it_tabla_af_aux_dos.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement