Solved: ALV issue: when save list using Local File command...

Former Member · ‎2007 Aug 10

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

Former Member · ‎2007 Aug 10

check your field catalog .

rfeerence field.

former_member194669 · ‎2007 Aug 10

Hi,

Please check your field catalog and refer field names once again.

Check spelling, or Check strucutre properly.

There are something wrong in your catalog definition

aRs.

Former Member · ‎2007 Aug 10

check your field catalog .

rfeerence field.

Former Member · ‎2007 Aug 10

thank you !

reason:

LS_LINE-SELTEXT_S = &3. the length is 10 char.

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My Account

My Account

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