How to display check box in atable control

Question

hi
here is my requirement
how can i display check box in table control and also when i check that check box it has to dispaly one pop up screen with the records of table control row
points will be rewarded
Thanks&Regards
Nagesh.Paruchuri

Answer 1

Hi,
See this code for how to display check box in atable control
*---- Table declaration.
TABLES: KNA1.
CONTROLS TC1 TYPE TABLEVIEW USING SCREEN 200.
CONTROLS TC2 TYPE TABLEVIEW USING SCREEN 300.
*---- Data declaration.
DATA:OKCODE LIKE SY-UCOMM.
DATA:V_KNA1 LIKE KNA1.
*DATA:ERROR TYPE C.
*---- Internal Table declaration.
DATA:BEGIN OF IT_TAB OCCURS 0,
      CHK,
      VBELN TYPE VBELN_VA,
      KUNNR TYPE KUNAG,
      ERDAT TYPE ERDAT,
      AUDAT TYPE AUDAT,
      VBTYP TYPE VBTYP,
     END OF IT_TAB.
DATA:BEGIN OF IT_TAB1 OCCURS 0,
      VBELN TYPE VBELN_VA,
      POSNR TYPE POSNR_VA,
      MATNR TYPE MATNR,
      MATWA TYPE MATWA,
      PMATN TYPE PMATN,
     END OF IT_TAB1.
*&      Module  USER_COMMAND_0100  INPUT
MODULE USER_COMMAND_0100 INPUT.
  OKCODE = SY-UCOMM.
  CASE OKCODE.
    WHEN 'DISP' OR SPACE.
      SELECT *
         FROM VBAK
         INTO  CORRESPONDING FIELDS OF TABLE IT_TAB
         WHERE KUNNR = KNA1-KUNNR.
      IF SY-SUBRC <> 0.
        MESSAGE 'No sales document exists'(001) TYPE 'I'.
      ENDIF.
      LEAVE TO SCREEN 200.
      CLEAR OKCODE.
*--- To leave Transaction
    WHEN 'BACK' .
      LEAVE PROGRAM.
      CLEAR OKCODE.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  validate_kunnr  INPUT
MODULE VALIDATE_KUNNR INPUT.
  V_KNA1 = KNA1.
  SELECT SINGLE *
    FROM KNA1
   WHERE KUNNR = KNA1-KUNNR.
*-----Process error condition
  IF SY-SUBRC <> 0.
    CLEAR KNA1.
    KNA1-KUNNR = V_KNA1-KUNNR.
    CASE OKCODE..
      WHEN 'BACK' OR 'EXIT' .
        LEAVE PROGRAM.
    ENDCASE.
    MESSAGE 'Customer Does Not Exist'(002) TYPE 'I'.
    LEAVE TO SCREEN 100.
  ENDIF.
ENDMODULE.                 " validate_kunnr  INPUT
*&      Module  STATUS_0100  OUTPUT
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'PF'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0200  INPUT
MODULE USER_COMMAND_0200 INPUT.
  CASE OKCODE.
    WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
      LEAVE TO SCREEN 100.
      CLEAR OKCODE.
      CLEAR IT_TAB1.
    WHEN 'DISP' .
      CLEAR OKCODE.
      READ TABLE IT_TAB WITH KEY CHK = 'X'.  
   IF SY-SUBRC = 0.
        SELECT  VBELN   POSNR  MATNR MATWA PMATN
     FROM VBAP
     INTO  TABLE IT_TAB1
     WHERE VBELN = IT_TAB-VBELN.
        IF SY-SUBRC = 0.
          SORT IT_TAB.
          DESCRIBE TABLE IT_TAB LINES TC1-LINES.
          LEAVE TO SCREEN 300.
        ELSE.
          MESSAGE E016(YBHV).
        ENDIF.
      ELSE.
        MESSAGE 'Please select one record' TYPE 'I'.
      ENDIF.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
*&      Module  STATUS_0200  OUTPUT
MODULE STATUS_0200 OUTPUT.
  SET PF-STATUS 'PF3'.
ENDMODULE.                 " STATUS_0200  OUTPUT
*&      Module  USER_C.OMMAND_0300  INPUT
      text
MODULE USER_COMMAND_0300 INPUT.
  SET PF-STATUS 'PF3'.
  CASE OKCODE.
    WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
      CLEAR OKCODE.
      LEAVE TO SCREEN 200.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0300  INPUT
*&      Module  modify  INPUT
MODULE MODIFY INPUT.
  MODIFY IT_TAB INDEX TC1-CURRENT_LINE.
ENDMODULE.                 " modify  INPUT
*&      Module  okcode  OUTPUT
      text
MODULE OKCODE OUTPUT.
  CLEAR OKCODE.
ENDMODULE.                 " okcode  OUTPUT
Reward Pointsa If usefull
Regards
Fareedas