salv demo

REPORT Z_YY_PRG_002.

*MESSAGE ‘xxxx1’ type ‘W’.
*MESSAGE ‘xxxx2’ type ‘I’.
*MESSAGE ‘xxxx3’ type ‘W’.

*MESSAGE I001(ZTEST01).
SELECTION-SCREEN : begin of line,
COMMENT 1(8) txt01 FOR FIELD pBUKRS.
PARAMETERS pBUKRS like ekko-BUKRS.

SELECTION-SCREEN end of line.

SELECTION-SCREEN : begin of line,
COMMENT 1(8) txt02 for FIELD pEKORG.
PARAMETERS pEKORG like ekko-EKORG.
SELECTION-SCREEN end of line.

types: begin of ty_VendorList,
LIFNR type LIFNR,
NAME1 type NAME1_GP,
REGIO type REGIO,
BUKRS type BUKRS,
EKORG type EKORG,
END OF ty_VendorList.

data gt_VendorList type STANDARD TABLE OF ty_VendorList.

DATA: salv TYPE REF TO cl_salv_table.

INITIALIZATION.
txt01 = ‘公司代号’.
txt02 = ‘采购组织’.

START-OF-SELECTION.

select
  a~LIFNR a~Name1 a~Regio b~BUKRS c~EKORG
  into TABLE gt_VendorList
  from LFA1 as a INNER JOIN LFB1 as b on  a~LIFNR = b~LIFNR "and a~MANDT = b~MANDT
  INNER JOIN LFM1 as c on a~LIFNR = c~LIFNR  "and a~MANDT = c~MANDT
  where b~BUKRS = pBUKRS  and c~EKORG = pEKORG

  .


    cl_salv_table=>factory(
      IMPORTING
        r_salv_table = salv
      CHANGING
        t_table      = gt_VendorList ).

salv->display( ).