Ayuda con AT SELECTION-SCREEN OUTPUT.

Colapsar
X
Colapsar
 
  • Página de 1
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
Anterior template Próximo
  • sirmapu
    Junior Member
    • jul
    • 6
    #1

    Ayuda con AT SELECTION-SCREEN OUTPUT.

    Alguien me puede tirar una linea he buscado, y necesito que de un bloque con 3 opciones cuando seleciono una me la muestre y me saque las otras.

    *---------------------------------------------------------------------*
    * Selecion *
    *---------------------------------------------------------------------*
    * ........ *
    *---------------------------------------------------------------------*

    *Selecion bloque 1 principal 3 opciones alta modificacion, alta
    *modificacion reservas, alv tabla sflight.

    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE title3.

    PARAMETERS: r_clie RADIOBUTTON GROUP grup USER-COMMAND r DEFAULT 'X',
    r_mate RADIOBUTTON GROUP grup ,
    r_vul RADIOBUTTON GROUP grup .

    SELECTION-SCREEN END OF BLOCK b1.

    INITIALIZATION.
    title3 = 'Selecion principal'.

    *Selecion bloque alta modificacion clientes

    SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE title1.


    *PARAMETERS_excel AS CHECKBOX MODIF ID cli.
    *PARAMETERS_html AS CHECKBOX MODIF ID cli.
    PARAMETERS_altcli AS CHECKBOX MODIF ID cli,
    p_modcli AS CHECKBOX MODIF ID cli.
    * R_CLIE RADIOBUTTON GROUP GRUP USER-COMMAND R DEFAULT ‘X’,
    * R_MATE RADIOBUTTON GROUP GRUP.
    SELECTION-SCREEN END OF BLOCK b2.

    INITIALIZATION.
    title1 = 'Clientes'.
    *Selecion alta modificacion reservas

    SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE title.

    PARAMETERS: p_modres AS CHECKBOX MODIF ID mat ,
    p_dowres AS CHECKBOX MODIF ID mat .


    *SELECT-OPTIONS: so_id FOR scustom-id NO INTERVALS NO-EXTENSION MODIF
    * ID mat,
    * so_name FOR scustom-name NO INTERVALS NO-EXTENSION
    *MODIF ID mat.


    SELECTION-SCREEN END OF BLOCK b3.

    INITIALIZATION.
    title = 'Reservas'.


    *Selecion sflight alv
    SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE title2.
    PARAMETERS: pcarrid LIKE sflight-carrid MODIF ID VUL ,
    pconnid LIKE sflight-connid MODIF ID VUL,
    pfldate LIKE sflight-fldate MODIF ID VUL.


    SELECTION-SCREEN END OF BLOCK b4.

    INITIALIZATION.
    title2 = 'Vuelos'.

    *———————————————————————–*
    *AT SELECTION-SCREEN.
    *———————————————————————–*
    AT SELECTION-SCREEN OUTPUT.

    LOOP AT SCREEN.

    IF screen-group1 = 'CLI'.
    CASE r_clie.
    WHEN 'X'.
    screen-active = 0.
    WHEN OTHERS.

    * screen-active = 1.
    ENDCASE.
    ELSEIF screen-group1 = 'MAT'.
    CASE r_mate.
    WHEN 'X'.
    screen-active = 1.
    WHEN OTHERS.
    * screen-active = 0.
    ENDCASE.

    ELSEIF screen-group1 = 'VUL'.
    CASE r_VUL.
    WHEN 'X'.
    screen-active = 2.
    WHEN OTHERS.

    * screen-active = 0.
    ENDCASE.
    ENDIF.

    MODIFY SCREEN.

    ENDLOOP.


    START-OF-SELECTION.
    Etiquetas: Ninguno
    • jarabas
      Senior Member
      • ene
      • 109
      #2
      Si nos comentas que quieres que se muestre y que quieres que se oculte, te podriamos ayudar mejor.

      Saludos.

        Comentario

        • sirmapu
          Junior Member
          • jul
          • 6
          #3
          Necesito mostrar

          Necesito que siempre se muestre el blok b1
          y cuando seleccione una opcion me muestre el bloque correspondiente
          y me oculte los otros
          PARAMETERS: r_clie RADIOBUTTON GROUP grup USER-COMMAND r DEFAULT 'X' "si esto esta activo que me habilite el bloque BLOCK b2
          , r_mate RADIOBUTTON GROUP grup ,"si esto esta activo que me habilite el bloque BLOCK b3
          r_vul RADIOBUTTON GROUP grup ."si esto esta activo que me habilite el bloque BLOCK b4


          Selecion bloque 1 principal 3 opciones alta modificacion, alta
          modificacion reservas, alv tabla sflight.

          SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE title3.

          PARAMETERS: r_clie RADIOBUTTON GROUP grup USER-COMMAND r DEFAULT 'X' "si esto esta activo que me habilite el bloque BLOCK b2
          ,
          r_mate RADIOBUTTON GROUP grup ,"si esto esta activo que me habilite el bloque BLOCK b3
          r_vul RADIOBUTTON GROUP grup ."si esto esta activo que me habilite el bloque BLOCK b4

          SELECTION-SCREEN END OF BLOCK b1.

          INITIALIZATION.
          title3 = 'Selecion principal'.

          Selecion bloque alta modificacion clientes

          SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE title1.



          PARAMETERS_altcli AS CHECKBOX MODIF ID cli.



          INITIALIZATION.
          title1 = 'Clientes'.
          *Selecion alta modificacion reservas

          SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE title.
          PARAMETERS: p_modres AS CHECKBOX MODIF ID mat ,
          p_dowres AS CHECKBOX MODIF ID mat .
          SELECTION-SCREEN END OF BLOCK b3.

          INITIALIZATION.
          title = 'Reservas'.


          *Selecion sflight alv
          SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE title2.
          SELECT-OPTIONS: SOcarrid FOR sbook-carrid MODIF ID vul,
          SOconnid FOR sbook-connid MODIF ID vul,
          SOfldate FOR sbook-fldate MODIF ID vul.
          SELECTION-SCREEN END OF BLOCK b4.

          INITIALIZATION.
          title2 = 'Vuelos'.

          *———————————————————————–*
          *AT SELECTION-SCREEN.
          *———————————————————————–*
          AT SELECTION-SCREEN OUTPUT.

          LOOP AT SCREEN.

          IF screen-group1 = 'CLI'.
          CASE r_clie.
          WHEN 'X'.
          screen-active = 0.
          WHEN OTHERS.

          * screen-active = 1.
          ENDCASE.
          ELSEIF screen-group1 = 'MAT'.
          CASE r_mate.
          WHEN 'X'.
          screen-active = 1.
          WHEN OTHERS.
          * screen-active = 0.
          ENDCASE.

          ELSEIF screen-group1 = 'VUL'.
          CASE r_VUL.
          WHEN 'X'.
          screen-active = 2.
          WHEN OTHERS.

          * screen-active = 0.
          ENDCASE.
          ENDIF.

          MODIFY SCREEN.

          ENDLOOP.


          START-OF-SELECTION.

            Comentario

            Anterior template Próximo
            Trabajando...