SAP ABAP 资产调配_sap abt1n

method ZCLII_SI_FII012_S4_IB_SYN~SI_FII012_S4_IB_SYN.
*** **** INSERT IMPLEMENTATION HERE **** ***

    " 函数导入参数
DATA: zbsart(4)   TYPE c,
      zzbmsid(15) TYPE c.
DATA lt_req_item TYPE TABLE OF ztwmscargomovement.
DATA ls_req_item LIKE LINE OF lt_req_item.
" 函数导出参数
DATA message(100) TYPE c.
DATA type(2) TYPE c.
DATA mblnr(10) TYPE c.
DATA budat LIKE sy-datum.
DATA lt_res_item TYPE TABLE OF ztwmsreswriteoffitem.
DATA ls_res_item LIKE LINE OF lt_res_item.
DATA zbudat LIKE sy-datum.
DATA zdoc_date LIKE sy-datum.
"接口传入参数
DATA ls_req_si_header TYPE ZCLDT_FII012_S4_REQ_HEAD.
DATA lt_req_si_item TYPE ZCLDT_FII012_S4_REQ_item_tab.
DATA ls_req_si_item LIKE LINE OF lt_req_si_item.
"接口传出参数
DATA ls_res_si_header TYPE ZCLDT_FII012_S4_RES_RETURN_HEA.
DATA lt_res_si_item TYPE ZCLDT_FII012_S4_RES_return_tab.
DATA ls_res_si_item LIKE LINE OF lt_res_si_item.
DATA return TYPE ZCLDT_FII012_S4_RES.
DATA oref1 TYPE REF TO cx_dynamic_check.

TRY.
    ls_req_si_header = input-MT_FII012_S4_REQ-head.
    lt_req_si_item = input-MT_FII012_S4_REQ-item.

    Zbsart = ls_req_si_header-bsart.
    zzbmsid = ls_req_si_header-zbmsid.
    zbudat = ls_req_si_header-budat.
    zdoc_date = ls_req_si_header-doc_date.

    LOOP AT lt_req_si_item INTO ls_req_si_item.
      ls_req_item-matnr = ls_req_si_item-matnr.
      ls_req_item-maktx = ls_req_si_item-maktx.
      ls_req_item-menge = ls_req_si_item-menge.
      ls_req_item-bprme = ls_req_si_item-bprme.
      ls_req_item-ebeln = ls_req_si_item-ebeln.
      ls_req_item-ebelp = ls_req_si_item-ebelp.
      ls_req_item-aufnr = ls_req_si_item-aufnr.
      ls_req_item-kostl = ls_req_si_item-kostl.
      ls_req_item-werks = ls_req_si_item-werks.
      ls_req_item-lgort = ls_req_si_item-lgort.
      ls_req_item-aedat = ls_req_si_item-aedat.
      ls_req_item-move_plant = ls_req_si_item-move_plant.
      ls_req_item-move_stloc = ls_req_si_item-move_stloc.
      ls_req_item-lifnr = ls_req_si_item-lifnr.
      ls_req_item-charg = ls_req_si_item-charg.
      ls_req_item-rsnum = ls_req_si_item-rsnum.
      ls_req_item-rspos = ls_req_si_item-rspos.
      ls_req_item-vbeln = ls_req_si_item-vbeln.
      ls_req_item-posnr = ls_req_si_item-posnr.
      ls_req_item-ord42 = ls_req_si_item-ord42.
      ls_req_item-anln1 = ls_req_si_item-anln1.
      ls_req_item-zjlaiy = ls_req_si_item-zjlaiy.
      ls_req_item-zbmsun = ls_req_si_item-zbmsun.
      ls_req_item-reqno = ls_req_si_item-reqno.
      ls_req_item-reqitem = ls_req_si_item-reqitem.
      ls_req_item-sobkz = ls_req_si_item-sobkz.
      APPEND ls_req_item TO lt_req_item.
      CLEAR ls_req_item.
    ENDLOOP.

    CALL FUNCTION 'ZFG_GW_WMS_CARGOMOVEMENT'
      EXPORTING
        bsart    = zbsart
        zbmsid   = zzbmsid
        budat    = zbudat
        doc_date = zdoc_date
      IMPORTING
        ztype    = type
        zmess    = message
        mblnr    = mblnr
        year     = budat
      TABLES
        req_item = lt_req_item
        res_item = lt_res_item.

    ls_res_si_header-type = type.
    ls_res_si_header-mess = message.
    ls_res_si_header-mblnr = mblnr.
    ls_res_si_header-budat = budat.

    LOOP AT lt_res_item INTO ls_res_item.
      ls_res_si_item-material = ls_res_item-material.
      ls_res_si_item-plant = ls_res_item-plant.
      ls_res_si_item-stge_loc = ls_res_item-stge_loc.
      ls_res_si_item-batch = ls_res_item-batch.
      ls_res_si_item-move_type = ls_res_item-move_type.
      ls_res_si_item-spec_stock = ls_res_item-spec_stock.
      ls_res_si_item-vendor = ls_res_item-vendor.
      ls_res_si_item-customer = ls_res_item-customer.
      ls_res_si_item-sales_ord = ls_res_item-sales_ord.
      ls_res_si_item-s_ord_item = ls_res_item-s_ord_item.
      ls_res_si_item-entry_qnt = ls_res_item-entry_qnt.
      ls_res_si_item-entry_uom = ls_res_item-entry_uom.
      ls_res_si_item-po_number = ls_res_item-po_number.
      ls_res_si_item-po_item = ls_res_item-po_item.
      ls_res_si_item-no_more_gr = ls_res_item-no_more_gr.
      ls_res_si_item-item_text = ls_res_item-item_text.
      ls_res_si_item-gr_rcpt = ls_res_item-gr_rcpt .
      ls_res_si_item-costcenter = ls_res_item-costcenter.
      ls_res_si_item-orderid = ls_res_item-orderid.
      ls_res_si_item-order_itno = ls_res_item-order_itno.
      ls_res_si_item-asset_no = ls_res_item-asset_no.
      ls_res_si_item-reserv_no = ls_res_item-reserv_no.
      ls_res_si_item-res_item = ls_res_item-res_item.
      ls_res_si_item-res_type = ls_res_item-res_type.
      ls_res_si_item-move_mat = ls_res_item-move_mat.
      ls_res_si_item-move_plant = ls_res_item-move_plant.
      ls_res_si_item-move_stloc = ls_res_item-move_stloc.
      ls_res_si_item-mvt_ind = ls_res_item-mvt_ind.
      ls_res_si_item-move_reas = ls_res_item-move_reas.
      ls_res_si_item-wbs_elem = ls_res_item-wbs_elem.
      ls_res_si_item-gl_account = ls_res_item-gl_account.
      ls_res_si_item-deliv_numb = ls_res_item-deliv_numb.
      ls_res_si_item-deliv_item = ls_res_item-deliv_item.
      ls_res_si_item-quantity = ls_res_item-quantity.
      ls_res_si_item-base_uom = ls_res_item-base_uom.
      ls_res_si_item-MBLPO = ls_res_item-MBLPO.
      APPEND ls_res_si_item TO lT_res_si_item.
      CLEAR ls_res_si_item.
    ENDLOOP.

  CATCH cx_dynamic_check INTO oref1.
    IF type = 'S'.
      message = oref1->get_text( ).
      CONCATENATE '执行成功，参数转换时发生错误:' message INTO ls_res_si_header-mess.
    ELSE.
      ls_res_si_header-type = 'E'.
      ls_res_si_header-mess = oref1->get_text( ).
    ENDIF.
ENDTRY.
return-return_head = ls_res_si_header.
return-return_item = lt_res_si_item.
output-MT_FII012_S4_RES = return.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138

endmethod.