SAP中从记事本传参.docxVIP

matnr

TYPE

matnr,

posnr

TYPE

sposn,

postp

TYPE

postp,

matnr1TYPEmatnr,

menge

TYPE

kmpmg,

sortf

TYPE

sortp,

itsob

TYPE

cs_sobsl,

potx1

TYPE

potx1,

ENDOFstr_data.

DATA:BEGINOFstr_ma,matnrTYPEmatnr,dateTYPEsy-datum,ENDOFstr_ma.

DATA:itmaLIKETABLEOFstr_maWITHHEADERLINE.DATA:itabLIKETABLEOFstr_dataWITHHEADERLINE.

Data:itab_tempLIKETABLEOFitabWITHHEADERLINE.较验唯一性临时使

用的表

Data:itab_temp1LIKETABLEOFitabWITHHEADERLINE.较验唯一性临时使用的表

DATA:

DATA:DATA:

bdcdataLIKEbdcdataOCCURS0

message_tableLIKEbdcmsgcollBEGINOFit_messageOCCURS0,

WITHHEADERLINE.

OCCURS0WITHHEADERLINE.

msgtpTYPEbdc_mart,

matnrLIKEmakt-matnr,

text(40),

ENDOFit_message.

SELECTION-SCREENBEGINOFBLOCKblkWITHFRAMETITLEtext-001.PARAMETERS:p_typTYPEctu_modeOBLIGATORYDEFAULTN,

p_fileLIKErlgrap-filenameOBLIGATORY.SELECTION-SCREENENDOFBLOCKblk.

SELECTION-SCREEN

SKIP.

SELECTION-SCREEN

BEGINOFBLOCK

blk1WITHFRAMETITLEtext-002.

SELECTION-SCREEN

COMMENT/1(79)

text-003.

SELECTION-SCREEN

COMMENT/1(79)

text-004.

SELECTION-SCREENENDOFBLOCKblk1.

ATSELECTION-SCREENONVALUE-REQUESTFORp_file.

PERFORMselect_file.

START-OF-SELECTION.

PERFORMdwon_data.PERFORMcheck_only.

PERFORMpross_data.PERFORMfrm_output.

*

*

* Form SELECT_FILE

*

*

* text

*

*

* --

p1

text

* --

p2

text

*

*

FORMselect_file.

DATA:l_filetabTYPEfiletable,l_waftabLIKELINEOFl_filetab,l_rcTYPEi.

CALLMETHODcl_gui_frontend_services=file_open_dialogEXPORTING

window_title

=

打开文件

* DEFAULT_EXTENSION

=

* DEFAULT_FILENAME

=

* FILE_FILTER

=

* WITH_ENCODING

=

initial_directory

=

C:/

* MULTISELECTION

CHANGING

=

file_table

=

l_filetab

rc

=

l_rc

* USER_ACTION

=

* FILE_ENCODING

=

EXCEPTIONS

file_open_dialog_failed=1

cntl_error

=

2

error_no_gui

=

3

not_supported_by_gui

=

4

OTHERS

=

5

.

IFsy-subrc0.

MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.

EXIT.ELSE.

READTABLEl_filetabINTOl_waftabINDEX1.p_file=l_waftab