How to use traffic lights concept in alv in webdynpro abap

Hai ,
How to use traffic lights concept for alv in webdynpro abap. If possible give me some code.

Hi Ravi,
You can create ICON to get traffic light.
Go through this step by step.. in this example
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/1190424a-0801-0010-84b5-ef03fd2d33d9?quicklink=index&overridelayout=true
Please go through this...
Re: Display ICON in the ALV table column
Re: Image in ALV
cheers,
Kris.

Similar Messages

How to use selection buttons in an ALV created without abap objects?

Hi, I use an alv created without ABAP Objects to show some information. Can I introduce inside the alv, the top buttons to select all rows / none row? And the second question, how may I introduce lateral buttons in the ALV to select indidividual rows?
Thanks!

HI
i think you use REUSE_ALV_LIST_DISPLAY or REUSE_ALV_GRID_DISPLAY FMs.
Try to calling the function in this way
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
*      I_INTERFACE_CHECK              = ' '
*      I_BYPASSING_BUFFER             =
*      I_BUFFER_ACTIVE                = ' '
       i_callback_program             = 'YOURREPORT'
       i_callback_pf_status_set       = 'SET_PF_STATUS'
       i_callback_user_command        = 'USER_COMAND'
*      I_STRUCTURE_NAME               =
       is_layout                      = ls_layout
       it_fieldcat                    = fieldcat
*      IT_EXCLUDING                   =
*      IT_SPECIAL_GROUPS              =
*      IT_SORT                        =
*      IT_FILTER                      =
*      IS_SEL_HIDE                    =
*      I_DEFAULT                      = 'X'
       i_save                         = 'A'
      is_variant                     = gt_variant
      it_events                      = event_tab
*      IT_EVENT_EXIT                  =
*      IS_PRINT                       =
*      IS_REPREP_ID                   =
*      I_SCREEN_START_COLUMN          = 0
*      I_SCREEN_START_LINE            = 0
*      I_SCREEN_END_COLUMN            = 0
*      I_SCREEN_END_LINE              = 0
*    IMPORTING
*      E_EXIT_CAUSED_BY_CALLER        =
*      ES_EXIT_CAUSED_BY_USER         =
       TABLES
         t_outtab                     = tb_output
      EXCEPTIONS
        program_error                  = 1
        OTHERS                         = 2.
ENDFORM.                    " LISTA
where
'SET_PF_STATUS'
'USER_COMAND'
are two form like this.
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZSTANDARD'. " EXCLUDING rt_extab.
ENDFORM.                               " SET_PF_STATUS
FORM user_comand USING r_ucomm     LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
CASE r_ucomm.
    WHEN '&CPR'.
    WHEN 'YOUR CODE FUNCTION'
endcase.
I hope it can help you.
Bye
enzo

How to print traffic lights in ALV reports

hi how to print traffic lights on selection screen in alv reports

HI,
check below code
TYPE-POOLS : icon.
types: BEGIN OF ty_display,
        status     TYPE icon-id,
        bukrs      TYPE bseg-bukrs,
        gjahr      TYPE bseg-gjahr,
        monat      TYPE monat,
        work_order TYPE z_work_order,
        glaccount TYPE saknr,
        message    TYPE string,
      END OF ty_display.
data : it_display     TYPE TABLE OF ty_display,
         wa_display TYPE ty_display.
WRITE icon_led_green AS ICON TO wa_display-status.
        wa_display-gjahr = p_year.
        wa_display-bukrs = p_cc.
        wa_display-monat = p_period.
        wa_display-work_order = v_aufnr.
        wa_display-glaccount = wa_bseg-hkont.
    APPEND wa_display TO it_display.
WRITE icon_led_red AS ICON TO wa_display-status.
          wa_display-gjahr      = p_year.
          wa_display-bukrs      = p_cc.
          wa_display-monat      = p_period.
          wa_display-work_order = v_aufnr.
          wa_display-glaccount = wa_bseg-hkont.
          wa_display-message    = text-010.
          APPEND wa_display TO it_display.
change the icon color based on your requirement and append it to the internal table which you have to display in ALV.
reward points if it is helpful.
Regards,
Srilatha

How to use pf-status u2018menuu2019 in ALV report ?

Hi Friends,
How to use pf-status u2018menuu2019 in ALV report ?
I want to use back button ( F3). whenever press it should show
another report.
I used subroutine
form SUB_ERROR_OUTPUT USING RT_EXTAB TYPE SLIS_T_EXTAB .
SET PF-STATUS 'ZMENU' EXCLUDING RT_EXTAB. u201C( the button name is u201C back u201C)
CASE SY-UCOMM.
*WHEN '&F03'.
WHEN 'BACK'
( my coding is there ).
endcase.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PF_STATUS_SET          = 'SUB_ERROR_OUTPUT'
but it is executing, working the back button but not showing another report .
any other procedure to use back button in alv report ?
plz any idea .
For correct answer reword most.
Thanking you.

Purchase day Book .
Data to be down loaded / printed for EDP dept. CGL.
CGL - Requirement .
WRITTEN BY : ADI.****
*CONSULTANT : SANJAY JAJOO..
AS PER DP REQUIREMENT.
-CHANGED BY    :    KRISHNA MOHAN (15/01/2002)--
-CHANGE REQ BY :    JAJU S--
-DESCRIPTION   :    SUMMRY BY TAX CODE WISE & GL CODE WISE--
---MODIFIED LINES: -
---CHANGED BY    :    -
---CHANGE REQ BY :    -
---DESCRIPTION   :    -
---MODIFIED LINES: -
*---changed by    :    sanjay jajoo on 23/08
*---changed req by:    Ranka
*---Description   :    Inserting Range of period as sel field
changed by    :    krishna mohan
func. consultant: sanjay jajoo
REPORT ZMMPURDB MESSAGE-ID 00
                LINE-SIZE 255
                LINE-COUNT 60
                NO STANDARD PAGE HEADING .
TABLES :   MKPF   , MSEG ,SKAT,
           EKKO   , EKPO , EKBE ,
           BSEG   , BKPF , BSET ,
           T009B , T001 , T007S ,
           T001W , T001K ,LFA1.
******Table deactivated on 30/8/2000------jaju
*tables : zcgltaxatn .
DATA : ZFILE1(65) VALUE '/DOWNLOAD/'.
DATA : ZFILE2(65) .
DATA : ZFILE(30) TYPE C VALUE '/DOWNLOAD/'.
DATA   : ZMON(2).
DATA : ZTOTAL(11) TYPE N.
DATA: ZTOT1 TYPE P DECIMALS 2.
DATA: ZTXT LIKE SKAT-TXT50.
TYPES: BEGIN OF COMPANY ,
HKONT LIKE BSEG-HKONT,
TOTAL LIKE BSEG-DMBTR,
END OF COMPANY.
DATA: COMP TYPE COMPANY,
      COMPTAB TYPE HASHED TABLE OF COMPANY WITH UNIQUE KEY HKONT
      WITH HEADER LINE.
DATA : NEXT LIKE BSEG-BUZEI.           "A.A. (28/03/2000)
DATA : DOC LIKE BSEG-BELNR.            "A.A. (28/03/2000)
DATA S_GSBER.
DATA: CTR TYPE I.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-B01.
PARAMETERS : T_BUKRS LIKE T001-BUKRS OBLIGATORY MEMORY ID BUK .
***********CH--ID- ADI- 29 / 09 / 1999
SELECT-OPTIONS : ZGL FOR BSEG-HKONT OBLIGATORY.
***********CH--ID- ADI- 29 / 09 / 1999
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(9) TEXT-C01 .
PARAMETERS : POPER RADIOBUTTON GROUP RAD1 .
SELECTION-SCREEN COMMENT 13(7) TEXT-C02 .
PARAMETERS : MONTH RADIOBUTTON GROUP RAD1 .
SELECTION-SCREEN COMMENT 23(8) TEXT-C03 .
SELECTION-SCREEN POSITION 33 .
commented on 22/08 sanjay jajoo
*PARAMETERS : T_MONAT LIKE BKPF-MONAT .
SELECTION-SCREEN END OF LINE.
PARAMETERS : T_GJAHR LIKE BKPF-GJAHR OBLIGATORY .
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS : S_DOCTYP FOR BKPF-BLART,
                 S_VENDOR FOR LFA1-LIFNR MATCHCODE OBJECT KRED,
                 S_MATNR FOR BSEG-MATNR NO-DISPLAY,
                T_BUDAT FOR MKPF-BUDAT NO-EXTENSION MODIF ID DAT,
                p_gsber FOR bseg-gsber OBLIGATORY,
                 P_GSBER FOR BSEG-GSBER,
mod starts for inserting range of period - sanjay jajoo
                 T_MONAT FOR BKPF-MONAT OBLIGATORY.
mod ends
*SELECT-OPTIONS: br_blart FOR mkpf-blart.
*Select-options: br_blart for bkpf-blart.
SELECTION-SCREEN END OF BLOCK B1 .
Start of Delete by B.Elan on 23/12/2005
*PARAMETERS : errors AS CHECKBOX .
*PARAMETERS : summary AS CHECKBOX .
*PARAMETERS : nodetail AS CHECKBOX .
**selection-screen skip 2.
*SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-b03.   "<<<
*Add
*PARAMETER : stax_reg RADIOBUTTON GROUP rad2 .                   "<<<
*Add
*PARAMETER : pur_db RADIOBUTTON GROUP rad2 .                     "<<<
*Add
*SELECTION-SCREEN END OF BLOCK b3 .     "<<< Add
*SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-b02.
*PARAMETERS : display RADIOBUTTON GROUP grp1 ,
            dload RADIOBUTTON GROUP grp1.
*PARAMETERS : fname1 LIKE rlgrap-filename .
*DATA : zdoc LIKE bseg-belnr.
*DATA : fname LIKE rlgrap-filename.
*SELECTION-SCREEN END OF BLOCK b2 .
End of Delete by B.Elan on 23/12/2005
Start of Insert by B.Elan on 23/12/2005
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(5) TEXT-C01.
PARAMETER : PUR_DB RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 10(25) TEXT-C06.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(5) TEXT-C01.
PARAMETERS : MAT_SM RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 10(25) TEXT-C04.
SELECTION-SCREEN COMMENT 35(5) TEXT-C01.
PARAMETERS : VEN_SM RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 44(20) TEXT-C05.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(5) TEXT-C01.
PARAMETERS : MAT_DT RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 10(25) TEXT-C07.
SELECTION-SCREEN COMMENT 35(5) TEXT-C01.
PARAMETERS : VEN_DT RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 44(20) TEXT-C08.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
End of Insert by B.Elan on 23/12/2005
Hard coded values used in the program
added by krishna mohan on 09/02/02
DATA : BEGIN OF IT_MSEG OCCURS 0,
        BELNR LIKE BSEG-BELNR,
        MBLNR LIKE MSEG-MBLNR,
        EBELN LIKE BSEG-EBELN,
        EBELP LIKE BSEG-EBELP,
      END OF IT_MSEG.
mod ends
Start of Insert by B.Elan on 23/12/2005
*--vikky
DATA : BEGIN OF IT_FINAL OCCURS 0,
         MATNR LIKE MARA-MATNR,
         BLART LIKE BKPF-BLART,         " doctype
         BELNR LIKE BSEG-BELNR,         "sr - nO 10
         XBLNR LIKE BKPF-XBLNR ,        " Bill-no 16
         NAME1_VENDOR(25),
         "lfa1-name1,   " Vendor Name 35
         HKONT LIKE BSEG-HKONT ,        " Alloc-cd 10
         MWSKZ LIKE EKPO-MWSKZ ,        " St-cd     2
         BUDAT LIKE BKPF-BUDAT ,        " Bill-dt 10
         DUE_DATE LIKE BSEG-ZFBDT ,     " Due date 10
         PON    LIKE EKKO-EBELN ,                           " PON 10
         MAKTX LIKE MAKT-MAKTX,         "Material text 40
         MBLNR LIKE MSEG-MBLNR,
         QTY(8) TYPE P DECIMALS 2 ,                        "Qty 11
         RATE(9) TYPE P DECIMALS 2 ,                       "Rate11
         DISCOUNT(7) TYPE P DECIMALS 2, "DISCOUNT 11
         PROD-AMT(9) TYPE P DECIMALS 2,
                                                            "AMOUNT 13
         EXCISE(8) TYPE P DECIMALS 2 ,   "eXCISE TAX 11
         SALES(5) TYPE P DECIMALS 2 ,    "SALES TAX   11
         FREIGHT(9) TYPE P DECIMALS 2,   "FREIGHT     11
         OTHERS(11) TYPE P DECIMALS 2,    " OTHERS     11
         TOTAL(9) TYPE P DECIMALS 2,     "TOTAL       17
       END OF IT_FINAL.
*DATA : BEGIN OF IT_FINAL OCCURS 0,
        MATNR LIKE MARA-MATNR,
        BLART LIKE BKPF-BLART,         " doctype
        BELNR LIKE BSEG-BELNR,         "sr - nO 10
        XBLNR LIKE BKPF-XBLNR ,        " Bill-no 16
        NAME1_VENDOR(25),
        "lfa1-name1,   " Vendor Name 35
        HKONT LIKE BSEG-HKONT ,        " Alloc-cd 10
        MWSKZ LIKE EKPO-MWSKZ ,        " St-cd     2
        BUDAT LIKE BKPF-BUDAT ,        " Bill-dt 10
        DUE_DATE LIKE BSEG-ZFBDT ,     " Due date 10
        PON    LIKE EKKO-EBELN ,                           " PON 10
        MAKTX LIKE MAKT-MAKTX,         "Material text 40
        MBLNR LIKE MSEG-MBLNR,
        QTY(13) TYPE P DECIMALS 2 ,                       "Qty 11
        RATE(13) TYPE P DECIMALS 2 ,                      "Rate 11
        DISCOUNT(13) TYPE P DECIMALS 2, "DISCOUNT 11
        PROD-AMT(13) TYPE P DECIMALS 2,
                                                           "AMOUNT 13
        EXCISE(13) TYPE P DECIMALS 2 ,   "eXCISE TAX 11
        SALES(13) TYPE P DECIMALS 2 ,    "SALES TAX   11
        FREIGHT(13) TYPE P DECIMALS 2,   "FREIGHT     11
        OTHERS(13) TYPE P DECIMALS 2,    " OTHERS     11
        TOTAL(13) TYPE P DECIMALS 2,     "TOTAL       17
      END OF IT_FINAL.
*--vikky
DATA : BEGIN OF IT_FINAL_VN OCCURS 0,
           NAME1_VENDOR(25),
           "lfa1-name1,   " Vendor Name 35
           MATNR LIKE MARA-MATNR,
           BLART LIKE BKPF-BLART,         " doctype
           BELNR LIKE BSEG-BELNR,         "sr - nO 10
           XBLNR LIKE BKPF-XBLNR ,        " Bill-no 16
           HKONT LIKE BSEG-HKONT ,        " Alloc-cd 10
           MWSKZ LIKE EKPO-MWSKZ ,        " St-cd     2
           BUDAT LIKE BKPF-BUDAT ,        " Bill-dt 10
           DUE_DATE LIKE BSEG-ZFBDT ,     " Due date 10
           PON    LIKE EKKO-EBELN ,                         " PON 10
           MAKTX LIKE MAKT-MAKTX,         "Material text 40
           MBLNR LIKE MSEG-MBLNR,
           QTY(8) TYPE P DECIMALS 2 ,                      "Qty 11
           RATE(9) TYPE P DECIMALS 2 ,                     "Rate 11
           DISCOUNT(7) TYPE P DECIMALS 2, "DISCOUNT 11
           PROD-AMT(9) TYPE P DECIMALS 2,
                                                            "AMOUNT 13
           EXCISE(5) TYPE P DECIMALS 2 ,   "eXCISE TAX 11
           SALES(5) TYPE P DECIMALS 2 ,    "SALES TAX   11
           FREIGHT(5) TYPE P DECIMALS 2,   "FREIGHT     11
           OTHERS(9) TYPE P DECIMALS 2,    " OTHERS     11
           TOTAL(9) TYPE P DECIMALS 2,     "TOTAL       17
       END OF IT_FINAL_VN.
End of Insert by B.Elan on 23/12/2005
DATA: BEGIN OF ITAB_DISPLAY OCCURS 0,
        BLART LIKE BKPF-BLART,         " doctype
        BELNR LIKE BSEG-BELNR,         "sr - nO 10
        XBLNR LIKE BKPF-XBLNR ,        " Bill-no 16
        NAME1_VENDOR(25),              "lfa1-name1,   " Vendor Name 35
        HKONT LIKE BSEG-HKONT ,        " Alloc-cd 10
        MWSKZ LIKE EKPO-MWSKZ ,        " St-cd     2
        BUDAT LIKE BKPF-BUDAT ,        " Bill-dt 10
        DUE_DATE LIKE BSEG-ZFBDT ,     " Due date 10
        PON    LIKE EKKO-EBELN ,                            " PON 10
        MAKTX LIKE MAKT-MAKTX,         "Material text 40
       QTY(8) TYPE P DECIMALS 2 ,                          "Qty 11
                                                            "qty 5
     RATE(5) TYPE P DECIMALS 2 ,                         "Rate 11
     mod starts on 21/08 for inc size to 7
       RATE(9) TYPE P DECIMALS 2 ,                         "Rate 11
                                                            "Rate 7
     mod ends - sanjay jajoo 21/08
       DISCOUNT(7) TYPE P DECIMALS 2, "DISCOUNT 11
       PROD-AMT(9) TYPE P DECIMALS 2,                       "AMOUNT 13
       EXCISE(5) TYPE P DECIMALS 2 ,   "eXCISE TAX 11
       SALES(5) TYPE P DECIMALS 2 ,    "SALES TAX   11
       FREIGHT(5) TYPE P DECIMALS 2,   "FREIGHT     11
       OTHERS(9) TYPE P DECIMALS 2,    " OTHERS     11 " added by vik on
*21.08.2008
       TOTAL(9) TYPE P DECIMALS 2,     "TOTAL       17
       TOTAL1(9) TYPE P DECIMALS 2,
       MATNR LIKE MARA-MATNR,
       EBELN LIKE EKPO-EBELN,
       EBELP LIKE EKPO-EBELP,
    END OF ITAB_DISPLAY.
DATA: BEGIN OF ITAB_TOTAL1 OCCURS 0,
      HKONT LIKE BSEG-HKONT,
      TOTAL TYPE P DECIMALS 2,
      TXT50 LIKE SKAT-TXT50,
      END OF ITAB_TOTAL1.
DATA: BEGIN OF ITAB_KONV OCCURS 0,
        KNUMV LIKE KONV-KNUMV,
        KPOSN LIKE KONV-KPOSN,
        STUNR LIKE KONV-STUNR,
        ZAEHK LIKE KONV-ZAEHK,
        KSCHL LIKE KONV-KSCHL,
        KWERT LIKE KONV-KWERT,
      END OF ITAB_KONV.
DATA:BEGIN OF ITAB_RATE_MODVAT OCCURS 0,
       EBELN LIKE EKPO-EBELN,
       EBELP LIKE EKPO-EBELP,
       MENGE LIKE EKPO-MENGE,
       BRTWR LIKE EKPO-BRTWR,
       KZWI5 LIKE EKPO-KZWI5,
       KNUMV LIKE EKKO-KNUMV,
       MATNR LIKE EKPO-MATNR,
       TXZ01 LIKE EKPO-TXZ01,
     END OF ITAB_RATE_MODVAT.
DATA: BEGIN OF ITAB_PO OCCURS 0,
        EBELN LIKE EKPO-EBELN,
        EBELP LIKE EKPO-EBELP,
      END OF ITAB_PO.
DATA: BEGIN OF ITAB_PO_ITEM OCCURS 0,
        BELNR LIKE BSEG-BELNR,
        EBELN LIKE BSEG-EBELN,
        BUZID LIKE BSEG-BUZID,
        XBLNR LIKE BKPF-XBLNR,
        MATNR LIKE BSEG-MATNR,
        EBELP LIKE BSEG-EBELP,
        MENGE LIKE BSEG-MENGE,
        WRBTR LIKE BSEG-WRBTR,
        EXCISE LIKE BSEG-DMBTR, " ADDED ON 21/01/02 FOR 27500 EXCISE
      SGTXT LIKE BSEG-SGTXT, " ADDED ON 24/01/02
        FLAG,
      END OF ITAB_PO_ITEM.
DATA:BEGIN OF I_LFA1 OCCURS 0,
       LIFNR LIKE BSEG-LIFNR,
     END OF I_LFA1.
DATA: BEGIN OF I_VENDOR OCCURS 0,
        LIFNR LIKE LFA1-LIFNR,
        NAME1 LIKE LFA1-NAME1,
      END OF I_VENDOR.
DATA: BEGIN OF ITAB_PO_OTHERS OCCURS 0,
        BELNR LIKE BSEG-BELNR,
        MATNR LIKE BSEG-MATNR,
        EBELN LIKE BSEG-EBELN,
        EBELP LIKE BSEG-EBELP,
        MENGE LIKE BSEG-MENGE,
        WRBTR LIKE BSEG-WRBTR,
      END OF ITAB_PO_OTHERS.
DATA: BEGIN OF ITAB_FINAL OCCURS 0,
        BUKRS LIKE BSEG-BUKRS,
        BELNR LIKE BSEG-BELNR,
        GJAHR LIKE BSEG-GJAHR,
        BUZEI LIKE BSEG-BUZEI,
        BUZID LIKE BSEG-BUZID,
        SHKZG LIKE BSEG-SHKZG,
        EBELN LIKE BSEG-EBELN,
        EBELP LIKE BSEG-EBELP,
        MENGE LIKE BSEG-MENGE,
        WRBTR LIKE BSEG-WRBTR,
        MATNR LIKE BSEG-MATNR,
        HKONT LIKE BSEG-HKONT, " ADDED ON 21/01/02 FOR 27500 EXCISE
        SGTXT LIKE BSEG-SGTXT,         " ADDED ON 24/01/02 FOR SALES TAX
      END OF ITAB_FINAL.
DATA : BEGIN OF ITAB OCCURS 100 ,
           MWSKZ LIKE EKPO-MWSKZ ,     " St-cd
           HKONT LIKE BSEG-HKONT ,     " Alloc-cd
           MBLNR LIKE MKPF-MBLNR ,     " Sr-No
           LIFNR LIKE LFA1-LIFNR ,     " Supp-cd
           XBLNR LIKE BKPF-XBLNR ,     " Bill-no
           BUDAT LIKE BKPF-BUDAT ,     " Bill-dt
           DUE_DATE LIKE BSEG-ZFBDT , " Due date
           PON    LIKE EKKO-EBELN ,    " PON
           BELNR LIKE BKPF-BELNR ,     " CCI no
           DMBTR LIKE BSEG-DMBTR ,     " Prod-amount
           EXCISE LIKE BSEG-DMBTR ,    " Excise / ModVAT
           ST_INV LIKE BSEG-DMBTR ,    " Sales Tax Loaded on Inv.
           ST_SET LIKE BSEG-DMBTR ,    " Sales Tax setoff .
           OCT_TOT LIKE BSEG-DMBTR ,   " A,A, (29/03/2000) Octroi chargs
           PT_PABLE LIKE BSEG-DMBTR , " Purchase tax payable
           ST_TOT LIKE BSEG-DMBTR ,    " Sales Tax total
           OTHR_CHRG LIKE BSEG-DMBTR , " Other chagres
           NEBTR LIKE BSEG-NEBTR,      " Total-amount
           NAME1_VENDOR LIKE LFA1-NAME1,   " Vendor Name
     END OF ITAB.
DATA: BEGIN OF ITAB_DOC OCCURS 0,
        BELNR LIKE BKPF-BELNR,
        BLART LIKE BKPF-BLART,
      END OF ITAB_DOC.
DATA : BEGIN OF DOCTAB OCCURS 100 ,
         MWSKZ LIKE BSEG-MWSKZ ,
         HKONT LIKE BSEG-HKONT ,
         BELNR LIKE BKPF-BELNR ,
Changed By Pankaj              19.03.99
Included field fiscal year
         GJAHR LIKE BKPF-GJAHR ,
         BUDAT LIKE BKPF-BUDAT ,
         XBLNR LIKE BKPF-XBLNR ,
         LIFNR LIKE LFA1-LIFNR ,
         ZTERM LIKE BSEG-ZTERM ,
         AMOUNT LIKE BSEG-DMBTR ,
         DMBTR LIKE BSEG-DMBTR ,
         OTHR_CHRG LIKE BSEG-DMBTR ,
         MBLNR LIKE MKPF-MBLNR ,
         MJAHR LIKE MSEG-MJAHR ,
         DUE_DATE LIKE BSEG-ZFBDT ,
         PON    LIKE EKKO-EBELN ,
         JMO1 LIKE BSEG-DMBTR ,
         JMO2 LIKE BSEG-DMBTR ,
         JIP1 LIKE BSEG-DMBTR ,
         JIP2 LIKE BSEG-DMBTR ,
************CH-ID-ADI-START-28 / 09 / 1999
         JIP4 LIKE BSEG-DMBTR ,
         ZTUT LIKE BSEG-DMBTR ,
*****************ABEY
         ZOCT LIKE BSEG-DMBTR ,
*****************END
************CH-ID-ADI-START-28 / 09 / 1999
         ZSET LIKE BSEG-DMBTR ,
         ZPTX LIKE BSEG-DMBTR ,
         BLART LIKE BKPF-BLART ,
      END OF DOCTAB .
Download for EDP    "EDP
DATA : BEGIN OF DOWNLOAD OCCURS 100 ,
       SIGN1(1) ,
       TOT_VAL(11) TYPE N,
       SIGN2(1) ,
       TAXABLE(11) TYPE N ,
       SIGN3(1) ,
       TOT_TAX(11) TYPE N ,
       SIGN4(1) ,
       SURCHARG(9) TYPE N ,
       SIGN5(1) ,
       ST_AMT(9) TYPE N ,
       SIGN6(1) ,
       OTH_CHRG(9) TYPE N ,
******************************ch-adi-start-28 / 09 / 1999
       SIGN7(1),
       TOT(9) TYPE N,
******************************ch-adi-end-28 / 09 / 1999
       TYPE(1) TYPE N ,
       STKY1(1) TYPE N ,
       STBR(2) ,
       STDV(2) ,
       STCC(1) ,
       STKY(1) ,
       STDC(2) TYPE N ,
       STTYP(1) ,
       STCODE(2) ,
       STRATE(2) TYPE N ,
       STRTT(2) TYPE N ,
       SERIAL_NO(6) TYPE N ,
       STACP(9) ,
       BLANK1(3) ,
       STYRMN(6) ,
       BLANK2(7) TYPE C .
DATA : END OF DOWNLOAD .
DATA : BEGIN OF GLTAB OCCURS 5 ,
           MWSKZ LIKE BSEG-MWSKZ,      " << ADD A.A. (01.02.2000)
           HKONT LIKE BSEG-HKONT ,
           DMBTR LIKE BSEG-DMBTR ,     " Prod-amount
           EXCISE LIKE BSEG-DMBTR ,    " Excise / ModVAT
           ST_INV LIKE BSEG-DMBTR ,    " Sales Tax Loaded on Inv.
           ST_SET LIKE BSEG-DMBTR ,    " Sales Tax setoff .
           PT_PABLE LIKE BSEG-DMBTR , " Purchase tax payable
           ST_TOT LIKE BSEG-DMBTR ,    " Sales Tax total
           OTHR_CHRG LIKE BSEG-DMBTR , " Other Charges
           NEBTR LIKE BSEG-NEBTR.      " Total-amount
DATA : END OF GLTAB .
DATA : BEGIN OF ERRORTAB OCCURS 5 .
        INCLUDE STRUCTURE ITAB .
DATA : END OF ERRORTAB .
*- Start of change by Raj on 3-Spet-05
DATA : V_TMPVAL TYPE P DECIMALS 2.
*- End of change by Raj on 3-Spet-05
DATA : STRING LIKE BKPF-AWKEY ,
       V_NO TYPE I,
       V_EBELN LIKE BSEG-EBELN,
       V_MATNR LIKE BSEG-MATNR. " ADDED ON 21/01/02 FOR BUZID = 'S'
Start of Insert by B.Elan on 23/12/2005
WORK AREA
DATA : WA_DISPLAY LIKE ITAB_DISPLAY.
DATA : V_UCOMM TYPE SY-UCOMM.
CONSTANTS : C_X TYPE C VALUE 'X'.
End of Insert by B.Elan on 23/12/2005
AT SELECTION-SCREEN ON T_BUKRS.
SELECT SINGLE * FROM T001 WHERE BUKRS = T_BUKRS .
IF SY-SUBRC NE 0 .
    MESSAGE E368 WITH T_BUKRS TEXT-M01 .
ENDIF .
AT SELECTION-SCREEN ON T_MONAT.
PERFORM check_period_year USING 'X'.   " COMMENTED
AT SELECTION-SCREEN ON T_GJAHR.
PERFORM check_period_year USING ' '.   "COMMENTED
Start of Delete by B.Elan on 23/12/2005
*AT SELECTION-SCREEN ON RADIOBUTTON GROUP grp1 .
CLEAR fname .
DATA : BEGIN OF xt247 OCCURS 12 .
         INCLUDE STRUCTURE t247 .
DATA : END OF xt247 .
CHECK dload EQ 'X' .
REFRESH xt247 .
IF poper EQ 'X' .
   MESSAGE e368 WITH text-m05 .
ENDIF .
CALL FUNCTION 'MONTH_NAMES_GET'
   TABLES
     month_names           = xt247
   EXCEPTIONS
     month_names_not_found = 1
     OTHERS                = 2.
READ TABLE xt247 WITH KEY mnr = t_monat .
CONCATENATE 'STAXSUMM.' xt247-ktx INTO fname .
CONCATENATE '
DOWNLOAD\'   fname    INTO fname1.
CONCATENATE zfile1   fname    INTO   zfile2.
CONDENSE fname1 NO-GAPS.
CONDENSE zfile2 NO-GAPS.
CONCATENATE 'STAXSUMM.' xt247-ktx INTO fname .
End of Delete by B.Elan on 23/12/2005
AT SELECTION-SCREEN OUTPUT .
LOOP AT SCREEN .
    IF SCREEN-NAME EQ 'FNAME' .
      SCREEN-INPUT = 0.
      MODIFY SCREEN .
    ENDIF .
    IF SCREEN-GROUP2 EQ 'DBS' .
      SCREEN-ACTIVE = 0 .
      MODIFY SCREEN .
      IF SCREEN-NAME EQ 'BR_BLART-LOW' .
Form the select option for the LDB .
        CLEAR BR_BLART . REFRESH BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'RE' .
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'SR' .
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'SP' .
        APPEND BR_BLART .       " ADD ON 11122003 JAJ
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
       br_blart-low = 'VI' .
        BR_BLART-LOW = 'ST'.
        APPEND BR_BLART .
        BR_BLART-LOW = 'S1'.
        APPEND BR_BLART .
        BR_BLART-LOW = 'P1'.
        APPEND BR_BLART .
        BR_BLART-LOW = 'PM'.
        APPEND BR_BLART .
        BR_BLART-LOW = 'R1'.
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'KR' .
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
*************CH-ID-ADI---30 / 09 / 1999.
        BR_BLART-LOW = 'RA'.
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'EM'.
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'EI' .
        APPEND BR_BLART .
      ENDIF .
    ENDIF .
    CHECK SCREEN-GROUP1 EQ 'DAT' .
    SCREEN-INPUT = 0.
    MODIFY SCREEN .
ENDLOOP .
START-OF-SELECTION .
Block 1 - Selection of accounting documents in the posting period
is done through the LDB
GET BKPF .
commented on 22/08
CHECK BKPF-MONAT = T_MONAT.
CHECK BKPF-MONAT IN T_MONAT.
CHECK BKPF-GJAHR = T_GJAHR.
CHECK BKPF-STBLG IS INITIAL .        "<<<< Reversed
*CHECK bkpf-budat IN t_budat .
CHECK BKPF-BUKRS EQ T_BUKRS .
CHECK BKPF-BUKRS EQ T_BUKRS .
CHECK BKPF-BSTAT EQ SPACE .          "<<< Sample docs
CHECK BKPF-BLART EQ 'RE'             "MM-IV
    OR BKPF-BLART EQ 'KR'             "FI-IV
OR bkpf-blart EQ 'VI'          "FI-IV Direct
*************CH-ID-ADI-30 / 09 / 1999
OR bkpf-blart EQ 'RA'           "CASH CCI
OR bkpf-blart EQ 'EM'           "MAINTAINANCE
OR bkpf-blart EQ 'EI' .        "IDT
    OR BKPF-BLART EQ 'P1'
    OR BKPF-BLART EQ 'PM'
    OR BKPF-BLART EQ 'R1'
    OR BKPF-BLART EQ 'S1'
    OR BKPF-BLART EQ 'ST'
    OR BKPF-BLART EQ 'SR'      " ADD ON 101203 JAJ
    OR BKPF-BLART EQ 'SP'.
*************CH-ID-ADI-30 / 09 / 1999
CLEAR DOCTAB .
DOCTAB-BLART = BKPF-BLART .
DOCTAB-BELNR = BKPF-BELNR .
DOCTAB-BUDAT = BKPF-BUDAT .
DOCTAB-XBLNR = BKPF-XBLNR .
Added By Pankaj                   19.03.99
Initializing fiscal year for document table
DOCTAB-GJAHR = BKPF-GJAHR .
APPEND DOCTAB.
Tax details
GET BSET .   " Commented because LDB gives wrong BSET entries
" for some documents
CASE BSET-KSCHL .
    WHEN 'JMO1' .
      DOCTAB-JMO1 = DOCTAB-JMO1 + BSET-HWSTE .
    WHEN 'JMO2' .
      DOCTAB-JMO2 = DOCTAB-JMO2 + BSET-HWSTE .
    WHEN 'JIP1' .
      DOCTAB-JIP1 = DOCTAB-JIP1 + BSET-HWSTE .
    WHEN 'JIP2' .
      DOCTAB-JIP2 = DOCTAB-JIP2 + BSET-HWSTE .
    WHEN 'ZSET' .
     break deven .
      DOCTAB-ZSET = DOCTAB-ZSET + BSET-HWSTE .
    WHEN 'ZPTX' .
      DOCTAB-ZPTX = DOCTAB-ZPTX + BSET-HWSTE .
ENDCASE .
DOCTAB-MWSKZ = BSET-MWSKZ.
MODIFY DOCTAB INDEX SY-TABIX.
Item details
*changed by srinivas yerra.
GET BSEG .
IF BSEG-KOART = 'K' .              "<<< Vendor Line
IF BSEG-KOART = 'K' .
*end of chnages by srinivas yerra.
    DOCTAB-LIFNR = BSEG-LIFNR .
    IF NOT BSEG-ZTERM IS INITIAL .
      DOCTAB-ZTERM = BSEG-ZTERM .
      DOCTAB-DUE_DATE = BSEG-ZFBDT + BSEG-ZBD1T .
    ENDIF .
    IF BSEG-SHKZG EQ 'H' .             "<< Add credits
      DOCTAB-AMOUNT = DOCTAB-AMOUNT + BSEG-DMBTR .
    ELSE .                             "<< Subtr debits
      DOCTAB-AMOUNT = DOCTAB-AMOUNT - BSEG-DMBTR .
    ENDIF .
ENDIF .
CASE BSEG-KTOSL .
    WHEN 'WRX' .
      DOCTAB-PON = BSEG-EBELN .
      IF DOCTAB-MWSKZ IS INITIAL .
        DOCTAB-MWSKZ = BSEG-MWSKZ .
      ENDIF .
    WHEN 'BSX' .
***********ABEY
      IF NEXT = BSEG-BUZEI
         AND
         DOC = BSEG-BELNR
         AND
         ( BSEG-BUZID = 'M'
           OR
           BSEG-HKONT = 50765 ).
        DOCTAB-ZOCT = DOCTAB-ZOCT + BSEG-DMBTR.
        IF BSEG-SHKZG EQ 'H' .         "<< Subtr credits
          DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG - BSEG-DMBTR .
        ELSE .                         "<< Add debits
          DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG + BSEG-DMBTR .
        ENDIF .
      ENDIF .
************END
      IF BSEG-SHKZG EQ 'S' .
        DOCTAB-DMBTR = DOCTAB-DMBTR + BSEG-DMBTR .
      ELSE .
        DOCTAB-DMBTR = DOCTAB-DMBTR - BSEG-DMBTR .
      ENDIF .
    WHEN 'OCT' OR 'FRE' OR 'FR1' OR SPACE .
*****CH-ID-ADI-30 / 09 /1999.
      IF ( ( BKPF-BLART = 'EM' OR BKPF-BLART = 'RA' OR BKPF-BLART =
      'EI')
       AND BSEG-KTOSL = SPACE ) OR BSEG-MWSKZ = '9W' OR BSEG-MWSKZ =
       'K9' OR
                                                            BSEG-MWSKZ =
                                                            'X9'.
        DOCTAB-OTHR_CHRG = 0.
      ELSE.
*********CH-ID-ADI--01 / 10 / 1999
     Other Charges only for accounts other than vendor acc.
        CHECK BSEG-BUZID NE 'T' .
        CHECK BSEG-BUZID NE 'P' .
        IF BSEG-KOART NE 'K' .
*********ABEY (25/02/2000), (21/02/2000)
          IF BSEG-BUZID = 'F'
           OR BSEG-HKONT = 75461.
            NEXT = BSEG-BUZEI + 1.
            DOC = BSEG-BELNR.
            DOCTAB-ZOCT = DOCTAB-ZOCT + BSEG-DMBTR.
          ENDIF.
          IF BSEG-BUZEI = NEXT
             AND
             ( BSEG-BUZID = 'M'
               OR
               BSEG-HKONT = 50765 ).
            DOCTAB-ZOCT = DOCTAB-ZOCT + BSEG-DMBTR.
          ENDIF.
*********END
          IF BSEG-SHKZG EQ 'H' .       "<< Subtr credits
            DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG - BSEG-DMBTR .
          ELSE .                       "<< Add debits
            DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG + BSEG-DMBTR .
          ENDIF .
        ENDIF .
*****NEXT-LINE ADDED BY ADI
      ENDIF .
*************END.
ENDCASE .
*CHANGED BY SRINIVAS YERRA
*MODIFY DOCTAB INDEX SY-TABIX.
APPEND DOCTAB.
*END OF CHANGES.
PO History
GET EKBE .
CHECK DOCTAB-BELNR EQ EKBE-BELNR .
DOCTAB-MBLNR = EKBE-LFBNR .
DOCTAB-MJAHR = EKBE-LFGJA .
MODIFY DOCTAB INDEX SY-TABIX .
PERFORM show_indicator USING text-m02 .
*PERFORM convert_data.
END-OF-SELECTION .
Data read from LDB is converted into printable format.
PERFORM SHOW_INDICATOR USING TEXT-M04 .
PERFORM CONVERT_DATA .
Start of Delete by B.Elan on 23/12/2005
IF stax_reg EQ 'X' .                 "<<< Add
   SORT itab BY mwskz hkont belnr .
ELSE .                               "<<< Add
   SORT itab BY belnr .               "<<< Add
    SORT itab BY pon.
ENDIF .                              "<<< Add
Perform further operation based on user input
IF display EQ 'X' .
   PERFORM write_itab.
   PERFORM write_data .
ELSE .
PERFORM download_data .
ENDIF .
End of Delete by B.Elan on 23/12/2005
Start of Insert by B.Elan on 23/12/2005
SORT ITAB BY BELNR.
PERFORM WRITE_DATA.
IF MAT_SM = C_X.
    PERFORM WRITE_MATERIAL_SUMMARY.
ELSEIF MAT_DT = C_X.
    PERFORM WRITE_MATERIAL_DETAILS.
ELSEIF VEN_SM = C_X.
    PERFORM WRITE_VENDOR_SUMMARY.
ELSEIF VEN_DT = C_X.
    PERFORM WRITE_VENDOR_DETAILS.
ENDIF.
End of Insert by B.Elan on 23/12/2005
Start of Insert by B.Elan on 23/12/2005
AT USER-COMMAND.
V_UCOMM = SY-UCOMM.
CASE V_UCOMM.
    WHEN 'DETLS'.
      NEW-PAGE.
      PUR_DB = C_X.
      PERFORM CLEAR_DETAILS.
      PERFORM WRITE_DATA.
    WHEN 'MSUMRY'.
      PERFORM WRITE_MATERIAL_SUMMARY.
    WHEN 'MDETL'.
      PERFORM WRITE_MATERIAL_DETAILS.
    WHEN 'VSUMRY'.
      PERFORM WRITE_VENDOR_SUMMARY.
    WHEN 'VDETL'.
      PERFORM WRITE_VENDOR_DETAILS.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
ENDCASE.
End of Insert by B.Elan on 23/12/2005
*- - - - - - - - - End Of Execution .- - - - - - - - - - - - - - - - - -
TOP-OF-PAGE .
IF PUR_DB = C_X.
    PERFORM TOP_OF_PAGE.
    PERFORM TOP_OF_PAGE_PUR_DB.
ELSEIF MAT_SM = C_X.
    PERFORM TOP_OF_PAGE.
    PERFORM TOP_OF_PAGE_MAT_SM.
ELSEIF MAT_DT = C_X.
    PERFORM TOP_OF_PAGE.
    PERFORM TOP_OF_PAGE_MAT_DT.
ELSEIF VEN_SM = C_X.
    PERFORM TOP_OF_PAGE.
    PERFORM TOP_OF_PAGE_VEN_SM.
ELSEIF VEN_DT = C_X.
    PERFORM TOP_OF_PAGE.
    PERFORM TOP_OF_PAGE_VEN_DT.
ENDIF.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE V_UCOMM.
    WHEN 'DETLS'.
      PERFORM TOP_OF_PAGE.
      PERFORM TOP_OF_PAGE_PUR_DB.
    WHEN 'MSUMRY'.
      PERFORM TOP_OF_PAGE.
      PERFORM TOP_OF_PAGE_MAT_SM.
    WHEN 'MDETL'.
      PERFORM TOP_OF_PAGE.
      PERFORM TOP_OF_PAGE_MAT_DT.
    WHEN 'VSUMRY'.
      PERFORM TOP_OF_PAGE.
      PERFORM TOP_OF_PAGE_VEN_SM.
    WHEN 'VDETL'.
      PERFORM TOP_OF_PAGE.
      PERFORM TOP_OF_PAGE_VEN_DT.
ENDCASE.
*&      Form WRITE_DATA
      text                                                           *
FORM WRITE_DATA.
DATA:     V_SALES LIKE ITAB_DISPLAY-SALES,
            V_RATE LIKE ITAB_DISPLAY-RATE,
            V_DISCOUNT LIKE ITAB_DISPLAY-DISCOUNT,
            V_PROD-AMT LIKE ITAB_DISPLAY-PROD-AMT,
            V_EXCISE1 LIKE ITAB_DISPLAY-EXCISE,
            V_EXCISE LIKE ITAB_DISPLAY-EXCISE,
            V_PON LIKE ITAB_DISPLAY-PON,
            V_OTHERS LIKE ITAB_DISPLAY-OTHERS,
            V_FREIGHT LIKE ITAB_DISPLAY-FREIGHT.
CLEAR ITAB .
Write the correct data i.e. tax code and G/L code both available .
LOOP AT ITAB .
*************CH-ID-ADI-30 / 09 / 1999
    IF ( ITAB-MWSKZ = '9W' OR ITAB-MWSKZ = 'K9' OR ITAB-MWSKZ = 'X9' )
                                               AND ITAB-OTHR_CHRG NE 0 .
      ITAB-DMBTR = ITAB-OTHR_CHRG.
      ITAB-OTHR_CHRG = 0.
      MODIFY ITAB.
    ENDIF.
ENDLOOP.
LOOP AT ITAB.
    I_LFA1-LIFNR = ITAB-LIFNR.
    APPEND I_LFA1.
    CLEAR I_LFA1.
ENDLOOP.
SORT I_LFA1.
DELETE ADJACENT DUPLICATES FROM I_LFA1 COMPARING ALL FIELDS.
SELECT LIFNR
         NAME1
    FROM LFA1 INTO TABLE I_VENDOR
    FOR ALL ENTRIES IN I_LFA1 WHERE
                                   LIFNR = I_LFA1-LIFNR.
FREE I_LFA1.
LOOP AT ITAB.
    READ TABLE I_VENDOR WITH KEY LIFNR = ITAB-LIFNR .
    IF SY-SUBRC EQ 0.
      ITAB-NAME1_VENDOR = I_VENDOR-NAME1.
      MODIFY ITAB TRANSPORTING NAME1_VENDOR.
    ENDIF.
ENDLOOP.
LOOP AT ITAB.
    IF NOT ITAB-LIFNR IN S_VENDOR.
      DELETE ITAB.
    ENDIF.
ENDLOOP.
SELECT BUKRS BELNR GJAHR BUZEI BUZID SHKZG EBELN EBELP ERFMG WRBTR
   MATNR HKONT SGTXT " ERFMG for MENGE,HKONT,SGTXT Added by KrishnaMohan
         INTO TABLE ITAB_FINAL
        FROM BSEG FOR ALL ENTRIES IN ITAB
        WHERE BUKRS = T_BUKRS AND                           "'1000' AND
              BELNR = ITAB-BELNR AND
*added by srinivas
             hkont in zgl and
*end
              GJAHR = T_GJAHR AND
*- Start of change by Raj on 030905
             buzid IN ('W', 'M', 'K', 'S', 'F' , 'P' ) AND
               BUZID IN ('W', 'M', 'K', 'S', 'F' , 'P' , 'T', ' ') AND
               " ADD T 090206 JAJ
               KOART <> 'K'   AND    " mod by vik on 21.08.2008" sjaj si
*- End of change by Raj on 030905
BUZID = P Added on 21/01/02 by Krishna Mohan
              GSBER IN P_GSBER AND
             gsber IN p_gsber OR gsber = ' ' AND
              MATNR IN S_MATNR.
SELECT BELNR BLART INTO TABLE ITAB_DOC FROM BKPF
            FOR ALL ENTRIES IN ITAB_FINAL WHERE
                       BUKRS = T_BUKRS AND                  "'1000' AND
                       BELNR = ITAB_FINAL-BELNR AND
                       GJAHR = T_GJAHR AND
                       BLART NOT IN ('WA' , 'WE').
SORT ITAB_DOC BY BELNR BLART.
LOOP AT ITAB_DOC.
    IF NOT ITAB_DOC-BLART IN S_DOCTYP .
      DELETE ITAB_DOC.
    ENDIF.
ENDLOOP.
LOOP AT ITAB_FINAL.
    READ TABLE ITAB_DOC WITH KEY BELNR = ITAB_FINAL-BELNR BINARY SEARCH.
    IF SY-SUBRC NE 0.
      DELETE ITAB_FINAL.
    ENDIF.
ENDLOOP.
DELETE ITAB_FINAL WHERE BUZID = 'K' AND BUZEI = '1'.
LOOP AT ITAB_FINAL WHERE SHKZG = 'H'.
    ITAB_FINAL-WRBTR = ITAB_FINAL-WRBTR * ( -1 ).
    MODIFY ITAB_FINAL TRANSPORTING WRBTR.
ENDLOOP.
LOOP AT ITAB_FINAL WHERE BUZID = 'M'.
    IF ITAB_FINAL-SGTXT NE ' '.
      TRANSLATE ITAB_FINAL-SGTXT TO UPPER CASE.
      MODIFY ITAB_FINAL.
    ENDIF.
ENDLOOP.
LOOP AT ITAB_FINAL .
    IF ITAB_FINAL-BUZID = 'W'.
      CLEAR V_MATNR.
      V_EBELN = ITAB_FINAL-EBELN.
      V_MATNR = ITAB_FINAL-MATNR.
      ITAB_PO_ITEM-BELNR = ITAB_FINAL-BELNR.
      ITAB_PO_ITEM-BUZID = ITAB_FINAL-BUZID.
      ITAB_PO_ITEM-MATNR = ITAB_FINAL-MATNR.
      ITAB_PO_ITEM-EBELN = ITAB_FINAL-EBELN.
      ITAB_PO_ITEM-EBELP = ITAB_FINAL-EBELP.
      ITAB_PO_ITEM-MENGE = ITAB_FINAL-MENGE.
      ITAB_PO_ITEM-WRBTR = ITAB_FINAL-WRBTR.
      COLLECT ITAB_PO_ITEM.
      CLEAR ITAB_PO_ITEM.
    ELSEIF ITAB_FINAL-BUZID = 'M' OR ITAB_FINAL-BUZID = 'K' OR
                                      ITAB_FINAL-BUZID = 'S' OR
        ITAB_FINAL-BUZID = 'P' OR      " ADDED ON 21/01/02
*- Start of change by Raj on 030905
        ITAB_FINAL-BUZID = ' ' OR
         ITAB_FINAL-BUZID = 'T' OR   " ADD BY JAJ ON 090206
*- End of change by Raj on 030905
                                      ITAB_FINAL-BUZID = 'F'.
      IF ITAB_FINAL-MATNR IS INITIAL.
        ITAB_FINAL-MATNR = V_MATNR.
      ENDIF.
    CLEAR V_MATNR.
      ITAB_PO_OTHERS-BELNR = ITAB_FINAL-BELNR.
     ITAB_PO_OTHERS-MATNR = ITAB_FINAL-MATNR.
     ITAB_PO_OTHERS-EBELN = ITAB_FINAL-EBELN.
     ITAB_PO_OTHERS-EBELP = ITAB_FINAL-EBELP.
     ITAB_PO_OTHERS-MENGE = ITAB_FINAL-MENGE.
      ITAB_PO_OTHERS-WRBTR = ITAB_FINAL-WRBTR.
IF CONDITION,ADDED ON 21/01/02 FOR GETTING EXCISE WHEN CONDITION MEETS
ie TOTAL AMOUNT = EXCISE WHEN BUZID = S AND HKONT = 27500
*IF itab_final-buzid = 'S' AND ( itab_final-hkont = '0000027500' OR "
*COMM BY JAJ ON 090206
      IF ITAB_FINAL-BUZID = 'S' OR ITAB_FINAL-BUZID = 'T' AND (
      ITAB_FINAL-HKONT = '0000027500' OR
                                    ITAB_FINAL-HKONT = '0000027515'
        OR ITAB_FINAL-HKONT = '0000027550'       " jaj on 090206
       OR ITAB_FINAL-HKONT = '0000027507' OR
        ITAB_FINAL-HKONT = '0000027508'). "Added on 050905 - Raj
        ITAB_FINAL-EBELN = V_EBELN.
to get ebeln value into header so that when there are 2 po's
and 2 W's excise can go into only one po which is v_ebeln
Start of insert by B.Elan on 10/02/2006
        READ TABLE ITAB_PO_ITEM WITH KEY BELNR = ITAB_FINAL-BELNR
                                         EBELN = ITAB_FINAL-EBELN
                                         MATNR = ITAB_FINAL-MATNR.
        ITAB_PO_ITEM-EXCISE = ITAB_PO_ITEM-EXCISE + ITAB_FINAL-WRBTR.
End of insert by B.Elan on 10/02/2006
Start of delete by B.Elan on 10/02/2006
      itab_po_item-excise = itab_final-wrbtr.
End of delete by B.Elan on 10/02/2006
        MODIFY ITAB_PO_ITEM TRANSPORTING EXCISE
              WHERE BELNR EQ ITAB_FINAL-BELNR AND
                    EBELN EQ ITAB_FINAL-EBELN.
        CLEAR ITAB_PO_ITEM.
      ELSE.
        COLLECT ITAB_PO_OTHERS.
      ENDIF.
      CLEAR ITAB_PO_OTHERS.
    ENDIF.
ENDLOOP.
sateesh
SORT ITAB_PO_ITEM BY BELNR EBELN.
LOOP AT ITAB_PO_ITEM.
   AT NEW BELNR.
    AT NEW EBELN.
      READ TABLE ITAB_PO_ITEM INDEX SY-TABIX.
      ITAB_PO_ITEM-FLAG = 'X'.
      MODIFY ITAB_PO_ITEM INDEX SY-TABIX.
    ENDAT.
   ENDAT.
ENDLOOP.
LOOP AT ITAB_PO_ITEM.
    ITAB_PO_ITEM-EXCISE = 0.
    MODIFY ITAB_PO_ITEM TRANSPORTING EXCISE
     WHERE EXCISE > 0
       AND FLAG = SPACE.
ENDLOOP.
end
LOOP AT ITAB_PO_ITEM.
    ITAB_PO-EBELN = ITAB_PO_ITEM-EBELN.
    ITAB_PO-EBELP = ITAB_PO_ITEM-EBELP.
    APPEND ITAB_PO.
    CLEAR ITAB_PO.
ENDLOOP.
LOOP AT ITAB_PO_OTHERS.
    ITAB_PO-EBELN = ITAB_PO_OTHERS-EBELN.
    ITAB_PO-EBELP = ITAB_PO_OTHERS-EBELP.
    APPEND ITAB_PO.
    CLEAR ITAB_PO.
ENDLOOP.
SORT ITAB_PO.
DELETE ADJACENT DUPLICATES FROM ITAB_PO COMPARING ALL FIELDS.
SELECT EKPO~EBELN
         EBELP
         MENGE
         BRTWR
         KZWI5
         EKKO~KNUMV
         EKPO~MATNR
         EKPO~TXZ01
         INTO TABLE ITAB_RATE_MODVAT
         FROM EKPO INNER JOIN EKKO
             ON EKPO~EBELN = EKKO~EBELN
    FOR ALL ENTRIES IN ITAB_PO WHERE
                    EKPO~EBELN = ITAB_PO-EBELN AND
                    EBELP = ITAB_PO-EBELP.
SELECT KNUMV KPOSN STUNR ZAEHK KSCHL KWERT
    INTO TABLE ITAB_KONV
    FROM KONV
    FOR ALL ENTRIES IN ITAB_RATE_MODVAT
        WHERE KNUMV = ITAB_RATE_MODVAT-KNUMV AND
KSCHL IN ('YT02', 'YF07', 'YOTH', 'YPF1', 'YD01', 'YD02', 'YD03' ) .
SORT ITAB_KONV BY KNUMV KSCHL.
SORT ITAB BY BELNR.
SORT ITAB_RATE_MODVAT BY EBELN EBELP.
SORT ITAB_PO_OTHERS BY BELNR MATNR.
LOOP AT ITAB_PO_ITEM.
    ITAB_DISPLAY-BELNR = ITAB_PO_ITEM-BELNR.
    READ TABLE ITAB_DOC WITH KEY BELNR = ITAB_PO_ITEM-BELNR BINARY
    SEARCH.
    IF SY-SUBRC EQ 0.
      ITAB_DISPLAY-BLART = ITAB_DOC-BLART.
    ENDIF.
    READ TABLE ITAB WITH KEY BELNR = ITAB_PO_ITEM-BELNR BINARY SEARCH.
    IF SY-SUBRC EQ 0.
      ITAB_DISPLAY-XBLNR = ITAB-XBLNR.
      ITAB_PO_ITEM-XBLNR = ITAB-XBLNR.
      ITAB_DISPLAY-NAME1_VENDOR = ITAB-NAME1_VENDOR.
      ITAB_DISPLAY-HKONT = ITAB-HKONT.
      ITAB_DISPLAY-MWSKZ = ITAB-MWSKZ.
      ITAB_DISPLAY-BUDAT = ITAB-BUDAT.
      ITAB_DISPLAY-DUE_DATE   = ITAB-DUE_DATE.
     ITAB_DISPLAY-PON    = ITAB_PO_ITEM-EBELN.
    ENDIF.
    ITAB_DISPLAY-QTY =    ITAB_PO_ITEM-MENGE.
    READ TABLE ITAB_RATE_MODVAT WITH KEY EBELN = ITAB_PO_ITEM-EBELN
                                         EBELP = ITAB_PO_ITEM-EBELP
                                         BINARY SEARCH.
    IF SY-SUBRC EQ 0.
      ITAB_DISPLAY-PON    = ITAB_PO_ITEM-EBELN.
      ITAB_DISPLAY-MATNR = ITAB_RATE_MODVAT-MATNR.
      ITAB_DISPLAY-MAKTX = ITAB_RATE_MODVAT-TXZ01.
      ITAB_DISPLAY-RATE = ITAB_RATE_MODVAT-BRTWR /
      ITAB_RATE_MODVAT-MENGE.
      ITAB_DISPLAY-PROD-AMT = ITAB_DISPLAY-RATE * ITAB_PO_ITEM-MENGE.
      IF ITAB_PO_ITEM-EXCISE NE 0.
        ITAB_DISPLAY-EXCISE = ITAB_PO_ITEM-EXCISE.
    ELSE.
*ITAB_DISPLAY-EXCISE = ( ITAB_PO_ITEM-MENGE * ITAB_RATE_MODVAT-KZWI5 ) /
                                  ITAB_RATE_MODVAT-MENGE.
*commentedon 210102 to get excise directly from BSEG - IV
      ENDIF.
    ENDIF.
    READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
                                  KPOSN = ITAB_RATE_MODVAT-EBELP
                                  KSCHL = 'YT02' .
    IF SY-SUBRC EQ 0.
      ITAB_DISPLAY-SALES = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
                             ITAB_RATE_MODVAT-MENGE.
      READ TABLE ITAB_FINAL WITH KEY BELNR = ITAB_PO_ITEM-BELNR
                                     BUZID = 'M'
                                    SGTXT(9) = 'SALES TAX'.
      IF SY-SUBRC EQ 0.
      IF ITAB_FINAL-SGTXT(9) EQ 'SALES TAX'
         OR ITAB_FINAL-SGTXT(9) EQ 'sales tax'.
        ITAB_DISPLAY-SALES = ITAB_DISPLAY-SALES + ITAB_FINAL-WRBTR.
      ENDIF.
      ENDIF.
    ENDIF.
    READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
                                  KPOSN = ITAB_RATE_MODVAT-EBELP
                                  KSCHL = 'YF07'.
    IF SY-SUBRC EQ 0.
      ITAB_DISPLAY-FREIGHT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
                              ITAB_RATE_MODVAT-MENGE.
    ENDIF.
    READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
                                  KPOSN = ITAB_RATE_MODVAT-EBELP
                                  KSCHL = 'YD01' .
    IF SY-SUBRC EQ 0.
     ITAB_DISPLAY-DISCOUNT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
                                          ITAB_RATE_MODVAT-MENGE.
    ELSE.
      READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
                                    KPOSN = ITAB_RATE_MODVAT-EBELP
                                  KSCHL = 'YD02' .
      IF SY-SUBRC EQ 0.
       ITAB_DISPLAY-DISCOUNT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT )
ITAB_RATE_MODVAT-MENGE.
      ELSE.
        READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
                                      KPOSN = ITAB_RATE_MODVAT-EBELP
                                      KSCHL = 'YD03' .
        IF SY-SUBRC EQ 0.
         ITAB_DISPLAY-DISCOUNT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT
ITAB_RATE_MODVAT-MENGE.
        ENDIF.
      ENDIF.
    ENDIF.
    LOOP AT ITAB_KONV WHERE KNUMV = ITAB_RATE_MODVAT-KNUMV AND KPOSN =
                             ITAB_RATE_MODVAT-EBELP AND
                   ( KSCHL = 'YPF1' OR KSCHL = 'YOTH' ) .
      ITAB_KONV-KWERT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
                               ITAB_RATE_MODVAT-MENGE.
      ITAB_DISPLAY-OTHERS = ITAB_DISPLAY-OTHERS + ITAB_KONV-KWERT.
    ENDLOOP.
    READ TABLE ITAB_PO_OTHERS WITH KEY BELNR = ITAB_PO_ITEM-BELNR.
                                      EBELN = ITAB_PO_ITEM-EBELN.
                                      BINARY SEARCH.
sateesh as on 10092003
    IF SY-SUBRC NE 0. CLEAR ITAB_PO_OTHERS. ENDIF.
end
    IF NOT ITAB_PO_OTHERS-EBELN IS INITIAL.
      READ TABLE ITAB_PO_OTHERS WITH KEY EBELN = ITAB_PO_ITEM-EBELN
                                         EB

I don't know how to use a light layer in After Effects CS4

Hello,
I work with a lot of texts layers and it's very trendy to put a light layer across the text at one point or another, it looks really good too. But I've looked on the net for tutorials and can't figure out how to use the light layer so that a light goes across a text from one side to the other. It looks like a flash light went across the text. I go to the top and choose >Layer >New >Light.
What happens is the color of the text changes (the part that isn't shined upon). How can I change the settings so that the text color doesn't change? Do you know of any video tutorials to use for a light layer?
Thank you for your time!!

How can I change the settings so that the text color doesn't change?
That is kind of a paradox. The whole point of using 3D lights is to have them illuminate the layer, including all shading properties. Color is defined by the layer's base color multiplied with light color and intensity. You really need to set your mind into 3D mode. That aside, I wouldn't bother using a light with flat text. Simply create a feathered circle on top (or 2 or 3), set blending mode to add and animate it across your type.
Mylenium

How to change the Traffic light positioning in ALV?

Hai All,
I am displaying a traffic light field in my ALV Grid. Now i want to display another field in the first position and move the traffic light to second or any other position. COL_POS seems to be not working, is there any chance of doing this?
Best regards,
rama

>
newtoAbap wrote:
> Hai All,
>
> I am displaying a traffic light field in my ALV Grid. Now i want to display another field in the first position and move the traffic light to second or any other position. COL_POS seems to be not working, is there any chance of doing this?
>
> Best regards,
> rama
If you are using EXCP_FNAME in the ALV layout to display your traffic lights, it may not be possible to move your light field to any other position..
One possiblity is to define your own field (as icon) in the internal table and assign the Traffic light icon to that field... By this approach, you can position that field in any place in your input structure while generating field catalog or defining your structure
Here is an example with SALV,
http://wiki.sdn.sap.com/wiki/display/Snippets/displayingiconsinalvusingclasscl_salv_table
Example with icons in REUSE FM (can be used in ALV OO) and there should be umpteen examples in SDN also
http://wiki.sdn.sap.com/wiki/display/Snippets/TrafficlightsinALVdisplay

How to show traffic lights on push button in ALV Grid?

Hi Experts,
I have an requirement where I have to show traffic lights on push button in ALV grid of a container. I am showing access sequence for each condition type in my grid. Now, if the access sequence contains 'PLANT', it should show 'green' on push button or else it should show 'red'. How I can I achieve this?
Thanks in advance.

Try This One.
DATA: gs_fieldcat TYPE slis_fieldcat_alv,
          gt_fieldcat TYPE slis_t_fieldcat_alv,
          gs_layout   TYPE slis_layout_alv.
TYPES :BEGIN OF gty_temp,
            col(10) TYPE c,
           END OF gty_temp.
DATA : gt_temp TYPE STANDARD TABLE OF gty_temp,
            gs_temp TYPE gty_temp.
   gs_temp-col ='@0A@'. "ERROR RED LIGHT
       APPEND gs_temp TO   gt_temp.
    CLEAR GS_TEMP.
gs_temp-col = '@08@'." SUCCESS GREEN LIGHT
APPEND gs_temp TO   gt_temp.
CLAER GS_TEMP.
gs_temp-col = '@09@'. WARNING YELLOW LIGHT
APPEND gs_temp TO   gt_temp.
CLAER GS_TEMP.
gs_fieldcat-fieldname   = ' COL'.
gs_fieldcat-tabname   = 'GT_TEMP'.
gs_fieldcat-seltext_m = 'ERROR'."
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR gs_fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program = 'ZPROG1' " PROGRAM NAME
     i_grid_title       = 'Details'
*   is_layout          = gs_layout
     it_fieldcat        = gt_fieldcat
   TABLES
     t_outtab           = gt_temp.
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

How to differentiate defects in QA32 using Traffic light

Hi QM Experts,
My scenario is,
How to set Monitor control in QA32 screen.
In the QA32 screen list of inspection lot will be displayed, for that inspection lot if any characteristics value is within / outside the limit, ie. for example specification is A2,R3 and i found 1 defect also defect is 4.
how to differentiate this with the help of Traffic light.
Regards,
Krish

Hi Krish,
As per best of my information, the traffic lights in QA32, depends on the Start Sate and End Date of the inspection lot.
If the End Date is not passed away (the current date is between the Start Date and End Date) it will be yellow.
If the End Date is Passed away and UD is not not for the Lot then the traffic light will be RED and as soon as UD done at any date/stage the light will become Green.
Conclusively, the light can't be linked with Defect Codes.
Regards,
Shyamal

Traffic Light in Dynamic ALV

Hi All,
I created dynamic ALV.I wan to show trafic light color RED,Yellow etc..
If Quantity is less than some 'X' then traffic light should be Red.
Please advise how to follow.This is possible in classical but in dynamic alv i need to do.
Thank You,
Anu.

Hi,
But in Dynamic alv we dont know the values.How we can fill up the field catalog for one value.
Please advise if any coding.
Thank You,
Anu

In MD06, how to define Traffic lights

Hi to All,
We are having more than one plants and every one are using MRP.
After MRP run, we are using MD06 in order to evaluate numerous materials based on same controller.
I would like to define or set traffic lights based on Supply & exception groups which will be applicable for users who
would using this MD06 tcode.
How to define this?
Thanks & Regards
Nitin

please check whether this helps...
https://forums.sdn.sap.com/click.jspa?searchID=31913209&messageID=4081312

How to add Traffic Lights to a Report?

Hi,
How do U create a Traffic Light? and how to you change the Light? That's all I need.
Thanks,
Kishan

hi dude,
This is the way u add lights to ur alv report.
I'm following this method and i'm getting lights. This will work for sure.
In data declaration along with your alv display structure as a field named lights(any name).
DATA : BEGIN OF wa_srr,
vbeln LIKE vbak-vbeln, "Sales Order number
posnr LIKE vbap-posnr, "Item nunmber
matnr LIKE makt-matnr, "Material number Desc
maktx LIKE makt-maktx, "Material Description
gbstk LIKE vbuk-gbstk, "Completion status
bukrs LIKE knb1-bukrs, "Company Code
butxt LIKE t001-butxt, "Company Code description
vkorg LIKE vbak-vkorg, "Sales organization
vtext LIKE tvkot-vtext, "Sales Org description
vtweg LIKE vbak-vtweg, "Distribution Channel
dtext LIKE tvtwt-vtext, "Dist Channel description
spart LIKE vbak-spart, "Division
dvtxt LIKE tspat-vtext, "Division Description
kunnr LIKE vbak-kunnr, "Customer Number
name1 LIKE kna1-name1, "Customer Name
land1 LIKE kna1-land1, "Country
regio LIKE kna1-regio, "State
ort01 LIKE kna1-ort01, "City
erdat LIKE vbak-erdat, "Creation Date
vdatu LIKE vbak-vdatu, "Due date
kwmeng LIKE vbap-kwmeng, "Material Quantity
netpr LIKE vbap-netpr, "unit net price
netwr LIKE vbap-netwr, "Price
wavwr LIKE vbap-wavwr, "Cost price
bzirk LIKE vbkd-bzirk, "Sales District
bztxt LIKE t171t-bztxt, "Sales District Discription
lights, "Diplaying Status
END OF wa_srr.
While you are building the field cat do as follows
FORM build_layout CHANGING l_wa_layout TYPE slis_layout_alv.
l_wa_layout-zebra = cb_zebr. "Set alterante colored line
l_wa_layout-colwidth_optimize = cb_colop. "Optimize column width
l_wa_layout-no_vline = cb_novli. "No vertical line
l_wa_layout-no_colhead = cb_nocol. "no column Header
l_wa_layout-lights_fieldname = 'LIGHTS'. "Set light field
(assigning the field u have added in ur structure here as light field in alv report)
ENDFORM. " BUILD_LAYOUT
Then as per the logic, u make green, yellow or red light
Example,
FORM build_light .
LOOP AT it_srr INTO wa_srr. "for all entries in the table
IF wa_srr-gbstk = 'C'. "If status is 'completed',
wa_srr-lights = '3'. "Show green signal light
ELSEIF wa_srr-gbstk = 'B'. "If status is 'Partial'
wa_srr-lights = '2'. "Show yellow signal light
ELSE. "If status is 'incomplete'
wa_srr-lights = '1'. "Show red signal light
ENDIF.
MODIFY it_srr FROM wa_srr. "Update to table
ENDLOOP.
ENDFORM. " build_light
after building ur layout, Pass it to ur alv function module like this.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_top_of_page = 'TOP_OF_PAGE'
i_background_id = 'ALV_BACKGROUND'
i_grid_title = text-011
pass ur layout structure here********
is_layout = wa_layout
it_fieldcat = it_fcat
it_sort = it_sort
i_save = v_save
is_variant = wa_variant
is_print = wa_print
TABLES
t_outtab = it_srr
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE i001. "List cannot be displayed
ENDIF.
wat all i did to add light is,
1) adding an extra field in the main structure.
2)create internal table with this structure as data table for alv report
3) add 'field name' field in layout
4) I have passed values(3, 2, 1) for green, yellow and red light resp, to the field(LIGHTS) in the internal table that is passed to alv function module.(Based on some condition)
5) pass the layout structure layout to alv function module
Thats it. If u do all this teps, u r done with it.
Lemme know u solved it by giving points.
with regards,
praveen.

How to insert Traffic light icon in Table UI column

Hi Expert,
I am not able to put traffic light icon to table UI's column.
Can any one help me.
Thanks and Regards,
Anil

Hi,
For that column of the TABLE, while create BInding option, give the UI element as Image type.
In the Layout tab of the view, for that column, cell editor give the Image source as the
ICON......
Clarify this -
Do you want to show this icon on any condition basis or ?
Out of 6 oclumns for which column you want the traffic light icon...
Hope you got this.
Regards,
Lekha.

How to use interactive internal report in alv

hey expert i want to know who i will used interactive internal report in alv report by various tables in my one assingment.
They have told us to do the various steps which i was giving down:
1) In first step they have told me to use of call transaction 'XD03' in the report .I have got that problem solved.
2) In second they have told in this assingment to use of interactive internal report you have to prepare in alv format.
a)I want to know about this .They have told in assingment that in the customer details we have to click to the net value field record and go to the details of sales order detail in which it show the detail of all the details related net values .
b) I want to know about this lines also from you:
Qty field refers to the Target Qty field in the table VBAP.
To get Price in the unit divide the price by Condition Pricing Unit.
If SHKZG field is set, then multiply the amount by -1, making it negative. (understand why?).
3) In the third step they have told to used of drill down which it is in the at line selection ,when i click to the list order of sales it go to the next report and show me the detail of all the list order details.
But i have to use the '2.b' condition there .
cna u please send me reply for all this step.
Edited by: AjaySAPmumbai on Nov 28, 2011 8:55 AM
Moderator message : Spec / requirements dumping is not allowed, search for available information, read forum rules before posting. Thread locked.
Edited by: Vinod Kumar on Nov 28, 2011 1:26 PM

hey expert i want to know who i will used interactive internal report in alv report by various tables in my one assingment.
They have told us to do the various steps which i was giving down:
1) In first step they have told me to use of call transaction 'XD03' in the report .I have got that problem solved.
2) In second they have told in this assingment to use of interactive internal report you have to prepare in alv format.
a)I want to know about this .They have told in assingment that in the customer details we have to click to the net value field record and go to the details of sales order detail in which it show the detail of all the details related net values .
b) I want to know about this lines also from you:
Qty field refers to the Target Qty field in the table VBAP.
To get Price in the unit divide the price by Condition Pricing Unit.
If SHKZG field is set, then multiply the amount by -1, making it negative. (understand why?).
3) In the third step they have told to used of drill down which it is in the at line selection ,when i click to the list order of sales it go to the next report and show me the detail of all the list order details.
But i have to use the '2.b' condition there .
cna u please send me reply for all this step.
Edited by: AjaySAPmumbai on Nov 28, 2011 8:55 AM
Moderator message : Spec / requirements dumping is not allowed, search for available information, read forum rules before posting. Thread locked.
Edited by: Vinod Kumar on Nov 28, 2011 1:26 PM

How to use at-line selection in ALV

Can someone help me about how to use at-line selection in an ALV

u can try in user_command
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
         I_CALLBACK_PROGRAM = G_REPID
         IT_FIELDCAT = GT_FIELDCATALOG
         I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET'
         I_CALLBACK_HTML_END_OF_LIST = G_HTML_END_OF_LIST
         I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
         I_GRID_SETTINGS = GS_SETTINGS
         IS_LAYOUT = GS_LAYOUT
         I_SAVE = G_SAVE
         IS_VARIANT = GS_VARIANT
         IT_EVENTS = GT_EVENTS[]
*      I_SCREEN_START_COLUMN = 0 "Use coordinates for
*      I_SCREEN_START_LINE = 0 "display as dialog box
*      I_SCREEN_END_COLUMN = 0
*      I_SCREEN_END_LINE = 0
    IMPORTING
         E_EXIT_CAUSED_BY_CALLER = G_EXIT_CAUSED_BY_CALLER
         ES_EXIT_CAUSED_BY_USER = GS_EXIT_CAUSED_BY_USER
    TABLES
         T_OUTTAB = I_REP
    EXCEPTIONS
         PROGRAM_ERROR = 1
         OTHERS = 2.
FORM USER_COMMAND USING R_UCOMM TYPE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN '&IC1'.
      CASE RS_SELFIELD-FIELDNAME.
        WHEN 'XXXXX'.
          READ TABLE I_xxx INTO V_xxx
            WITH KEY XXX = RS_SELFIELD-VALUE.
          IF SY-SUBRC = 0.
          ENDIF.
        WHEN OTHERS
      ENDCASE.
ENDCASE.
ENDFORM.

How to add "Traffic lights" to a webdynpro table

Hi guys!
What are the necessary steps to modify a Table cell in a table control in abap web dynpro.
In particular i need those "traffic lights" in a table.
can someone help me?
thanks!

Hello Thomas ,
Create an Attribute (say LIGHT ) in the table node with type String .
Now create a table column for this attribute and the cell editor for this column should be an
'IMAGE' ui element . bind the attribute with ui element .
Now at runtime fill the LIGHT attribute with following values as required :
light = 'ICON_RED_LIGHT'.
or
light = 'ICON_GREEN_LIGHT'
or
light = ''ICON_YELLOW_LIGHT'
I hope this will help you .
Regards
Vivek

How to use traffic lights concept in alv in webdynpro abap

Similar Messages

Maybe you are looking for