*&---------------------------------------------------------------------*
*& Report  ZRAP05_EXERCICIO09
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zrap05_exercicio09.


SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME.
PARAMETERS: r_inclu RADIOBUTTON GROUP g1 USER-COMMAND rb,
            r_dele  RADIOBUTTON GROUP g1,
            r_atua  RADIOBUTTON GROUP g1,
            r_valor RADIOBUTTON GROUP g1,
            r_gene  RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK block2.

SELECTION-SCREEN BEGIN OF BLOCK block3 WITH FRAME.
PARAMETERS: p_cod_f  LIKE ztap05_filme-cod_filme MODIF ID m1,
            p_cod_g  LIKE ztap05_genero-cod_gen  MODIF ID m2,
            p_tipo_p LIKE ztap05_preco-tipo_preco MODIF ID m3,
            p_titulo LIKE ztap05_filme-titulo MODIF ID m4,
            p_valor  LIKE ztap05_preco-valor MODIF ID m5,
            p_descri LIKE ztap05_genero-descricao MODIF ID m6.
SELECTION-SCREEN END OF BLOCK block3.
SELECTION-SCREEN END OF BLOCK block1.

*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*




*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*


DATA: wa_filme  TYPE ztap05_filme,
      wa_preco  TYPE ztap05_preco,
      wa_genero TYPE ztap05_genero.


*&---------------------------------------------------------------------*
*&
*&                      START OF SELECTION
*&---------------------------------------------------------------------*

START-OF-SELECTION.
  IF r_inclu = 'X'.
    PERFORM f_include.

  ELSEIF r_dele = 'X'.
    PERFORM f_delete.

  ELSEIF r_atua = 'X'.
    PERFORM f_atualizar.
  ENDIF.


*&---------------------------------------------------------------------*
*&
*&                        vou otimizar depois essa gambiarra
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF r_dele = 'X'.
      IF screen-group1 = 'M2' OR screen-group1 = 'M3' OR screen-group1 = 'M4' OR screen-group1 = 'M5' OR screen-group1 = 'M6'.
        screen-input = 0.
        screen-invisible = 1.
        MODIFY SCREEN.
        CONTINUE.
      ENDIF.

    ELSEIF r_gene = 'X'.
      IF screen-group1 = 'M1' OR screen-group1 = 'M3' OR screen-group1 = 'M4' OR screen-group1 = 'M5'.
*      IF screen-name = 'P_COD_F'.
        screen-input = 0.
        screen-invisible = 1.
        MODIFY SCREEN.
        CONTINUE.
      ENDIF.
    ELSEIF r_valor = 'X'.
      IF screen-group1 = 'M1' OR screen-group1 = 'M2' OR screen-group1 = 'M4' OR screen-group1 = 'M6'.
        screen-input = 0.
        screen-invisible = 1.
        MODIFY SCREEN.
        CONTINUE.
      ENDIF.
    ENDIF.
  ENDLOOP.




*&---------------------------------------------------------------------*
*&      Form  F_INCLUDE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_include .
  wa_filme-mandt      =  sy-mandt.
  wa_filme-cod_filme  =  p_cod_f.
  wa_filme-cod_gen    =  p_cod_g.
  wa_filme-tipo_preco =  p_tipo_p.
  wa_preco-tipo_preco =  p_tipo_p.
  wa_genero-cod_gen   =  p_cod_g.
  wa_genero-descricao =  p_descri.
  wa_filme-titulo     =  p_titulo.
  wa_preco-valor      =  p_valor.

  INSERT INTO ZTAP05_FILME VALUES wa_filme.

  "verifica se conseguiu inserir a linha na tabela com sucesso
  IF sy-subrc = 0.
      MESSAGE s000(ZCLAP05_EXERCICIO09).
  ELSE.
      MESSAGE e001(ZCLAP05_EXERCICIO09).
  ENDIF.
ENDFORM.                    " F_INCLUDE



*&---------------------------------------------------------------------*
*&      Form  F_DELETE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form F_DELETE .
   DELETE FROM ZTAP05_FILME WHERE cod_filme = p_cod_f.


   IF sy-subrc = 0.
     MESSAGE s002(ZCLAP05_EXERCICIO09).
   ELSE.
     MESSAGE e003(ZCLAP05_EXERCICIO09).
   ENDIF.
endform.                    " F_DELETE




*&---------------------------------------------------------------------*
*&      Form  F_ATUALIZAR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form F_ATUALIZAR .
  wa_filme-mandt      =  sy-mandt.
  wa_filme-cod_filme  =  p_cod_f.
  wa_filme-cod_gen    =  p_cod_g.
  wa_filme-tipo_preco =  p_tipo_p.
  wa_preco-tipo_preco =  p_tipo_p.
  wa_genero-cod_gen   =  p_cod_g.
  wa_genero-descricao =  p_descri.
  wa_filme-titulo     =  p_titulo.
  wa_preco-valor      =  p_valor.

  UPDATE ZTAP05_FILME FROM wa_filme.

  IF sy-subrc = 0.
    WRITE / 'sucesso'.
  else.
    write / 'falha'.
  ENDIF.
endform.                    " F_ATUALIZAR