SELECT LFM1~EKORG,
CASE WHEN DFKKBPTAXNUM~TAXNUM IS NOT INITIAL THEN DFKKBPTAXNUM~TAXNUM ELSE DFKKBPTAXNUM~TAXNUMXL END AS ZTAX,
* DFKKBPTAXNUM~TAXNUM,
LFM1~LIFNR,CONCAT( LFA1~NAME1,LFA1~NAME2 ) AS NAME,LFA1~ERDAT AS DATE1,LFM1~ERDAT AS DATE2
FROM LFM1
INNER JOIN LFA1 ON LFA1~LIFNR = LFM1~LIFNR
INNER JOIN DFKKBPTAXNUM ON DFKKBPTAXNUM~PARTNER = LFM1~LIFNR
WHERE LFA1~LOEVM <> 'X'
AND LFM1~LOEVM <> 'X'
* AND LFA1~ERDAT > '20251001'
INTO TABLE @DATA(LT_TABLE).
SORT LT_TABLE BY EKORG LIFNR.
DELETE ADJACENT DUPLICATES FROM LT_TABLE COMPARING ALL FIELDS.
DATA(FALV) = ZCL_FALV=>CREATE( CHANGING CT_TABLE = LT_TABLE ).
FALV->COLUMN( 'DATE1' )->SET_COLTEXT( '供应商基本数据创建时间' ).
FALV->COLUMN( 'DATE1' )->SET_SELTEXT( '供应商基本数据创建时间' ).
FALV->COLUMN( 'DATE1' )->SET_TOOLTIP( '供应商基本数据创建时间' ).
FALV->COLUMN( 'DATE2' )->SET_COLTEXT( '供应商采购视图创建时间' ).
FALV->COLUMN( 'DATE2' )->SET_SELTEXT( '供应商采购视图创建时间' ).
FALV->COLUMN( 'DATE2' )->SET_TOOLTIP( '供应商采购视图创建时间' ).
FALV->COLUMN( 'NAME' )->SET_COLTEXT( '供应商名称' ).
FALV->COLUMN( 'NAME' )->SET_SELTEXT( '供应商名称' ).
FALV->COLUMN( 'NAME' )->SET_TOOLTIP( '供应商名称' ).
FALV->LAYOUT->SET_ZEBRA( ABAP_TRUE )."ALV 添加斑马线
FALV->DISPLAY( ).