欢迎来到萧静默的博客

书山有路勤为径,学海无涯苦作舟。

查找供应商税号(税号可能存两个字段中任意一个,一起取出SQL)

  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( ).

 

posted @ 2026-01-09 15:30  萧静默  阅读(1)  评论(0)    收藏  举报