abap 导入队列末尾_ABAP DEMO so批量导入

*&---------------------------------------------------------------------**& Report YDEMO_015*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*

REPORTYDEMO_015.*&---------------------------------------------------------------------**& TOP*&---------------------------------------------------------------------*"相关表引用声明

TABLES:VBAK, VBAP,

EKKO, EKPO,

EKET, MEAN,

MARA, MAKT,

MARD, MARC,

EORD, LFA1,

EINA, T023T,

T001W,T001L,

KNA1, TVKO,

TVKOV,TVAK,

TVBUR.TABLES:SSCRFIELDS.*----------------------------------------------------------------------*Internal table*----------------------------------------------------------------------*&EXCEL上传数据结构

TYPES:BEGIN OFTY_UP,

BSTNKLIKE VBAK-BSTNK, "客户订单号码

KUNNR LIKE VBAK-KUNNR, "客户代码

NAME1 LIKE KNA1-NAME1, "客户名称1

STREET LIKE ADRC-STREET,"送货地址(KNA1-ADRNR->ADRC)

AUART LIKE VBAK-AUART, "SAP销售订单类型

VKORG LIKE VBAK-VKORG, "销售组织

VKBUR LIKE VBAK-VKBUR, "销售部门

MATNR LIKE VBAP-MATNR, "商品编码

MAKTX LIKE MAKT-MAKTX, "商品名称

KWMENG LIKE VBAP-KWMENG,"销售数量

VRKME LIKE VBAP-VRKME, "销售单位

KBETRLIKE KONV-KBETR, "单价

WAERK LIKE VBAP-WAERK, "币种

KMEIN LIKE VBAP-KMEIN, "EKPO-PEINH, "价格单位

VDATU LIKE VBAK-VDATU, "交货日期

WERKS LIKE VBAP-WERKS, "发货地点

VTWEG LIKE VBAK-VTWEG, "分销渠道

SPART LIKE VBAK-SPART, "产品组

VBELNLIKE VBAK-VBELN,

FLAG(1),

ICONTYPE C, "图标

SEL TYPEC,

LIN(08) TYPE N, "LIKE SY-TABIX,

REASON(500),END OFTY_UP.TYPES:BEGIN OF TY_HA, "EXCEL上传数据结构

BSTNK LIKE VBAK-BSTNK, "客户订单号码

KUNNR LIKE VBAK-KUNNR, "客户

NAME1 LIKE KNA1-NAME1, "客户名称1

STREET LIKE ADRC-STREET,"送货地址(KNA1-ADRNR->ADRC)

AUART LIKE VBAK-AUART, "SAP销售订单类型

VKORG LIKE VBAK-VKORG, "销售组织

VKBUR LIKE VBAK-VKBUR, "销售部门

VTWEG LIKE VBAK-VTWEG, "销售渠道

SPART LIKE VBAK-SPART, "产品组

VDATU LIKE VBAK-VDATU, "交货日期

VBELNLIKE VBAK-VBELN,

FLAG(1),

ICONTYPE C, "图标

REASON(500),

LINTYPE SY-TABIX,

SELTYPEC,END OFTY_HA.DATA:GT_UP TYPE STANDARD TABLE OFTY_UP,

WA_UPTYPETY_UP,*&so抬头数据

GT_HA TYPE STANDARD TABLE OFTY_HA,

WA_HATYPETY_HA,*&比对重复记录

GT_UPE TYPE STANDARD TABLE OFTY_HA,

WA_UPETYPETY_HA,*&创建so

GT_HEAD TYPE STANDARD TABLE OF TY_HA WITH HEADER LINE,

WA_HEADTYPETY_HA,

LT_HEADLIKE TABLE OFGT_HEAD,

GT_ITABLIKE STANDARD TABLE OF ALSMEX_TABLINE WITH HEADER LINE,

G_TABIXLIKE SY-TABIX.*GT_TVAK LIKE TVAK OCCURS 0 WITH HEADER LINE,

FIELD-SYMBOLS : TYPEANY.*----------------------------------------------------------------------*Variants*----------------------------------------------------------------------

DATA: G_LIN TYPEI,

G_SLINTYPEI,

G_FLINTYPEI,

G_TEXT(80).DATA: C_ECOL TYPEI ,

G_FILETYPECHAR20,

G_NAMETYPECHAR40.DATA:L_VBELN LIKE BAPIVBELN-VBELN.DATA:WA_HEADER TYPE BAPISDHD1, " WA_HEADERX TYPE BAPISDHD1X, " WA_PARTNER TYPE BAPIPARNR, " WA_ITEM TYPEBAPISDITM,

WA_ITEMXTYPEBAPISDITMX,

WA_CONDTYPEBAPICOND,

WA_CONDXTYPEBAPICONDX,

WA_SCHTYPEBAPISCHDL,

WA_BAPETYPEBAPE_VBAK,

WA_EXTYPEBAPIPAREX,

WA_TEXTTYPEBAPISDTEXT,

LT_PARTTYPE STANDARD TABLE OFBAPIPARNR,

LT_ITEMTYPE STANDARD TABLE OFBAPISDITM,

LT_ITEMXTYPE STANDARD TABLE OFBAPISDITMX,

LT_SCHTYPE STANDARD TABLE OFBAPISCHDL,

LT_SCHXTYPE STANDARD TABLE OFBAPISCHDLX,

L_RETURNLIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,

LT_CONDTYPE STANDARD TABLE OFBAPICOND,

LT_CONDXTYPE STANDARD TABLE OFBAPICONDX,

LT_TEXTLIKE STANDARD TABLE OFBAPISDTEXT,

LT_EXTYPE STANDARD TABLE OFBAPIPAREX.*---------------------------------------------------------------------**Data parameters for alv report use*---------------------------------------------------------------------*

DATA: G_PROGRAM TYPE SY-REPID,

GS_LAYOUTTYPESLIS_LAYOUT_ALV,

GS_LAYOUT1TYPESLIS_LAYOUT_ALV,

GT_FIELDCATTYPESLIS_T_FIELDCAT_ALV,

GS_FIELDCATLIKE LINE OFGT_FIELDCAT,

GT_FIELDCAT1TYPESLIS_T_FIELDCAT_ALV,

GS_FIELDCAT1LIKE LINE OFGT_FIELDCAT,

WA_FIELDCATTYPESLIS_FIELDCAT_ALV,

WA_FIELDCAT1TYPESLIS_FIELDCAT_ALV,

IT_EVENTSTYPE SLIS_T_EVENT WITH HEADER LINE,

GT_EVENTTYPESLIS_T_EVENT,

WA_EVENTTYPESLIS_ALV_EVENT.DATA: GT_LIST_TOP_OF_PAGE TYPESLIS_T_LISTHEADER.DATA: GC_FORMNAME_TOP_OF_PAGE TYPESLIS_FORMNAME

VALUE'ALV_TOP_OF_PAGE'.RANGES:R_BSTNK FOR VBAK-BSTNK."客户订单号码

*************************************************************************Select Screen *************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.PARAMETERS:P_FNAME LIKE RLGRAP-FILENAME MEMORY ID M01. "OBLIGATORY.TYPE STRING

SELECTION-SCREEN END OF BLOCKBLK1.SELECTION-SCR