IF P_ZY EQ 'X'."直营订单 调拨单
PERFORM FRM_INIT_PO_HEADER.
PERFORM FRM_INIT_PO_ITEM.
PERFORM FRM_INIT_PO_SCHLINE.
PERFORM FRM_INIT_PO_TEXTS.
PERFORM FRM_CREATE_PO USING P_COMMIT.
ELSEIF P_JM EQ 'X'."加盟订单 销售订单
PERFORM FRM_INIT_SALESORDER_HEADER .
PERFORM FRM_INIT_SALESORDER_ITEMS .
PERFORM FRM_INIT_SALESORDER_PARTNER .
PERFORM FRM_INIT_SALESORDER_TEXTS .
PERFORM FRM_CREATE_SALESORDER USING P_COMMIT.
ENDIF.
FORM FRM_INIT_PO_HEADER.
DATA: LV_VENDOR TYPE LIFNR,
LV_DATE TYPE DATUM.
CLEAR: GS_POHEADER,
GS_POHEADERX.
LV_DATE = IT_HEADER-ZDATE.
IF LV_DATE IS INITIAL.
LV_DATE = P_DATE.
ENDIF.
PERFORM FRM_CONVERT_VENDOR USING '' CHANGING LV_VENDOR.
GS_POHEADER-VENDOR = LV_VENDOR.
GS_POHEADER-SUPPL_PLNT = ''.
GS_POHEADER-DOC_TYPE = GS_ORG-AUART.
GS_POHEADER-DOC_DATE = LV_DATE. "Document Date
GS_POHEADER-CREAT_DATE = SY-DATUM.
GS_POHEADER-CREATED_BY = SY-UNAME.
GS_POHEADER-PURCH_ORG = GS_ORG-EKORG.
GS_POHEADER-PUR_GROUP = GS_ORG-EKGRP.
GS_POHEADER-COMP_CODE = GS_ORG-BUKRS.
GS_POHEADER-SALES_PERS = IT_HEADER-ZPOSN."Salesperson
GS_POHEADER-TELEPHONE = IT_HEADER-ZLXDH."Vendor's Telephone
GS_POHEADERX-DOC_TYPE = 'X'.
GS_POHEADERX-DOC_DATE = 'X'.
GS_POHEADERX-CREAT_DATE = 'X'.
GS_POHEADERX-CREATED_BY = 'X'.
GS_POHEADERX-VENDOR = 'X'.
GS_POHEADERX-PURCH_ORG = 'X'.
GS_POHEADERX-PUR_GROUP = 'X'.
GS_POHEADERX-COMP_CODE = 'X'.
GS_POHEADERX-SALES_PERS = 'X'.
GS_POHEADERX-TELEPHONE = 'X'.
GS_POHEADERX-SUPPL_PLNT = 'X'.
ENDFORM. " FRM_INIT_PO_HEADER
FORM FRM_INIT_PO_ITEM.
DATA : LV_LGORT TYPE VBAP-LGORT,
LV_WERKS TYPE VBAP-WERKS,
LV_MATNR TYPE VBAP-MATNR,
LV_BWTTY TYPE MBEW-BWTTY,
LV_MEINS TYPE MARA-MEINS,
LV_QTY TYPE EKPO-MENGE,
LV_CHARG TYPE MCHA-CHARG.
CLEAR: GS_POITEM,
GT_POITEM,
GS_POITEMX,
GT_POITEMX.
SHIFT IT_HEADER-ZKUBM LEFT DELETING LEADING ''.
LV_WERKS = IT_HEADER-ZKUBM.
LOOP AT IT_ITEM WHERE ZPOSN EQ IT_HEADER-ZPOSN.
* 转换物料号码
PERFORM FRM_CONVERT_ARTICLE USING IT_ITEM-ZSPKH CHANGING LV_MATNR.
* 是否启用分割评估
SELECT SINGLE BWTTY INTO LV_BWTTY FROM MBEW WHERE MATNR = LV_MATNR AND BWKEY = LV_WERKS.
* 基本单位
SELECT SINGLE MEINS INTO LV_MEINS FROM MARA WHERE MATNR = LV_MATNR.
IF LV_MEINS = 'G'."基本单位为G, 下单数量取总金重
LV_QTY = IT_ITEM-ZZJZ.
ELSE."否则取总件数
LV_QTY = IT_ITEM-ZSPJH.
ENDIF.
IF LV_QTY IS INITIAL.
LV_QTY = .
ENDIF.
LV_CHARG = IT_ITEM-CHARG.
* 物料启用了分割凭证但是没有评估类型（批次），则使用物料编码作为评估类型
IF LV_BWTTY = 'X' AND LV_CHARG IS INITIAL.
PERFORM FRM_CONVERT_VALUE_TYPE USING LV_MATNR CHANGING LV_CHARG.
ENDIF.
* 检查物料 门店 批次是否存在
PERFORM FRM_CHECK_BATCH USING LV_WERKS LV_MATNR LV_CHARG.
CLEAR GS_POITEM.
GS_POITEM-PO_ITEM = IT_ITEM-ZITEM.
GS_POITEM-MATERIAL = LV_MATNR.
GS_POITEM-PLANT = LV_WERKS.
GS_POITEM-BATCH = IT_ITEM-CHARG."批次
GS_POITEM-SUPPL_STLOC = ''.
GS_POITEM-QUANTITY = LV_QTY.
IF LV_BWTTY = 'X'."
GS_POITEM-VAL_TYPE = LV_CHARG."评估类型
ENDIF.
IF GS_ORG-AUART = 'ZSTJ'."Consigment
GS_POITEM-ITEM_CAT = 'K'.
ELSE.
GS_POITEM-ITEM_CAT = 'U'.
ENDIF.
APPEND GS_POITEM TO GT_POITEM.
CLEAR GS_POITEMX.
GS_POITEMX-PO_ITEM = IT_ITEM-ZITEM.
GS_POITEMX-MATERIAL = 'X'.
GS_POITEMX-BATCH = 'X'.
GS_POITEMX-VAL_TYPE = 'X'.
GS_POITEMX-STGE_LOC = 'X'.
GS_POITEMX-PLANT = 'X'.
GS_POITEMX-QUANTITY = 'X'.
GS_POITEMX-ITEM_CAT = 'X'.
APPEND GS_POITEMX TO GT_POITEMX.
ENDLOOP.
ENDFORM. " FRM_INIT_PO_ITEM
FORM FRM_INIT_PO_SCHLINE .
REFRESH: GT_POSCHEDULE,
GT_POSCHEDULEX.
* CLEAR gs_poschedule.
* gs_poschedule-po_item = p_item_no.
* gs_poschedule-sched_line = 1.
* gs_poschedule-delivery_date = lv_del_date.
* APPEND gs_poschedule TO gt_poschedule.
*
* CLEAR gs_poschedulex.
* gs_poschedulex-po_item = p_item_no.
* gs_poschedulex-sched_line = 1.
* gs_poschedulex-delivery_date = 'X'.
* APPEND gs_poschedulex TO gt_poschedulex.
ENDFORM. " FRM_INIT_PO_SCHLINE
FORM FRM_INIT_PO_TEXTS.
REFRESH: GT_POTEXTHEADER,
GT_POTEXTITEM.
CLEAR: GS_POTEXTITEM,
GS_POTEXTITEM.
* Header Text
* 抬头文本
CLEAR GS_POTEXTHEADER.
GS_POTEXTHEADER-TEXT_ID = 'F01'.
GS_POTEXTHEADER-TEXT_LINE = IT_HEADER-ZHTEXT."订单抬头文本
APPEND GS_POTEXTHEADER TO GT_POTEXTHEADER.
* Item Text
* 行项目文本
LOOP AT IT_ITEM WHERE ZPOSN EQ IT_HEADER-ZPOSN.
CLEAR GS_POTEXTITEM.
GS_POTEXTITEM-PO_ITEM = IT_ITEM-ZITEM.
GS_POTEXTITEM-TEXT_ID = 'F01'.
GS_POTEXTITEM-TEXT_LINE = IT_ITEM-ZITEXT."订单行项目文本
APPEND GS_POTEXTITEM TO GT_POTEXTITEM.
ENDLOOP.
ENDFORM. " FRM_INIT_PO_TEXTS
FORM FRM_CREATE_PO USING P_COMMIT.
DATA : LV_TESTRUN TYPE BAPIFLAG-BAPIFLAG,
LV_ERROR.
IF P_COMMIT IS INITIAL.
LV_TESTRUN = 'X'.
ENDIF.
CALL FUNCTION 'BAPI_PO_CREATE1'
EXPORTING
POHEADER = GS_POHEADER
POHEADERX = GS_POHEADERX
TESTRUN = LV_TESTRUN
IMPORTING
EXPPURCHASEORDER = GV_EXPPURCHASEORDER
TABLES
RETURN = GT_RETURN
POITEM = GT_POITEM
POITEMX = GT_POITEMX
POSCHEDULE = GT_POSCHEDULE
POSCHEDULEX = GT_POSCHEDULEX
POTEXTHEADER = GT_POTEXTHEADER
POTEXTITEM = GT_POTEXTITEM.
LOOP AT GT_RETURN INTO GS_RETURN.
CLEAR IT_MSG.
MOVE-CORRESPONDING GS_RETURN TO IT_MSG.
IT_MSG-ZPOSN = IT_HEADER-ZPOSN.
IT_MSG-ORDER = GV_EXPPURCHASEORDER.
CASE GS_RETURN-TYPE.
WHEN 'E' OR 'X' OR 'A'.
IF GS_RETURN-ID = 'MEPO' AND GS_RETURN-NUMBER = ''.
CONTINUE.
ELSE.
IT_MSG-LIGHT = ''."Red Light
ENDIF.
LV_ERROR = 'X'.
WHEN 'S'.
IT_MSG-LIGHT = ''."Green Light
WHEN OTHERS.
CONTINUE.
ENDCASE.
COLLECT IT_MSG.
ENDLOOP.
IF LV_ERROR EQ 'X'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
CHECK P_COMMIT EQ 'X'.
PERFORM FRM_RECORD_LINES USING IT_HEADER-ZPOSN GV_EXPPURCHASEORDER.
* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT = 'X'.
ENDIF.
ENDFORM. " FRM_CREATE_PO
FORM FRM_INIT_SALESORDER_HEADER.
DATA : LV_DATE TYPE DATUM.
CLEAR GS_SALESORDER_HEADER.
LV_DATE = IT_HEADER-ZDATE.
IF LV_DATE IS INITIAL.
LV_DATE = P_DATE.
ENDIF.
* Mandatory entries:
GS_SALESORDER_HEADER-DOC_TYPE = GS_ORG-AUART. "Sales document type
GS_SALESORDER_HEADER-SALES_ORG = GS_ORG-VKORG. "Sales organization
GS_SALESORDER_HEADER-DISTR_CHAN = GS_ORG-VTWEG. "Distribution channel
GS_SALESORDER_HEADER-DIVISION = GS_ORG-SPART. " Division
* Optional entries:
GS_SALESORDER_HEADER-DOC_DATE = LV_DATE. "Document date
GS_SALESORDER_HEADER-PURCH_NO_C = IT_HEADER-ZPOSN. "Customer PO No. (POS订单号码)
GS_SALESORDER_HEADER-ORD_REASON = IT_HEADER-ZPLX. "Order reason.
GS_SALESORDER_HEADER-TELEPHONE = IT_HEADER-ZLXDH. "Telephone Number. (联系电话)
GS_SALESORDER_HEADER-NAME = IT_HEADER-ZLSR. "Name of order. (联系人)
* Change index
GS_SALESORDER_HEADERX-UPDATEFLAG = 'I'. "Sales document type
GS_SALESORDER_HEADERX-DOC_TYPE = 'X'. "Sales document type
GS_SALESORDER_HEADERX-SALES_ORG = 'X'. "Sales organization
GS_SALESORDER_HEADERX-DISTR_CHAN = 'X'. "Distribution channel
GS_SALESORDER_HEADERX-DIVISION = 'X'. " Division
GS_SALESORDER_HEADERX-DOC_DATE = 'X'. "Document date （订单日期）
GS_SALESORDER_HEADERX-PURCH_NO_C = 'X'. "Customer PO No. (POS订单号码)
GS_SALESORDER_HEADERX-ORD_REASON = 'X'. "Order reason. (订单类型)
GS_SALESORDER_HEADERX-TELEPHONE = 'X'. "Telephone Number. (联系电话)
GS_SALESORDER_HEADERX-NAME = 'X'. "Name of order. (联系人)
* GS_SALESORDER_HEADERX-DOC_DATE = 'X'. "Name of order. (联系人)
CLEAR GS_LOGIC_SWITCH.
* GS_LOGIC_SWITCH-COND_HANDL = 'X'.
GS_LOGIC_SWITCH-PRICING = 'G'.
ENDFORM. " FRM_INIT_SALESORDER_HEADER
FORM FRM_INIT_SALESORDER_ITEMS.
DATA : LV_MATNR TYPE MARA-MATNR,
LV_BWTTY TYPE MBEW-BWTTY,
LV_MEINS TYPE MARA-MEINS,
LV_CHARG TYPE MCH1-CHARG,
LV_WERKS TYPE MARC-WERKS,
LV_MENGE TYPE EKPO-MENGE.
DATA : LV_ZPR5 TYPE P DECIMALS .
REFRESH: GT_SALESORDER_ITEMX,
GT_SALESORDER_ITEM,
GT_SALESORDER_CONDITIONS,
GT_SALESORDER_CONDITIONX,
GT_SALESORDER_SCHLINE,
GT_SALESORDER_SCHLINEX,
GT_SALESORDER_TEXT.
LV_WERKS = IT_HEADER-WERKS.
LOOP AT IT_ITEM WHERE ZPOSN EQ IT_HEADER-ZPOSN.
*** 行项目
* Convert Article no. (商品款号)
PERFORM FRM_CONVERT_ARTICLE USING IT_ITEM-ZSPKH CHANGING LV_MATNR.
* 评估类别
SELECT SINGLE BWTTY INTO LV_BWTTY FROM MBEW WHERE MATNR = LV_MATNR AND BWKEY = LV_WERKS.
* 基本单位
SELECT SINGLE MEINS INTO LV_MEINS FROM MARA WHERE MATNR = LV_MATNR.
IF LV_MEINS = 'G'.
LV_MENGE = IT_ITEM-ZZJZ.
ELSE.
LV_MENGE = IT_ITEM-ZSPJH."Target quantity in sales units
ENDIF.
* Batch
LV_CHARG = IT_ITEM-CHARG.
* 检查批次、物料是否存在
PERFORM FRM_CHECK_BATCH USING LV_WERKS LV_MATNR LV_CHARG.
CLEAR GS_SALESORDER_ITEM.
GS_SALESORDER_ITEM-ITM_NUMBER = IT_ITEM-ZITEM."
GS_SALESORDER_ITEM-MATERIAL = LV_MATNR."
GS_SALESORDER_ITEM-BATCH = IT_ITEM-CHARG."
GS_SALESORDER_ITEM-PLANT = LV_WERKS. "
GS_SALESORDER_ITEM-TARGET_QTY = LV_MENGE."Target quantity in sales units
IF LV_BWTTY EQ 'X'.
GS_SALESORDER_ITEM-VAL_TYPE = LV_CHARG." ”Valution Type
ENDIF.
APPEND GS_SALESORDER_ITEM TO GT_SALESORDER_ITEM.
CLEAR GS_SALESORDER_ITEMX.
GS_SALESORDER_ITEMX-UPDATEFLAG = 'I'.
GS_SALESORDER_ITEMX-ITM_NUMBER = IT_ITEM-ZITEM.
GS_SALESORDER_ITEMX-MATERIAL = 'X'.
GS_SALESORDER_ITEMX-BATCH = 'X'.
GS_SALESORDER_ITEMX-VAL_TYPE = 'X'.
GS_SALESORDER_ITEMX-PLANT = 'X'.
GS_SALESORDER_ITEMX-TARGET_QTY = 'X'.
APPEND GS_SALESORDER_ITEMX TO GT_SALESORDER_ITEMX.
*** 计划行
CLEAR GS_SALESORDER_SCHLINE.
GS_SALESORDER_SCHLINE-ITM_NUMBER = IT_ITEM-ZITEM.
GS_SALESORDER_SCHLINE-SCHED_LINE = ''.
GS_SALESORDER_SCHLINE-REQ_QTY = LV_MENGE.
APPEND GS_SALESORDER_SCHLINE TO GT_SALESORDER_SCHLINE.
CLEAR GS_SALESORDER_SCHLINEX.
GS_SALESORDER_SCHLINEX-ITM_NUMBER = IT_ITEM-ZITEM.
GS_SALESORDER_SCHLINEX-SCHED_LINE = ''.
GS_SALESORDER_SCHLINEX-UPDATEFLAG = 'I'.
GS_SALESORDER_SCHLINEX-REQ_QTY = 'X'.
APPEND GS_SALESORDER_SCHLINEX TO GT_SALESORDER_SCHLINEX.
*** 条件
* 估算价（金单价）
CLEAR GS_SALESORDER_CONDITIONS.
GS_SALESORDER_CONDITIONS-ITM_NUMBER = IT_ITEM-ZITEM.
GS_SALESORDER_CONDITIONS-COND_TYPE = 'ZPR4'.
GS_SALESORDER_CONDITIONS-COND_VALUE = IT_ITEM-ZJDJ.
GS_SALESORDER_CONDITIONS-CURRENCY = 'CNY'.
APPEND GS_SALESORDER_CONDITIONS TO GT_SALESORDER_CONDITIONS.
CLEAR GS_SALESORDER_CONDITIONX.
GS_SALESORDER_CONDITIONX-ITM_NUMBER = IT_ITEM-ZITEM.
GS_SALESORDER_CONDITIONX-COND_TYPE = 'ZPR4'.
GS_SALESORDER_CONDITIONX-UPDATEFLAG = 'I'.
GS_SALESORDER_CONDITIONX-COND_VALUE = 'X'.
GS_SALESORDER_CONDITIONX-CURRENCY = 'X'.
APPEND GS_SALESORDER_CONDITIONX TO GT_SALESORDER_CONDITIONX.
*** 行项目文本
CLEAR GS_SALESORDER_TEXT.
GS_SALESORDER_TEXT-ITM_NUMBER = IT_ITEM-ZITEM."
GS_SALESORDER_TEXT-TEXT_ID = ''."Object VBBP
GS_SALESORDER_TEXT-TEXT_LINE = IT_ITEM-ZITEXT."(订单抬头文本)
GS_SALESORDER_TEXT-LANGU = SY-LANGU.
APPEND GS_SALESORDER_TEXT TO GT_SALESORDER_TEXT.
ENDLOOP.
* 合计金额
CLEAR GS_SALESORDER_CONDITIONS.
GS_SALESORDER_CONDITIONS-COND_TYPE = 'ZPR0'.
GS_SALESORDER_CONDITIONS-COND_ST_NO = .
GS_SALESORDER_CONDITIONS-COND_COUNT = .
GS_SALESORDER_CONDITIONS-COND_VALUE = IT_HEADER-ZHJJE.
GS_SALESORDER_CONDITIONS-CURRENCY = 'CNY'.
APPEND GS_SALESORDER_CONDITIONS TO GT_SALESORDER_CONDITIONS.
CLEAR GS_SALESORDER_CONDITIONX.
GS_SALESORDER_CONDITIONX-COND_TYPE = 'ZPR0'.
GS_SALESORDER_CONDITIONX-COND_ST_NO = .
GS_SALESORDER_CONDITIONX-COND_COUNT = .
GS_SALESORDER_CONDITIONX-UPDATEFLAG = 'I'.
GS_SALESORDER_CONDITIONX-COND_VALUE = 'X'.
GS_SALESORDER_CONDITIONX-CURRENCY = 'X'.
APPEND GS_SALESORDER_CONDITIONX TO GT_SALESORDER_CONDITIONX.
* 订单订金
IF IT_HEADER-ZDDLX IS NOT INITIAL.
LV_ZPR5 = IT_HEADER-ZDDLX.
CLEAR GS_SALESORDER_CONDITIONS.
GS_SALESORDER_CONDITIONS-COND_TYPE = 'ZPR5'.
GS_SALESORDER_CONDITIONS-COND_ST_NO = .
GS_SALESORDER_CONDITIONS-COND_COUNT = .
GS_SALESORDER_CONDITIONS-COND_VALUE = LV_ZPR5.
GS_SALESORDER_CONDITIONS-CURRENCY = 'CNY'.
APPEND GS_SALESORDER_CONDITIONS TO GT_SALESORDER_CONDITIONS.
CLEAR GS_SALESORDER_CONDITIONX.
GS_SALESORDER_CONDITIONX-COND_TYPE = 'ZPR5'.
GS_SALESORDER_CONDITIONX-COND_ST_NO = .
GS_SALESORDER_CONDITIONX-COND_COUNT = .
GS_SALESORDER_CONDITIONX-UPDATEFLAG = 'I'.
GS_SALESORDER_CONDITIONX-COND_VALUE = 'X'.
GS_SALESORDER_CONDITIONX-CURRENCY = 'X'.
APPEND GS_SALESORDER_CONDITIONX TO GT_SALESORDER_CONDITIONX.
ENDIF.
ENDFORM. " FRM_INIT_SALESORDER_ITEMS
FORM FRM_INIT_SALESORDER_PARTNER.
DATA : LV_KUNNR TYPE VBPA-KUNNR."Customer
CLEAR: GT_SALESORDER_PARTNER.
* Convert customer no. to internal no.(客户编码)
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = IT_HEADER-ZKUBM
IMPORTING
OUTPUT = LV_KUNNR.
* WE Ship to , AG Sold to
CLEAR GS_SALESORDER_PARTNER.
* gs_salesorder_partner-itm_number = '10'."
GS_SALESORDER_PARTNER-PARTN_ROLE = 'WE'."SP
GS_SALESORDER_PARTNER-PARTN_NUMB = LV_KUNNR. "(客户编码)
* gs_salesorder_partner-name = u_header-zkhmc. "Name (客户名称)
APPEND GS_SALESORDER_PARTNER TO GT_SALESORDER_PARTNER.
* CLEAR gs_salesorder_partner.
** gs_salesorder_partner-itm_number = '10'."
* gs_salesorder_partner-partn_role = 'AG'."SH
* gs_salesorder_partner-partn_numb = '0000040001'."SHip to
* APPEND gs_salesorder_partner TO gt_salesorder_partner.
ENDFORM. " FRM_INIT_SALESORDER_PARTNER
FORM FRM_INIT_SALESORDER_TEXTS.
* CLEAR : GS_SALESORDER_TEXT,
* GT_SALESORDER_TEXT.
* Header Texts
CLEAR GS_SALESORDER_TEXT.
GS_SALESORDER_TEXT-TEXT_ID = ''."Object VBBK
GS_SALESORDER_TEXT-TEXT_LINE = IT_HEADER-ZHTEXT."(订单抬头文本)
GS_SALESORDER_TEXT-LANGU = SY-LANGU."
APPEND GS_SALESORDER_TEXT TO GT_SALESORDER_TEXT.
** Item Texts
* LOOP AT T_ITEMS INTO IT_ITEM.
* CLEAR GS_SALESORDER_TEXT.
* GS_SALESORDER_TEXT-ITM_NUMBER = IT_ITEM-ZITEM."
* GS_SALESORDER_TEXT-TEXT_ID = '0001'."Object VBBP
* GS_SALESORDER_TEXT-TEXT_LINE = IT_ITEM-ZITEXT."(订单抬头文本)
* GS_SALESORDER_TEXT-LANGU = SY-LANGU.
* APPEND GS_SALESORDER_TEXT TO GT_SALESORDER_TEXT.
* ENDLOOP.
ENDFORM. " FRM_INIT_SALESORDER_TEXTS
FORM FRM_CREATE_SALESORDER USING P_COMMIT.
DATA : LV_SALESORDER TYPE BAPIVBELN-VBELN,
LV_TESTRUN TYPE BAPIFLAG-BAPIFLAG,
LV_ERROR.
IF P_COMMIT IS INITIAL.
LV_TESTRUN = 'X'.
ENDIF.
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
ORDER_HEADER_IN = GS_SALESORDER_HEADER
ORDER_HEADER_INX = GS_SALESORDER_HEADERX
LOGIC_SWITCH = GS_LOGIC_SWITCH
TESTRUN = LV_TESTRUN
IMPORTING
SALESDOCUMENT = LV_SALESORDER
TABLES
RETURN = GT_RETURN
ORDER_ITEMS_IN = GT_SALESORDER_ITEM
ORDER_ITEMS_INX = GT_SALESORDER_ITEMX
ORDER_PARTNERS = GT_SALESORDER_PARTNER
ORDER_SCHEDULES_IN = GT_SALESORDER_SCHLINE
ORDER_SCHEDULES_INX = GT_SALESORDER_SCHLINEX
ORDER_CONDITIONS_IN = GT_SALESORDER_CONDITIONS
ORDER_CONDITIONS_INX = GT_SALESORDER_CONDITIONX
ORDER_TEXT = GT_SALESORDER_TEXT.
LOOP AT GT_RETURN INTO GS_RETURN.
CLEAR IT_MSG.
MOVE-CORRESPONDING GS_RETURN TO IT_MSG.
IT_MSG-ZPOSN = IT_HEADER-ZPOSN.
IT_MSG-ORDER = LV_SALESORDER.
CASE GS_RETURN-TYPE.
WHEN 'E' OR 'X' OR 'A'.
IT_MSG-LIGHT = ''."Red Light
LV_ERROR = 'X'.
WHEN 'S'.
IF GS_RETURN-ID = 'V1' AND GS_RETURN-NUMBER = ''.
IT_MSG-LIGHT = ''."Green Light
ELSE.
CONTINUE.
ENDIF.
WHEN OTHERS.
CONTINUE.
ENDCASE.
COLLECT IT_MSG.
* EXIT.
ENDLOOP.
IF LV_ERROR EQ 'X'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
CHECK P_COMMIT EQ 'X'.
PERFORM FRM_RECORD_LINES USING IT_HEADER-ZPOSN LV_SALESORDER.
* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT = 'X'.
ENDIF.
ENDFORM. " FRM_CREATE_SALESORDER
