ALV数据导出后缺位问题解决 .

http://blog.csdn.net/user714/article/details/7290280

使用ALV导出数据的时候，大家可能会遇到这样的问题，明明是10位的数据，用ALV GRID导出后，丢失了最后一位，而造成导出数据错误；

其实，这是SAP的一个Bug。对于字段对应的域Convers. routine = ALPHA，也就是有前导零的字段，比如供应商号、商品号、客户号、考核组织等。用ALV Grid和Class ALV Grid导出数据时都会出现缺位的现象，而List好像没有这个BUG。

 

解决这个问题有以下几种方法：

1、修改程序中列的表头文本，使其长度大于字段的实际长度，这样用ALV导出数据的时候就不会丢失最后一位了。

代码：T_FIELDCAT-SELTEXT_L = '考核组织XXXXXXXX'.

2、修改程序中ALV显示设置，设定参考字段和参考表，这样用ALV导出数据的时候同样不会丢失最后一位。

代码：

  T_FIELDCAT-FIELDNAME = 'PRCTR'.
  T_FIELDCAT-SELTEXT_L = '考核组织'.
  T_FIELDCAT-REF_FIELDNAME = 'PRCTR'.
  T_FIELDCAT-REF_TABNAME = 'CEPC'.

 

http://blog.chinaunix.net/uid-8527621-id-2029555.html

 

这是SAP的一个Bug，FM方式ALV Grid和Class ALV Grid都会出现，但是ALV List好像没有这个BUG。

 

在以下几个条件满足的时候就会出现这个问题：

1.字段对应的域Convers. routine = ALPHA，也就是有前导零的字段，比如供应商号、商品号、客户号等。

2.做ALV Fieldcat的时候，没有指定参考表和参考字段。

3.列的表头文本(seltext_s等)比实际显示的数据短。

 

所以解决问题的时候从2、3两点下手即可。

 

 

REPORT z_barry_field_loss .

TYPE-POOLS: slis.
DATA: gd_fieldcat TYPE slis_t_fieldcat_alv.
DATA: sla TYPE slis_layout_alv ,
      i_repid LIKE sy-repid ,
      ls_fieldcat TYPE slis_fieldcat_alv.
DATA: BEGIN OF itab OCCURS 0,
        lifnr LIKE lfa1-lifnr ,
        kunnr LIKE kna1-kunnr ,
        matnr LIKE mara-matnr ,
        bukrs LIKE bsik-bukrs ,
      END OF itab.

 

START-OF-SELECTION.
  itab-lifnr = '0000100047'.
  itab-kunnr = '0000001006'.
  itab-bukrs = 'ZB01'.
  itab-matnr = '000000000001100198'.
  APPEND itab.

 

  CLEAR ls_fieldcat .
  ls_fieldcat-fieldname     =  'LIFNR'.
  ls_fieldcat-seltext_s     =  'LI'.
  ls_fieldcat-ref_fieldname = 'LIFNR'.  "|注释
  ls_fieldcat-ref_tabname   = 'LFA1'.   "|
  ls_fieldcat-ddictxt       = 'S'.
  APPEND ls_fieldcat TO gd_fieldcat .

 

  CLEAR ls_fieldcat .
  ls_fieldcat-fieldname     =  'KUNNR'.
  ls_fieldcat-seltext_s     =  'KU'.
  ls_fieldcat-ref_fieldname = 'KUNNR'.  "|注释
  ls_fieldcat-ref_tabname   = 'KNA1'.   "|
  APPEND ls_fieldcat TO gd_fieldcat .

 

  CLEAR ls_fieldcat .
  ls_fieldcat-fieldname     =  'BUKRS'.
  ls_fieldcat-seltext_s     =  'BU'.
  APPEND ls_fieldcat TO gd_fieldcat .

 

  CLEAR ls_fieldcat .
  ls_fieldcat-fieldname     =  'MATNR'.
  ls_fieldcat-seltext_s     =  'MAT'.
  ls_fieldcat-ref_fieldname = 'MATNR'.  "|注释
  ls_fieldcat-ref_tabname   = 'MAKT'.   "|
  APPEND ls_fieldcat TO gd_fieldcat .

 

  i_repid = sy-repid.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = i_repid
      it_fieldcat             = gd_fieldcat[]
      i_save                  = 'A'
      is_layout               = sla
      i_callback_user_command = 'USER_COMMAND'
    TABLES
      t_outtab                = itab
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.