DATA: lit_formula_lines TYPE TABLE OF rgsbf,
lit_set_lines_basic TYPE TABLE OF rgsbv,
lit_set_lines_data TYPE TABLE OF rgsb3,
lit_set_lines_multi TYPE TABLE OF rgsb2,
lit_set_lines_single TYPE TABLE OF rgsb1,
* Estructuras creadas para ser usadas si es necesario
lwa_formula_lines TYPE rgsbf,
lwa_set_lines_basic TYPE rgsbv,
lwa_set_lines_data TYPE rgsb3,
lwa_set_lines_multi TYPE rgsb2,
lwa_set_lines_single TYPE rgsb1,
* Rango creado para hacer consultas o para ser usado como parte de una sentencia lógica
lr_dauat TYPE RANGE OF afpo-dauat,
lwa_dauat LIKE LINE OF lr_dauat.
* Esta función trae el rango llamado ZORDENES_DESARROLLO
CALL FUNCTION 'G_SET_FETCH'
EXPORTING
setnr = '0000ZORDENES_DESARROLLO'
TABLES
formula_lines = lit_formula_lines
set_lines_basic = lit_set_lines_basic
set_lines_data = lit_set_lines_data
set_lines_multi = lit_set_lines_multi
set_lines_single = lit_set_lines_single
EXCEPTIONS
no_authority = 1
set_is_broken = 2
set_not_found = 3
OTHERS = 4
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
LOOP AT lit_set_lines_basic INTO lwa_set_lines_basic.
lwa_dauat-sign = 'I'.
lwa_dauat-option = 'BT'.
lwa_dauat-low = lwa_set_lines_basic-from.
lwa_dauat-high = lwa_set_lines_basic-to.
APPEND lwa_dauat TO lr_dauat.
ENDLOOP.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
27 | |
5 | |
4 | |
2 | |
2 | |
2 | |
2 | |
2 | |
2 | |
2 |