Heading

hi,
Rich Heilman
i am new to ABAP..
once again with heading problem in selection screen i have radio button and check box and some other fields..so i have to get different outputs ..no problem im getting but i am failed to code for standard heading...
pls tell me how to put the headings....
pls go through my programe once...
REPORT  ZMMGTB111                              .
****************************INTERNAL TABLES**************************
tables: mard, MARA."LOGON DATA
**********************************DATA********************************
data: begin of itabp occurs 0,
     matnr type mard-matnr,  "MATERIAL NO
     labst type mard-labst,  "VALUATED STOCK
     speme type mard-speme,  "BLOCKED STOCK
     MEINS TYPE MARA-MEINS,  "UNIT
     werks type mard-werks,  "PLANT
     lgort type mard-lgort,  "SALES ORGANISATION
     lgpbe type mard-lgpbe,  "STORAGE BIN
     kzill type mard-kzill,  "PHYSICAL INVENTORY
     umlme type mard-umlme,  "Stock in transfer
     insme type mard-insme,  "Stock in Quality Inspection
     einme type mard-einme,  "Total stock of all related batches
     retme type mard-retme,  "Blocked stock returns
     end of itabp.
**********************SELECTION SCEREEN*******************************
selection-screen begin of block b1 with frame title text-010.
select-options:
s_matnr for mard-matnr modif id sc1,
S_MEINS FOR MARA-MEINS no-extension no intervals.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-020.
**************************RADIO BUTTONS*******************************
parameter:   r2 radiobutton group g1 modif id sc1,
             r3 radiobutton group g1,
             r4 radiobutton group g1.
selection-screen end of block b2.
selection-screen begin of block b3 with frame title text-030.
*****************************CHECK BOX********************************
parameter:   C1 as checkbox.
selection-screen end of block b3.
data: lv_labst like mard-labst.
***********************RADIO BUTTION R2******************************
*************************************WITH STORAGE BIN SELECTION******
IF R2 EQ 'X'.
   format intensified.
                  write: 8 'Material' color 3 ,
                         26 'Valuated Stock' color 7,
                         46 'Blocked Stock' color 5,
                         65 'UNIT' color 1,
                         76 'Plant' color 6,
                         84 'St Loca' color 3,
                         96 'St Bin' color 7.
                        106 sy-vline.
***********************check box in write statement*******************
                      IF c1 EQ 'X'.
                         write: 105 'Inventory' color 1.
                      ENDIF.
uline (143).
   format intensified off.
                         select  mard~matnr
                                 mard~labst
                                 mard~speme
                                 mara~meins
                                 mard~werks
                                 mard~lgort
                                 mard~lgpbe
                                 mard~kzill
                     into corresponding fields of table itabp from mard
                     inner join mara on
                               mardmatnr = maramatnr
                         where mard~matnr in s_matnr and
                               mara~meins in s_meins.
        loop at itabp.
           format color 2.
                  if sy-subrc = 0.
                  SKIP.
***************************************TO GET TOTAL STCOK*************
   LV_labst = LV_labst + ITABP-labst.
******************************************WRITE STATEMENT*************
                          write: /10 ITABP-matnr,
                               AT 20 itabp-labst ,
                               AT 40 itabp-speme ,
                               AT 66 itabp-meins ,
                               AT 76 itabp-werks ,
                               AT 86 itabp-lgort ,
                               AT 96 itabp-lgpbe .
*********************************CHECK BOX IN WRITE STATEMENT*********
                            IF c1 EQ 'X'.
                               format color 2.
                                write: 111 itabp-kzill.
                               format color off.
                            ENDIF.
                endif.
          format color off.
        ENDLOOP.
ENDIF.
***********************RADIO BUTTION R3******************************
*************************************WITH STORAGE BIN SELECTION******
IF R3 EQ 'X'.
  format intensified.
                  write:  8 'Material' color 3 ,
                         26 'Valuated Stock' color 7,
                         46 'Blocked Stock' color 5,
                         65 'UNIT' color 1,
                         76 'Plant' color 6,
                         85 'St Loca' color 3.
*********************************CHECK BOX IN WRITE STATEMENT*********
                     IF c1 EQ 'X'.
                        write: 96 'Inventory' color 1.
                      ENDIF.
  format intensified off.
uline (143).
                            select mard~matnr
                                   mard~labst
                                   mard~speme
                                   mara~meins
                                   mard~werks
                                   mard~lgort
                                   mard~lgpbe
                                   mard~kzill
                      into corresponding fields of table itabp from mard
                          inner join mara on
                              mardmatnr = maramatnr
                          where mard~matnr in s_matnr and
                                mara~meins in s_meins.
      loop at itabp.
          format color 2.
            if sy-subrc = 0.
       SKIP.
***************************************TO GET TOTAL STCOK*************
   LV_labst = LV_labst + ITABP-labst.
******************************************WRITE STATEMENT*************
                             write: /10 ITABP-matnr ,
                                     20 itabp-labst ,
                                     40 itabp-speme ,
                                     66 itabp-meins ,
                                     76 itabp-werks ,
                                     88 itabp-lgort .
*********************************CHECK BOX IN WRITE STATEMENT*********
          IF c1 EQ 'X'.
                       format color 2.
                         write: 102 itabp-kzill.
                       format color off.
           ENDIF.
    ENDIF.
   format color off.
ENDLOOP.
ENDIF.
***********************RADIO BUTTION R4******************************
*************************************WITH STORAGE BIN SELECTION******
IF R4 EQ 'X'.
format intensified.
                  write:  8 'Material' color 3 ,
                         25 'Valuated Stock' color 7,
                         45 'Blocked Stock' color 5,
                         63 'UNIT' color 1,
                         74 'St In Trf' color 6,
                         88 'St in QUL' color 3,
                         104 'St Ris Bat' color 7.
                        106 sy-vline.
***********************check box in write statement*******************
                      IF c1 EQ 'X'.
                         write: 105 'Inventory' color 1.
                      ENDIF.
uline (143).
   format intensified off.
                         select  mard~matnr
                                 mard~labst
                                 mard~speme
                                 mara~meins
                                 mard~werks
                                 mard~lgort
                                 mard~lgpbe
                                 mard~kzill
                                 mard~umlme
                                 mard~insme
                                 mard~einme
                                 mard~retme
                     into corresponding fields of table itabp from mard
                     inner join mara on
                               mardmatnr = maramatnr
                         where mard~matnr in s_matnr and
                               mara~meins in s_meins.
        loop at itabp.
           format color 2.
                  if sy-subrc = 0.
                  SKIP.
***************************************TO GET TOTAL STCOK*************
   LV_labst = LV_labst + ITABP-labst.
******************************************WRITE STATEMENT*************
                          write: /10 ITABP-matnr,
                                20 itabp-labst ,
                                40 itabp-speme ,
                                66 itabp-meins ,
                                76 itabp-umlme ,
                                86 itabp-insme ,
                                96 itabp-einme .
*********************************CHECK BOX IN WRITE STATEMENT*********
                            IF c1 EQ 'X'.
                               format color 2.
                                write: 111 itabp-kzill.
                               format color off.
                            ENDIF.
                endif.
          format color off.
REPORT  ZMMGTB111                              .
****************************INTERNAL TABLES**************************
tables: mard, MARA."LOGON DATA
**********************************DATA********************************
data: begin of itabp occurs 0,
     matnr type mard-matnr,  "MATERIAL NO
     labst type mard-labst,  "VALUATED STOCK
     speme type mard-speme,  "BLOCKED STOCK
     MEINS TYPE MARA-MEINS,  "UNIT
     werks type mard-werks,  "PLANT
     lgort type mard-lgort,  "SALES ORGANISATION
     lgpbe type mard-lgpbe,  "STORAGE BIN
     kzill type mard-kzill,  "PHYSICAL INVENTORY
     umlme type mard-umlme,  "Stock in transfer
     insme type mard-insme,  "Stock in Quality Inspection
     einme type mard-einme,  "Total stock of all related batches
     retme type mard-retme,  "Blocked stock returns
     end of itabp.
**********************SELECTION SCEREEN*******************************
selection-screen begin of block b1 with frame title text-010.
select-options:
s_matnr for mard-matnr modif id sc1,
S_MEINS FOR MARA-MEINS no-extension no intervals.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-020.
**************************RADIO BUTTONS*******************************
parameter:   r2 radiobutton group g1 modif id sc1,
             r3 radiobutton group g1,
             r4 radiobutton group g1.
selection-screen end of block b2.
selection-screen begin of block b3 with frame title text-030.
*****************************CHECK BOX********************************
parameter:   C1 as checkbox.
selection-screen end of block b3.
data: lv_labst like mard-labst.
***********************RADIO BUTTION R2******************************
*************************************WITH STORAGE BIN SELECTION******
IF R2 EQ 'X'.
   format intensified.
                  write: 8 'Material' color 3 ,
                         26 'Valuated Stock' color 7,
                         46 'Blocked Stock' color 5,
                         65 'UNIT' color 1,
                         76 'Plant' color 6,
                         84 'St Loca' color 3,
                         96 'St Bin' color 7.
                        106 sy-vline.
***********************check box in write statement*******************
                      IF c1 EQ 'X'.
                         write: 105 'Inventory' color 1.
                      ENDIF.
uline (143).
   format intensified off.
                         select  mard~matnr
                                 mard~labst
                                 mard~speme
                                 mara~meins
                                 mard~werks
                                 mard~lgort
                                 mard~lgpbe
                                 mard~kzill
                     into corresponding fields of table itabp from mard
                     inner join mara on
                               mardmatnr = maramatnr
                         where mard~matnr in s_matnr and
                               mara~meins in s_meins.
        loop at itabp.
           format color 2.
                  if sy-subrc = 0.
                  SKIP.
***************************************TO GET TOTAL STCOK*************
   LV_labst = LV_labst + ITABP-labst.
******************************************WRITE STATEMENT*************
                          write: /10 ITABP-matnr,
                               AT 20 itabp-labst ,
                               AT 40 itabp-speme ,
                               AT 66 itabp-meins ,
                               AT 76 itabp-werks ,
                               AT 86 itabp-lgort ,
                               AT 96 itabp-lgpbe .
*********************************CHECK BOX IN WRITE STATEMENT*********
                            IF c1 EQ 'X'.
                               format color 2.
                                write: 111 itabp-kzill.
                               format color off.
                            ENDIF.
                endif.
          format color off.
        ENDLOOP.
ENDIF.
***********************RADIO BUTTION R3******************************
*************************************WITH STORAGE BIN SELECTION******
IF R3 EQ 'X'.
  format intensified.
                  write:  8 'Material' color 3 ,
                         26 'Valuated Stock' color 7,
                         46 'Blocked Stock' color 5,
                         65 'UNIT' color 1,
                         76 'Plant' color 6,
                         85 'St Loca' color 3.
*********************************CHECK BOX IN WRITE STATEMENT*********
                     IF c1 EQ 'X'.
                        write: 96 'Inventory' color 1.
                      ENDIF.
  format intensified off.
uline (143).
                            select mard~matnr
                                   mard~labst
                                   mard~speme
                                   mara~meins
                                   mard~werks
                                   mard~lgort
                                   mard~lgpbe
                                   mard~kzill
                      into corresponding fields of table itabp from mard
                          inner join mara on
                              mardmatnr = maramatnr
                          where mard~matnr in s_matnr and
                                mara~meins in s_meins.
      loop at itabp.
          format color 2.
            if sy-subrc = 0.
       SKIP.
***************************************TO GET TOTAL STCOK*************
   LV_labst = LV_labst + ITABP-labst.
******************************************WRITE STATEMENT*************
                             write: /10 ITABP-matnr ,
                                     20 itabp-labst ,
                                     40 itabp-speme ,
                                     66 itabp-meins ,
                                     76 itabp-werks ,
                                     88 itabp-lgort .
*********************************CHECK BOX IN WRITE STATEMENT*********
          IF c1 EQ 'X'.
                       format color 2.
                         write: 102 itabp-kzill.
                       format color off.
           ENDIF.
    ENDIF.
   format color off.
ENDLOOP.
ENDIF.
***********************RADIO BUTTION R4******************************
*************************************WITH STORAGE BIN SELECTION******
IF R4 EQ 'X'.
format intensified.
                  write:  8 'Material' color 3 ,
                         25 'Valuated Stock' color 7,
                         45 'Blocked Stock' color 5,
                         63 'UNIT' color 1,
                         74 'St In Trf' color 6,
                         88 'St in QUL' color 3,
                         104 'St Ris Bat' color 7.
                        106 sy-vline.
***********************check box in write statement*******************
                      IF c1 EQ 'X'.
                         write: 105 'Inventory' color 1.
                      ENDIF.
uline (143).
   format intensified off.
                         select  mard~matnr
                                 mard~labst
                                 mard~speme
                                 mara~meins
                                 mard~werks
                                 mard~lgort
                                 mard~lgpbe
                                 mard~kzill
                                 mard~umlme
                                 mard~insme
                                 mard~einme
                                 mard~retme
                     into corresponding fields of table itabp from mard
                     inner join mara on
                               mardmatnr = maramatnr
                         where mard~matnr in s_matnr and
                               mara~meins in s_meins.
        loop at itabp.
           format color 2.
                  if sy-subrc = 0.
                  SKIP.
***************************************TO GET TOTAL STCOK*************
   LV_labst = LV_labst + ITABP-labst.
******************************************WRITE STATEMENT*************
                          write: /10 ITABP-matnr,
                                20 itabp-labst ,
                                40 itabp-speme ,
                                66 itabp-meins ,
                                76 itabp-umlme ,
                                86 itabp-insme ,
                                96 itabp-einme .
*********************************CHECK BOX IN WRITE STATEMENT*********
                            IF c1 EQ 'X'.
                               format color 2.
                                write: 111 itabp-kzill.
                               format color off.
                            ENDIF.
                endif.
          format color off.
        ENDLOOP.
ENDIF.
**************************************SCREEN TEXT INTENSIFIED********
          LOOP AT SCREEN.
              IF   SCREEN-GROUP1 = 'SC1'.
                   SCREEN-INTENSIFIED = '1'.
                     MODIFY SCREEN.
                     CONTINUE.
              ENDIF.
              IF   SCREEN-GROUP1 = 'SC2'.
                   SCREEN-INTENSIFIED = '0'.
                      MODIFY SCREEN.
              ENDIF.
          ENDLOOP.
***********************************************COLUMN TOTAL***********
write: /09 'TOTAL STOCK' color 1.
write:  20 lv_LABST color 1.
REPORT  ZMMGTB111                              .
****************************INTERNAL TABLES**************************
tables: mard, MARA."LOGON DATA
**********************************DATA********************************
data: begin of itabp occurs 0,
     matnr type mard-matnr,  "MATERIAL NO
     labst type mard-labst,  "VALUATED STOCK
     speme type mard-speme,  "BLOCKED STOCK
     MEINS TYPE MARA-MEINS,  "UNIT
     werks type mard-werks,  "PLANT
     lgort type mard-lgort,  "SALES ORGANISATION
     lgpbe type mard-lgpbe,  "STORAGE BIN
     kzill type mard-kzill,  "PHYSICAL INVENTORY
     umlme type mard-umlme,  "Stock in transfer
     insme type mard-insme,  "Stock in Quality Inspection
     einme type mard-einme,  "Total stock of all related batches
     retme type mard-retme,  "Blocked stock returns
     end of itabp.
**********************SELECTION SCEREEN*******************************
selection-screen begin of block b1 with frame title text-010.
select-options:
s_matnr for mard-matnr modif id sc1,
S_MEINS FOR MARA-MEINS no-extension no intervals.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-020.
**************************RADIO BUTTONS*******************************
parameter:   r2 radiobutton group g1 modif id sc1,
             r3 radiobutton group g1,
             r4 radiobutton group g1.
selection-screen end of block b2.
selection-screen begin of block b3 with frame title text-030.
*****************************CHECK BOX********************************
parameter:   C1 as checkbox.
selection-screen end of block b3.
data: lv_labst like mard-labst.
***********************RADIO BUTTION R2******************************
*************************************WITH STORAGE BIN SELECTION******
IF R2 EQ 'X'.
   format intensified.
                  write: 8 'Material' color 3 ,
                         26 'Valuated Stock' color 7,
                         46 'Blocked Stock' color 5,
                         65 'UNIT' color 1,
                         76 'Plant' color 6,
                         84 'St Loca' color 3,
                         96 'St Bin' color 7.
                        106 sy-vline.
***********************check box in write statement*******************
                      IF c1 EQ 'X'.
                         write: 105 'Inventory' color 1.
                      ENDIF.
uline (143).
   format intensified off.
                         select  mard~matnr
                                 mard~labst
                                 mard~speme
                                 mara~meins
                                 mard~werks
                                 mard~lgort
                                 mard~lgpbe
                                 mard~kzill
                     into corresponding fields of table itabp from mard
                     inner join mara on
                               mardmatnr = maramatnr
                         where mard~matnr in s_matnr and
                               mara~meins in s_meins.
        loop at itabp.
           format color 2.
                  if sy-subrc = 0.
                  SKIP.
***************************************TO GET TOTAL STCOK*************
   LV_labst = LV_labst + ITABP-labst.
******************************************WRITE STATEMENT*************
                          write: /10 ITABP-matnr,
                               AT 20 itabp-labst ,
                               AT 40 itabp-speme ,
                               AT 66 itabp-meins ,
                               AT 76 itabp-werks ,
                               AT 86 itabp-lgort ,
                               AT 96 itabp-lgpbe .
*********************************CHECK BOX IN WRITE STATEMENT*********
                            IF c1 EQ 'X'.
                               format color 2.
                                write: 111 itabp-kzill.
                               format color off.
                            ENDIF.
                endif.
          format color off.
        ENDLOOP.
ENDIF.
***********************RADIO BUTTION R3******************************
*************************************WITH STORAGE BIN SELECTION******
IF R3 EQ 'X'.
  format intensified.
                  write:  8 'Material' color 3 ,
                         26 'Valuated Stock' color 7,
                         46 'Blocked Stock' color 5,
                         65 'UNIT' color 1,
                         76 'Plant' color 6,
                         85 'St Loca' color 3.
*********************************CHECK BOX IN WRITE STATEMENT*********
                     IF c1 EQ 'X'.
                        write: 96 'Inventory' color 1.
                      ENDIF.
  format intensified off.
uline (143).
                            select mard~matnr
                                   mard~labst
                                   mard~speme
                                   mara~meins
                                   mard~werks
                                   mard~lgort
                                   mard~lgpbe
                                   mard~kzill
                      into corresponding fields of table itabp from mard
                          inner join mara on
                              mardmatnr = maramatnr
                          where mard~matnr in s_matnr and
                                mara~meins in s_meins.
      loop at itabp.
          format color 2.
            if sy-subrc = 0.
       SKIP.
***************************************TO GET TOTAL STCOK*************
   LV_labst = LV_labst + ITABP-labst.
******************************************WRITE STATEMENT*************
                             write: /10 ITABP-matnr ,
                                     20 itabp-labst ,
                                     40 itabp-speme ,
                                     66 itabp-meins ,
                                     76 itabp-werks ,
                                     88 itabp-lgort .
*********************************CHECK BOX IN WRITE STATEMENT*********
          IF c1 EQ 'X'.
                       format color 2.
                         write: 102 itabp-kzill.
                       format color off.
           ENDIF.
    ENDIF.
   format color off.
ENDLOOP.
ENDIF.
***********************RADIO BUTTION R4******************************
*************************************WITH STORAGE BIN SELECTION******
IF R4 EQ 'X'.
format intensified.
                  write:  8 'Material' color 3 ,
                         25 'Valuated Stock' color 7,
                         45 'Blocked Stock' color 5,
                         63 'UNIT' color 1,
                         74 'St In Trf' color 6,
                         88 'St in QUL' color 3,
                         104 'St Ris Bat' color 7.
                        106 sy-vline.
***********************check box in write statement*******************
                      IF c1 EQ 'X'.
                         write: 105 'Inventory' color 1.
                      ENDIF.
uline (143).
   format intensified off.
                         select  mard~matnr
                                 mard~labst
                                 mard~speme
                                 mara~meins
                                 mard~werks
                                 mard~lgort
                                 mard~lgpbe
                                 mard~kzill
                                 mard~umlme
                                 mard~insme
                                 mard~einme
                                 mard~retme
                     into corresponding fields of table itabp from mard
                     inner join mara on
                               mardmatnr = maramatnr
                         where mard~matnr in s_matnr and
                               mara~meins in s_meins.
        loop at itabp.
           format color 2.
        

I have made some changes to your code, please see the TOP-OF-PAGE event.
report zmmgtb111
       <b>line-count 65</b> .
*****************************INTERNAL TABLES***************************
tables: mard, mara."LOGON DATA
***********************************DATA*********************************
data: begin of itabp occurs 0,
matnr type mard-matnr, "MATERIAL NO
labst type mard-labst, "VALUATED STOCK
speme type mard-speme, "BLOCKED STOCK
meins type mara-meins, "UNIT
werks type mard-werks, "PLANT
lgort type mard-lgort, "SALES ORGANISATION
lgpbe type mard-lgpbe, "STORAGE BIN
kzill type mard-kzill, "PHYSICAL INVENTORY
umlme type mard-umlme, "Stock in transfer
insme type mard-insme, "Stock in Quality Inspection
einme type mard-einme, "Total stock of all related batches
retme type mard-retme, "Blocked stock returns
end of itabp.
***********************SELECTION SCEREEN********************************
selection-screen begin of block b1 with frame title text-010.
select-options:
s_matnr for mard-matnr modif id sc1,
s_meins for mara-meins no-extension no intervals.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-020.
***************************RADIO BUTTONS********************************
parameter: r2 radiobutton group g1 modif id sc1,
r3 radiobutton group g1,
r4 radiobutton group g1.
selection-screen end of block b2.
selection-screen begin of block b3 with frame title text-030.
******************************CHECK BOX*********************************
parameter: c1 as checkbox.
selection-screen end of block b3.
data: lv_labst like mard-labst.
<b>top-of-page.
  if r2 eq 'X'.
    format intensified.
    write: 8 'Material' color 3 ,
    26 'Valuated Stock' color 7,
    46 'Blocked Stock' color 5,
    65 'UNIT' color 1,
    76 'Plant' color 6,
    84 'St Loca' color 3,
    96 'St Bin' color 7.
* 106 sy-vline.
  endif.
  if r3 eq 'X'.
    format intensified.
    write: 8 'Material' color 3 ,
    26 'Valuated Stock' color 7,
    46 'Blocked Stock' color 5,
    65 'UNIT' color 1,
    76 'Plant' color 6,
    85 'St Loca' color 3.
  endif.
  if r4 eq 'X'.
    format intensified.
    write: 8 'Material' color 3 ,
    25 'Valuated Stock' color 7,
    45 'Blocked Stock' color 5,
    63 'UNIT' color 1,
    74 'St In Trf' color 6,
    88 'St in QUL' color 3,
    104 'St Ris Bat' color 7.
* 106 sy-vline.
  endif.</b>
start-of-selection.
************************RADIO BUTTION R2*******************************
**************************************WITH STORAGE BIN SELECTION*******
  if r2 eq 'X'.
*  format intensified.
*  write: 8 'Material' color 3 ,
*  26 'Valuated Stock' color 7,
*  46 'Blocked Stock' color 5,
*  65 'UNIT' color 1,
*  76 'Plant' color 6,
*  84 'St Loca' color 3,
*  96 'St Bin' color 7.
** 106 sy-vline.
************************check box in write statement********************
    if c1 eq 'X'.
      write: 105 'Inventory' color 1.
    endif.
    uline (143).
    format intensified off.
    select mard~matnr
    mard~labst
    mard~speme
    mara~meins
    mard~werks
    mard~lgort
    mard~lgpbe
    mard~kzill
    into corresponding fields of table itabp from mard
    inner join mara on
    mard~matnr = mara~matnr
    where mard~matnr in s_matnr and
    mara~meins in s_meins.
    loop at itabp.
      format color 2.
      if sy-subrc = 0.
        skip.
****************************************TO GET TOTAL STCOK**************
        lv_labst = lv_labst + itabp-labst.
*******************************************WRITE STATEMENT**************
        write: /10 itabp-matnr,
        at 20 itabp-labst ,
        at 40 itabp-speme ,
        at 66 itabp-meins ,
        at 76 itabp-werks ,
        at 86 itabp-lgort ,
        at 96 itabp-lgpbe .
**********************************CHECK BOX IN WRITE STATEMENT**********
        if c1 eq 'X'.
          format color 2.
          write: 111 itabp-kzill.
          format color off.
        endif.
      endif.
      format color off.
    endloop.
  endif.
************************RADIO BUTTION R3*******************************
**************************************WITH STORAGE BIN SELECTION*******
  if r3 eq 'X'.
*  format intensified.
*  write: 8 'Material' color 3 ,
*  26 'Valuated Stock' color 7,
*  46 'Blocked Stock' color 5,
*  65 'UNIT' color 1,
*  76 'Plant' color 6,
*  85 'St Loca' color 3.
**********************************CHECK BOX IN WRITE STATEMENT**********
    if c1 eq 'X'.
      write: 96 'Inventory' color 1.
    endif.
    format intensified off.
    uline (143).
    select mard~matnr
    mard~labst
    mard~speme
    mara~meins
    mard~werks
    mard~lgort
    mard~lgpbe
    mard~kzill
    into corresponding fields of table itabp from mard
    inner join mara on
    mard~matnr = mara~matnr
    where mard~matnr in s_matnr and
    mara~meins in s_meins.
    loop at itabp.
      format color 2.
      if sy-subrc = 0.
        skip.
****************************************TO GET TOTAL STCOK**************
        lv_labst = lv_labst + itabp-labst.
*******************************************WRITE STATEMENT**************
        write: /10 itabp-matnr ,
        20 itabp-labst ,
        40 itabp-speme ,
        66 itabp-meins ,
        76 itabp-werks ,
        88 itabp-lgort .
**********************************CHECK BOX IN WRITE STATEMENT**********
        if c1 eq 'X'.
          format color 2.
          write: 102 itabp-kzill.
          format color off.
        endif.
      endif.
      format color off.
    endloop.
  endif.
************************RADIO BUTTION R4*******************************
**************************************WITH STORAGE BIN SELECTION*******
  if r4 eq 'X'.
*  format intensified.
*  write: 8 'Material' color 3 ,
*  25 'Valuated Stock' color 7,
*  45 'Blocked Stock' color 5,
*  63 'UNIT' color 1,
*  74 'St In Trf' color 6,
*  88 'St in QUL' color 3,
*  104 'St Ris Bat' color 7.
** 106 sy-vline.
************************check box in write statement********************
    if c1 eq 'X'.
      write: 105 'Inventory' color 1.
    endif.
    uline (143).
    format intensified off.
    select mard~matnr
    mard~labst
    mard~speme
    mara~meins
    mard~werks
    mard~lgort
    mard~lgpbe
    mard~kzill
    mard~umlme
    mard~insme
    mard~einme
    mard~retme
    into corresponding fields of table itabp from mard
    inner join mara on
    mard~matnr = mara~matnr
    where mard~matnr in s_matnr and
    mara~meins in s_meins.
    loop at itabp.
      format color 2.
      if sy-subrc = 0.
        skip.
****************************************TO GET TOTAL STCOK**************
        lv_labst = lv_labst + itabp-labst.
*******************************************WRITE STATEMENT**************
        write: /10 itabp-matnr,
        20 itabp-labst ,
        40 itabp-speme ,
        66 itabp-meins ,
        76 itabp-umlme ,
        86 itabp-insme ,
        96 itabp-einme .
**********************************CHECK BOX IN WRITE STATEMENT**********
        if c1 eq 'X'.
          format color 2.
          write: 111 itabp-kzill.
          format color off.
        endif.
      endif.
      format color off.
    endloop.
  endif.
Regards,
Rich Heilman

Similar Messages

  • Cost of free goods in header

    dear all
    i have configured free goods,in the order the cost is coming for free goods at item level and it is not adding  to the header cost total.
    for eg:i have 2 items and 1 free item.costs r 300,400,500 respectively.
    in the header it is showing only 700 as cost.
    i observed the inventory doc is posting correctly with 1200(which includes free goods cost). 
    can anybody tell weather it should add up or not and how it can be done??
    thanks
    reddy

    Dear Yugandhar
    Check
    SPRO->Sales and Distribution->Basic Functions->Free Goods->Control Free Goods Pricing->
    Control Pricing For Free Goods Item Category you will find statistical value
    or in VOV7 below pricing you find statistical value
    Statistical values                                                                               
    Indicates whether the system takes the value of an item into account 
        when it determines the total value of a document.                    
    There are three options                                                              
          System will copy item to header totals                  
    X     No cumulation - Values cannot be used statistically     
    Y     No cumulation - Values can be used statistically                                                         
    Check if it is initial for your item category
    Standard for TANN is initial and pricing is B     Pricing for free goods (100% discount)             
    Do give your feedback
    Regards
    Jitesh

  • Resetting Header and Footer in RTF templates

    Hi,
    I developed an RTF template (template 1). This template contains start:body and end body for printing the header and footer in all pages. After printing this template then i have to call another template(template 2) from this. I called the template (template 2) using call statement. But the probelm is that the header and footer of template1 is printed in the output of template2 .
    I dont want to print this header and footer for template 2. Can anyone please suggest me in doing this. I placed start:body and end body in the second template with the assumption that 1st template's header and footer will be overwritten. But if i preview then am getting the error
    Font Dir: C:\Program Files\Oracle\XML Publisher Desktop\Template Builder for Word\fonts
    Run XDO Start
    RTFProcessor setLocale: en-us
    FOProcessor setData: C:\Documents and Settings\kpoda\Desktop\Invoice Printing Efficiencies\Sample XML Data\Sample Output4.xml
    FOProcessor setLocale: en-us
    each
    Please sugget.
    Thanks

    Hi,
    Do you have two templates (template1 & template2) that you want to display in the same document where the pages for template1 has one set of header and footers; and template2 has another set of header and footer?
    If that is the case you can simply create a new section in your rtf template so you have section1 and section2.
    In the body of section1 you call template1 and template2 in the body of section2.
    You can then have different header and footers for the two templates in the same document.
    BR Kenneth

  • Header information not getting displayed in the lines

    Hello Everyone
    I have a very basic question - its very simple but not working for me with so many attempts
    My XML structure looks like this . In the RTF , I have header information and then a table for line information looping through G_LINES.
    IN this lines table I need the SHIP_CUSTOMER_ID of the header to be displayed. I have tried all options like <?../SHIP_CUSTOMER_ID?> or <?../G_ORDERS/SHIP_CUSTOMER_ID?> , however nothing seems to be working and I am not getting the field to be displayed. Can someone please help?
    XML structure is as follows:
    <XXSTOL_29251_PICK_TKT>
    <LIST_G_ORDERS>
    <G_ORDERS>
    <CUSTOMER_NUMBER>1411</CUSTOMER_NUMBER>
    <SHIPPING_INSTRUCTIONS1></SHIPPING_INSTRUCTIONS1>
    <SHIP_CUSTOMER_ID>256</SHIP_CUSTOMER_ID>
    <G_LINES>
    </G_LINES>
    <G_LINES>
    </G_LINES>
    </G_ORDERS
    </LIST_G_ORDERS>
    </XXSTOL_29251_PICK_TKT>

    Are you grouping within G_LINES? If so, use ../../SHIP_CUSTOMER_ID
    or send me the xml and RTF template to [email protected] so that I can get a better look at the data structure and try to help.
    Thanks,
    Bipuser

  • Header not getting  displayed in the next page in the second table

    Dear Experts ,
    I have a query regarding Header not getting  displayed in the next page in the second table of the main window. .Let me elobrate the issue.
    I have a smartform in which there are  2 tables TABLE 1 and TABLE 2 in the smartform MAIN window. TABLE 1 is for pending PO and TABLE 2 is  for future delivery date P O separated by text in between.
    Now the header for both the tables and the data are getting displayed properly if the total output is in only one page. But If there are more entries in the TABLE 1 the Header for the TABLE 2 is not getting displayed. Header for TABLE 1 yet gets displayed properly in the next page in case of more entries.
    Only issue is that Header for TABLE 2 is not getting displayed in second page but it gets displayed if the entries are less in TABLE 1 and the total output is in one page .
    Please provide a elobrate solution on this problem as the requirement is urgent.
    Thanks,
    Regards,
    Sachin Hada

    Hi Sachin,
    you need to cteate two pages FIRST and NEXT.
    in first page --> FIRST
        next       --> NEXT
    in next page
      page---> NEXT
      next ---> NEXT.
    you copy the first page main window is the same in next page
    aslo
    I think help ful for you
    thanks & Regards
    BHUPAL.

  • Heading is not getting displayed in the workbook

    Hi,
    My requirement is i need the heading of the query to be dispalyed in the workbook,
    when i execute the query i do get the title of the query but when i insert the query in the workbook,i do not see the title.
    could you please help me.
    thanks,
    apparao

    Hi,
    Open a query in Excel analyzer and click Save as workbook button(to save as a workbook).   The query name should come as a title.
    Regards,
    Senthil Kumar.P

  • Creating a custom report with detailed header and then associated detail

    I am very new to CRMOD, so this question may be basic, but I have not found any good material yet to help me out, so here goes.
    We are trying to create a Quote report that will be sent to our customers. The report needs to have both a header and detail section basically as follows:
    <Header>
    Quote Form
    Date:
    Expiration Date:
    Sales Person Name:
    Customer Name and address
    Terms
    ... some other text data ...
    <Detail>
    Standard fields that define the quote, these are easy.
    What I cannot determine how to do is create the header section. In the report designer, it only allows for a Title, logo, and another text line. Can anyone suggest another method?

    I do not have the narrative option.
    Options available are:
    Title
    Table
    Chart
    Pivot Table
    Gauge
    Active Filters
    legend
    Advanced
    --> Column Selector
    --> View Selector
    --> Funnel Chart
    --> Ticker
    According to the documentation, the narrative view should be available from the advanced menu. Am I on a different package by chance?

  • In ALV Report output heading is printing twice.

    Hi Experts,
    Im working on ALV Reports.
    Im printing header text by using listheader and commentary write function module.
    the problem is when i sort any column in ALV ouput the heading is printing twice.
    Again if i sort the column the heading is printed is 4 times.
    so if anybody knows the solution how we can avoid repetition of heading ,
    Please reply me as soon as possible.
    regards
    Imrangs.

    Hi Noorie,
    Thanks a lot.
    Your answer is perfect.
    Bye.
    Regards,
    Imran

  • How to add header and fooder in text file

    Hi,
    i have created simple application for generate report from database into text file.
    But i need to add header and fooder in text file. I dont know is there any API for adding these.
    Can anyone help me to create header and fooder in text file.
    the below text are needs to be print in the header
    name of the table :
    Recorder type :
    file creation time:
    the below text are needs to be print in the footer
    Recorder Number:
    Record Type;
    the actual code is
                           pst = con.prepareStatement("select REQUEST, DOMAIN_NAME, TRUNC(DATE_OF_CONFIGURATION) AS dateofConfig  FROM employee where id=300");
                               rs = pst.executeQuery();
                            while (rs.next()) {
                                 request = rs.getString("REQUEST");
                                    domain_name = rs.getString("DOMAIN_NAME");
                                    dateofconfig = rs.getString("dateofConfig");
                                    System.out.println(request + " " + domain_name + " " + dateofconfig);
                                   data.add(request + " " + domain_name + " " + dateofconfig);
                            System.out.println("before calling method");
                            writeToFile(data, "c:/Employee.txt");
                            System.out.println("file created successfull");
                            rs.close();
                            pst.close();
           private static void writeToFile(List list, String path) {
                    BufferedWriter out = null;
                    try {
                            File file = new File(path);
                            out = new BufferedWriter(new FileWriter(file, true));
                            for (Object obj : list) {
                                String s=  obj.toString(); 
                                 out.write(s);
                                    out.newLine();
                            out.close();
                    } catch (IOException e) {
    }Thanks
    Jasmin
    Edited by: user13836688 on Mar 21, 2011 4:06 AM
    Edited by: user13836688 on Mar 21, 2011 4:07 AM
    Edited by: user13836688 on Mar 21, 2011 4:08 AM

    user13836688 wrote:
    i have created simple application for generate report from database into text file.First off, when posting code, use &#91;code]...&#91;/code]. or '' tags, not '<code>'.
    But i need to add header and fooder in text file. I dont know is there any API for adding these.
    Can anyone help me to create header and fooder in text file.Well you plainly have the code to write the file contents; and furthermore your report seems to be contained in a List called 'data'. Why not just add the header and footer lines to it? I'd also suggest making 'data' a LinkedList. That way you can add the header afterwards with no performance hit, just in case the information it contains isn't available at the start of your report loop.
    Winston                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       

  • How can i order a new printer head for my photoshop 7250e

    How can i order a new printer head for my photoshop 7250e  Is there a number i can ring to speak to someone or email address i can use or a web page where i can order one
    or a list of agents i can use to get it from
    Finding simple information seems impossible, no where does it mention spares or replacements 
    I have tried a lot of fault finding am convinced this is the problem  

    Hello NigelH1, 
    The Print Head for the Photosmart 7250  is not available outside HP.
    Please call HP Tech Support for further assistance.
    If you are in US , the toll free # is 1-800-474-6836 .
    If you are not in US , then log on to www.hp.com , at bottom-left corner there is a world map icon, click on it and then select the region you belong to, which would then provide support options for you for that region.
    Regards,
    Jabzi
    Give Kudos to say "thanks" by clicking on the "thumps Up icon" .
    Click "Accept as Solution" if it solved your problem, so others can find it.
    Although I am an HP employee, I am speaking for myself and not for HP.

  • Packing Status at Delivery Header

    We are in the process of creating a form that will include the details of the all delivery items packed on a handling unit. We want the output to be triggered automatically when the delivery has been completely packed.
    We created a requirement to look at the packing status at delivery header level.  There is a packing status field (VBUK-PKSTK) at delivery header level  and packing status (VBUP-PKSTA) at item level.
    We did not expect the delivery header level header to change to "C" until all item were "C".  However, the header level field changes to "C" when the first item on the delivery is packed.  I
    I looked through the SAP Notes to see if there was something there to address this, but could not find anything. 
    I then searched the forums and found a message from 2007 saying that you must configure item categories with "must be packed" in order for this to work. I know we do not want to configure our system that way.  We have many sites and most do not use handling units.
    However, before I have my developer add code to check all statuses at item level prior to triggering an output, I want to make sure this is what has to be done.  And I have not missed a note to correct this.
    Thanks in advance.

    HI,
           Go to transaction "SE16N" and enter table "VBUK" and give the delivery number in the field sales document number. Now you type "&SAP_EDIT" in the transaction bar and execute. Here you can change the status(Total goods movement). And see If you can actually bill the document. Kindly please let me know If you need any more information on this.
    Regards,
    Ram Pedarla

  • SSRS - Is there a multi thread safe way of displaying information from a DataSet in a Report Header?

     In order to dynamically display data in the Report Header based in the current record of the Dataset, we started using Shared Variables, we initially used ReportItems!SomeTextbox.Value, but we noticed that when SomeTextbox was not rendered in the body
    (usually because a comment section grow to occupy most of the page if not more than one page), then the ReportItem printed a blank/null value.
    So, a method was defined in the Code section of the report that would set the value to the shared variable:
    public shared Params as String
    public shared Function SetValues(Param as String ) as String
    Params = Param
    Return Params 
    End Function
    Which would be called in the detail section of the tablix, then in the header a textbox would hold the following expression:
    =Code.Params
    This worked beautifully since, it now didn't mattered that the body section didn't had the SetValues call, the variable persited and the Header displayed the correct value. Our problem now is that when the report is being called in different threads with
    different data, the variable being shared/static gets modified by all the reports being run at the same time. 
    So far I've tried several things:
    - The variables need to be shared, otherwise the value set in the Body can't be seen by the header.
    - Using Hashtables behaves exactly like the ReportItem option.
    - Using a C# DLL with non static variables to take care of this, didn't work because apparently when the DLL is being called by the Body generates a different instance of the DLL than when it's called from the header.
    So is there a way to deal with this issue in a multi thread safe way?
    Thanks in advance!
     

    Hi Angel,
    Per my understanding that you want to dynamic display the group data in the report header, you have set page break based on the group, so when click to the next page, the report hearder will change according to the value in the group, when you are using
    the shared variables you got the multiple thread safe problem, right?
    I have tested on my local environment and can reproduce the issue, according to the multiple safe problem the better way is to use the harshtable behaves in the custom code,  you have mentioned that you have tryied touse the harshtable but finally got
    the same result as using the ReportItem!TextBox.Value, the problem can be cuased by the logic of the code that not works fine.
    Please reference to the custom code below which works fine and can get all the expect value display on every page:
    Shared ht As System.Collections.Hashtable = New System.Collections.Hashtable
    Public Function SetGroupHeader( ByVal group As Object _
    ,ByRef groupName As String _
    ,ByRef userID As String) As String
    Dim key As String = groupName & userID
    If Not group Is Nothing Then
    Dim g As String = CType(group, String)
    If Not (ht.ContainsKey(key)) Then
    ' must be the first pass so set the current group to group
    ht.Add(key, g)
    Else
    If Not (ht(key).Equals(g)) Then
    ht(key) = g
    End If
    End If
    End If
    Return ht(key)
    End Function
    Using this exprssion in the textbox of the reportheader:
    =Code.SetGroupHeader(ReportItems!Language.Value,"GroupName", User!UserID)
    Links belowe about the hashtable and the mutiple threads safe problem for your reference:
    http://stackoverflow.com/questions/2067537/ssrs-code-shared-variables-and-simultaneous-report-execution
    http://sqlserverbiblog.wordpress.com/2011/10/10/using-custom-code-functions-in-reporting-services-reports/
    If you still have any problem, please feel free to ask.
    Regards
    Vicky Liu

  • Error while creating a PO - Please select Purchasing Organization from Head

    Hi All,
    We have recently upgraded to R12 from 11.5.9 in Test environment. Due to upgrade all the purchasing setup which was there in 11.5.9 is now available in R12.
    We are creating a Standard Purchase Order. I have entered the header level details with default operating unit. Now when i am tryong to update the line level details, system is giving an error message ' Please select Purchasing Organization from Header'.
    Could anyone of you guide us on the change in setup that needs to be done in R12.
    Thanks in advance.
    -Sujay

    Sorry guys.. This is a form personalization.

  • Using a variable/drop down list in header of planning layout

    Dear all,
    I have created a simple BPS application for purely GL planning (No CO related objects like cost centre involved). I have the following characteristics in the header of the manuel planning layout.
    Business area
    Chart of accounts
    Company code
    Currency
    Currency Type
    Fiscal year
    Fiscal Year Variant
    Fiscal year/period
    Value type
    Version
    I have created variables for Business area, Fiscal Year, Fiscal Year Period, Posting Period and Version. The client wants either a variable or a drop down list for these characteristics in the header in the web application. When I assign a variable and put the characteristic in header, I get the error message in the web application saying header characteristic can only have a fixed value. Can someone tell me if it is possible and if so than how? I'll be very grateful for any inputs. Thanks a lot.
    Regards,
    Sumit

    Hi,
    When you create a variable, assign some values to the variable. These then become available in the drop down box. Ths first time a Web interface is called, these variable values are initial.As a result, u get the error messages. Select the variable values and then the error message should go away.
    Thanks,
    -NS

  • IPod Touch no longer working with car Head Unit since update

    Hi there, I have a problem with using my iPod Touch with my car's head unit.
    I've been using my iPod Touch with the Alpine IDA X001 Head unit fitted in my car for the last 3 months without any problems, however I installed the latest software update for the Touch (v4.0) and now the head unit connects and then says no USB device. At first I thought it was the cable as the cable supplied with the head unit is pretty fragile, so I've replaced it with a new one but it still doesn't work.
    I've tested with my iPod Nano and it works perfectly so its not a problem with the head unit or lead (I plugged the Touch in and it didn't work, plugged the Nano in and worked perfectly and then plugged the Touch in and didn't work).
    Can anyone help or is it gonna be a case of Restoring the iPod Touch back to factory settings ????

    I was also having this problem with my Kenwood car stereo. I went into the store and they did a complete restore. I didn't think it worked but the next time I plugged it into my usb to connect with my car stereo it worked. So you might try doing a restore.

  • The head phone jack on my brand new iPod touch 5th generation is not working properly

    The head phone jack on my brand new iPod touch 5th generation is not working properly. It has sound without the headphones in but when I plug them in it has no sound, it's low, or poppy. I had only used my apple supplied headphones once before and it worked fine. I know it's not the headphones because I tried them on my girlfriends phone and they worked fine.

    - Try cleaning out/blowing out the headphone jack. Try inserting/removing the plug a dozen times or so. There is a little switch in the headphone jack that disconnects the speaker when the headphone jack is inserted.
    Try the following to rule out a software problem
    - Reset the iOS device. Nothing will be lost
    Reset iPod touch: Hold down the On/Off button and the Home button at the same time for at
    least ten seconds, until the Apple logo appears.
    - Reset all settings
    Go to Settings > General > Reset and tap Reset All Settings.
    All your preferences and settings are reset. Information (such as contacts and calendars) and media (such as songs and videos) aren’t affected.
    - Restore from backup
    - Restore to factory settings/new iOS device.
    - Make an appointment at the Genius Bar of an Apple store. Seems you have a bad headphone jack.
    Apple Retail Store - Genius Bar

Maybe you are looking for

  • Not allowing totaling of a field in alv output

    hi, I had made a ALV in which i have to hide 1 field for getting it totaling. i.e. if somebody try to make total of it ,it should not be allowed on dat field . is dere any solution for this problem? plzz provide me guidelines for it.

  • Migrating Access DB to Oracle Hosted APEX environment

    I was wondering if there was a way to migrate an Access DB to the Oracle Hosted APEX environment using the Oracle Migration Workbench? You have to specify the location of the DB and schema and I don't know this information since the DB location is on

  • Hard Drive and Warranty Voids

    I am going to be trading my personal mac for another for personal reasons. One thing that I want in the trade with this other fellow I am dealing with, is assured AppleCare. The offer is a 2011 13" Macbook Pro, but has had some changes. This person h

  • Levels in login servlet

    I am about to extend my login servlet. First I want to give each user different levels. Example I have 4 options - Watch topics - Modify topics - Delete topics - Create new user User 1 is allowed to do all 4 options. User 2 is only allowed to use 1st

  • Error - no elements exist for the selection - RSMIPROACT

    Hi Experts, We have an issue with the program RSMIPROACT to send requirement to SNC. We have an error "No elements exist for the selection" once execute the program with input parameters. Could you please help me out if anything missing or cause of t