Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- REPORT ztesteuni.
- TABLES: te422.
- SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
- SELECT-OPTIONS s_mru FOR te422-termschl. "OBLIGATORY.
- SELECTION-SCREEN END OF BLOCK b1.
- SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
- PARAMETERS: b_marca RADIOBUTTON GROUP gr1,
- b_desma RADIOBUTTON GROUP gr1,
- b_pesq RADIOBUTTON GROUP gr1.
- SELECTION-SCREEN END OF BLOCK b2.
- TYPES: BEGIN OF ty_zteste_danilo,
- mru TYPE zteste_danilo-mru,
- usuario TYPE zteste_danilo-usuario,
- data TYPE zteste_danilo-data,
- hora TYPE zteste_danilo-hora,
- nome_programa TYPE zteste_danilo-nome_programa,
- END OF ty_zteste_danilo,
- BEGIN OF ty_te422,
- termschl TYPE te422-termschl,
- eroedat TYPE te422-eroedat,
- END OF ty_te422.
- DATA: t_preenche TYPE TABLE OF zteste_danilo,
- w_preenche TYPE zteste_danilo.
- DATA : t_te422 TYPE TABLE OF ty_te422,
- w_te422 TYPE ty_te422.
- CLEAR: w_preenche,w_te422.
- FREE: t_preenche ,t_te422.
- SELECT termschl eroedat
- FROM te422
- INTO TABLE t_te422
- * WHERE termschl = '13031103' OR termschl = '13062103' OR termschl = '14031121'.
- WHERE termschl in s_mru.
- IF sy-subrc IS INITIAL.
- LOOP AT t_te422 INTO w_te422.
- w_preenche-mru = w_te422-termschl.
- w_preenche-usuario = sy-uname.
- w_preenche-data = sy-datum.
- w_preenche-hora = sy-uzeit.
- w_preenche-nome_programa = sy-repid.
- APPEND w_preenche TO t_preenche.
- CLEAR w_preenche.
- ENDLOOP.
- MODIFY zteste_danilo FROM TABLE t_preenche.
- IF sy-subrc IS INITIAL.
- COMMIT WORK.
- ELSE.
- MESSAGE text-001 TYPE 'S' DISPLAY LIKE 'E'.
- LEAVE LIST-PROCESSING.
- ENDIF.
- *
- ENDIF.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement