ALV output FORMAT

HI
I WANT OUTPUT FORMAT IN THIS WAY
number 1___nar _ __1__REV____1________________1______________1
1 S 1 Q 1 S 1 Q 1 1 1 1 1
Suggest me how to write this

<b>is your problem solved????</b>
u marked as solved..
its ok kkk

Similar Messages

Transpose ALV output format in Vertical

Hi ,
I want to transpose the ALV output. For this i have coded like below, but there is no output displaying.Please check the below code & advise me where to write our own fielcatalog & how to write the fieldcatogue.
TABLES:EKKO,EKPO.
TYPE-POOLS: SLIS.
TYPES:BEGIN OF PH_TY,
PH_EBELN LIKE EKKO-EBELN,
PH_AEDAT LIKE EKKO-AEDAT,
PH_LIFNR LIKE EKKO-LIFNR,
PH_SUBMI LIKE EKKO-SUBMI,
PH_EKORG LIKE EKKO-EKORG,
END OF PH_TY.
DATA: PH_ITAB TYPE STANDARD TABLE OF PH_TY.
DATA: L_COL TYPE SY-TABIX,
      L_STRUCTURE TYPE REF TO DATA,
      L_DYNTABLE TYPE REF TO DATA,
      WA_LVC_CAT TYPE LVC_S_FCAT,
      LT_LVC_CAT TYPE LVC_T_FCAT,
      LT_FIELDCATALOGUE TYPE SLIS_T_FIELDCAT_ALV,
      WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      LT_LAYOUT TYPE SLIS_LAYOUT_ALV.
FIELD-SYMBOLS : <HEADER> TYPE ANY,
                <DYNHEADER> TYPE ANY,
                <DYNDATA> TYPE ANY,
                <LS_TABLE> TYPE ANY,
                <DYNAMICTABLE> TYPE STANDARD TABLE,
                <IT_TABLE> TYPE STANDARD TABLE.
SELECTION-SCREEN:BEGIN OF BLOCK B1.
SELECT-OPTIONS:P_EBELN FOR EKKO-EBELN,
               P_LIFNR FOR EKKO-LIFNR,
               P_MATNR FOR EKPO-MATNR.
SELECTION-SCREEN END OF BLOCK B1.
INITIALIZATION.
START-OF-SELECTION.
CREATE DATA L_DYNTABLE TYPE STANDARD TABLE OF PH_TY WITH NON-UNIQUE DEFAULT KEY.
ASSIGN L_DYNTABLE->* TO <IT_TABLE>.
SELECT EBELN AEDAT LIFNR SUBMI EKORG FROM EKKO
                  INTO TABLE <IT_TABLE> WHERE EBELN IN P_EBELN
                  AND LIFNR IN P_LIFNR.
WA_LVC_CAT-FIELDNAME = 'COLUMNTEXT'.
WA_LVC_CAT-REF_TABLE = 'LVC_S_DETA'.
APPEND WA_LVC_CAT TO LT_LVC_CAT.
WA_FIELDCAT-FIELDNAME = 'COLUMNTEXT'.
WA_FIELDCAT-REF_TABNAME = 'LVC_S_DETA'.
WA_FIELDCAT-KEY = 'X'.
APPEND WA_FIELDCAT TO LT_FIELDCAT.
* WA_FIELDCAT-TABNAME = 'IT_TABLE'.
* WA_FIELDCAT-FIELDNAME = 'PH_EBELN'.
* WA_FIELDCAT-SELTEXT_M = 'PO'.
* APPEND WA_FIELDCAT TO LT_FIELDCAT.
* CLEAR WA_FIELDCAT.
DESCRIBE TABLE <IT_TABLE>.
DO
SY-TFILL TIMES.
    WRITE SY-INDEX TO WA_LVC_CAT-FIELDNAME LEFT-JUSTIFIED.
    CONCATENATE 'VALUE' WA_LVC_CAT-FIELDNAME INTO WA_LVC_CAT-FIELDNAME.
    WA_LVC_CAT-REF_FIELD = 'VALUE'.
    WA_LVC_CAT-REF_TABLE = 'LVC_S_DETA'.
    APPEND WA_LVC_CAT TO LT_LVC_CAT.
    CLEAR WA_FIELDCAT.
    WA_FIELDCAT-FIELDNAME = WA_LVC_CAT-FIELDNAME.
    WA_FIELDCAT-REF_FIELDNAME = 'VALUE'.
    WA_FIELDCAT-REF_TABNAME = 'LVC_S_DETA'.
    APPEND WA_FIELDCAT TO LT_FIELDCAT.
ENDDO.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG = LT_LVC_CAT
    IMPORTING
      EP_TABLE        = L_DYNTABLE.
ASSIGN L_DYNTABLE->* TO <DYNAMICTABLE>.
CREATE DATA L_STRUCTURE LIKE LINE OF <DYNAMICTABLE>.
ASSIGN L_STRUCTURE->* TO <HEADER>.
CREATE DATA L_STRUCTURE LIKE LINE OF <IT_TABLE>.
ASSIGN L_STRUCTURE->* TO <LS_TABLE>.
DESCRIBE TABLE LT_FIELDCATALOGUE.
DO SY-TFILL TIMES.
    IF SY-INDEX = 1.
    READ TABLE LT_FIELDCATALOGUE INTO WA_FIELDCAT INDEX 1.
    ENDIF.
    ASSIGN COMPONENT 1 OF STRUCTURE <HEADER> TO <DYNHEADER>.
    IF SY-SUBRC NE 0. EXIT .ENDIF.
    READ TABLE LT_FIELDCATALOGUE INTO WA_FIELDCAT INDEX SY-INDEX.
    <DYNHEADER> = WA_FIELDCAT-SELTEXT_M.
    IF <DYNHEADER> IS INITIAL.
    <DYNHEADER> = WA_FIELDCAT-FIELDNAME.
    ENDIF.
    LOOP AT <IT_TABLE> INTO <LS_TABLE>.
      L_COL = SY-TABIX + 1.
      ASSIGN COMPONENT SY-INDEX OF STRUCTURE <LS_TABLE> TO <DYNDATA>.
      IF SY-SUBRC NE 0. EXIT .
      ENDIF.
      ASSIGN COMPONENT L_COL OF STRUCTURE <HEADER> TO <DYNHEADER>.
      IF SY-SUBRC NE 0.
      EXIT .
      ENDIF.
      WRITE <DYNDATA> TO <DYNHEADER> LEFT-JUSTIFIED.
    ENDLOOP.
    APPEND <HEADER> TO <DYNAMICTABLE>.
ENDDO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      IS_LAYOUT   = LT_LAYOUT
      IT_FIELDCAT = LT_FIELDCAT
    TABLES
      T_OUTTAB    = <DYNAMICTABLE>.

Hi,
Please go thorugh the below sample code , Commenting is done for your easy understanding.
TYPE-POOLS: slis."*Declarations for ALV, dynamic table and col no for transpose
DATA:    l_col    TYPE sy-tabix,
         l_structure   TYPE REF TO data,
         l_dyntable    TYPE REF TO data,
         wa_lvc_cat TYPE lvc_s_fcat,
         lt_lvc_cat TYPE lvc_t_fcat,
         lt_fieldcatalogue     TYPE slis_t_fieldcat_alv,
         wa_fieldcat TYPE slis_fieldcat_alv,
         lt_fieldcat TYPE slis_t_fieldcat_alv,
         lt_layout   TYPE slis_layout_alv."*Field symbols declarations
FIELD-SYMBOLS :
<header>    TYPE ANY,
<dynheader> TYPE ANY,
<dyndata>   TYPE ANY,
<ls_table>      TYPE ANY,
<dynamictable>      TYPE STANDARD TABLE,
<it_table> TYPE STANDARD TABLE."*Input the name of the table
PARAMETERS p_table TYPE dd02l-tabname OBLIGATORY."*Initialization event
INITIALIZATION."*Start of selection event
START-OF-SELECTION."* Create internal table of dynamic type
CREATE DATA l_dyntable TYPE STANDARD TABLE OF (p_table)
                       WITH NON-UNIQUE DEFAULT KEY.
ASSIGN l_dyntable->* TO <it_table>."*select statement to select data from the table as input into
*our dynamic internal table.
*Here i have restricted only till 5 rows.
*You can set a variable and give no of rows to be fetched
*The variable can be set in your select statement SELECT * INTO CORRESPONDING FIELDS OF TABLE <it_table>
               FROM (p_table) up to 5 rows."*Fieldcatalogue definitions
wa_lvc_cat-fieldname = 'COLUMNTEXT'.
wa_lvc_cat-ref_table = 'LVC_S_DETA'.
APPEND wa_lvc_cat TO lt_lvc_cat. wa_fieldcat-fieldname = 'COLUMNTEXT'.
wa_fieldcat-ref_tabname = 'LVC_S_DETA'.
wa_fieldcat-key = 'X'..
APPEND wa_fieldcat TO lt_fieldcat. DESCRIBE TABLE <it_table>. DO sy-tfill TIMES.
For each line, a column 'VALUEx' is created in the fieldcatalog
Build Fieldcatalog
    WRITE sy-index TO wa_lvc_cat-fieldname LEFT-JUSTIFIED.
    CONCATENATE 'VALUE' wa_lvc_cat-fieldname
           INTO wa_lvc_cat-fieldname.
    wa_lvc_cat-ref_field = 'VALUE'.
    wa_lvc_cat-ref_table = 'LVC_S_DETA'.
    APPEND wa_lvc_cat TO lt_lvc_cat.
Build Fieldcatalog
    CLEAR wa_fieldcat.
    wa_fieldcat-fieldname = wa_lvc_cat-fieldname.
    wa_fieldcat-ref_fieldname = 'VALUE'.
    wa_fieldcat-ref_tabname = 'LVC_S_DETA'.
    APPEND wa_fieldcat TO lt_fieldcat.
ENDDO."* Create dynamic internal table
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = lt_lvc_cat
    IMPORTING
      ep_table        = l_dyntable. ASSIGN l_dyntable->* TO <dynamictable>."* Create structure as structure of the internal table
CREATE DATA l_structure LIKE LINE OF <dynamictable>.
ASSIGN l_structure->* TO <header>."* Create structure = structure of the internal table
CREATE DATA l_structure LIKE LINE OF <it_table>.
ASSIGN l_structure->* TO <ls_table>."* Create field catalog from our table structure
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = p_table
    CHANGING
      ct_fieldcat            = lt_fieldcatalogue
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF. DESCRIBE TABLE lt_fieldcatalogue."* Fill the internal to display <dynamictable>
DO sy-tfill TIMES.
    IF sy-index = 1.
      READ TABLE lt_fieldcatalogue INTO wa_fieldcat INDEX 1.
    ENDIF.
For each field of it_table
    ASSIGN COMPONENT 1 OF STRUCTURE <header> TO <dynheader>.
    IF sy-subrc NE 0. EXIT .ENDIF.
    READ TABLE lt_fieldcatalogue INTO wa_fieldcat INDEX sy-index.
Fill 1st column
    <dynheader> = wa_fieldcat-seltext_m.
    IF <dynheader> IS INITIAL.
      <dynheader> = wa_fieldcat-fieldname.
    ENDIF."*Filling the other columns
    LOOP AT <it_table> INTO <ls_table>.
      l_col = sy-tabix + 1.
      ASSIGN COMPONENT sy-index OF STRUCTURE <ls_table> TO <dyndata>.
      IF sy-subrc NE 0. EXIT .ENDIF.
      ASSIGN COMPONENT l_col OF STRUCTURE <header> TO
<dynheader>.
      IF sy-subrc NE 0. EXIT .ENDIF.
      WRITE <dyndata> TO <dynheader> LEFT-JUSTIFIED.
    ENDLOOP.
    APPEND <header> TO <dynamictable>.
ENDDO."*Layout for ALV output
lt_layout-zebra = 'X'.
lt_layout-no_colhead = 'X'..
lt_layout-colwidth_optimize ='X'.
lt_layout-window_titlebar = 'ALV GRID TRANSPOSED'."*ALV Grid output for display
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      is_layout   = lt_layout
      it_fieldcat = lt_fieldcat
    TABLES
      t_outtab    = <dynamictable>.
Regards,
Arun

ALV output converted into PDF format and send that PDF to user through mail

Hi Experts,
I have report earlier its output was in alv grid.
Now i want that ALV output converted into PDF format.And that PDF output send to user through mail.
Can u please tell how to do?
My code is here(output is displaying in ALV grid).
INCLUDE <icon>.
TYPE-POOLS: slis, kkblo.
TABLES : zmsd_freight_hdr, zmsd_freight_det, zmsd_blinfo, zmsd_diheader.
TABLES : lfa1.
DATA : t_hdr   LIKE   zmsd_freight_hdr   OCCURS 0 WITH HEADER LINE,
       T_DET   LIKE   ZMSD_FREIGHT_DET   OCCURS 0 WITH HEADER LINE,
       t_bl    LIKE   zmsd_blinfo        OCCURS 0 WITH HEADER LINE,
       t_di    LIKE   zmsd_diheader      OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF t_det OCCURS 0.
        INCLUDE STRUCTURE zmsd_freight_det.
DATA    type(30).
DATA: END OF t_det.
DATA: v_target2(30),
      v_zsammg LIKE t_det-zsammg,
      v_gsttotal LIKE t_det-zamount.
DATA : BEGIN OF t_data OCCURS 0,
         zsammg       LIKE zmsd_freight_hdr-zsammg,
         zdidbl       LIKE zmsd_freight_hdr-zdidbl,
         zvkorg       LIKE zmsd_freight_hdr-zvkorg,
         zinvno       LIKE zmsd_freight_hdr-zinvno,
         zttlamt      LIKE zmsd_freight_hdr-zttlamt,
         zstatus      LIKE zmsd_freight_hdr-zstatus,
         ztype        LIKE zmsd_freight_hdr-ztype,
         zconfirm     LIKE zmsd_freight_hdr-zconfirm,
         zconfirmdate LIKE zmsd_freight_hdr-zconfirmdate,
         erdat        LIKE zmsd_freight_hdr-erdat,
         ernam        LIKE zmsd_freight_hdr-ernam,
         erzet        LIKE zmsd_freight_hdr-erzet,
         aedat(10),
         aenam        LIKE zmsd_freight_hdr-aenam,
         aezet        LIKE zmsd_freight_hdr-aezet,
         zline        LIKE zmsd_freight_det-zline,
         zfptype      LIKE zmsd_freight_det-zfptype,
         zchrcode     LIKE zmsd_freight_det-zchrcode,
         zcurcode     LIKE zmsd_freight_det-zcurcode,
         zqty         LIKE zmsd_freight_det-zqty,
         zuom         LIKE zmsd_freight_det-zuom,
         zrate        LIKE zmsd_freight_det-zrate,
         zamount      LIKE zmsd_freight_det-zamount,
         zexrate      LIKE zmsd_freight_det-zexrate,
       zccode       LIKE zmsd_blinfo-zccode,      "MADK991565
         zccode       like ZMSD_FREIGHT_HDR-zfcode, "MADK991565
         zbldate(10),
         zbl          LIKE zmsd_blinfo-zbl,
         type(3),
         waerk        LIKE zmsd_freight_det-zcurcode,
         zamountl     LIKE zmsd_freight_det-zamount,
       END OF t_data.
DATA : w_layout      TYPE   slis_layout_alv,
       w_catalog     TYPE   slis_fieldcat_alv,
       t_catalog     TYPE   slis_t_fieldcat_alv,
       w_sort        TYPE   slis_sortinfo_alv,
       t_sort        TYPE   slis_t_sortinfo_alv.
DATA   V_ZINVNO    like   T_HDR-ZINVNO.                   "MADK991565
DATA : v_count TYPE i.
SELECTION-SCREEN BEGIN OF BLOCK a0 WITH FRAME TITLE text-001.
PARAMETERS     : p_zvkorg LIKE zmsd_freight_hdr-zvkorg OBLIGATORY .
SELECT-OPTIONS : s_zdidbl FOR zmsd_freight_hdr-zdidbl             ,
                  s_zccode FOR lfa1-lifnr                          ,
                  s_status FOR zmsd_freight_hdr-zstatus            ,
                  s_ztype FOR zmsd_freight_hdr-ztype              ,
                  s_erdat FOR zmsd_freight_hdr-erdat              ,
                  s_ernam FOR zmsd_freight_hdr-ernam              ,
                  s_zconfd FOR zmsd_freight_hdr-zconfirmdate       .
PARAMETERS     : p_zconf AS   CHECKBOX                            .
SELECTION-SCREEN END OF BLOCK a0.
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-002.
PARAMETERS     : p_hdr    RADIOBUTTON GROUP rad DEFAULT 'X'        ,
                  p_det    RADIOBUTTON GROUP rad                    .
SELECTION-SCREEN END OF BLOCK a1.
INITIALIZATION.
AT SELECTION-SCREEN.
START-OF-SELECTION.
PERFORM get_data.
PERFORM process.
PERFORM display.
END-OF-SELECTION.
PERFORM fm_get_num_pages.
AT USER-COMMAND.
AT LINE-SELECTION.
TOP-OF-PAGE.
PERFORM fm_top_of_page USING '7010' sy-title space.
FORM get_data.
SELECT   *
    FROM   zmsd_freight_hdr
    INTO   TABLE t_hdr
   WHERE   zvkorg        EQ p_zvkorg
     AND   zdidbl        IN s_zdidbl
     AND   zstatus       IN s_status
     AND   ztype         IN s_ztype
     AND   erdat         IN s_erdat
     AND   ernam         IN s_ernam
     AND   zconfirmdate IN s_zconfd
     AND   ZFCODE        IN S_ZCCODE.                      "MADK991565
IF p_zconf = 'X'.
    DELETE t_hdr WHERE zconfirm NE 'C'.
ENDIF.
CHECK NOT t_hdr[] IS INITIAL.
SELECT   *
    FROM   zmsd_blinfo
    INTO   TABLE t_bl
     FOR   ALL ENTRIES IN t_hdr
   WHERE   zsammg = t_hdr-zsammg.
SORT t_bl BY zsammg.
SELECT   *
    FROM   zmsd_diheader
    INTO   TABLE t_di
     FOR   ALL ENTRIES IN t_hdr
   WHERE   zsammg = t_hdr-zsammg.
SORT t_di BY zsammg.
IF P_DET = 'X'. "MADK933361
SELECT   *
    FROM   zmsd_freight_det
    INTO   TABLE t_det
     FOR   ALL ENTRIES IN t_hdr
   WHERE   zsammg = t_hdr-zsammg
   AND ZINVNO = T_HDR-ZINVNO .                           "MADK991565
SORT t_det BY zsammg zline.                            "MADK991565
   SORT T_DET BY ZSAMMG ZINVNO ZLINE.                     "MADK991565
ENDIF. "MADK933361
ENDFORM.
FORM process.
REFRESH t_data.
CLEAR v_gsttotal.                                         "MADK933361
LOOP AT t_hdr.
Start of MADK933361
    CLEAR: v_target2.
    v_zsammg = t_hdr-zsammg.
    V_ZINVNO = T_HDR-ZINVNO.                                "MADK991565
   AT NEW zsammg.                                         "MADK991565
     AT NEW ZINVNO.                                         "MADK991565
      PERFORM get_gst_value.
    ENDAT.
End of MADK933361
    PERFORM move_header.
    CHECK t_data-zccode IN s_zccode.
    IF p_det = 'X'.
CSF Project Changes Starts   DEV34    MADK985782
    LOOP AT T_DET WHERE ZSAMMG = T_HDR-ZSAMMG..
      LOOP AT t_det WHERE zsammg = t_hdr-zsammg AND
                          zinvno = t_hdr-zinvno.
CSF Project Changes Ends     DEV34    MADK985782
        PERFORM move_header.
        CHECK t_data-zccode IN s_zccode.
        MOVE-CORRESPONDING t_det TO t_data.
        t_data-zamountl = t_data-zamount * t_data-zexrate.
        APPEND t_data.
        CLEAR t_data.
      ENDLOOP.
    ELSE.
      APPEND t_data.
      CLEAR t_data.
    ENDIF.
    AT END OF zsammg.
      CLEAR v_gsttotal.
    ENDAT.
*Start of changes for IS090901289-PIA MADK991565
    AT END OF ZINVNO.
      CLEAR V_GSTTOTAL.
    ENDAT.
*End of changes for IS090901289-PIA MADK991565
ENDLOOP.
ENDFORM.
FORM move_header.
MOVE-CORRESPONDING t_hdr TO t_data.
t_data-zttlamt = t_data-zttlamt + v_gsttotal.             "MADK933361
t_data-waerk = 'SGD'.
IF NOT t_hdr-aedat IS INITIAL.
    WRITE: t_hdr-aedat TO t_data-aedat.
ELSE.
    CLEAR : t_data-aedat.
ENDIF.
READ TABLE t_bl WITH KEY zsammg = t_hdr-zsammg BINARY SEARCH.
IF sy-subrc EQ 0.
t_data-zccode = t_bl-zccode.   "MADK991565
    T_DATA-ZCCODE = T_HDR-ZFCODE.   "MADK991565
    IF NOT t_bl-zbldate IS INITIAL.
      WRITE: t_bl-zbldate TO t_data-zbldate.
    ENDIF.
    t_data-zbl     = t_bl-zbl.
    t_data-type    = 'DBL'.
ELSE.
    READ TABLE t_di WITH KEY zsammg = t_hdr-zsammg BINARY SEARCH.
    IF sy-subrc EQ 0.
    t_data-zccode = t_di-zdiforcode.     "MADK991565
      T_DATA-ZCCODE = T_HDR-ZFCODE.         "MADK991565
      t_data-type    = 'DI'.
    ENDIF.
ENDIF.
ENDFORM.
FORM display.
IF t_data[] IS INITIAL.
    MESSAGE s398(00) WITH 'No Data Selected'.
    EXIT.
ENDIF.
DATA : l_repid LIKE sy-repid.
l_repid = sy-repid.
REFRESH t_catalog.
CLEAR   t_catalog.
w_layout-cell_merge = 'X'.
PERFORM map_fields.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = l_repid
            i_callback_user_command = 'ALV_USER_COMMAND'
            is_layout               = w_layout
            it_fieldcat             = t_catalog[]
            i_grid_title            = sy-title
            i_save                  = 'A'
            it_sort                 = t_sort[]
       TABLES
            t_outtab                = t_data
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
IF sy-subrc <> 0.
ENDIF.
ENDFORM.
FORM map_fields.
Sort Order
CLEAR v_count.
PERFORM sf USING 'ZDIDBL'   'X' 'X'.
Fields to be displayed
CLEAR v_count.
IF p_hdr = 'X'.
    PERFORM af USING :
   DESCRIPTION       FIELD        LEN   RTABLE             RFIELD
    'DI/DBL         ' 'ZDIDBL'     '14' '                ' '        ',
    'Type           ' 'TYPE'       '04' '                ' '        ',
    'Forwarder Code ' 'ZCCODE'     '14' '                ' '        ',
    'BL Number      ' 'ZBL'        '14' '                ' '        ',
    'BL Date        ' 'ZBLDATE'    '10' '                ' '        ',
    'Invoice Number ' 'ZINVNO'     '15' '                ' '        ',
    'Extraction     ' 'ZSTATUS'    '05' 'ZMSD_FREIGHT_HDR' 'ZSTATUS ',
    'Freight Type   ' 'ZTYPE'      '05' 'ZMSD_FREIGHT_HDR' 'ZTYPE   ',
    'Confirmation   ' 'ZCONFIRM'   '05' 'ZMSD_FREIGHT_HDR' 'ZCONFIRM',
    'Confirm Date   ' 'ZCONFIRMDATE' '10' 'ZMSD_FREIGHT_HDR'
'ZCONFIRMDATE',
    'Total Amount   ' 'ZTTLAMT'    '18' '                ' '        ',
    'Created On     ' 'ERDAT'      '10' '                ' '        ',
    'Created By     ' 'ERNAM'      '10' '                ' '        ',
    'Changed On     ' 'AEDAT'      '10' '                ' '        ',
    'Changed By     ' 'AENAM'      '10' '                ' '        '.
ELSE.
    PERFORM af USING :
   DESCRIPTION         FIELD     LEN   RTABLE             RFIELD
    'DI/DBL           ' 'ZDIDBL'   '14' '                ' '        ',
    'Type             ' 'TYPE'     '04' '                ' '        ',
    'Forwarder Code   ' 'ZCCODE'   '14' '                ' '        ',
    'BL Number        ' 'ZBL'      '14' '                ' '        ',
    'BL Date          ' 'ZBLDATE' '10' '                ' '        ',
    'Invoice Number   ' 'ZINVNO'   '15' '                ' '        ',
    'Extraction       ' 'ZSTATUS' '05' 'ZMSD_FREIGHT_HDR' 'ZSTATUS ',
    'Freight Type     ' 'ZTYPE'    '05' 'ZMSD_FREIGHT_HDR' 'ZTYPE   ',
    'Confirmation     ' 'ZCONFIRM' '05' 'ZMSD_FREIGHT_HDR' 'ZCONFIRM',
    'Confirm Date     ' 'ZCONFIRMDATE' '10' 'ZMSD_FREIGHT_HDR'
'ZCONFIRMDATE',
    'Total Amount     ' 'ZTTLAMT' '18' '                ' '        ',
    'Freight Payment ' 'ZFPTYPE' '14' '                ' '        ',
    'Charge Code      ' 'ZCHRCODE' '10' '                ' '        ',
    'Currency         ' 'ZCURCODE' '08' '                ' '        ',
    'Quantity         ' 'ZQTY'     '13' '                ' '        ',
    'UoM              ' 'ZUOM'     '04' '                ' '        ',
    'Rate             ' 'ZRATE'    '15' '                ' '        ',
    'Amt(Foreign Curr)' 'ZAMOUNT' '16' '                ' '        ',
    'Exchange Rate    ' 'ZEXRATE' '13' '                ' '        ',
    'Amt(Local Curr) ' 'ZAMOUNTL' '16' '                ' '        ',
    'Created On       ' 'ERDAT'    '10' '                ' '        ',
    'Created By       ' 'ERNAM'    '10' '                ' '        ',
    'Changed On       ' 'AEDAT'    '10' '                ' '        ',
    'Changed By       ' 'AENAM'    '10' '                ' '        '.
ENDIF.
ENDFORM.
FORM af USING text
              field
              len
              table
              reffield.
v_count = v_count + 1.
w_catalog-col_pos       = v_count.
w_catalog-fieldname     = field.
w_catalog-ref_tabname   = table.
w_catalog-ref_fieldname = reffield.
w_catalog-seltext_s     = text.
w_catalog-seltext_m     = text.
w_catalog-seltext_l     = text.
w_catalog-outputlen     = len.
IF field = 'ZTTLAMT' OR field = 'ZAMOUNTL'.
    w_catalog-no_zero     = 'X'.
    w_catalog-cfieldname = 'WAERK'.
    w_catalog-datatype    = 'CURR'.
ENDIF.
IF FIELD = 'ZRATE' OR FIELD = 'ZAMOUNT'.
IF field = 'ZAMOUNT'.
    w_catalog-no_zero     = 'X'.
    w_catalog-cfieldname = 'ZCURCODE'.
    w_catalog-datatype    = 'CURR'.
ENDIF.
IF field = 'ZQTY' OR field = 'ZRATE'.
    w_catalog-no_zero     = 'X'.
    w_catalog-datatype = 'DEC'.
ENDIF.
APPEND w_catalog TO t_catalog.
CLEAR w_catalog.
ENDFORM.
FORM sf    USING   fieldname sortup group.
v_count = v_count + 1.
CLEAR w_sort.
w_sort-fieldname = fieldname.
w_sort-spos      = v_count.
w_sort-up        = sortup.
w_sort-group     = group.
APPEND w_sort TO t_sort.
ENDFORM.
FORM alv_user_command USING in_ucomm    LIKE sy-ucomm
                             in_selfield TYPE slis_selfield.
DATA: lfs_data LIKE t_data.
IF in_ucomm = '&IC1'.
    READ TABLE t_data INDEX in_selfield-tabindex INTO lfs_data.
    CHECK NOT lfs_data-zdidbl IS INITIAL.
    IF lfs_data-type = 'DBL'.
      DATA: l_zdbl LIKE zmsd_diheader-zdinum.
      l_zdbl = in_selfield-value.
      EXPORT l_zdbl TO MEMORY ID 'VBL'.
      CALL TRANSACTION 'ZMSD_BL01'.
    ENDIF.
    IF lfs_data-type = 'DI'.
      DATA: v_dinum LIKE zmsd_diheader-zdinum.
      v_dinum = in_selfield-value.
      EXPORT v_dinum TO MEMORY ID 'VDI'.
      CALL TRANSACTION 'ZMSD_DI01'.
    ENDIF.
ENDIF.
ENDFORM.
FORM get_gst_value.
LOOP AT t_det WHERE zsammg = v_zsammg
     AND ZINVNO = V_ZINVNO.                              "MADK991565
    CHECK t_data-zccode IN s_zccode.
    t_det-zamount = t_det-zamount * t_det-zexrate.
    SELECT SINGLE y0mmtarget2
            INTO   v_target2
            FROM   y0mmipstranslate
            WHERE y0mmdatatype = '70' AND
                   y0mmsource = t_det-zchrcode.
    SELECT SINGLE y0mmtarget1
           INTO   t_det-type
           FROM   y0mmipstranslate
           WHERE y0mmdatatype = '76' AND
                  y0mmsource = v_target2.
    IF t_det-type NE '3Z'.
      v_gsttotal    = v_gsttotal +
                           ( t_det-zamount * 5 / 100 ).
    ENDIF.
ENDLOOP.
Regards,
Raj.

Hello,
Following is the procedure to convert alv output to spool and then it to PDF Format.
After we display the ALV, we can check whether it is running in the background using system field u2018sy-batchu2018. Then,we call an function module named u2018GET_JOB_RUNTIME_INFOu2019 to get the current job information. Then go to spool request table tbtcp to get the spool id.
Get current job details
CALL FUNCTION u2018GET_JOB_RUNTIME_INFOu2019
       IMPORTING
            eventid                 = gd_eventid
            eventparm               = gd_eventparm
            external_program_active = gd_external_program_active
            jobcount                = gd_jobcount
            jobname                 = gd_jobname
            stepcount               = gd_stepcount
       EXCEPTIONS
            no_runtime_info         = 1
            OTHERS                  = 2.
SELECT * FROM tbtcp
                 INTO TABLE it_tbtcp
                 WHERE      jobname     = gd_jobname
                           AND jobcount = gd_jobcount
                           AND stepcount = gd_stepcount
                           AND listident <> u20180000000000u2032
                           ORDER BY   jobname
                                               jobcount
                                               stepcount.
READ TABLE it_tbtcp INTO wa_tbtcp INDEX 1.
Finally, we can call function module u2018CONVERT_ABAPSPOOLJOB_2_PDFu2018 to convert spool reqeust(which is stored in OTF format) to PDF format. Then we can call either function module u2018SO_DOCUMENT_SEND_API1u2032 or SAP BCS (Business Communication Service) to send the pdf as an email attachment.
CALL FUNCTION u2018CONVERT_ABAPSPOOLJOB_2_PDFu2019
       EXPORTING
            src_spoolid              = gd_spool_nr
            no_dialog                = c_no
            dst_device               = c_device
       IMPORTING
            pdf_bytecount = gd_bytecount
       TABLES
            pdf = it_pdf_output
       EXCEPTIONS
            err_no_abap_spooljob     = 1
            err_no_spooljob          = 2
            err_no_permission        = 3
            err_conv_not_possible    = 4
            err_bad_destdevice       = 5
            user_cancelled           = 6
            err_spoolerror           = 7
            err_temseerror           = 8
            err_btcjob_open_failed   = 9
            err_btcjob_submit_failed = 10
            err_btcjob_close_failed = 11
            OTHERS                   = 12.
Regards,
Sayali
Edited by: Sayali Paradkar on Apr 20, 2010 12:51 PM

How to send ALV output data into Excel sheet format via Mail to the user?

Hi friends,
I have a doubt ie,
How to send ALV output data into Excel sheet format via Mail to the user?
regards
Moosa

Hi,
Provide the output internal table to the objbin in the below FM
Send Message
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            document_data              = i_docdata
            put_in_outbox              = c_x
       TABLES
            packing_list               = i_objpack
            object_header              = i_objhead
            contents_bin               = i_objbin
            contents_txt               = i_objtxt
            receivers                  = i_reclist
and specify the document type
i_objpack-doc_type   = 'XLS'.
and try.
Regards,
Nandha

ALV output to be send to an email in Excel format

Hi All,
Now I am sending alv output to email through excel format successfully but my problem is in last coloumn output some times last charectors are missing. Please help me out.
For example out put is 'Not Approved'. Some times it is displaying correct and some times it is displaying only 'Not'.
Thanks and Regards,
Siva.

hi,
check this thread for reference:
Sending ALV by mail

Regarding downlaod the output from ALV grid format

Hi
i want to download the output ALV grid format into excel sheet .
but condition is when ever user press the button (&ZDL) the should be downloaded.
and also how to convert the output into CSV format.

hi,
when '&ZDL'.
use this condition
check this one for down loading
try to download an ALV report in excel format using (list ->export -> local file-> soread sheet )
Re: advantages of alv reports
Excel Download to ALV report
hi this is full program
REPORT ZCR_BOMPLANT_DOWNLOAD.
TABLES : MAST , "Material to BOM Link
STKO , "BOM Header
MARA . "General Material Data
TYPES : BEGIN OF TY_MASTER ,
MATNR TYPE MAST-MATNR , "Material Number
WERKS TYPE MAST-WERKS , "Plant
STLAN TYPE MAST-STLAN , "BOM Usage
STLNR TYPE MAST-STLNR , "Bill of material
STLAL TYPE MAST-STLAL , "Alternative BOM
ANDAT TYPE MAST-ANDAT , "Date record created on
AEDAT TYPE MAST-AEDAT , "Date of Last Change
AENAM TYPE MAST-AENAM , "Name of Person Who Changed Object
STLST TYPE STKO-STLST , "BOM status
ZPLP1 TYPE MBEW-ZPLP1 , "Future Planned Price 1
DWERK TYPE MVKE-DWERK , "Delivering Plant (Own or External)
END OF TY_MASTER .
TYPES : MY_TYPE(20) TYPE C.
DATA : IT_MASTER TYPE STANDARD TABLE OF TY_MASTER,
WA_MASTER TYPE TY_MASTER .
DATA : IT_HEADER TYPE TABLE OF MY_TYPE.
DATA : W_PTH TYPE RLGRAP-FILENAME.
DATA : W_FILE TYPE RLGRAP-FILENAME.
*--- Add Header Fields to Header Table ---
APPEND 'Material Number' TO IT_HEADER .
APPEND 'Plant' TO IT_HEADER .
APPEND 'BOM Usage' TO IT_HEADER .
APPEND 'Bill Code' TO IT_HEADER .
APPEND 'Alternative BOM' TO IT_HEADER .
APPEND 'Created On' TO IT_HEADER .
APPEND 'Changed On' TO IT_HEADER .
APPEND 'Changed By' TO IT_HEADER .
APPEND 'BOM Status' TO IT_HEADER .
APPEND 'Planned Price' TO IT_HEADER .
APPEND 'Delivery Plant' TO IT_HEADER .
IF SY-MANDT = '700'.
W_PTH = '
lkdb01\ISD\IS\Software Developments\Developments\Data Files\SAP Dumps\BOM_Available\'.
ELSE.
W_PTH = 'C:\'.
ENDIF.
START-OF-SELECTION.
*--- Load Data to Internal Table ---
SELECT MASTMATNR MASTWERKS MASTSTLAN MASTSTLNR MASTSTLAL MASTANDAT MASTAEDAT MASTAENAM STKO~STLST
INTO TABLE IT_MASTER
FROM MAST
INNER JOIN STKO ON STKOSTLNR EQ MASTSTLNR
AND STKOSTLAL EQ MASTSTLAL
INNER JOIN MARA ON MARAMATNR EQ MASTMATNR
WHERE MARA~MTART LIKE 'ZFG%'
AND STKO~LKENZ NE 'X'
AND STKO~LOEKZ NE 'X'
AND STKO~STLST EQ '1'.
SELECT MAST~MATNR MAST~WERKS MAST~STLAN MAST~STLNR MAST~STLAL MAST~ANDAT MAST~AEDAT MAST~AENAM STKO~STLST MBEW~ZPLP1 MVKE~DWERK
INTO TABLE IT_MASTER
FROM MAST
INNER JOIN STKO ON STKO~STLNR EQ MAST~STLNR
AND STKO~STLAL EQ MAST~STLAL
INNER JOIN MARA ON MARA~MATNR EQ MAST~MATNR
INNER JOIN MBEW ON MBEW~MATNR EQ MAST~MATNR
AND MBEW~BWKEY EQ MAST~WERKS
INNER JOIN MVKE ON MVKE~MATNR EQ MAST~MATNR
WHERE MARA~MTART LIKE 'ZFG%'
AND STKO~LKENZ NE 'X'
AND STKO~LOEKZ NE 'X'
AND STKO~STLST EQ '1'.
IF SY-SUBRC <> 0.
MESSAGE I014(ZLOAD).
ENDIF.
*--- Set Path to Function Module ---
CONCATENATE W_PTH SY-DATUM ' - ' 'BOM_AVAILABLE_PLANT.XLS' INTO W_FILE.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
FILENAME = W_FILE
FILETYPE = 'DAT'
TABLES
DATA_TAB = IT_MASTER
FIELDNAMES = IT_HEADER
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_WRITE_ERROR = 2
INVALID_FILESIZE = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_EIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
OTHERS = 10.
IF SY-SUBRC = 0.
SUBMIT ZI005_MARA_DUMP_SOLIDEAL_N.
MESSAGE I023(ZLOAD) WITH text-001.
ELSE.
MESSAGE I022(ZLOAD) WITH W_FILE. "Errors while downloading.
ENDIF.
END-OF-SELECTION.
SUBMIT ZI005_MARA_DUMP_SOLIDEAL_N.

Alv output in html and in excel format

hi all,
how can i get the alv output in excel sheet and also in html.
not dowloading but directly when i execute the report i need to get output in excel and in html format.
regards,
geetha

hii
Use the Local file button on the toolbar of ALV.By clicking on this you will be able to export data in to excel sheet.
also refer to following link
Download ALV into excel file
If your requirement is to download data programetically then you can use
GUI_DOWNLOAD Function Module..
regards
twinkal
Edited by: twinkal patel on Jul 24, 2008 9:23 AM

How to get this output format in ALV report

Hi.
Can any one pls let me know how to get the following output format in ALV report.Following are the outputfields
companycode   location     position     approver
300    800       01    watson
null   null        03     candy
null   null        04     smith
null   null        05     michael
one empty line after this again
300     800     01     ryant
null      null    02     gyan
null      null    03     fermi
null      null    04     ogata
*Note: Null     indicates empty space .( i.e I need to get empty space in output where ever null is there.)
        Thanks in advance.
Kind Regards,
samiulla.

hi,
u can use 'REUSE_ALV_LIST_DISPLAY'
                       or
'REUSE_ALV_GRID_DISPLAY' function modules.
SAMPLE CODE :
*& Report Y101982CHD
*                         TABLES
TABLES: vbak.    " standard table
*                           Type Pools                                 *
TYPE-POOLS: slis.
*                     Global Structure Definitions                     *
*-- Structure to hold data from table CE1MCK2
TYPES: BEGIN OF tp_itab1,
       vbeln LIKE vbap-vbeln,
       posnr LIKE vbap-posnr,
       werks LIKE vbap-werks,
       lgort LIKE vbap-lgort,
       END OF tp_itab1.
*-- Data Declaration
DATA: t_itab1 TYPE TABLE OF tp_itab1.
DATA : i_fieldcat TYPE slis_t_fieldcat_alv.
*                    Selection Screen                                 *
*--Sales document-block
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln.
SELECTION-SCREEN END OF BLOCK b1.
*--Display option - block
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.
PARAMETERS: alv_list RADIOBUTTON GROUP g1,
            alv_grid RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b2.
*file download - block
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03.
PARAMETERS: topc AS CHECKBOX,
            p_file TYPE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK b3.
*                      Initialization.                                *
*                      At Selection Screen                            *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
    EXPORTING
      dynpfield_filename = 'P_FILE'
      dyname             = sy-cprog
      dynumb             = sy-dynnr
      filetype           = 'P'      "P-->Physical
      location           = 'P'     "P Presentation Srever
      server             = space.
AT SELECTION-SCREEN ON s_vbeln.
PERFORM vbeln_validate.
*                           Start Of Selection                         *
START-OF-SELECTION.
*-- Fetching all the required data into the internal table
PERFORM select_data.
*                           End Of Selection                           *
END-OF-SELECTION.
IF t_itab1[] IS NOT INITIAL.
    IF topc IS NOT INITIAL.
      PERFORM download.
      MESSAGE 'Data Download Completed' TYPE 'S'.
    ENDIF.
    PERFORM display.
ELSE.
    MESSAGE 'No Records Found' TYPE 'I'.
ENDIF.
*                           Top Of Page Event                          *
TOP-OF-PAGE.
*& Form           :      select_data
* Description     : Fetching all the data into the internal tables
* parameters    : none
FORM select_data .
SELECT vbeln
     posnr
     werks
     lgort
     INTO CORRESPONDING FIELDS OF TABLE t_itab1
     FROM vbap
     WHERE vbeln IN s_vbeln.
IF sy-subrc <> 0.
    MESSAGE 'Enter The Valid Sales Document Number'(t04) TYPE 'I'.
    EXIT.
ENDIF.
ENDFORM.                    " select_data
*& Form        : display
* decription : to display data in given format
* parameters   : none
FORM display .
IF alv_list = 'X'.
    PERFORM build_fieldcat TABLES i_fieldcat[]
                           USING :
*-Output-field Table      Len Ref fld Ref tab Heading    Col_pos
   'VBELN'       'T_ITAB1'     10   'VBAP' 'VBELN'    ''            1,
   'POSNR'       'T_ITAB1'     6    'VBAP' 'POSNR'    ''            2,
   'WERKS'       'T_ITAB1'     4    'VBAP' 'WERKS'    ''            3,
   'LGORT'       'T_ITAB1'     4    'VBAP' 'LGORT'    ''            4.
    *CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'*
      *EXPORTING*
        *i_callback_program       = sy-repid*
**        i_callback_pf_status_set = c_pf_status*
        *i_callback_user_command = 'USER_COMMAND '*
**        it_events                = t_alv_events[]*
        *it_fieldcat              = i_fieldcat[]*
      *TABLES*
        *t_outtab                 = t_itab1[]*
      *EXCEPTIONS*
        *program_error            = 1*
        *OTHERS                   = 2.*
    *IF sy-subrc <> 0.*
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*
**         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.*
    *ENDIF.*
ENDIF.
IF alv_grid = 'X'.
    PERFORM build_fieldcat TABLES i_fieldcat[]
                             USING :
*-Output-field Table      Len Ref fld Ref tab Heading    Col_pos
     'VBELN'       'T_ITAB1'     10   'VBAP' 'VBELN'    ''            1,
     'POSNR'       'T_ITAB1'     6    'VBAP' 'POSNR'    ''            2,
     'WERKS'       'T_ITAB1'     4    'VBAP' 'WERKS'    ''            3,
     'LGORT'       'T_ITAB1'     4    'VBAP' 'LGORT'    ''            4.
    *CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'*
      *EXPORTING*
        *i_callback_program       = sy-repid*
**        i_callback_pf_status_set = c_pf_status*
        *i_callback_user_command = 'USER_COMMAND '*
        *it_fieldcat              = i_fieldcat*
      *TABLES*
        *t_outtab                 = t_itab1[]*
    *EXCEPTIONS*
   *program_error                     = 1*
   *OTHERS                            = 2.*
    *IF sy-subrc <> 0.*
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*
**         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.*
    *ENDIF.*
*ENDIF.*
ENDFORM.                    " display
*& Form        : vbeln_validate
* description : to validate sales document number
* parameters   : none
FORM vbeln_validate .
DATA: l_vbeln TYPE vbak-vbeln.
SELECT SINGLE vbeln
    FROM vbak
    INTO l_vbeln
    WHERE vbeln IN s_vbeln.
IF sy-subrc NE 0.
    MESSAGE 'ENTER THE VALID SALES DOCUMENT NO:' TYPE 'I'.
    EXIT.
ENDIF.
ENDFORM.                    " vbeln_validate
*& Form       :build_fieldcat
* Description : This routine fills field-catalogue
* Prameters : none
FORM build_fieldcat TABLES fpt_fieldcat TYPE slis_t_fieldcat_alv
                    USING   fp_field     TYPE slis_fieldname
                            fp_table     TYPE slis_tabname
                            fp_length    TYPE dd03p-outputlen
                            fp_ref_tab   TYPE dd03p-tabname
                            fp_ref_fld   TYPE dd03p-fieldname
                            fp_seltext   TYPE dd03p-scrtext_l
                            fp_col_pos   TYPE sy-cucol.
*-- Local data declaration
DATA:   wl_fieldcat TYPE slis_fieldcat_alv.
*-- Clear WorkArea
wl_fieldcat-fieldname       = fp_field.
wl_fieldcat-tabname         = fp_table.
wl_fieldcat-outputlen       = fp_length.
wl_fieldcat-ref_tabname     = fp_ref_tab.
wl_fieldcat-ref_fieldname   = fp_ref_fld.
wl_fieldcat-seltext_l       = fp_seltext.
wl_fieldcat-col_pos         = fp_col_pos.
*-- Update Field Catalog Table
APPEND wl_fieldcat TO fpt_fieldcat.
ENDFORM.                    "build_fieldcat
*& Form        : download
* description : To Download The Data
* Parameters : none
FORM download .
DATA: l_file TYPE string.
l_file = p_file.
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename                = l_file
      filetype                = 'ASC'
    TABLES
      data_tab                = t_itab1
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " download
HOPE IT WILL HELP YOU
REGARDS
RAHUL SHARMA

Procedure/sample code to download alv output in HTM format & mail to user.

Hello Experts,
I've a requirement to run the Alv report at background. But i need to download the alv output in HTM fomat because it has subtotal values & look wise downloaded HTM format will be same as that of ALV output. Then send the attachment through mail to users. I'm not intersted in downloading internal table dierctly to HTM format.
Will the code for alv display & downloading in HTM format & forwarding via email is all done in one single program or in 2 differnt programs . pls guide me on this.
I'm using FM REUSE_ALV_GRID_DISPLAY to display output with subtotals.
Pls anyone there suggest me the steps to download ALV output in HTM format & the forward the same to user ID through Lotus notes.
Regards
Devika.S

Hi,
This can be achieved without coding .
Fore ground Scenario:
1. Downloading as HTM . In foreground you can do this by using Export---> Local file
option in ALV grid.
Background Scenario:
2. In background while sending mail , You have to achieve the same through customisation settings as wexplained below.
In SM36 -- > Spool List Recipient, give the reciepient id and click on copy. Now when the Background job will be finished,
the reciepient mentioned above will recieve the mail , but in ALI format.
To convert the same to HTM format, you need to do customisation changes in SCOT
goto SCOT>Expant the node INT>Double click on Email-->Beside Internet we have SET tab , click on that -->
select the radio button " all formats except the following ">In the near by box type ALI>then click on the tick Mark.
Then go to SCOT>Settings>Conversion Rules-->there
create a new row with, Format->ALI , To Format->HTM , Ranking 1, FM -> SX_OBJECT_CONVERT_ALI_HTM.
Now when the mail will be sent, it will not go in ALI, but in HTM format.
Hope this helps you out.

Change output format of MC45,key usage value report to ALV format?

Can someone please help me to change the change the Output of MC45 report to ALV format?
Please help!!!
Thanks!!!
Owais

I know i have to create a copy of MC45 to some z program but afterwards I am not sure where to look for to change the output format.
Our ababper is extremely busy so i wanted to do litle bit of chnages by myself. I do have couple of years of java experience several years back, I thought i could help our abaper and learn myself little bit also.
Thanks!!!
Owais

Date format needs to be in selection screen mm/dd/yyyy but in alv output ..

hi
i need help on displaying date in alv output
date format needs to be in selection screen mm/dd/yyyy but in alv output ..it should be displayed as yyyymmdd
regards
Nishant

hi,
you are passing the value to ALv using an internal table.
so store the format YYYYMMDD date in the internal table and pass it to ALV.
use the below FM
DD/MM/YYYY -> YYYYMMDD
<b>CONVERSION_EXIT_PDATE_INPUT</b>
rgds
Anver

Creating Format type for printing ALV output.

Dear Friends,
I am using a format type for printing ALV output print which displays 65 rows and 255 columns on DINA4 page. I want to create a format type which will print 65 rows and 310 columns on 'LEGAL' page format .
So plz suggest the ways along with help links if any.
Regards,
Madan.

Hi Mandan,
As long as I know the maximum column for printing is 255.
Might be you can split your output into 2 rows...
Regards,

How to save the ALV Output in diffrent formats

Hi Experts,
I have a requirement wherein i need to save Hierarchical ALV output in different formats such as(as per user)in
     Unconverted
     Spreadsheet
     Rich text format
     HTML format
     Copy to clipboard
This has to be acheived by clicking a button in application toolbar.
Can you share the CODE in detail
Thanks & Regards,
Ullas.

hi Ullas
http://abap4.tripod.com/Save_Report_Output_to_a_PDF_File.html
award points if u think it was useful

How to convert ALV output into XML format.

Hi all,
I just want to know how to convert an ALV output into a XML format, this is really urgent.
regards,
Ruchika saini

This program exports an internal table to an XML file. *----
Report ZPRUEBA_MML_13 *
Export an internal table to XML document *
NO BORRAR ESTE CODIGO *
REPORT ZPRUEBA_MML_13.
PANTALLA SELECCION *
     PARAMETERS: GK_RUTA TYPE RLGRAP-FILENAME.
PANTALLA SELECCION *
TYPE TURNOS *
TYPES: BEGIN OF TURNOS,
     LU LIKE T552A-TPR01,
     MA LIKE T552A-TPR01,
     MI LIKE T552A-TPR01,
     JU LIKE T552A-TPR01,
     VI LIKE T552A-TPR01,
     SA LIKE T552A-TPR01,
     DO LIKE T552A-TPR01,
END OF TURNOS.
TYPE TURNOS *
TYPE SOCIO *
TYPES: BEGIN OF SOCIO,
     NUMERO LIKE PERNR-PERNR,
     REPOSICION LIKE PA0050-ZAUVE,
     NOMBRE LIKE PA0002-VORNA,
     TURNOS TYPE TURNOS,
END OF SOCIO.
TYPE SOCIO *
ESTRUCTURA ACCESOS *
DATA: BEGIN OF ACCESOS OCCURS 0,
     SOCIO TYPE SOCIO,
END OF ACCESOS.
ESTRUCTURA ACCESOS *
START OF SELECTION *
START-OF-SELECTION.
     PERFORM LLENA_ACCESOS.
     PERFORM DESCARGA_XML.
END-OF-SELECTION.
END OF SELECTION *
FORM LLENA_ACCESOS *
FORM LLENA_ACCESOS.
REFRESH ACCESOS.
CLEAR ACCESOS.
MOVE: '45050' TO ACCESOS-SOCIO-NUMERO,
               'MOISES MORENO' TO ACCESOS-SOCIO-NOMBRE,
               '0' TO ACCESOS-SOCIO-REPOSICION,
               'T1' TO ACCESOS-SOCIO-TURNOS-LU,
               'T2' TO ACCESOS-SOCIO-TURNOS-MA,
               'T3' TO ACCESOS-SOCIO-TURNOS-MI,
               'T4' TO ACCESOS-SOCIO-TURNOS-JU,
               'T5' TO ACCESOS-SOCIO-TURNOS-VI,
               'T6' TO ACCESOS-SOCIO-TURNOS-SA,
               'T7' TO ACCESOS-SOCIO-TURNOS-DO.
APPEND ACCESOS.
CLEAR ACCESOS.
MOVE: '45051' TO ACCESOS-SOCIO-NUMERO,
               'RUTH PEÑA' TO ACCESOS-SOCIO-NOMBRE,
               '0' TO ACCESOS-SOCIO-REPOSICION,
               'T1' TO ACCESOS-SOCIO-TURNOS-LU,
               'T2' TO ACCESOS-SOCIO-TURNOS-MA,
               'T3' TO ACCESOS-SOCIO-TURNOS-MI,
               'T4' TO ACCESOS-SOCIO-TURNOS-JU,
               'T5' TO ACCESOS-SOCIO-TURNOS-VI,
               'T6' TO ACCESOS-SOCIO-TURNOS-SA,
               'T7' TO ACCESOS-SOCIO-TURNOS-DO.
APPEND ACCESOS.
ENDFORM.
FORM LLENA_ACCESOS *
FORM DESCARGA_XML *
FORM DESCARGA_XML.
DATA: L_DOM TYPE REF TO IF_IXML_ELEMENT,
               M_DOCUMENT TYPE REF TO IF_IXML_DOCUMENT,
               G_IXML TYPE REF TO IF_IXML,
               W_STRING TYPE XSTRING,
               W_SIZE TYPE I,
               W_RESULT TYPE I,
               W_LINE TYPE STRING,
               IT_XML TYPE DCXMLLINES,
               S_XML LIKE LINE OF IT_XML,
               W_RC LIKE SY-SUBRC.
DATA: XML TYPE DCXMLLINES.
DATA: RC TYPE SY-SUBRC,
BEGIN OF XML_TAB OCCURS 0,
               D LIKE LINE OF XML,
END OF XML_TAB.
CLASS CL_IXML DEFINITION LOAD.
G_IXML = CL_IXML=>CREATE( ).
CHECK NOT G_IXML IS INITIAL.
M_DOCUMENT = G_IXML->CREATE_DOCUMENT( ).
CHECK NOT M_DOCUMENT IS INITIAL.
WRITE: / 'Converting DATA TO DOM 1:'.
CALL FUNCTION 'SDIXML_DATA_TO_DOM'
EXPORTING
               NAME = 'ACCESOS'
               DATAOBJECT = ACCESOS[]
IMPORTING
               DATA_AS_DOM = L_DOM
CHANGING
               DOCUMENT = M_DOCUMENT
EXCEPTIONS
               ILLEGAL_NAME = 1
               OTHERS = 2.
IF SY-SUBRC = 0.
               WRITE 'Ok'.
ELSE.
               WRITE: 'Err =',
               SY-SUBRC.
ENDIF.
CHECK NOT L_DOM IS INITIAL.
W_RC = M_DOCUMENT->APPEND_CHILD( NEW_CHILD = L_DOM ).
IF W_RC IS INITIAL.
               WRITE 'Ok'.
ELSE.
               WRITE: 'Err =',
               W_RC.
ENDIF.
CALL FUNCTION 'SDIXML_DOM_TO_XML'
EXPORTING
               DOCUMENT = M_DOCUMENT
IMPORTING
               XML_AS_STRING = W_STRING
               SIZE = W_SIZE
TABLES
               XML_AS_TABLE = IT_XML
EXCEPTIONS
               NO_DOCUMENT = 1
               OTHERS = 2.
IF SY-SUBRC = 0.
               WRITE 'Ok'.
ELSE.
               WRITE: 'Err =',
               SY-SUBRC.
ENDIF.
LOOP AT IT_XML INTO XML_TAB-D.
               APPEND XML_TAB.
ENDLOOP.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
               BIN_FILESIZE = W_SIZE
               FILENAME = GK_RUTA
               FILETYPE = 'BIN'
TABLES
               DATA_TAB = XML_TAB
EXCEPTIONS
               OTHERS = 10.
IF SY-SUBRC <> 0.
               MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
Message was edited by:
        Hymavathi Oruganti

Download ALV output to excel with formatting

Hi All,
i want to download ALV output to excel sheet and the uneditable fields in ALV oputput should be locked (uneditable) in excel also.
Can you please tell me approach to achieve this functionality?
Thanks in advance.

Thanks Vamsi. Your Suggestion was helpful.
I have used excel integration and used SET PROPERTY OF (COLUMN) 'LOCKED' = 1.
For more details refer below mentioned link.
http://webcache.googleusercontent.com/search?q=cache:SoY6hFC17PoJ:wiki.sdn.sap.com/wiki/display/Snippets/Download%2BData%2Binto%2BMultiple%2BSheet%2BExcel%2BDocument%2Bwith%2BNon%2BEditable%2BColumns%2B(Password%2Bprotected)%2BUsing%2BABAP%2BOLESetPropertynoteditableexcelsapABAP&cd=1&hl=en&ct=clnk&gl=in&source=www.google.co.in (http://webcache.googleusercontent.com/search?q=cache:SoY6hFC17PoJ:wiki.sdn.sap.com/wiki/display/Snippets/Download%2BData%2Binto%2BMultiple%2BSheet%2BExcel%2BDocument%2Bwith%2BNon%2BEditable%2BColumns%2B%28Password%2Bprotected%29%2BUsing%2BABAP%2BOLESetPropertynoteditableexcelsapABAP&cd=1&hl=en&ct=clnk&gl=in&source=www.google.co.in

ALV output FORMAT

Similar Messages

Maybe you are looking for