*&---------------------------------------------------------------------*
*& Report YDEMO_015
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT YDEMO_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 OF TY_UP,
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, "销售部门
MATNR LIKE VBAP-MATNR, "商品编码
MAKTX LIKE MAKT-MAKTX, "商品名称
KWMENG LIKE VBAP-KWMENG,"销售数量
VRKME LIKE VBAP-VRKME, "销售单位
KBETR LIKE 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, "产品组
VBELN LIKE VBAK-VBELN,
FLAG(1),
ICON TYPE C, "图标
SEL TYPE C,
LIN(08) TYPE N, "LIKE SY-TABIX,
REASON(500),
END OF TY_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, "交货日期
VBELN LIKE VBAK-VBELN,
FLAG(1),
ICON TYPE C, "图标
REASON(500),
LIN TYPE SY-TABIX,
SEL TYPE C,
END OF TY_HA.
DATA:GT_UP TYPE STANDARD TABLE OF TY_UP,
WA_UP TYPE TY_UP,
*&so抬头数据
GT_HA TYPE STANDARD TABLE OF TY_HA,
WA_HA TYPE TY_HA,
*&比对重复记录
GT_UPE TYPE STANDARD TABLE OF TY_HA,
WA_UPE TYPE TY_HA,
*&创建so
GT_HEAD TYPE STANDARD TABLE OF TY_HA WITH HEADER LINE,
WA_HEAD TYPE TY_HA,
LT_HEAD LIKE TABLE OF GT_HEAD,
GT_ITAB LIKE STANDARD TABLE OF ALSMEX_TABLINE WITH HEADER LINE,
G_TABIX LIKE SY-TABIX.
* GT_TVAK LIKE TVAK OCCURS 0 WITH HEADER LINE,
FIELD-SYMBOLS : <FS> TYPE ANY.
*----------------------------------------------------------------------
* Variants
*----------------------------------------------------------------------
DATA: G_LIN TYPE I,
G_SLIN TYPE I,
G_FLIN TYPE I,
G_TEXT(80).
DATA: C_ECOL TYPE I ,
G_FILE TYPE CHAR20,
G_NAME TYPE CHAR40.
DATA:L_VBELN LIKE BAPIVBELN-VBELN.
DATA:WA_HEADER TYPE BAPISDHD1, "
WA_HEADERX TYPE BAPISDHD1X, "
WA_PARTNER TYPE BAPIPARNR, "
WA_ITEM TYPE BAPISDITM,
WA_ITEMX TYPE BAPISDITMX,
WA_COND TYPE BAPICOND,
WA_CONDX TYPE BAPICONDX,
WA_SCH TYPE BAPISCHDL,
WA_BAPE TYPE BAPE_VBAK,
WA_EX TYPE BAPIPAREX,
WA_TEXT TYPE BAPISDTEXT,
LT_PART TYPE STANDARD TABLE OF BAPIPARNR,
LT_ITEM TYPE STANDARD TABLE OF BAPISDITM,
LT_ITEMX TYPE STANDARD TABLE OF BAPISDITMX,
LT_SCH TYPE STANDARD TABLE OF BAPISCHDL,
LT_SCHX TYPE STANDARD TABLE OF BAPISCHDLX,
L_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
LT_COND TYPE STANDARD TABLE OF BAPICOND,
LT_CONDX TYPE STANDARD TABLE OF BAPICONDX,
LT_TEXT LIKE STANDARD TABLE OF BAPISDTEXT,
LT_EX TYPE STANDARD TABLE OF BAPIPAREX.
*---------------------------------------------------------------------*
* Data parameters for alv report use
*---------------------------------------------------------------------*
DATA: G_PROGRAM TYPE SY-REPID,
GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
GS_LAYOUT1 TYPE SLIS_LAYOUT_ALV,
GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
GS_FIELDCAT LIKE LINE OF GT_FIELDCAT,
GT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
GS_FIELDCAT1 LIKE LINE OF GT_FIELDCAT,
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,
IT_EVENTS TYPE SLIS_T_EVENT WITH HEADER LINE,
GT_EVENT TYPE SLIS_T_EVENT,
WA_EVENT TYPE SLIS_ALV_EVENT.
DATA: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_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 BLOCK BLK1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS:P_TEST RADIOBUTTON GROUP RAD1 DEFAULT 'X',
P_EXCUTE RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN : END OF BLOCK B2.
*&------------------------------------------------------------------*
*& INITIALIZATION
*&------------------------------------------------------------------*
INITIALIZATION.
PERFORM FRM_INIT_FIELD.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
MASK = '*.xls'
STATIC = 'X'
CHANGING
FILE_NAME = P_FNAME.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
AT SELECTION-SCREEN.
PERFORM FRM_CHECK_AUTHOR.
PERFORM FRM_DOWN_EXCEL.
START-OF-SELECTION.
PERFORM FRM_GET_DATA.
*&test run
IF P_TEST EQ 'X'.
PERFORM FRM_TEST_RUN.
ENDIF.
*&---------------------------------------------------------------------*
*& Form FRM_INIT_FIELD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_INIT_FIELD .
SSCRFIELDS-FUNCTXT_01 = '下载EXCEL模板'.
C_ECOL = 16.
G_FILE = 'ZDQT005'.
G_NAME = '\电器采销售订单导入模板.XLS'.
ENDFORM. " FRM_INIT_FIELD
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_AUTHOR
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_CHECK_AUTHOR .
ENDFORM. " FRM_CHECK_AUTHOR
*&---------------------------------------------------------------------*
*& Form FRM_DOWN_EXCEL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_DOWN_EXCEL .
DATA:LW_PATH TYPE STRING.
DATA:L_FORMKEY LIKE WWWDATATAB,
L_FILE TYPE CHAR20,
L_PATH TYPE LOCALFILE,
L_TYPE TYPE FILEFORMAT,
L_NAME TYPE CHAR40.
IF SSCRFIELDS-UCOMM = 'FC01'.
*&S1.选择文件路径
* CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
* EXPORTING
* MASK = '*.xls'
* STATIC = 'X'
* CHANGING
* FILE_NAME = P_FNAME.
* IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* ENDIF.
* L_TYPE = 'XLS'.
*&S2.下载文件
CONCATENATE 'MI' G_FILE INTO L_FORMKEY.
* CONCATENATE P_FNAME G_NAME INTO L_PATH.
CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
EXPORTING
KEY = L_FORMKEY
DESTINATION = L_PATH
CHANGING
TEMP = L_PATH.
ELSE.
IF P_FNAME IS INITIAL.
MESSAGE E001(00) WITH '请输入文件路径！'.
STOP.
ENDIF.
ENDIF.
ENDFORM. " FRM_DOWN_EXCEL
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA .
*&一致性检查:
DATA:L_INDEX TYPE I,
LR_OREF TYPE REF TO CX_ROOT,
LV_TEXT TYPE STRING.
DATA:LT_RAW TYPE TRUXS_T_TEXT_DATA.
CLEAR:GT_UP[],GT_HA[],
WA_UP, WA_HEAD,
GT_ITAB[], GT_ITAB.
*&S1.读取上传excel到内表
* ( CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' )"要进行行列转换 限制1W行，
* ( CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP' )"直接转换到目标内表
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR =
I_LINE_HEADER = 'X'
I_TAB_RAW_DATA = LT_RAW
I_FILENAME = P_FNAME
TABLES
I_TAB_CONVERTED_DATA = GT_UP
EXCEPTIONS
CONVERSION_FAILED = 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.
*&S2.内表单元格检查
LOOP AT GT_UP INTO WA_UP.
G_TABIX = SY-TABIX.
WA_UP-LIN = SY-INDEX.
*&2.1客户订单号码
IF WA_UP-BSTNK IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
WA_UP-REASON = '客户订单号码必输！'.
ELSE.
SELECT SINGLE *
FROM VBAK
WHERE BSTNK = WA_UP-BSTNK.
IF SY-SUBRC = 0.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '客户订单:' WA_UP-BSTNK '已导入' ' /' WA_UP-REASON INTO
WA_UP-REASON.
ENDIF.
ENDIF.
*&S2.1.1栏位格式转换
CONDENSE WA_UP-KUNNR NO-GAPS.
CONDENSE WA_UP-MATNR NO-GAPS.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = WA_UP-KUNNR
IMPORTING
OUTPUT = WA_UP-KUNNR.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
INPUT = WA_UP-MATNR
IMPORTING
OUTPUT = WA_UP-MATNR.
*&2.2客户代码检查
IF WA_UP-KUNNR IS NOT INITIAL.
SELECT SINGLE *
FROM KNA1
WHERE KUNNR = WA_UP-KUNNR.
IF SY-SUBRC NE 0.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '客户代码错误' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
ELSE.
*& KNVV里找默认的零售的客户代码
SELECT SINGLE KUNNR
INTO WA_UP-KUNNR
FROM KNVV
WHERE VKORG EQ WA_UP-VKORG
AND VTWEG EQ WA_UP-VTWEG
AND SPART EQ WA_UP-SPART.
IF SY-SUBRC NE 0.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '找不到默认零售客户,请检查！' ' /' WA_UP-REASON INTO
WA_UP-REASON.
ENDIF.
ENDIF.
*&2.3客户名称
IF WA_UP-KUNNR IS INITIAL.
IF WA_UP-NAME1 IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '客户名称必输!' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
ENDIF.
*&2.4送货地址
IF WA_UP-KUNNR IS INITIAL.
IF WA_UP-STREET IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '送货地址必输！' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
ENDIF.
*&2.5订单类型
IF WA_UP-AUART IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '订单类型必输！' ' /' WA_UP-REASON INTO WA_UP-REASON.
ELSE.
*&订单类型检查
SELECT SINGLE *
FROM TVAK
WHERE AUART = WA_UP-AUART.
IF SY-SUBRC NE 0.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '订单类型错误' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
ENDIF.
*&2.6销售组织
IF WA_UP-VKORG IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '销售组织必输！' ' /' WA_UP-REASON INTO WA_UP-REASON.
ELSE.
*&销售组织检查
SELECT SINGLE *
FROM TVKO
WHERE VKORG = WA_UP-VKORG.
IF SY-SUBRC NE 0.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '销售组织错误' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
ENDIF.
*&2.7销售部门
IF WA_UP-VKBUR IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '销售部门必输！' ' /' WA_UP-REASON INTO WA_UP-REASON.
ELSE.
*&销售部门检查
SELECT SINGLE *
FROM TVBUR
WHERE VKBUR = WA_UP-VKBUR.
IF SY-SUBRC NE 0.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '销售部门错误' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
ENDIF.
*&2.8商品编码
IF WA_UP-MATNR IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '商品编码必输！' ' /' WA_UP-REASON INTO WA_UP-REASON.
ELSE.
*&商品检查
SELECT SINGLE *
FROM MARA
WHERE MATNR = WA_UP-MATNR.
IF SY-SUBRC NE 0.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '商品不存在' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
ENDIF.
*&2.9商品名称
*&S2.10销售数量
CLEAR LV_TEXT.
TRY.
IF WA_UP-KWMENG IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '销售数量必输！' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
CATCH CX_SY_CONVERSION_ERROR INTO LR_OREF.
LV_TEXT = LR_OREF->GET_TEXT( ).
ENDTRY.
IF LV_TEXT IS NOT INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '数量包含无效字符' ' /' WA_UP-REASON INTO WA_UP-REASON.
ELSE.
*&数量检查
IF WA_UP-KWMENG <= 0.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '数量不能小于0' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
ENDIF.
*&2.11销售单位
IF WA_UP-VRKME IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '销售单位必输！' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
*&2.12单价必输
CLEAR LV_TEXT.
TRY.
IF WA_UP-KBETR IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '单价必输！' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
CATCH CX_SY_CONVERSION_ERROR INTO LR_OREF.
LV_TEXT = LR_OREF->GET_TEXT( ).
ENDTRY.
IF LV_TEXT IS NOT INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '单价包含无效字符' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
*&2.13币种（如果为空，默认为CNY）
IF WA_UP-WAERK IS INITIAL.
WA_UP-WAERK = 'CNY'.
ENDIF.
*&2.14价格单位（如果为空，默认为销售单位）
IF WA_UP-KMEIN IS INITIAL.
WA_UP-KMEIN = WA_UP-VRKME.
ENDIF.
*&2.15交货日期
IF WA_UP-VDATU IS INITIAL.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '交货日期必输！' ' /' WA_UP-REASON INTO WA_UP-REASON.
ELSE.
*&日期栏位格式检查
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
EXPORTING
DATE = WA_UP-VDATU
EXCEPTIONS
PLAUSIBILITY_CHECK_FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '日期栏位格式不对' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
ENDIF.
*&2.16发货地点
IF WA_UP-WERKS IS INITIAL.
* WA_UP-REASON = '发货地点必输！'.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '发货地点必输！' ' /' WA_UP-REASON INTO WA_UP-REASON.
ELSE.
*&地点检查
SELECT SINGLE *
FROM T001W
WHERE WERKS = WA_UP-WERKS.
IF SY-SUBRC = 0.
ELSE.
WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
CONCATENATE '地点不存在' ' /' WA_UP-REASON INTO WA_UP-REASON.
ENDIF.
ENDIF.
*&S3.1产品组 默认为： 10
WA_UP-SPART = 10.
*&S3.2销售渠道默认为： 40
WA_UP-VTWEG = 40.
*&-----------------------------
*&S3.4抬头栏位检查
* PERFORM FRM_PROC_CHECK.
*&S3.5ITEM信息检查
* PERFORM FRM_ITEM_CHECK.
*&S3.6判断是否有条目重
* (允许重复)
*&4.error log
IF WA_UP-FLAG NE 'E'.
WA_UP-FLAG = 'S'.
* WA_UP-ICON = 2.
ELSE.
*&取得错误数据
R_BSTNK-SIGN = 'I'.
R_BSTNK-OPTION = 'EQ'.
R_BSTNK-LOW = WA_UP-BSTNK.
COLLECT R_BSTNK.
CLEAR R_BSTNK.
ENDIF.
*&4.1excel栏位赋值内表
MODIFY GT_UP FROM WA_UP INDEX G_TABIX.
MOVE-CORRESPONDING WA_UP TO WA_HA.
*&4.2赋值GT_HA.
CLEAR:WA_HA-FLAG, WA_HA-REASON, WA_HA-ICON.
**&A.判断重复：
* READ TABLE GT_UPE INTO WA_UPE WITH KEY BSTNK = WA_HA-BSTNK
* AUART = WA_HA-AUART
* KUNNR = WA_HA-KUNNR
* VKORG = WA_HA-VKORG
* VKBUR = WA_HA-VKBUR.
* IF SY-SUBRC EQ 0.
* G_TABIX = SY-TABIX.
* WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
* CONCATENATE '采购订单号' WA_UPE-BSTNK '有重复' '/' WA_HA-REASON INTO WA_HA-REASON.
* MODIFY GT_HA FROM WA_HA INDEX G_TABIX.
* ENDIF.
COLLECT WA_HA INTO GT_HA.
*&clear 变量：
CLEAR:WA_UP, WA_HEAD.
*&Q1.判断内表是否重复
GT_UPE[] = GT_HA[].
ENDLOOP.
SORT GT_HA BY BSTNK KUNNR AUART VKORG VKBUR.
*&A1.判断重复（客户订单）
* LOOP AT GT_HEAD.
* AT NEW BSTNK.
* WA_HEAD-LIN = 1.
* CONTINUE.
* ENDAT.
* WA_HEAD-LIN = WA_HEAD-LIN + 1.
** AT END OF BSTNK.
** WA_HEAD-LIN = WA_HEAD-LIN + 1.
** ENDAT.
* IF WA_HEAD-LIN LT 1.
* CONCATENATE '客户订单号：' GT_HEAD-BSTNK '出现重复，请检查！' INTO WA_HEAD-REASON.
* ENDIF.
* MODIFY GT_HEAD FROM WA_HEAD TRANSPORTING LIN REASON.
* CLEAR GT_HEAD.
* ENDLOOP.
* DATA:G_DAY TYPE D.
* GET TIME. "STAMP FIELD G_DAY.
* LOOP AT GT_HEAD WHERE LIN LT 1.
* LOOP AT GT_UP INTO WA_UP WHERE BSTNK EQ GT_HEAD-BSTNK
* AND AUART EQ GT_HEAD-AUART
* AND KUNNR EQ GT_HEAD-KUNNR
* AND VKORG EQ GT_HEAD-VKORG.
* CONCATENATE WA_HEAD-REASON '/' WA_UP-REASON INTO WA_UP-REASON.
* WA_UP-FLAG = 'E'. WA_UP-ICON = 1.
* MODIFY GT_UP FROM WA_UP TRANSPORTING FLAG ICON REASON.
* CLEAR WA_UP.
*
* ENDLOOP.
*
* ENDLOOP.
CLEAR:GT_UPE[].
SORT GT_UP BY BSTNK KUNNR AUART VKORG VKBUR MATNR.
*&S3.
G_LIN = LINES( GT_UP[] ).
IF G_LIN EQ 0.
MESSAGE E001(00) WITH '没有任何数据！'.
ELSE.
MESSAGE S001(00) WITH '导入数据' G_LIN '条！'.
ENDIF.
ENDFORM. " FRM_GET_DATA
*&---------------------------------------------------------------------*
*& Form FRM_TEST_RUN
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_TEST_RUN .
*&S4对于ok的客户订单号 test CHECK
*&C1.获取ok的客户订单号
*CLEAR: GT_HEAD[].
GT_HEAD[] = GT_HA[].
IF R_BSTNK[] IS NOT INITIAL.
DELETE GT_HEAD WHERE BSTNK IN R_BSTNK.
ENDIF.
*&C2.
PERFORM FRM_FOR_SO.
*&C3.返回信息显示明细
LOOP AT GT_HEAD INTO WA_HEAD WHERE FLAG = 'E'.
LOOP AT GT_UP INTO WA_UP WHERE AUART = WA_HEAD-AUART
AND VKORG = WA_HEAD-VKORG
AND VTWEG = WA_HEAD-VTWEG
AND KUNNR = WA_HEAD-KUNNR
AND BSTNK = WA_HEAD-BSTNK
AND VKBUR = WA_HEAD-VKBUR .
WA_UP-VBELN = WA_HEAD-VBELN.
WA_UP-FLAG = WA_HEAD-FLAG.
WA_UP-ICON = WA_HEAD-ICON.
WA_UP-REASON = WA_HEAD-REASON.
*CONCATENATE WA_UP-REASON '-' WA_UP-REASON INTO WA_UP-REASON.
MODIFY GT_UP FROM WA_UP TRANSPORTING FLAG ICON REASON.
ENDLOOP.
ENDLOOP.
ENDFORM. " FRM_TEST_RUN
*&---------------------------------------------------------------------*
*& Form FRM_FOR_SO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_FOR_SO .
DATA:BEGIN OF LT_BSTNR OCCURS 0,
VBELN LIKE VBAK-VBELN,
END OF LT_BSTNR.
*&A.判断客户订单号是否重复
LOOP AT GT_HEAD INTO WA_HEAD.
CLEAR:LT_ITEM[],WA_HEADER,
LT_SCH[], LT_EX[].
*&1HEAD参数设置
PERFORM FRM_SET_HEAD.
*&2ITEM参数设置
PERFORM FRM_SET_ITEM.
*&3BAPI创建so
PERFORM FRM_CALL_BAPI.
ENDLOOP.
ENDFORM. " FRM_FOR_SO
*&---------------------------------------------------------------------*
*& Form FRM_SET_HEAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_SET_HEAD .
CLEAR:WA_HEADER,WA_HEADERX.
*&H1.抬头必输
WA_HEADER-PURCH_NO_C = WA_HEAD-BSTNK."客户订单号码
WA_HEADER-DOC_TYPE = WA_HEAD-AUART."订单类型
WA_HEADER-SALES_ORG = WA_HEAD-VKORG."销售组织
WA_HEADER-SALES_OFF = WA_HEAD-VKBUR."销售部门
WA_HEADER-DISTR_CHAN = WA_HEAD-VTWEG."分销渠道
WA_HEADER-DIVISION = WA_HEAD-SPART."产品组
WA_HEADER-REQ_DATE_H = WA_HEAD-VDATU."请求交货日期
*WA_HEADER-PO_METHOD = WA_HEAD-BSARK."客户采购订单类型
*WA_HEADER-REF_1 = WA_HEAD-BSTNK."参考
WA_HEADERX-PURCH_NO_C = WA_HEAD-BSTNK."客户订单号码
WA_HEADERX-DOC_TYPE = 'X'."订单类型
WA_HEADERX-SALES_ORG = 'X'."销售组织
WA_HEADERX-SALES_OFF = 'X'."销售部门
WA_HEADERX-DISTR_CHAN = 'X'."分销渠道
WA_HEADERX-DIVISION = 'X'."产品组
WA_HEADERX-REQ_DATE_H = 'X'."请求交货日期
*WA_HEADERX-PO_METHOD = 'X'."客户采购订单类型
*WA_HEADERX-REF_1 = 'X'."参考
*&H2.Partners（？一次性客户处理是否有差别(一次性客户有无标识)）
CLEAR: WA_PARTNER, LT_PART[].
*&通讯字段: SD单据合作伙伴:WWW(WA_PARTNER)
* AG-售达方
* WE-送达方
*'RG'-付款方
*'RE'-开票方
WA_PARTNER-PARTN_ROLE = 'AG'. "售达方
WA_PARTNER-PARTN_NUMB = WA_HEAD-KUNNR.
*&"一次性客户
READ TABLE GT_UP INTO WA_UP WITH KEY AUART = WA_HEAD-AUART
VKORG = WA_HEAD-VKORG
VTWEG = WA_HEAD-VTWEG
KUNNR = WA_HEAD-KUNNR
BSTNK = WA_HEAD-BSTNK
VKBUR = WA_HEAD-VKBUR.
IF WA_UP-NAME1 IS NOT INITIAL.
WA_PARTNER-NAME = WA_UP-NAME1. "名称
WA_PARTNER-STREET = WA_UP-STREET."地址
ENDIF.
WA_PARTNER-COUNTRY = 'CN'.
WA_PARTNER-LANGU = SY-LANGU.
APPEND WA_PARTNER TO LT_PART.
CLEAR WA_PARTNER.
*&H4.送达方
IF WA_UP-KUNNR IS NOT INITIAL.
CLEAR WA_PARTNER.
WA_PARTNER-PARTN_ROLE = 'WE'. "送达方
WA_PARTNER-PARTN_NUMB = WA_HEAD-KUNNR. "客户
WA_PARTNER-NAME = WA_HEAD-NAME1. "名称
WA_PARTNER-STREET = WA_HEAD-STREET."地址
WA_PARTNER-COUNTRY = 'CN'.
APPEND WA_PARTNER TO LT_PART.
CLEAR WA_PARTNER.
ENDIF.
*&ADD.
* "RG 付款方
* WA_PARTNER-PARTN_ROLE = 'RG'.
* WA_PARTNER-PARTN_NUMB = WA_HEAD-KUNNR.
** IF UP_HEAD-NAME1_RG IS NOT INITIAL. "一次性客户
** WA_PARTNER-NAME = UP_HEAD-NAME1_RG.
** WA_PARTNER-COUNTRY = 'CN'.
** ENDIF.
* APPEND WA_PARTNER TO LT_PART.
* CLEAR WA_PARTNER.
*&订单条件的通讯字段
CLEAR:LT_COND[], LT_COND,
LT_CONDX[],LT_CONDX.
**&抬头赋值定价条件类型---条件ZPB0不允许作为抬头条件
* LOOP AT GT_UP INTO WA_UP WHERE BSTNK = WA_HEAD-BSTNK
* AND KUNNR = WA_HEAD-KUNNR
* AND AUART = WA_HEAD-AUART
* AND VKORG = WA_HEAD-VKORG
* AND VKBUR = WA_HEAD-VKBUR
* AND VDATU = WA_HEAD-VDATU.
**AND VTWEG = WA_HEAD-VTWEG
**&H3定价控制
* IF NOT WA_UP-KBETR IS INITIAL.
* WA_COND-COND_TYPE = 'ZPB0'. "定价条件
* WA_COND-COND_VALUE = WA_UP-KBETR."价格
* WA_COND-CURRENCY = WA_UP-WAERK."货币或%\
** WA_COND-COND_P_UNT = 1."条件定价单位
* APPEND WA_COND TO LT_COND.
* CLEAR WA_COND.
*
* WA_CONDX-COND_TYPE = 'ZPB0'."定价条件
* WA_CONDX-COND_VALUE = 'X'. "价格
* WA_CONDX-CURRENCY = 'X'. "货币或%
** WA_CONDX-UPDATEFLAG = 'U'.
* APPEND WA_CONDX TO LT_CONDX.
* CLEAR: WA_CONDX.
* ENDIF.
* ENDLOOP.
EXIT.
ENDFORM. " FRM_SET_HEAD
*&---------------------------------------------------------------------*
*& Form FRM_SET_ITEM
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_SET_ITEM .
DATA: L_POSNR LIKE VBAP-POSNR,
L_LP LIKE VBAP-POSNR VALUE '000010'.
CLEAR:LT_ITEM[],
LT_SCH[].
* LT_COND[].
*&item 参数赋值
LOOP AT GT_UP INTO WA_UP WHERE BSTNK = WA_HEAD-BSTNK
AND KUNNR = WA_HEAD-KUNNR
AND AUART = WA_HEAD-AUART
AND VKORG = WA_HEAD-VKORG
AND VKBUR = WA_HEAD-VKBUR
AND VDATU = WA_HEAD-VDATU.
READ TABLE LT_ITEM INTO WA_ITEM WITH KEY MATERIAL = WA_UP-MATNR.
IF SY-SUBRC NE 0.
*&i1.line赋值
ADD L_LP TO L_POSNR.
CLEAR WA_ITEM.
WA_ITEM-ITM_NUMBER = L_POSNR.
WA_ITEM-MATERIAL = WA_UP-MATNR. "商品
WA_ITEM-SALES_UNIT = WA_UP-VRKME. "计量单位
WA_ITEM-PLANT = WA_UP-WERKS. "工厂
*& WA_ITEM-STORE_LOC = WA_SO-LGORT. "库存地
APPEND WA_ITEM TO LT_ITEM.
*&i2.计划行数据
CLEAR WA_SCH.
WA_SCH-ITM_NUMBER = L_POSNR.
WA_SCH-REQ_QTY = WA_UP-KWMENG."数量
*WA_SCH-REQ_DATE = WA_UP-VDATU. "计划行日期
APPEND WA_SCH TO LT_SCH.
*&i3.订单条件的通讯字段
CLEAR: WA_COND.
WA_COND-ITM_NUMBER = L_POSNR.
WA_COND-COND_TYPE = 'ZPB0'. "定价条件
*&->ADD(解决价格扩大十倍问题)
WA_COND-COND_VALUE = WA_UP-KBETR / 10."价格
WA_COND-COND_UNIT = WA_UP-KMEIN."条件单位
*WA_COND-COND_P_UNT = WA_UP-KMEIN. "条件定价单位
*WA_COND-CURRENCY = LS_COND-KOEIN."货币或%
WA_CONDX-UPDATEFLAG = 'I'.
WA_CONDX-COND_TYPE = 'ZPB0'."定价条件
WA_CONDX-COND_VALUE = 'X'. "价格
WA_CONDX-COND_UNIT = 'X'."条件单位
* WA_CONDX-CURRENCY = 'X'. "货币或%
* APPEND WA_CONDX TO LT_CONDX.
APPEND WA_COND TO LT_COND.
ENDIF.
ENDLOOP.
ENDFORM. " FRM_SET_ITEM
*&---------------------------------------------------------------------*
*& Form FRM_CALL_BAPI
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_CALL_BAPI .
*&只需创建正常SO,
DATA:L_TEST LIKE BAPIFLAG-BAPIFLAG.
CLEAR :L_VBELN,
L_RETURN[],
L_TEST,
L_RETURN[].
IF P_TEST EQ 'X'.
L_TEST = 'X'.
ENDIF.
*&正常SO:C,调用BAPI_SALESORDER_CREATEFROMDAT2
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
ORDER_HEADER_IN = WA_HEADER
TESTRUN = L_TEST
IMPORTING
SALESDOCUMENT = L_VBELN
TABLES
RETURN = L_RETURN
ORDER_ITEMS_IN = LT_ITEM
ORDER_PARTNERS = LT_PART
ORDER_SCHEDULES_IN = LT_SCH
ORDER_CONDITIONS_IN = LT_COND
ORDER_CONDITIONS_INX = LT_CONDX
ORDER_TEXT = LT_TEXT
EXTENSIONIN = LT_EX.
READ TABLE L_RETURN WITH KEY TYPE = 'E'.
IF SY-SUBRC NE 0.
IF P_EXCUTE EQ 'X'.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
WA_HEAD-ICON = 3.
ENDIF.
G_SLIN = G_SLIN + 1.
WA_HEAD-VBELN = L_VBELN.
WA_HEAD-FLAG = 'S'.
CONCATENATE '销售订单:' L_VBELN '成功创建' INTO WA_HEAD-REASON.
MODIFY GT_HEAD FROM WA_HEAD TRANSPORTING VBELN FLAG ICON REASON.
*&Q3.TEST.
ELSE.
G_FLIN = G_FLIN + 1.
IF P_EXCUTE EQ 'X'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
WA_HEAD-FLAG = 'E'.
WA_HEAD-ICON = 1.
READ TABLE L_RETURN WITH KEY TYPE = 'E'.
WA_HEAD-REASON = L_RETURN-MESSAGE.
MODIFY GT_HEAD FROM WA_HEAD TRANSPORTING FLAG ICON REASON.
ENDIF.
ENDFORM. " FRM_CALL_BAPI
