ALV issue: when save list using Local File command will get run time error!

Former Member — Fri, 10 Aug 2007 02:55:04 GMT

help!!!!

report list using ALV method when to save this list using Local File.

i will get GETWA_NOT_ASSIGNED run time error information.

how resolve it?

source code :

REPORT ZIFT0103.

TABLES : MARA,MARC,CDHDR,CDPOS,MAKT.

******DEVK909212****************

****利用工厂来区分不同的SERVER的FTP ADDRESS ,user ,PASSWORD

DATA: FTP_WERKS LIKE MARC-WERKS.

********定义一个RANGE用来抓取MARC的信息

RANGES:R_MATNR FOR MARA-MATNR OCCURS 0.

********定义一个INTERNAL TABLE 来抓取MARC 的信息

DATA:BEGIN OF IT_MARC OCCURS 0,

MATNR LIKE MARC-MATNR,

WERKS LIKE MARC-WERKS,

USERNAME TYPE CDHDR-USERNAME,

UDATE TYPE CDHDR-UDATE,

FLAG_UI TYPE C,

END OF IT_MARC.

*******定义存放北京的数据的变量

DATA : BEGIN OF FTP_BEIJING OCCURS 0 ,

MATNR(25) ,

MATNR1(25) ,

MAKTX(30) ,

END OF FTP_BEIJING .

******定义福清的数据变量

DATA : BEGIN OF FTP_FUQING OCCURS 0 ,

MATNR(25) ,

MATNR1(25) ,

MAKTX(30) ,

END OF FTP_FUQING .

*******DEVK909212*****************

DATA : BEGIN OF FTP_ITEMDOC1 OCCURS 0 ,

MATNR(25) ,

MAKTX(30) ,

END OF FTP_ITEMDOC1 .

DATA : BEGIN OF FTP_ITEMDOC OCCURS 0 ,

MATNR(25) ,

MATNR1(25) ,

MAKTX(30) ,

END OF FTP_ITEMDOC .

DATA: WA_ZMSGTA TYPE ZMSGTA ,

l_ersda like MARA-ERSDA .

***********DEVK909553********************

****用来决定执行FTP还是显示LIST**********

DATA:g_tcode_flag.

***********DEVK909553********************

Error message process ******************************

DEFINE EXPLAIN_MSG.

break soe_richard.

CALL FUNCTION 'BAPI_MESSAGE_GETDETAIL'

EXPORTING

ID = &1 "SY-MSGID

NUMBER = &2 "SY-MSGNO

LANGUAGE = SY-LANGU

TEXTFORMAT = &3

LINKPATTERN =

MESSAGE_V1 = &4 "SY-MSGV1

MESSAGE_V2 = &5 "SY-MSGV2

MESSAGE_V3 = &6 "SY-MSGV3

MESSAGE_V4 = &7 "SY-MSGV4

IMPORTING

MESSAGE = &8 "WA_ZMSGTA-MSE1

RETURN =
TABLES
TEXT =

END-OF-DEFINITION.

DEFINE ERROR_MSG_UPDATA.

CALL FUNCTION 'ZINSERT_MSG' "IN UPDATE TASK

EXPORTING

XZMSGTA = &1 "WA_ZMSGTA

EXCEPTIONS

UPDATE_ERROR = 1

OTHERS = 2.

END-OF-DEFINITION.

********************************************************

IF SY-TCODE = 'ZIFT103' .

g_tcode_flag = 'L'.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

PERCENTAGE = 0

TEXT = '请耐心等候,系统正在抓数据'.

ENDIF.

l_ersda = sy-datum - 1 . "取前一天产生的物料号码。

DATA:BEGIN OF it_change OCCURS 0,

OBJECTID TYPE CDHDR-OBJECTID,

USERNAME TYPE CDHDR-USERNAME,

UDATE TYPE CDHDR-UDATE,

TABKEY TYPE CDPOS-TABKEY,

END OF it_change.

DATA:BEGIN OF it_cDhdr OCCURS 0,

OBJECTID type CDHDR-OBJECTID,

CHANGENR TYPE CDHDR-CHANGENR,

USERNAME TYPE CDHDR-USERNAME,

UDATE TYPE CDHDR-UDATE,

END OF it_cdhdr.

DATA:search_len TYPE I.

DATA:BEGIN of it_insert OCCURS 0,

MATNR TYPE MARA-MATNR,

WERKS TYPE MARC-WERKS,

END OF it_insert.

DATA:BEGIN OF it_MAKT OCCURS 0,

MATNR TYPE MAKT-MATNR,

MAKTX TYPE MAKT-MAKTX,

END OF it_makt.

DATA IT_MARA TYPE TABLE OF MARA WITH HEADER LINE.

DATA:BEGIN OF IT_OUT OCCURS 0,

MATNR TYPE MARA-MATNR,

WERKS TYPE MARC-WERKS,

MTART TYPE MARA-MTART,

MEINS TYPE MARA-MEINS,

MATKL TYPE MARA-MATKL,

MAKTX TYPE MAKT-MAKTX,

PSTAT TYPE MARA-PSTAT,

BRGEW TYPE MARA-BRGEW,

NTGEW TYPE MARA-NTGEW,

GEWEI TYPE MARA-GEWEI,

FERTH TYPE MARA-FERTH,

KZUMW TYPE MARA-KZUMW,

ERNAM TYPE MARA-ERNAM,

ERSDA TYPE MARA-ERSDA,

END OF IT_OUT.

*-- DECLARE DATA FOR ALV

TYPE-POOLS: slis.

DATA : g_variant LIKE disvariant,

g_save(1) TYPE c,

g_exit(1) TYPE c,

gx_variant LIKE disvariant.

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE, "

gt_events TYPE slis_t_event,

gt_list_top_of_page TYPE slis_t_listheader,

gs_print TYPE slis_print_alv,

gs_layout TYPE slis_layout_alv .

******只能抓出系统有做更改的数据***************

******而第一次INSERT MARA的数据抓不出来********

START-OF-SELECTION.

SELECT A_{OBJECTID A}USERNAME A_{UDATE B}TABKEY
INTO TABLE it_change
FROM ( CDPOS AS B INNER JOIN CDHDR AS A ON
A_{OBJECTCLAS = B}OBJECTCLAS AND
A_{OBJECTID = B}OBJECTID AND
A_{CHANGENR = B}CHANGENR )
WHERE A~OBJECTCLAS = 'MATERIAL'
AND A~UDATE = l_ersda
AND B~TABNAME = 'MARC'
AND B~CHNGIND = 'I'.

LOOP AT it_change.
search_len = STRLEN( it_change-TABKEY ).
search_len = search_len - 4.
IF search_len > 0.
IT_MARC-WERKS = it_change-TABKEY+search_len(4).
ENDIF.
IT_MARC-MATNR = it_change-objectid+0(18).
IT_MARC-USERNAME = it_change-username.
IT_MARC-UDATE = It_change-udate.
IT_MARC-FLAG_UI = 'U'.
APPEND IT_MARC.
CLEAR IT_MARC.
CLEAR R_MATNR.
R_MATNR-SIGN = 'I'.
R_MATNR-OPTION = 'EQ'.
R_MATNR-LOW = IT_MARC-MATNR.
APPEND R_MATNR.
ENDLOOP.

****CDPOS is Cluster TABLE 所以没有办法用INNER JOIN******

SELECT OBJECTID CHANGENR USERNAME UDATE

INTO TABLE it_cdhdr

FROM CDHDR

WHERE OBJECTCLAS = 'MATERIAL'

AND UDATE = l_ersda.

AND TCODE = 'MM02'.

LOOP AT IT_cdhdr.

SELECT * FROM CDPOS

WHERE OBJECTCLAS = 'MATERIAL'

AND OBJECTID = IT_CDHDR-OBJECTID

AND CHANGENR = IT_CDHDR-CHANGENR

AND TABNAME = 'MARC'

AND CHNGIND = 'I'.

search_len = STRLEN( CDPOS-TABKEY ).

search_len = search_len - 4.

IF search_len > 0.

IT_MARC-WERKS = CDPOS-TABKEY+search_len(4).

ENDIF.

IT_MARC-MATNR = IT_cdhdr-objectid+0(18).

IT_MARC-USERNAME = IT_cdhdr-username.

IT_MARC-UDATE = IT_cdhdr-udate.

IT_MARC-FLAG_UI = 'U'.

APPEND IT_MARC.

CLEAR IT_MARC.

CLEAR R_MATNR.

R_MATNR-SIGN = 'I'.

R_MATNR-OPTION = 'EQ'.

R_MATNR-LOW = IT_MARC-MATNR.

APPEND R_MATNR.

CLEAR IT_MARC.

ENDSELECT.

ENDLOOP.

IF g_tcode_flag = 'L'.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

PERCENTAGE = 20

TEXT = '处理好当天CHANGE的数据'.

ENDIF.

*******抓当天做了INSERT的数据*************

*******不需要***********************

SELECT B_{MATNR B}WERKS INTO TABLE IT_INSERT
FROM MARC AS B JOIN MARA AS A
ON A_{MATNR = B}MATNR
WHERE A~ERSDA = l_ersda.

LOOP AT IT_INSERT.
IT_MARC-MATNR = IT_INSERT-MATNR.
IT_MARC-WERKS = IT_INSERT-WERKS.
IT_MARC-FLAG_UI = 'I'.
APPEND IT_MARC.
CLEAR IT_MARC.
CLEAR R_MATNR.
R_MATNR-SIGN = 'I'.
R_MATNR-OPTION = 'EQ'.
R_MATNR-LOW = IT_MARC-MATNR.
APPEND R_MATNR.
ENDLOOP.
IF g_tcode_flag = 'L'.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = 40
TEXT = '处理好当天INSERT的数据'.
ENDIF.

IF g_tcode_flag = 'L'.

PERFORM get_MAKTX.

PERFORM get_mara.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

PERCENTAGE = 100

TEXT = '处理好数据,并开始显示数据'.

PERFORM do_data.

PERFORM display_alv.

ELSE.

PERFORM get_MAKTX.

PERFORM do_ftp.

ENDIF.

&----

*& Form get_marktx

&----

text

----

FORM get_maktx.

SELECT MATNR MAKTX INTO TABLE IT_MAKT FROM MAKT

WHERE MATNR IN R_MATNR AND SPRAS = '1'.

ENDFORM. "get_marktx

&----

*& Form get_mara

&----

text

----

FORM get_mara.

SELECT * INTO TABLE it_mara FROM MARA

WHERE MATNR IN R_MATNR.

ENDFORM. "get_mara

&----

*& Form do_data

&----

text

----

FORM do_data.

SORT IT_MARC BY MATNR WERKS.

DELETE ADJACENT DUPLICATES FROM IT_MARC COMPARING MATNR WERKS.

LOOP AT IT_MARC.

CLEAR IT_MAKT.

CLEAR IT_MARA.

READ TABLE IT_MAKT WITH KEY MATNR = IT_MARC-MATNR.

READ TABLE IT_MARA WITH KEY MATNR = IT_MARC-MATNR.

MOVE-CORRESPONDING IT_MARA TO IT_OUT.

IT_OUT-MAKTX = IT_MAKT-MAKTX.

IT_OUT-WERKS = IT_MARC-WERKS.

IF IT_MARC-FLAG_UI = 'U'.

IT_OUT-ERNAM = IT_MARC-USERNAME.

ENDIF.

APPEND IT_OUT.

CLEAR IT_OUT.

ENDLOOP.

ENDFORM. "do_data

*SELECT A_{MATNR B}MAKTX INTO CORRESPONDING

*FIELDS OF FTP_ITEMDOC1 FROM MARA AS A JOIN MAKT AS B

*ON A_{MATNR = B}MATNR WHERE A~ERSDA = l_ersda

*AND B~SPRAS = '1' . "代表为中文说明。

APPEND FTP_ITEMDOC1.

*******DEVK909212****************

*******添加RANGE*****************

CLEAR R_MATNR.
R_MATNR-SIGN = 'I'.
R_MATNR-OPTION = 'EQ'.
R_MATNR-LOW = FTP_ITEMDOC1-MATNR.
APPEND R_MATNR.
CLEAR FTP_ITEMDOC1.

*******DEVK909212****************

*ENDSELECT.

*******DEVK909212****************

****get WERKS information from MARC*******

*SELECT MATNR WERKS INTO TABLE IT_MARC

*FROM MARC

*WHERE MATNR IN R_MATNR.

*******DEVK909212****************

******DEVK909212****************

**MARK**************************

*LOOP AT FTP_ITEMDOC1 .

MOVE : FTP_ITEMDOC1-MATNR TO FTP_ITEMDOC-MATNR,
FTP_ITEMDOC1-MATNR TO FTP_ITEMDOC-MATNR1,
FTP_ITEMDOC1-MAKTX TO FTP_ITEMDOC-MAKTX.
APPEND FTP_ITEMDOC.
CLEAR FTP_ITEMDOC.

*ENDLOOP.

******DEVK909212****************

******DEVK909212***********************************

**根据IT_MARC中信息，往北京和福清的TABLE写数据*****

FORM do_ftp.

LOOP AT IT_MARC.

***福清的

IF IT_MARC-WERKS = '1010' OR IT_MARC-WERKS = '1020'

OR IT_MARC-WERKS = '1023' .

READ TABLE FTP_ITEMDOC1 WITH KEY MATNR = IT_MARC-MATNR.

MOVE : FTP_ITEMDOC1-MATNR TO FTP_FUQING-MATNR,
FTP_ITEMDOC1-MATNR TO FTP_FUQING-MATNR1,
FTP_ITEMDOC1-MAKTX TO FTP_FUQING-MAKTX.

CLEAR IT_MAKT.

READ TABLE IT_MAKT WITH KEY = IT_MARC-MATNR.

MOVE : IT_MARC-MATNR TO FTP_FUQING-MATNR,

IT_MARC-MATNR TO FTP_FUQING-MATNR1,

IT_MAKT-MAKTX TO FTP_FUQING-MAKTX.

APPEND FTP_FUQING.

CLEAR FTP_FUQING.

ENDIF.

***北京的

IF IT_MARC-WERKS = '1041' OR IT_MARC-WERKS = '1042'.

READ TABLE FTP_ITEMDOC1 WITH KEY MATNR = IT_MARC-MATNR.
MOVE : FTP_ITEMDOC1-MATNR TO FTP_BEIJING-MATNR,
FTP_ITEMDOC1-MATNR TO FTP_BEIJING-MATNR1,
FTP_ITEMDOC1-MAKTX TO FTP_BEIJING-MAKTX.

CLEAR IT_MAKT.

READ TABLE IT_MAKT WITH KEY = IT_MARC-MATNR.

MOVE : IT_MARC-MATNR TO FTP_BEIJING-MATNR,

IT_MARC-MATNR TO FTP_BEIJING-MATNR1,

IT_MAKT-MAKTX TO FTP_BEIJING-MAKTX.

APPEND FTP_BEIJING.

CLEAR FTP_BEIJING.

ENDIF.

ENDLOOP.

****清楚重复的数据**********

SORT FTP_FUQING.

DELETE ADJACENT DUPLICATES FROM FTP_FUQING.

SORT FTP_BEIJING.

DELETE ADJACENT DUPLICATES FROM FTP_BEIJING.

***传送数据********

REFRESH FTP_ITEMDOC.

FTP_ITEMDOC[] = FTP_FUQING[].

FTP_WERKS = '1010'.

PERFORM ftp_work.

REFRESH FTP_ITEMDOC.

FTP_ITEMDOC[] = FTP_BEIJING[].

FTP_WERKS = '1041'.

PERFORM ftp_work.

******DEVK909212***********************************

ENDFORM. "do_ftp

&----

*& Form ftp_work

&----

把以前FTP的工作做一个FORM

----

*******DEVK909212**************************

FORM ftp_work.

*******DEVK909212**************************

CHECK FTP_ITEMDOC[] IS NOT INITIAL.

FTP function *****************************************************

DATA : HDL TYPE I,

L_SLEN TYPE I ,

ERROR,

KEY TYPE I VALUE 26101957,

DEST TYPE RFCDES-RFCDEST VALUE 'SAPFTPA'.

DATA: FTP_RESULT TYPE TABLE OF TEXT.

DATA: P_FILE TYPE RLGRAP-FILENAME.

DATA: L_USER(16) TYPE C VALUE 'SFIS',

L_PWD(16) TYPE C VALUE 'SFIS',

L_HOST(16) TYPE C VALUE '172.16.31.17'.

*******DEVK909212**************************

*****根据不同的工厂来抓FTP的信息

CALL FUNCTION 'Z_FTP_SFIS'

EXPORTING

BLART = 'S'

WERKS = FTP_WERKS

IMPORTING

HOST = L_HOST

USER1 = L_USER

PASS1 = L_PWD.

*******DEVK909212**************************

CONCATENATE l_ersda '.KP' INTO P_FILE.

SET EXTENDED CHECK OFF.

ERROR = 0.

CHECK HDL IS INITIAL.

Connect to server

L_SLEN = STRLEN( L_PWD ).

CALL FUNCTION 'HTTP_SCRAMBLE'

EXPORTING

SOURCE = L_PWD

SOURCELEN = L_SLEN

KEY = KEY

IMPORTING

DESTINATION = L_PWD.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
TEXT = 'Connect to FTP Server'.

CALL FUNCTION 'FTP_CONNECT'

EXPORTING

USER = L_USER

PASSWORD = L_PWD

HOST = L_HOST

RFC_DESTINATION = DEST

IMPORTING

HANDLE = HDL

EXCEPTIONS

NOT_CONNECTED = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

MOVE: 'B' TO WA_ZMSGTA-BLART,

l_ersda TO WA_ZMSGTA-REFNUMBER,

SY-MSGTY TO WA_ZMSGTA-MSGTY,

'MARA' TO WA_ZMSGTA-TBMA_VAL.

EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3

SY-MSGV4 WA_ZMSGTA-MSE1.

ERROR_MSG_UPDATA WA_ZMSGTA.

EXIT.

ENDIF.

CALL FUNCTION 'FTP_COMMAND'

EXPORTING

HANDLE = HDL

COMMAND = 'ascii'

TABLES

DATA = FTP_RESULT

EXCEPTIONS

TCPIP_ERROR = 1

COMMAND_ERROR = 2

DATA_ERROR = 3.

IF SY-SUBRC <> 0.

EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3

SY-MSGV4 WA_ZMSGTA-MSE1.

MOVE: 'B' TO WA_ZMSGTA-BLART,

l_ersda TO WA_ZMSGTA-REFNUMBER,

SY-MSGTY TO WA_ZMSGTA-MSGTY,

'MARA' TO WA_ZMSGTA-TBMA_VAL.

ERROR_MSG_UPDATA WA_ZMSGTA.

EXIT.

ENDIF.

CALL FUNCTION 'FTP_R3_TO_SERVER'

EXPORTING

HANDLE = HDL

FNAME = P_FILE

CHARACTER_MODE = 'X'

TABLES

TEXT = FTP_ITEMDOC

EXCEPTIONS

TCPIP_ERROR = 1

COMMAND_ERROR = 2

DATA_ERROR = 3

OTHERS = 4.

IF SY-SUBRC <> 0.

EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3

SY-MSGV4 WA_ZMSGTA-MSE1.

MOVE: 'B' TO WA_ZMSGTA-BLART,

l_ersda TO WA_ZMSGTA-REFNUMBER,

SY-MSGTY TO WA_ZMSGTA-MSGTY,

'MARA' TO WA_ZMSGTA-TBMA_VAL.

ERROR_MSG_UPDATA WA_ZMSGTA.

EXIT.

ENDIF.

*******DEVK909212**************************

*******CLOSE FTP******************

CHECK NOT HDL IS INITIAL.

CALL FUNCTION 'FTP_DISCONNECT'

EXPORTING

HANDLE = HDL.

CALL FUNCTION 'RFC_CONNECTION_CLOSE'

EXPORTING

DESTINATION = DEST

EXCEPTIONS

OTHERS = 1.

CLEAR HDL.

ENDFORM. "ftp_work

*******DEVK909212**************************

FORM DISPLAY_ALV .

*-- PREPARE ALV DATA

PERFORM EVENTTAB_BUILD USING GT_EVENTS[].

PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].

*-- LAYOUT SETTING

PERFORM PREPARE_ALV_FIELD USING GT_FIELDCAT[].

*-- ALV DISPLAY

PERFORM CALL_REUSE_ALV_GRID_DISPLAY.

ENDFORM. " display_alv

&----

*& Form eventtab_build

&----

text

----

-->P_GT_EVENTS[] text

----

FORM EVENTTAB_BUILD USING PT_EVENTS TYPE SLIS_T_EVENT.

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = PT_EVENTS.

READ TABLE PT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE

INTO LS_EVENT.

IF SY-SUBRC = 0.

LS_EVENT-FORM = 'TOP_OF_PAGE'.

MODIFY PT_EVENTS FROM LS_EVENT INDEX SY-TABIX.

ENDIF.

ENDFORM. " eventtab_build

&----

*& Form comment_build

&----

text

----

-->P_GT_LIST_TOP_OF_PAGE[] text

----

FORM COMMENT_BUILD USING PT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.

DATA: LS_LINE TYPE SLIS_LISTHEADER,

L_DATE(30),

l_v_BWKEY like T001W-BWKEY, "Valuation area

l_v_BUKRS like T001K-BUKRS. "Firm/Company

Listenerschrift: Typ H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.

LS_LINE-KEY: not used for this type

select single BWKEY
into l_v_BWKEY
from t001w
where WERKS IN s_WERKS.

select single BUKRS
into l_v_BUKRS
from t001k
where BWKEY = l_v_BWKEY.

SELECT SINGLE butxt INTO LS_LINE-INFO
FROM t001
WHERE bukrs = l_v_BUKRS.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
Kopfinfo: Typ S

CLEAR LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-KEY = '报表名称：'.

LS_LINE-INFO = SY-TITLE.

APPEND LS_LINE TO PT_TOP_OF_PAGE.

CLEAR LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-KEY = '打印日期：'.

WRITE SY-DATUM TO LS_LINE-INFO.

ls_line-info = sy-datum.

APPEND LS_LINE TO PT_TOP_OF_PAGE.

CLEAR LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-KEY = '打印時間：'.

WRITE SY-UZEIT TO LS_LINE-INFO.

ls_line-info = sy-uzeit.

APPEND LS_LINE TO PT_TOP_OF_PAGE.

CLEAR LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-KEY = '使用者：'.

LS_LINE-INFO = SY-UNAME.

APPEND LS_LINE TO PT_TOP_OF_PAGE.

ENDFORM. " comment_build

&----

*& Form prepare_alv_field

&----

text

----

-->P_GT_FIELDCAT[] text

----

FORM PREPARE_ALV_FIELD USING P_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: LS_LINE TYPE SLIS_FIELDCAT_ALV.

*-- DEFINE MARCO

DEFINE APPEND_ALV_FIELD.

CLEAR LS_LINE.

LS_LINE-FIELDNAME = &1.

LS_LINE-TABNAME = &2.

LS_LINE-REPTEXT_DDIC = &3.

LS_LINE-SELTEXT_L = &3.

LS_LINE-SELTEXT_M = &3.

LS_LINE-SELTEXT_S = &3.

LS_LINE-QFIELDNAME = &4.

LS_LINE-QTABNAME = &5.

LS_LINE-NO_OUT = &6.

LS_LINE-NO_ZERO = &7.

LS_LINE-OUTPUTLEN = &8.

APPEND LS_LINE TO P_FIELDCAT.

END-OF-DEFINITION.

APPEND_ALV_FIELD: 'MATNR' 'IT_OUT' '料号'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'WERKS' 'IT_OUT' '工厂'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'MTART' 'IT_OUT' 'MTyp'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'MEINS' 'IT_OUT' 'BUn'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'MATKL' 'IT_OUT' '物料组\分群码'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'MATKX' 'IT_OUT' '物料描述'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'PSTAT' 'IT_OUT' '维护状态'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'BRGEW' 'IT_OUT' '毛重'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'NTGEW' 'IT_OUT' '净重'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'GEWEI' 'IT_OUT' 'WUn'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'FERTH' 'IT_OUT' '对外机种名'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'KZUMW' 'IT_OUT' '高关税标识'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'ERNAM' 'IT_OUT' '创建者'

'' ''

'O' 'X' ''.

APPEND_ALV_FIELD: 'ERSDA' 'IT_OUT' '创建日期'

'' ''

'O' 'X' ''.

ENDFORM. " prepare_alv_field

&----

*& Form call_reuse_alv_grid_display

&----

text

----

--> p1 text
<-- p2 text

----

FORM CALL_REUSE_ALV_GRID_DISPLAY .

gs_layout-f2code = 'DISPLAY'.

gs_print-no_print_listinfos = 'X'.

gs_layout-colwidth_optimize = 'X'. "列宽度自动根据内容优化

gs_layout-f2code = '&ETA'. "double check弹出详细信息

gs_layout-zebra = 'X'. "清单条纹显示

gs_layout-no_vline = ''. "是否显示列间隔线

gs_layout-box_fieldname = ''. "是否显示checkbox

gs_layout-confirmation_prompt = ''. "推出清单是否提示

gs_layout-detail_titlebar = '详细信息'."详细清单的标题

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-CPROG

I_BACKGROUND_ID = 'ALV_BACKGROUND'

I_CALLBACK_PF_STATUS_SET = 'ALV_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'ALV_USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = GT_LIST_TOP_OF_PAGE[]

IT_FIELDCAT = GT_FIELDCAT[]

IT_EVENTS = GT_EVENTS[]

I_STRUCTURE_NAME = 'IT_OUT'

I_SAVE = 'A'

IS_LAYOUT = GS_LAYOUT

IS_PRINT = GS_PRINT

TABLES

T_OUTTAB = IT_OUT

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " call_reuse_alv_grid_display

&----

*& Form PREPARE_ALV_FIELD

&----

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.

ENDFORM. "TOP_OF_PAGE

topic Re: ALV issue: when save list using Local File command will get run time error! in Application Development and Automation Discussions

ALV issue: when save list using Local File command will get run time error!

Re: ALV issue: when save list using Local File command will get run time error!

Re: ALV issue: when save list using Local File command will get run time error!

Re: ALV issue: when save list using Local File command will get run time error!