Radio button in module pool programming

Hello,
Am placing 4 radio button when designing in module pool but at
run time all radio button are getting marked i want only first radio button to be marked and remaining to be with visible but not highlighted plz let me know wht to do in PBO event.

Hi,
Goto to screenpainter of that screen .
Drag and select all the Radio Buttons .
Goto Edit>Grouping>Radiobutongroup-->Define.
Now see the Output.
Regards,
Morris Bond.
Reward Points if Helpful.

Similar Messages

How to raise pop up window along with radio buttons in module pool program

how to raise pop up window along with radio buttons in module pool program

FUNCTION zscheme_determination.
*"*"Local Interface:
*" IMPORTING
*"     REFERENCE(I_KUNNR) TYPE KUNNR
*" EXPORTING
*"     REFERENCE(E_VALUE) TYPE NETWR_AK
*" TABLES
*"      G_ITEM_DATA_ITAB STRUCTURE ZITEM_DATA
* TYPES: BEGIN OF ty_sord,
*         include type ZSD_SCHEME_DTL,
*         END   OF ty_sord.
* data : gt_sord type standard table of ZSD_SCHEME_DTL,
*         wa_sord type ZSD_SCHEME_DTL.
* select * from ZSD_SCHEME_DTL into table
* gt_sord
* where matnr = i_matnr.
* T_ITEM_DATA
*********Data Declarations
   DATA:
         salesdocumentin LIKE bapivbeln-vbeln,
         orderheaderin LIKE bapisdhd1,
         orderheaderinx LIKE bapisdhd1x,
         sender LIKE bapi_sender,
         binaryrelationshiptype LIKE bapireltype-reltype,
         intnumberassignment LIKE bapiflag-bapiflag,
         behavewhenerror LIKE bapiflag-bapiflag,
         logicswitch LIKE bapisdls,
         testrun LIKE bapiflag-bapiflag,
         convert LIKE bapiflag-bapiflag,
         return LIKE bapiret2 OCCURS 0,
         orderitemsin LIKE bapisditm OCCURS 0,
         orderitemsinx LIKE bapisditmx OCCURS 0,
         orderpartners LIKE bapiparnr OCCURS 0,
         orderschedulesin LIKE bapischdl OCCURS 0,
         orderschedulesinx LIKE bapischdlx OCCURS 0,
         orderconditionsin LIKE bapicond OCCURS 0,
         orderconditionsinx LIKE bapicondx OCCURS 0,
         ordercfgsref LIKE bapicucfg OCCURS 0,
         ordercfgsinst LIKE bapicuins OCCURS 0,
         ordercfgspartof LIKE bapicuprt OCCURS 0,
         ordercfgsvalue LIKE bapicuval OCCURS 0,
         ordercfgsblob LIKE bapicublb OCCURS 0,
         ordercfgsvk LIKE bapicuvk OCCURS 0,
         ordercfgsrefinst LIKE bapicuref OCCURS 0,
         orderccard LIKE bapiccard OCCURS 0,
         ordertext LIKE bapisdtext OCCURS 0,
         orderkeys LIKE bapisdkey OCCURS 0,
         extensionin LIKE bapiparex OCCURS 0,
         partneraddresses LIKE bapiaddr1 OCCURS 0.
   DATA : wa_orderpartners LIKE bapiparnr,
          wa_orderitemsin LIKE bapisditm,
          wa_orderitemsinx LIKE bapisditmx,
          wa_orderschedulesin LIKE bapischdl,
          wa_orderschedulesinx LIKE bapischdlx,
          wa_orderconditionsin LIKE bapicond,
          wa_orderconditionsinx LIKE bapicondx,
          wa_return LIKE bapiret2,
          lv_value TYPE netwr_ak.
   DATA : lv_dtyp TYPE char45,
          lv_sorg TYPE vkorg,
          lv_sdch TYPE vtweg,
          lv_sdiv TYPE spart.
   TYPES : BEGIN OF ty_sord,
           zsdscheme TYPE comt_scheme_id,
           posnr TYPE posnr_va,
           matnr TYPE matnr,
           disc_type TYPE rebate_disc_type,
           calc_type TYPE catyp,
           qty_from TYPE kwmeng,
           qty_to TYPE kwmeng,
           spart TYPE spart,
           custcondgrp TYPE kdkg1,
           werks TYPE werks_d,
           matmn TYPE matnr,
           END   OF ty_sord.
   DATA : gt_sord   TYPE STANDARD TABLE OF ty_sord,
          gt_sordd TYPE STANDARD TABLE OF ty_sord,
          wa_sord TYPE ty_sord,
          wa_knvv TYPE knvv,
          lv_cal_foc TYPE p DECIMALS 3,
          lv_cal_dis TYPE p DECIMALS 3,
          lv_new_qty TYPE kwmeng,
          lv_posmat TYPE posnr_va,
          lv_posfoc TYPE posnr_va.
   DATA:lv_diff TYPE kwmeng.
******Schemes Selection Logic
* Get Valid Schemes
* Validate Scheme for validity Period, Material, Customer Type and Plant
   TYPES : BEGIN OF ty_rtab,
           sign   TYPE c LENGTH 1,
           option TYPE c LENGTH 2,
           low    LIKE mara-matnr,
           high   LIKE mara-matnr,
         END OF ty_rtab.
* TYPES : ty_matnr TYPE RANGE OF ty_rtab.
   DATA : it_matnr TYPE TABLE OF ty_rtab,
          wa_matnr TYPE ty_rtab,
          wa_it    TYPE zitem_data,
         wa_tab TYPE zitem_data.
*order table declaration
   TYPES:
         BEGIN OF ty_order,
           zsdscheme TYPE comt_scheme_id,
           matnr     TYPE matnr,
           kwmeng    TYPE kwmeng,
         END OF ty_order,
   BEGIN OF ty_scheme,
    zsdscheme TYPE comt_scheme_id,
*                matnr     TYPE matnr,
    kwmeng    TYPE kwmeng,
END OF ty_scheme.
   DATA:
         gt_order      TYPE TABLE OF ty_order,
         gt_scheme     TYPE TABLE OF ty_scheme,
          wa_scheme    TYPE ty_scheme,
          wa_order     TYPE ty_order.
   DATA:i_kwmeng TYPE kwmeng.
* Transfer all the material received from order to internal table
   LOOP AT g_item_data_itab INTO wa_it.
     MOVE : wa_it-matnr TO wa_matnr-low,
            'I'          TO wa_matnr-sign,
            'EQ'         TO wa_matnr-option.
     APPEND wa_matnr TO it_matnr.
     CLEAR wa_it.
   ENDLOOP.
* Get the Valid Schemes based on given criteria
   SELECT
           zsd_scheme_dtl~zsdscheme
           zsd_scheme_dtl~posnr
           zsd_scheme_dtl~matnr
           zsd_scheme_dtl~disc_type
           zsd_scheme_dtl~calc_type
           zsd_scheme_dtl~qty_from
           zsd_scheme_dtl~qty_to
           zsd_scheme~spart
           zsd_scheme_hdr~custcondgrp
           zsd_scheme_hdr~werks
           zsd_scheme_hdr~matnr
   FROM zsd_scheme_hdr
   INNER JOIN zsd_scheme ON zsd_scheme~zsdscheme = zsd_scheme_hdr~zsdscheme
   INNER JOIN zsd_scheme_dtl ON zsd_scheme_dtl~zsdscheme = zsd_scheme_hdr~zsdscheme
   INTO TABLE gt_sord
   WHERE zsd_scheme_dtl~matnr IN it_matnr
*    zsd_scheme_hdr~matnr IN it_matnr
*    AND zsd_scheme_hdr~werks = '1509'
     AND zsd_scheme_hdr~werks = '1529'
     AND zsd_scheme_hdr~custcondgrp = '01'
     AND zsd_scheme~datuv LE sy-datum
     AND zsd_scheme~datub GE sy-datum.
   SORT gt_sord BY zsdscheme ASCENDING.
* LOOP AT gt_sord INTO wa_sord.
*    READ TABLE g_item_data_itab INTO wa_it WITH KEY matnr = wa_sord-matnr.
*    wa_order-zsdscheme = wa_sord-zsdscheme.
*    wa_order-matnr = wa_it-matnr.
*    wa_order-kwmeng = wa_it-kwmeng.
*    COLLECT wa_order INTO gt_order.
*    CLEAR wa_order.
* ENDLOOP.
   LOOP AT g_item_data_itab INTO wa_it.
     READ TABLE gt_sord INTO wa_sord WITH KEY matnr = wa_it-matnr.
     wa_order-zsdscheme = wa_sord-zsdscheme.
     wa_order-matnr = wa_it-matnr.
     wa_order-kwmeng = wa_it-kwmeng.
     COLLECT wa_order INTO gt_order.
     MOVE : wa_sord-zsdscheme TO wa_scheme-zsdscheme,
            wa_it-kwmeng TO wa_scheme-kwmeng.
     COLLECT wa_scheme INTO gt_scheme.
     CLEAR : wa_order, wa_scheme.
   ENDLOOP.
   CLEAR wa_scheme.
   DATA w_line TYPE sy-tabix.
* Updating table based on Schemes
   LOOP AT gt_scheme INTO wa_scheme.
     CLEAR w_line.
     gt_sordd[] = gt_sord[].
*    DELETE gt_sordd WHERE zsdscheme NE wa_scheme-zsdscheme and disc_type NE 'FOC'.
     DELETE gt_sordd WHERE zsdscheme NE wa_scheme-zsdscheme AND disc_type NE 'F'.
     DELETE ADJACENT DUPLICATES FROM gt_sordd COMPARING zsdscheme matnr.
     DESCRIBE TABLE gt_sordd LINES w_line.
     IF w_line GT 1.
* popup message to select one foc type.
     ELSE.
       CLEAR wa_sord.
       READ TABLE gt_sordd INTO wa_sord INDEX 1.
       IF sy-subrc EQ 0.
         i_kwmeng = wa_scheme-kwmeng.
         lv_cal_foc = i_kwmeng DIV wa_sord-qty_from.
         lv_cal_dis = i_kwmeng MOD wa_sord-qty_from.
         MOVE : lv_cal_foc TO wa_it-kwmeng,
                wa_sord-matnr TO wa_it-matnr.
         APPEND wa_it TO g_item_data_itab.
         SORT gt_order BY kwmeng DESCENDING.
         LOOP AT gt_order INTO wa_order WHERE zsdscheme = wa_scheme-zsdscheme.
           IF lv_cal_dis GT 0.
*        LOOP AT gt_order INTO wa_order WHERE zsdscheme = wa_scheme-zsdscheme
*                                             AND lv_cal_dis GT 0.
*                  LOOP AT gt_order INTO wa_order WHERE zsdscheme = wa_scheme-zsdscheme.
*                LOOP AT g_item_data INTO wa_item_data WHERE matnr EQ wa_order-matnr.
                     LOOP AT g_item_data_itab INTO wa_tab WHERE matnr EQ wa_order-matnr.
                       wa_orderconditionsin-itm_number = wa_tab-posnr.
*                  wa_orderconditionsin-itm_number = wa_item_data-posnr.
                       wa_orderconditionsin-cond_st_no = '001'.
*                  IF gt_sordd-calc EQ ‘post AND disc_type EQ ‘percentage’.
                       IF wa_sord-calc_type EQ 'O' AND wa_sord-disc_type EQ 'P'.
                         wa_orderconditionsin-cond_type = 'ZTPB'.   "'ZREG'.
*                  ELSEIF gt_sordd-calc EQ ‘pre’ AND disc_type EQ ‘percentage’
                       ELSEIF wa_sord-calc_type EQ 'E' AND wa_sord-disc_type EQ 'P'.
                         wa_orderconditionsin-cond_type = 'ZTPP'.   "'ZREG'.
                       ENDIF.
                       wa_orderconditionsin-currency = 'INR'.
                       wa_orderconditionsin-conpricdat = sy-datum.
                       APPEND wa_orderconditionsin TO orderconditionsin.
                       CLEAR wa_orderconditionsin.
*Update Discount Conditon
                     ENDLOOP.
*                  ENDLOOP.
*Modify balance of Item
             CLEAR wa_tab.
             READ TABLE g_item_data_itab INTO wa_tab WITH KEY matnr = wa_order-matnr.
             IF sy-subrc EQ 0.
               lv_diff = wa_tab-kwmeng - lv_cal_dis.
               IF lv_diff GT 0.
                 wa_tab-kwmeng = wa_tab-kwmeng - lv_cal_dis.
*            MODIFY g_item_data TRANSPORTING kwmeng index sy-tabix.
                 MODIFY g_item_data_itab INDEX sy-tabix FROM wa_tab TRANSPORTING kwmeng .
               ELSE.
                 wa_tab-kwmeng = lv_cal_dis.
                 lv_cal_dis = lv_diff.
                 MODIFY g_item_data_itab INDEX sy-tabix FROM wa_tab TRANSPORTING kwmeng .
*            MODIFY G_ITEM_DATA_ITAB TRANSPORTING kwmeng index sy-tabix.
               ENDIF.
               gt_sordd[] = gt_sord[].
               DELETE gt_sordd WHERE zsdscheme NE wa_scheme-zsdscheme AND disc_type EQ 'F'.
               DESCRIBE TABLE gt_sordd LINES w_line.
               IF w_line GT 1.
                 SORT gt_sordd BY zsdscheme DESCENDING.
*              SORT gt_sordd BY quantity DESCENDING.
                 CLEAR wa_sord.
*              LOOP AT gt_sordd WHERE quantity_from LT wa_shceme-kwmeng AND quantity_to GT wa_shceme-kwmeng.
                 LOOP AT gt_sordd INTO wa_sord WHERE qty_from LT wa_scheme-kwmeng AND qty_to GT wa_scheme-kwmeng.
*             LOOP AT gt_order INTO wa_order WHERE scheme = wa_scheme-scheme.
                   LOOP AT gt_order INTO wa_order WHERE zsdscheme = wa_scheme-zsdscheme.
*                LOOP AT g_item_data INTO wa_item_data WHERE matnr EQ wa_order-matnr.
                     LOOP AT g_item_data_itab INTO wa_tab WHERE matnr EQ wa_order-matnr.
                       wa_orderconditionsin-itm_number = wa_tab-posnr.
*                  wa_orderconditionsin-itm_number = wa_item_data-posnr.
                       wa_orderconditionsin-cond_st_no = '001'.
*                  IF gt_sordd-calc EQ ‘post AND disc_type EQ ‘percentage’.
                       IF wa_sord-calc_type EQ 'O' AND wa_sord-disc_type EQ 'P'.
                         wa_orderconditionsin-cond_type = 'ZDPD'.   "'ZREG'.
*                  ELSEIF gt_sordd-calc EQ ‘pre’ AND disc_type EQ ‘percentage’
                       ELSEIF wa_sord-calc_type EQ 'E' AND wa_sord-disc_type EQ 'P'.
                         wa_orderconditionsin-cond_type = 'ZDPD'.   "'ZREG'.
                       ENDIF.
                       wa_orderconditionsin-currency = 'INR'.
                       wa_orderconditionsin-conpricdat = sy-datum.
                       APPEND wa_orderconditionsin TO orderconditionsin.
                       CLEAR wa_orderconditionsin.
*Update Discount Conditon
                     ENDLOOP.
                   ENDLOOP.
                 ENDLOOP.
               ELSE.
               ENDIF.
             ENDIF.
           ENDIF.
         ENDLOOP.
       ENDIF.
     ENDIF.
   ENDLOOP.
* select
*          ZSD_SCHEME_DTL~ZSDSCHEME
*          ZSD_SCHEME_DTL~POSNR
*          ZSD_SCHEME_DTL~matnr
*          ZSD_SCHEME_DTL~DISC_TYPE
*          ZSD_SCHEME_DTL~CALC_TYPE
*          ZSD_SCHEME_DTL~QTY_FROM
*          ZSD_SCHEME_DTL~QTY_TO
*          ZSD_SCHEME~SPART
*          ZSD_SCHEME_HDR~CUSTCONDGRP
*          ZSD_SCHEME_HDR~WERKS
*          ZSD_SCHEME_HDR~MATNR
* from ZSD_SCHEME_DTL
* inner join ZSD_SCHEME on ZSD_SCHEME~ZSDSCHEME = ZSD_SCHEME_DTL~ZSDSCHEME
* inner join ZSD_SCHEME_HDR on ZSD_SCHEME_HDR~ZSDSCHEME = ZSD_SCHEME_DTL~ZSDSCHEME
* into table
* gt_sord
* where ZSD_SCHEME_DTL~matnr = i_matnr and
*        ZSD_SCHEME~DATUV LE sy-datum and
*        ZSD_SCHEME~DATUB GE sy-datum.
* break-point.
* Process Common Logic for Schemes Processcing
   CLEAR wa_sord.
* Convert FOC Quantity and Materials
* LOOP AT gt_sord INTO wa_sord.
**   lv_cal = i_kwmeng / wa_sord-QTY_FROM.
*    lv_cal_foc = i_kwmeng DIV wa_sord-qty_from.
*    lv_cal_dis = i_kwmeng MOD wa_sord-qty_from.
* ENDLOOP.
*lv_new_qty = i_kwmeng - lv_cal_dis.
* Get the Sales Document Type
   SELECT SINGLE low
FROM tvarvc
INTO lv_dtyp WHERE
name = 'SD_DOC_TYPE'.
   SELECT SINGLE * FROM knvv INTO wa_knvv WHERE kunnr = i_kunnr.
   IF sy-subrc = 0.
     lv_sorg = wa_knvv-vkorg.
     lv_sdch = wa_knvv-vtweg.
     lv_sdiv = wa_knvv-spart.
   ENDIF.
* Give the Popup for schemes with multiple FOC
* Schemes Specific Processing
* Schemes Specific Processing
   orderheaderin-doc_type = lv_dtyp.
   orderheaderin-sales_org = lv_sorg.
   orderheaderin-distr_chan = lv_sdch.
   orderheaderin-division = lv_sdiv.
   wa_orderpartners-partn_role = 'AG'.
   wa_orderpartners-partn_numb = i_kunnr.
   APPEND wa_orderpartners TO orderpartners.
*    wa_ORDERPARTNERS-PARTN_ROLE = 'WE'.
*    wa_ORDERPARTNERS-PARTN_NUMB = p_ship.
*    append wa_ORDERPARTNERS to ORDERPARTNERS.
* Item number begin
   CLEAR : lv_posmat.
   lv_posmat = lv_posmat + 10.
   wa_orderitemsin-itm_number = lv_posmat.
   wa_orderitemsin-material = wa_sord-matmn. "i_matnr.
   wa_orderitemsin-target_qty = lv_new_qty.
* wa_ORDERITEMSIN-TARGET_QU = i_VRKME.
   APPEND wa_orderitemsin TO orderitemsin.
   wa_orderitemsinx-itm_number = lv_posmat.
   wa_orderitemsinx-material = 'X'.
   wa_orderitemsinx-target_qty = 'X'.
   wa_orderitemsinx-target_qu = 'X'.
   APPEND wa_orderitemsinx TO orderitemsinx.
   wa_orderschedulesin-itm_number = lv_posmat.
   wa_orderschedulesin-sched_line = lv_posmat.
   wa_orderschedulesin-req_qty = lv_new_qty.
   APPEND wa_orderschedulesin TO orderschedulesin.
   wa_orderschedulesinx-itm_number = lv_posmat.
   wa_orderschedulesinx-sched_line = lv_posmat.
   wa_orderschedulesinx-req_qty = 'X'.
   wa_orderschedulesinx-updateflag = 'X'.
   APPEND wa_orderschedulesinx TO orderschedulesinx.
   wa_orderconditionsin-itm_number = lv_posmat.
   wa_orderconditionsin-cond_st_no = '001'.
   wa_orderconditionsin-cond_type = 'ZDPD'.   "'ZREG'.
   wa_orderconditionsin-currency = 'INR'.
   wa_orderconditionsin-conpricdat = sy-datum.
   APPEND wa_orderconditionsin TO orderconditionsin.
   wa_orderconditionsinx-itm_number = lv_posmat.
   wa_orderconditionsinx-cond_st_no = '001'.
   wa_orderconditionsinx-cond_type = 'ZDPD'. "'ZREG'.
   wa_orderconditionsinx-updateflag = 'X'.
   wa_orderconditionsinx-cond_value ='X'.
   wa_orderconditionsinx-currency = 'X'.
   APPEND wa_orderconditionsinx TO orderconditionsinx.
****18/06Beg
* if not lv_cal_dis is initial.
*    lv_posmat = lv_posmat + 10.
*    wa_ORDERITEMSIN-ITM_NUMBER = lv_posmat.
*    wa_ORDERITEMSIN-MATERIAL = WA_SORD-MATMN. "i_matnr.
*    wa_ORDERITEMSIN-TARGET_QTY = lv_cal_dis.
** wa_ORDERITEMSIN-TARGET_QU = i_VRKME.
*    append wa_ORDERITEMSIN to ORDERITEMSIN.
*    wa_ORDERITEMSINX-ITM_NUMBER = lv_posmat.
*    wa_ORDERITEMSINX-MATERIAL = 'X'.
*    wa_ORDERITEMSINX-TARGET_QTY = 'X'.
*    wa_ORDERITEMSINX-TARGET_QU = 'X'.
*    append wa_ORDERITEMSINX to ORDERITEMSINX.
*    wa_ORDERSCHEDULESIN-ITM_NUMBER = lv_posmat.
*    wa_ORDERSCHEDULESIN-SCHED_LINE = lv_posmat.
*    wa_ORDERSCHEDULESIN-REQ_QTY = lv_cal_dis.
*    append wa_ORDERSCHEDULESIN to ORDERSCHEDULESIN.
*    wa_ORDERSCHEDULESINX-itm_number = lv_posmat.
*    wa_ORDERSCHEDULESINX-sched_line = lv_posmat.
*    wa_ORDERSCHEDULESINX-req_qty = 'X'.
*    wa_ORDERSCHEDULESINX-updateflag = 'X'.
*    append wa_ORDERSCHEDULESINX to ORDERSCHEDULESINX.
* endif.
* lv_posmat = lv_posmat + 10.
* wa_ORDERITEMSIN-ITM_NUMBER = lv_posmat.
* wa_ORDERITEMSIN-MATERIAL = i_matnr. "WA_SORD-MATMN.
* wa_ORDERITEMSIN-TARGET_QTY = LV_CAL_FOC.
* wa_ORDERITEMSIN-ITEM_CATEG = 'ZDGN'.
** wa_ORDERITEMSIN-TARGET_QU = i_VRKME.
* append wa_ORDERITEMSIN to ORDERITEMSIN.
* wa_ORDERITEMSINX-ITM_NUMBER = lv_posmat.
* wa_ORDERITEMSINX-MATERIAL = 'X'.
* wa_ORDERITEMSINX-TARGET_QTY = 'X'.
* wa_ORDERITEMSINX-TARGET_QU = 'X'.
* wa_ORDERITEMSINX-ITEM_CATEG = 'X'.
* append wa_ORDERITEMSINX to ORDERITEMSINX.
* wa_ORDERSCHEDULESIN-ITM_NUMBER = lv_posmat.
* wa_ORDERSCHEDULESIN-SCHED_LINE = lv_posmat.
* wa_ORDERSCHEDULESIN-REQ_QTY = LV_CAL_FOC.
* append wa_ORDERSCHEDULESIN to ORDERSCHEDULESIN.
* wa_ORDERSCHEDULESINX-itm_number = lv_posmat.
* wa_ORDERSCHEDULESINX-sched_line = lv_posmat.
* wa_ORDERSCHEDULESINX-req_qty = 'X'.
* wa_ORDERSCHEDULESINX-updateflag = 'X'.
* append wa_ORDERSCHEDULESINX to ORDERSCHEDULESINX.
****18/06End
* Item number end
* Switch off dialog (BAPIs always run without)
   CALL FUNCTION 'DIALOG_SET_NO_DIALOG'.
   CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
     EXPORTING
*     SALESDOCUMENTIN               =
     order_header_in               = orderheaderin
*     ORDER_HEADER_INX              =
*     SENDER                        =
*     BINARY_RELATIONSHIPTYPE       =
*     INT_NUMBER_ASSIGNMENT         =
*     BEHAVE_WHEN_ERROR             =
*     LOGIC_SWITCH                  =
*     TESTRUN                       =
*     CONVERT                       = ' '
*   IMPORTING
*     SALESDOCUMENT                 =
   TABLES
     return                        = return
     order_items_in                = orderitemsin
     order_items_inx               = orderitemsinx
     order_partners                = orderpartners
     order_schedules_in            = orderschedulesin
     order_schedules_inx           = orderschedulesinx
     order_conditions_in           = orderconditionsin
     order_conditions_inx          = orderconditionsinx
*     ORDER_CFGS_REF                =
*     ORDER_CFGS_INST               =
*     ORDER_CFGS_PART_OF            =
*     ORDER_CFGS_VALUE              =
*     ORDER_CFGS_BLOB               =
*     ORDER_CFGS_VK                 =
*     ORDER_CFGS_REFINST            =
*     ORDER_CCARD                   =
*     ORDER_TEXT                    =
*     ORDER_KEYS                    =
*     EXTENSIONIN                   =
*     PARTNERADDRESSES              =
*    commit work.
   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
*     EXPORTING
*       WAIT          =
*     IMPORTING
*       RETURN        =
   LOOP AT return INTO wa_return.
     WRITE:/ wa_return-message.
   ENDLOOP.
ENDFUNCTION.
*& Include ZSD_SO_CHANGES2_TOP                               Module Pool      ZSD_SO_CHANGES2
PROGRAM ZSD_SO_CHANGES2.
***&SPWIZARD: DATA DECLARATION FOR TABLECONTROL 'ITEM_DATA'
*&SPWIZARD: DEFINITION OF DDIC-TABLE
TABLES:   VBAP,kna1.
*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'ITEM_DATA'
TYPES: BEGIN OF T_ITEM_DATA,
          POSNR LIKE VBAP-POSNR,
          MATNR LIKE VBAP-MATNR,
          KWMENG LIKE VBAP-KWMENG,
          VRKME LIKE VBAP-VRKME,
        END OF T_ITEM_DATA.
*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'ITEM_DATA'
DATA:     G_ITEM_DATA_ITAB   TYPE T_ITEM_DATA OCCURS 0,
           G_ITEM_DATA_WA     TYPE T_ITEM_DATA. "work area
DATA:     G_ITEM_DATA_COPIED.           "copy flag
*&SPWIZARD: DECLARATION OF TABLECONTROL 'ITEM_DATA' ITSELF
CONTROLS: ITEM_DATA TYPE TABLEVIEW USING SCREEN 4000.
DATA:GV_NUM TYPE I VALUE 1,
       GV_NUM2 TYPE I.
DATA:     G_T_YREC_TAB_LINES LIKE SY-LOOPC.***********top*************
*& Include ZSD_SO_CHANGES2_TOP                               Module Pool      ZSD_SO_CHANGES2
PROGRAM ZSD_SO_CHANGES2.
***&SPWIZARD: DATA DECLARATION FOR TABLECONTROL 'ITEM_DATA'
*&SPWIZARD: DEFINITION OF DDIC-TABLE
TABLES:   VBAP,kna1.
*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'ITEM_DATA'
TYPES: BEGIN OF T_ITEM_DATA,
          POSNR LIKE VBAP-POSNR,
          MATNR LIKE VBAP-MATNR,
          KWMENG LIKE VBAP-KWMENG,
          VRKME LIKE VBAP-VRKME,
        END OF T_ITEM_DATA.
*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'ITEM_DATA'
DATA:     G_ITEM_DATA_ITAB   TYPE T_ITEM_DATA OCCURS 0,
           G_ITEM_DATA_WA     TYPE T_ITEM_DATA. "work area
DATA:     G_ITEM_DATA_COPIED.           "copy flag
*&SPWIZARD: DECLARATION OF TABLECONTROL 'ITEM_DATA' ITSELF
CONTROLS: ITEM_DATA TYPE TABLEVIEW USING SCREEN 4000.
DATA:GV_NUM TYPE I VALUE 1,
       GV_NUM2 TYPE I.
DATA:     G_T_YREC_TAB_LINES LIKE SY-LOOPC.
************************pbo*******************
*& Include           ZSD_SO_CHANGES2_PBO
*&SPWIZARD: OUTPUT MODULE FOR TC 'ITEM_DATA'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: COPY DDIC-TABLE TO ITAB
MODULE ITEM_DATA_INIT OUTPUT.
   IF G_ITEM_DATA_COPIED IS INITIAL.
*&SPWIZARD: COPY DDIC-TABLE 'VBAP'
*&SPWIZARD: INTO INTERNAL TABLE 'g_ITEM_DATA_itab'
*    SELECT * FROM VBAP
*       INTO CORRESPONDING FIELDS
*       OF TABLE G_ITEM_DATA_ITAB.
*    G_ITEM_DATA_COPIED = 'X'.
     REFRESH CONTROL 'ITEM_DATA' FROM SCREEN '4000'.
   ENDIF.
   ITEM_DATA-LINES = G_T_YREC_TAB_LINES + 15.
ENDMODULE.
*&SPWIZARD: OUTPUT MODULE FOR TC 'ITEM_DATA'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MOVE ITAB TO DYNPRO
MODULE ITEM_DATA_MOVE OUTPUT.
   MOVE-CORRESPONDING G_ITEM_DATA_WA TO VBAP.
ENDMODULE.
*&      Module STATUS_4000 OUTPUT
*       text
MODULE STATUS_4000 OUTPUT.
   SET PF-STATUS 'APAR'.
* REFRESH G_ITEM_DATA_ITAB.
    GV_NUM = 1.
* SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_4000 OUTPUT

Func- Code for Radio-button in Module-pool Prg.

Hi Friend's.
I have define 2 Radio button
on Module-pool screen.
I am not been able to triger the Radio button in
Pai .
How can i assign the function code for
radio-button in module-pool.
pls can any one help me

Hi,
For radion buttons, what ever the name you will give that name only will hold that value ( Either selected or not ). But this variable should be declared as global variable in main program.
Still if you want to assign function code, you can assign one like other fields on the screen.

How to define RADIO BUTTONS in MODULE POOL PROG.?

Hi Experts,
I need to keep the RADIO BUTTONS in 1000_screen of my_module_pool prog., like,
I hv 2 fields in this screen, as expected, the first shuld hv DEFAULT selection.
So, I just simply, dragged & dropped 2 radio buttons from left menu of the screen builder & given them the names as
R_SUMMARY
R_DETAIL
Then i executed the transaction, but, these above 2 fields are getting selected, as default??
I know that, if its a REPORT prog. we can define as w/ a GROUP, then the 1st one is hv the default selection.
so,
1 - How to define RADIO BUTTONS in this screen of a module pool prog.
2 - How to use these names in the prog.(PAI - i guess)?
thanq
Edited by: Srinivas on Jul 12, 2008 11:59 PM

Hi Srinivas,
Please check this link
Re: urgent:Regd radio buttons in module pool
http://saplab.blogspot.com/2007/10/sample-abap-program-for-module-pool_18.html
http://****************/Tutorials/ABAP/Checkbox/page1.htm
http://****************/Tutorials/ABAP/Checkbox/page2.htm
Best regards,
raam

How to create radio button in module pool

Hi All,
Please tell me step by step procedure for creating radio button in module pool.give code for two radiobutton and at a time only one should be selected.
Thanks
Narendra

Hi naren,
In the layout of screen painter click on radiobutton option in the left icons and create in the layout and give name as Radio1 and again select the radiobutton icon and create another and give the name as radio2 and by dragging the cursor select the 2 radiobuttons and goto menubar->edit->grouping->radiobuttons grouping->define.
Double clcik on the 2 radiobuttons and give FCT code for the coding purpose of the 2 radiobuttons.
Cheers!!
VEnk@

Radio button in module pool

In ordinary report programs, if we want to change screen value according to the selection of radion button, we use user command and at user command options.
But how do i do it in module pool programming.
Like in module pool if i select one radio button some input fields should be non edidtable.

Hi,
DATA: OK_CODE TYPE SY-UCOMM,
      PROCESS_CODE TYPE SY-UCOMM.
<b>In PAI</b>
MODULE USER_COMMAND_0100.
   PROCESS_CODE = OK_CODE.
CLEAR OK_CODE.
CASE PROCESS_CODE.
WHEN 'RADIO'. " RADIO is the function code for the radibuttons.
      IF R1 = 'X'.
        R2 = SPACE.
      ELSEIF R2 = 'X'.
        R1 = SPACE.
      ENDIF.
ENDCASE.
Hope this helps.
Reward if helpful.
Regards,
Sipra

Creating Radio Button on Module pool Screen

Hi Gurus,
I am currently working on a program which involves module pool selection screen. In my selection screen i have placed 2 radio buttons, i have kept these radio buttons in same group. But when i am running the program both the radio buttons appear as checked. Could any one help me on that.......I need only one radio button to be checked at a time ..
Thanks in advance....
Regards,
Shiv.

hI,
IT IS HIGHLY IMPOSSIBLE THAT BOTH OF THE RADIOBUTTONS ARE CHECKED.
and there is no chance that both the radiobuttons are in two different groups since in a single group minimum 2 radiobuttons should be there.
check you coding.or if required redraw the radiobuttons. and select the radiobuttons properly while grouping them together..after grouping you will see dotted lines aroung them.
just try that. reward if helpful.
regards,
pankaj singh

Issue in using radio button in module pool

For same field I need 2 different search help. Based on radio button on screen I need company codeu2019s from different table. Issue is, at execution radio button remains blank. Radio button works only when I use them in PAI under CASE SY-UCOMM. WHEN u2018DONEu2019. IF Normal_Run = u2018Xu2019u2026u2026
Can I use radio button with the below code. Please refer the below code.
PROCESS ON VALUE-REQUEST.
FIELD COMP_CODE MODULE POPULATE_COMP_CODE.
MODULE POPULATE_COMP_CODE INPUT.
IF REPEAT_RUN = 'X'.
PERFORM COMP_CODE_POPULATE.
ELSEIF NORMAL_RUN = 'X'.
PERFORM COMP_CODE_POPULATE_N.
ENDIF.
ENDMODULE.
FORM COMP_CODE_POPULATE .
    SELECT COMP_CODE
      FROM ZIFRS_D_PROCESS
      INTO CORRESPONDING FIELDS OF TABLE VALUES_TAB_CC
      WHERE PROC_NAME = 'DEPRECIATION RUN'.
READ TABLE VALUES_TAB INDEX 1.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD    = 'COMP_CODE'
      DYNPPROG    = PROGNAME
      DYNPNR      = DYNNUM
      DYNPROFIELD = 'COMP_CODE'
      VALUE_ORG   = 'S'
    TABLES
      VALUE_TAB   = VALUES_TAB_CC.
ENDFORM.                    " COMP_CODE_POPULATION
FORM COMP_CODE_POPULATE_N .
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      TABNAME     = '/BI0/SCOMP_CODE'
      FIELDNAME   = 'COMP_CODE'
      DYNPPROG    = PROGNAME
      DYNPNR      = DYNNUM
      DYNPROFIELD = 'COMP_CODE'.
ENDFORM.                    " COMP_CODE_POPULATE_N
Moderator Message: Please use "code" tags to format the code snippet.
Edited by: Suhas Saha on Nov 23, 2011 5:13 PM

Hi
You need to make the Grouping for these Radio button on the screen
Search for how to make Radio buttons grouping
radio buttons in screen painter
http://help.sap.com/printdocu/core/print46c/en/data/pdf/BCDWBTUT/BCDWBTUT.pdf
and search for Radio button Group in this document
assign a Function Code for one of the radio buttons(It allows for only one Radio Button)
This triggers automatic PAI so when you take the F4 Help this is readily available
In TOP include make sure you define the variables corresponding to the Radio buttons on the screen and also provide default value X to one of the Radio buttons
Hope this serves your purpose
Cheerz
Ramchander Rao.K

How to generate a mail on click of save button on Module pool program.

Hi geeks,
I am developing a Module pool having table control..The table control is supposedly having 10 columns. The user enters values in first 5 colmns and when he saves , a mail should be generated to his hierarchy indicatiing it .How could this be achieved?? . The mail should just have details like the i/p entered in screen . If possible explain through a code snippet..
Thanks in advance
Regards,
Navin

when you press save button, get the sy-ucomm and write the below code. Capture the entries from
table control and send the mail.
DATA : it_objpack   TYPE STANDARD TABLE OF sopcklsti1 ,
         it_objtxt    TYPE STANDARD TABLE OF solisti1 ,
         it_objbin    TYPE STANDARD TABLE OF solisti1 ,
         it_reclist   TYPE STANDARD TABLE OF somlreci1 ,
         wa_doc_chng TYPE sodocchgi1,
         wa_objhead   TYPE soli_tab,
         l_attachment TYPE i,
         l_testo      TYPE i.
DATA:   wa_objpack TYPE sopcklsti1,
          wa_objtxt TYPE solisti1 ,
          wa_objbin TYPE solisti1 ,
          wa_reclist TYPE somlreci1 .
CLEAR: wa_reclist,
          wa_objhead,
          wa_objtxt, it_objtxt[],
          wa_objbin, it_objbin[],
          wa_objpack, it_objpack[].
CLEAR wa_objbin.
REFRESH it_objbin.
it_objbin[] = gt_mess_att[].
DESCRIBE TABLE it_objbin LINES l_attachment.
LOOP AT it_message INTO wa_message.
    wa_objtxt = wa_message. APPEND wa_objtxt TO it_objtxt.
ENDLOOP.
DESCRIBE TABLE it_objtxt LINES l_testo.
wa_doc_chng-obj_name = 'Test'.
wa_doc_chng-expiry_dat = sy-datum + 10.
CONCATENATE 'Send '
                INTO wa_doc_chng-obj_descr .
wa_doc_chng-sensitivty = 'P'.
wa_doc_chng-obj_prio = '1'.
wa_doc_chng-doc_size = l_testo * 255.
CLEAR wa_objpack-transf_bin.
wa_objpack-head_start = 1.
wa_objpack-head_num   = 0.
wa_objpack-body_start = 1.
wa_objpack-body_num   = l_testo.
wa_objpack-doc_type   = 'RAW'.
APPEND wa_objpack TO it_objpack.
CLEAR wa_reclist.
wa_reclist-copy = 'X'.
IF wa_email IS NOT INITIAL.
    wa_reclist-receiver = wa_email-value1.
    wa_reclist-express = 'X'.
    wa_reclist-rec_type = 'U'.
    wa_reclist-notif_del = 'X'.
    wa_reclist-notif_ndel = 'X'.
    APPEND wa_reclist TO it_reclist.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data              = wa_doc_chng
        put_in_outbox              = 'X'
        commit_work                = 'X'
      TABLES
        packing_list               = it_objpack
        object_header              = wa_objhead
        contents_bin               = it_objbin
        contents_txt               = it_objtxt
        receivers                  = it_reclist
      EXCEPTIONS
        too_many_receivers         = 1
        document_not_sent          = 2
        document_type_not_exist    = 3
        operation_no_authorization = 4
        parameter_error            = 5
        x_error                    = 6
        enqueue_error              = 7
        OTHERS                     = 8.
    IF sy-subrc <> 0.
      WRITE 'mail fail'.
    ENDIF.
ENDIF.

Creating Radio Button in Module Pool

Hi All,
I have created a Two radio button on screen 100.
When I run this I will get both radio button selected.
I am unable to group these.
How can I group both?
I am using 4.7. I am not getting Graphical Layout of the screen.
How to group in classical only.

Hi Praveen,
Steps to group radiobuttons with alphanumeric editor.
<li>Place the cursor on first radiobutton and click on Graphical element button in the application toolbar.
<li>Now place the cursor on 2nd radiobutton and click on Define graph.group button in the application toolbar.
<li>Now radiobuttons are grouped and first one is defaulted.
Thanks
Venkat.O

Update button in module pool program

Hi Experts,
i have problem with my report, i developed my own DDIC table, screen to insert data in to table,
so my prb is, i have screen on which there r 3 buttons called(INSERT,UPDATE,EXIT)
so insert n exit is ok but when i press UPDATE its not working upto my requirement,
my requiremnt is :-
i have a fields called end_gallons n rin_no ,so im adding end gallons for every record entered
n it is concatenating and displays in rin_no.
so in concatenation it should display data with added values and with preceeding zeros for easy to understand ill send u my code so plz correct it
WHEN 'CHN'.
SELECT END_GALLONS
       RIN_NO FROM ZRIN INTO TABLE I_ZRIN WHERE FILL_DATE =
ZRIN-FILL_DATE.
EGALLONS = ZRIN-END_GALLONS.
SUM = 0.
LOOP AT I_ZRIN.
SUM = EGALLONS + I_ZRIN-END_GALLONS.
ENDLOOP.
ZRIN-END_GALLONS = SUM.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
    INPUT         = GALLONS
IMPORTING
    OUTPUT        = GALLONS
I_ZRIN-END_GALLONS = GALLONS.
MOVE ZRIN-BILL_OF_LADING TO T_ZRIN-BILL_OF_LADING.
MOVE ZRIN-ASSIGNED_RIN TO T_ZRIN-ASSIGNED_RIN.
MOVE ZRIN-CALENDAR_YEAR TO T_ZRIN-CALENDAR_YEAR.
MOVE ZRIN-EPA_COMPANY_ID TO T_ZRIN-EPA_COMPANY_ID.
MOVE ZRIN-EPA_FACITILY_ID TO T_ZRIN-EPA_FACITILY_ID.
MOVE ZRIN-RIN_BATCH_CODE TO T_ZRIN-RIN_BATCH_CODE.
MOVE ZRIN-EQUIVA_VALUE TO T_ZRIN-EQUIVA_VALUE.
MOVE ZRIN-CELLULOSIC TO T_ZRIN-CELLULOSIC.
MOVE ZRIN-START_GALLONS TO T_ZRIN-START_GALLONS.
MOVE ZRIN-END_GALLONS TO T_ZRIN-END_GALLONS.
CONCATENATE T_ZRIN-BILL_OF_LADING
             T_ZRIN-ASSIGNED_RIN
             T_ZRIN-CALENDAR_YEAR
             T_ZRIN-EPA_COMPANY_ID
             T_ZRIN-EPA_FACITILY_ID
             T_ZRIN-RIN_BATCH_CODE
             T_ZRIN-EQUIVA_VALUE
             T_ZRIN-CELLULOSIC
             T_ZRIN-START_GALLONS
             T_ZRIN-END_GALLONS INTO ZRIN-RIN_NO.
UPDATE ZRIN SET END_GALLONS = ZRIN-END_GALLONS
                      RIN_NO = ZRIN-RIN_NO
WHERE FILL_DATE = ZRIN-FILL_DATE.
UPDATE ZRIN SET ASSIGNED_RIN = ZRIN-ASSIGNED_RIN
CALENDAR_YEAR = ZRIN-CALENDAR_YEAR
EPA_COMPANY_ID = ZRIN-EPA_COMPANY_ID
EPA_FACITILY_ID = ZRIN-EPA_FACITILY_ID
RIN_BATCH_CODE = ZRIN-RIN_BATCH_CODE
EQUIVA_VALUE = ZRIN-EQUIVA_VALUE
CELLULOSIC = ZRIN-CELLULOSIC
START_GALLONS = ZRIN-START_GALLONS
*END_GALLONS = ZRIN-END_GALLONS
*RIN_NO = ZRIN-RIN_NO
TRANSFER_OR_EPA = ZRIN-TRANSFER_OR_EPA
FILL_DATE = ZRIN-FILL_DATE
VOL_TRANSFERED = ZRIN-VOL_TRANSFERED
WHERE BILL_OF_LADING = ZRIN-BILL_OF_LADING.

Hi Rajesh,
What is the problem you are facing are you not getting the Gallons values as expected.
Thanks & regards,
M.Ramana Murthy

Need help in module Pool programming.

Dear gurus
I'm stuck in a step of Module Pool program
Steps i used for enhancement in XK01.
1) i appended a structure in table LFA1 having two fields A and B.
2) then i went to IMG-> Logistic -> Business Partner-> Vendor -> Adoption of Customer's Own Master Data Fields -> Prepare     Modification-Free Enhancement of Vendor Master Record ( Here i created my screen group Z1 without Function Code.
3) then i created below module pool program. of screen 9999 and in layout i added to fields to display A and B which i appended.
PROGRAM ZSNAK_XK01.
TABLES: lfa1.
module status_9999 output.
endmodule.                 " status_9999 OUTPUT
module user_command_9999 input.
endmodule.
4) After this i wen to IMG-> Logistic -> Business Partner-> Vendor -> Adoption of Customer's Own Master Data Fields ->
    Business Add-In: Processing of Master Data Enhancements ( Here i created my implementation on method CHECK_ADD_ON_ACTIVE and added this code
if i_screen_group eq 'Z1'.
e_add_on_active = 'X'.
endif.
5) then i went to   IMG-> Logistic -> Business Partner-> Vendor -> Adoption of Customer's Own Master Data Fields ->
   Business Add-In: Customer Subscreens. and created my implementation on method GET_TAXI_SCREEN where i have written this code.
e_screen = '9999'.
e_program = 'ZSNAK_XK01'.
e_headerscreen_layout = ''.
After activation when i execute t-code XK01 i see my button there after INFORMATION BUTTON when i click on it i get following error.
Incorrect screen type: Screen is incorrectly defined or used.
The attribute screen type with the values 'Normal Screen' and
'Subscreen' determines the use of the screen. If a normal screen is used
   as subscreen or vice versa, an error occurs.
The screen "ZSNAK_XK01" 9999 has, in this respect, an inappropriate screen
   type.
Please guide me
Regards
Saad Nisar.

I think you have defined the screen 9999 as normal screen. go to attributes tab of the screen and make it as "subscreen' (radio button) and activate
a®

Debugging a Module Pool Program(Object Oriented ABAP)

Hello Experts,
Could you please advise me on an efficient debugging technoque of Module Pool Program which is based on Object Oriented ABAP?

Hi
Debugging Module pool program using ABAP objects is same as debugging any other report/module pool program.
Click on the Create shortcut icon on the toolbar.
In the popup window choose "System command" and in the command enter "/h"
A shortcut on the desktop would be created
Drag and drop the shortcut to the modal window to set debugging on.
Approach 2:
Create a txt file on the desktop with the following lines:
[FUNCTION]
Command=/H
Title=Debugger
Type=SystemCommandDrag and drop this file to the modal window to set debugging on.
How do I switch between the Classic and New Debugger
From within the ABAP workbench, select the Utilities->Settings Menu
Select the ABAP Editor Tab
Select the Debugging tab within the ABAP Editor Tab
Select the Classic Debugger or New Debugger radio button
Refer to this thread
http://help.sap.com/saphelp_47x200/helpdata/en/c6/617ca9e68c11d2b2ab080009b43351/content.htm
Debugging
Check these documents.
http://www.cba.nau.edu/haney-j/CIS497/Assignments/Debugging.doc
http://help.sap.com/saphelp_nw04/helpdata/en/5a/4ed93f130f9215e10000000a155106/frameset.htm
http://help.sap.com/saphelp_47x200/helpdata/en/c6/617ca9e68c11d2b2ab080009b43351/content.htm
http://www.cba.nau.edu/haney-j/CIS497/Assignments/Debugging.doc
http://help.sap.com/saphelp_erp2005/helpdata/en/b3/d322540c3beb4ba53795784eebb680/frameset.htm
http://help.sap.com/saphelp_nw04/helpdata/en/84/1f624f4505144199e3d570cf7a9225/frameset.htm
http://help.sap.com/saphelp_bw30b/helpdata/en/c6/617ca9e68c11d2b2ab080009b43351/content.htm
http://help.sap.com/saphelp_erp2005/helpdata/en/b3/d322540c3beb4ba53795784eebb680/frameset.htm
ABAP Debugging
http://www.saplinks.net/index.php?option=com_content&task=view&id=24&Itemid=34
Look at the SAP help link below
http://help.sap.com/saphelp_nw2004s/helpdata/en/c6/617ca9e68c11d2b2ab080009b43351/content.htm
Reward points if useful
Regards
Anji

Pop-up in module pool program

I created a module pool program for inserting/changing/deleting a database record through a table control on a screen. Now everything is working fine. When I executed that module pool program by a transaction (there is only one screen in this program which has table control on it), I would like that screen to come-up as a pop-up which I am not able to figure how to do it. Any ideas?
Help is appreciated.
Thanks in advance

in se51 create the screen , and check the radio button Dialog box. and place alll the components...and then save /activate it.
now in your program call the screen like this..
call screen 200 starting at 1 5
ending at 30 20.
regards
vijay

Doubt in Radiobutton handling in Module-pool program

Hi Experts,
I have requirement in where in a module pool screen I am creating two Radio-buttons say R1 and R2 under one group.
When I do this the first radio button R1 is by default gettimg checked. What is that I need to do for making secand radiobutton R2 by default getting cheked.....?
Please note that it is in Module-pool not a Report.
Kindly help me out in this aspect.
Regards,
Rama Murthy.P

Hi,
You can set check/uncheck value of radio buttons in PBO.
But that check box button should be declared in main program(se38) also.
for e.g
data: R1 type c,
R2 type c.
declare above in your main program.
now go to se51. In layout go to Dictionary/Program fields or press F6.
Now click on Get from program button and drag R1,R2 to your layout.
Now right click on it and under convert option you will get radio button.
In main program under PBO make that radio button check.
Loop at screen.
if screen-name = 'R2'.
R2 = 'X'.
endloop.
Modify Screen.
Regards,
SUDHIR MANJAREKAR

Radio button in module pool programming

Similar Messages

Maybe you are looking for