REPORT
zlm_test_026.
DATA:BEGIN OF gt_data OCCURS 0,
*
txz01 TYPE string,"短文本
DATA: BEGIN OF gt_out OCCURS 0,
DATA:
poheader
LIKE TABLE OF bapimepoheader
WITH HEADER LINE ,
DATA: epo LIKE bapimepoheader-po_number.
DATA: l_return LIKE return.
DATA: lv_message(255).
CONSTANTS: con VALUE 'X'.
DATA: pp_file TYPE string.
DATA: lifnr TYPE elifn.
DATA: netpr TYPE bprei.
DATA: bstae TYPE bstae.
DATA: matnr TYPE matnr.
DATA: waers TYPE waers.
PARAMETERS:p_file(128) .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
START-OF-SELECTION.
*&---------------------------------------------------------------------*
FORM get_file .
ENDFORM.
" GET_FILE
*&---------------------------------------------------------------------*
*&
Form
GET_DATA
*&---------------------------------------------------------------------*
FORM get_data .
*
HEADER_LENGTH
= 0
*
DAT_MODE
= ' '
*
CODEPAGE
= ' '
*
IGNORE_CERR
= ABAP_TRUE
*
REPLACEMENT
= '#'
*
CHECK_BOM
= ' '
*
VIRUS_SCAN_PROFILE
=
*
NO_AUTH_CHECK
= ' '
* IMPORTING
*
FILELENGTH
=
*
HEADER
=
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDFORM.
" GET_DATA
*&---------------------------------------------------------------------*
*&
Form
CREATE_PO
*&---------------------------------------------------------------------*
FORM create_po .
*
poitem-short_text
= gt_data-txz01.
"短文本
*
poitemx-short_t ext = con.
"短文本
*
POADDRVENDOR
=
*
TESTRUN
=
*
MEMORY_UNCOMPLETE
=
*
MEMORY_COMPLETE
=
*
POEXPIMPHEADER
=
*
POEXPIMPHEADERX
=
*
VERSIONS
=
*
NO_MESSAGING
=
*
NO_MESSAGE_REQ
=
*
NO_AUTHORITY
=
*
NO_PRICE_FROM_PO
=
*
EXPHEADER
=
*
EXPPOEXPIMPHEADER
=
*
POADDRDELIVERY
=
*
POACCOUNTPROFITSEGMENT =
*
POCONDHEADER
=
*
POCONDHEADERX
=
*
POCOND
=
*
POCONDX
=
*
POLIMITS
=
*
POCONTRACTLIMITS
=
*
POSERVICES
=
*
POSRVACCESSVALUES
=
*
POSERVICESTEXT
=
*
EXTENSIONIN
=
*
EXTENSIONOUT
=
*
POEXPIMPITEM
=
*
POEXPIMPITEMX
=
*
POTEXTHEADER
=
*
ALLVERSIONS
=
*
POPARTNER
=
*
POCOMPONENTS
=
*
POCOMPONENTSX
=
*
POSHIPPING
=
*
POSHIPPINGX
=
*
POSHIPPINGEXP
=
ENDFORM.
" CREATE_PO
*&---------------------------------------------------------------------*
*&
Form
WRITE_OUT
*&---------------------------------------------------------------------*
FORM write_out .
ENDFORM.
"write_out
*本文转载于美女ABAP Elaine的博客,导入数据列中用tab分隔,因无法链接附件,只能以如下方式给出测试数据:(字段列请参照以上程序中内表 gt_data)
**ZNB 200009 H001 H11 ZH08
1
100009 10 EA 20100815
RMB R0101 D005
J1
**ZNB 200009 H001 H11 ZH08
2
100008 20 EA 20100815
RMB R0102 D005
J1
**ZNB 200009 H001 H11 ZH08
3
100009 20 EA 20100915
RMB R0101 D006
J1