资料－请楼主更新资料说明

jecogroup

1. 
   
2. idoc也有相应的功能代码，一般是一个函数，idoc有三个相应的表，
   
3. 一个控制记录 (IDoc)==〉edidc，一个数据记录 (IDoc)==〉EDIDD,
   
4. 一个ALE 的 IDoc 状态（所有 IDoc 状态字段的子集）==>BDIDOCSTAT.
   
5. 下面是我开发一个IDOC中的功能代码：
   
6. *"     VALUE(APPLICATION_VARIABLE) LIKE  BDWFAP_PAR-APPL_VAR
   
7. *"     VALUE(IN_UPDATE_TASK) LIKE  BDWFAP_PAR-UPDATETASK
   
8. *"     VALUE(CALL_TRANSACTION_DONE) LIKE  BDWFAP_PAR-CALLTRANS
   
9. *"     VALUE(RT_CODE) LIKE  VBERROR-VARMSGVAL
   
10. *"     VALUE(RT_MSG) LIKE  VBERROR-VARMSGVAL
    
11. *"  TABLES
    
12. *"      IDOC_CONTRL STRUCTURE  EDIDC
    
13. *"      IDOC_DATA STRUCTURE  EDIDD
    
14. *"      IDOC_STATUS STRUCTURE  BDIDOCSTAT
    
15. *"----------------------------------------------------------------------
    
16. loop at idoc_contrl.
    
17.    loop at idoc_data WHERE DOCNUM EQ IDOC_CONTRL-DOCNUM.
    
18.      concatenate sy-mandt idoc_data-sdata into idoc_data-sdata.
    
19.      if IDOC_DATA-SEGNAM EQ 'Z1COOPH'.
    
20.        MOVE:IDOC_DATA-SDATA TO v_zCOOPH.
    
21.        append v_ZCOOPH.
    
22.        CLEAR v_ZCOOPH.
    
23.      ENDIF.
    
24.      if  IDOC_DATA-SEGNAM EQ 'Z1COOPR'.
    
25.        MOVE:IDOC_DATA-SDATA TO v_ZCOOPR.
    
26.        append v_ZCOOPR.
    
27.        CLEAR v_ZCOOPR.
    
28.      ENDIF.
    
29.      if  IDOC_DATA-SEGNAM EQ 'Z1COOPD'.
    
30.        MOVE:IDOC_DATA-SDATA TO v_ZCOOPD.
    
31.        append v_ZCOOPD.
    
32.        CLEAR v_ZCOOPD.
    
33.      ENDIF.
    
34.      if  IDOC_DATA-SEGNAM EQ 'Z1COOPP'.
    
35.        MOVE:IDOC_DATA-SDATA TO v_ZCOOPP.
    
36.        append v_ZCOOPP.
    
37.        CLEAR v_ZCOOPP.
    
38.      ENDIF.
    
39.      if  IDOC_DATA-SEGNAM EQ 'Z1COOPS'.
    
40.        MOVE:IDOC_DATA-SDATA TO v_ZCOOPS.
    
41.        append v_ZCOOPS.
    
42.        CLEAR v_ZCOOPS.
    
43.      ENDIF.
    
44.      if  IDOC_DATA-SEGNAM EQ 'Z1COPDL'.
    
45.        MOVE:IDOC_DATA-SDATA TO v_ZCOOPDL.
    
46.        append v_ZCOOPDL.
    
47.        CLEAR v_ZCOOPDL.
    
48.      ENDIF.
    
49.    endloop.
    
50. endloop.
    
51. modify zcooph from table v_zcooph.
    
52. modify zcoopr from table v_zcoopr.
    
53. modify zcoopp from table v_zcoopp.
    
54. modify zcoops from table v_zcoops.
    
55. modify zcoopd from table v_zcoopd.
    
56. modify zcoopdl from table v_zcoopdl.
    
57. IF SY-SUBRC EQ 0.
    
58.    COMMIT WORK.
    
59.            rt_msg = 'SUCCEED IN IDOC INBOUNDING'.
    
60.            idoc_status-docnum = idoc_contrl-docnum.
    
61.            idoc_status-status = '53'.
    
62.            idoc_status-msgty = 'S'.
    
63.            idoc_status-msgid = 'F2'.
    
64.            idoc_status-msgno = '899'.
    
65.            idoc_status-msgv1 = 'IDOC INBOUNDING 已成功 '.
    
66.            append idoc_status.clear idoc_status.
    
67.   loop at v_zcooph.
    
68.      loop at v_zcoopr where zTASKNO = v_zcooph-zTASKNO.
    
69.        call function 'YRFC_ALLOCATE_TASK_TO_ABC'
    
70.             EXPORTING
    
71.                  zTASKNO   = v_zcoopr-zTASKNO
    
72.                  ZTASKITEM = v_zcoopr-ZTASKITEM
    
73.                  ZKUNNR    = v_zcooph-Zkunnr
    
74.                  ZSTEPNO   = v_zcoopr-ZSTEPNO
    
75.             TABLES
    
76.                  v_zcooph  = v_zcooph1
    
77.                  v_zcoopr  = v_zcoopr1
    
78.                  v_zcoopp  = v_zcoopp1
    
79.                  v_zcoops  = v_zcoops1
    
80.                  v_zcoopd  = v_zcoopd1
    
81.                  v_zcoopdl = v_zcoopdl1.
    
82.        call function 'CALL_WEBMETHOD'
    
83.              destination 'SAPBC'
    
84.               exporting ztaskno   = v_zcoopr-ztaskno
    
85.                         ztaskitem = v_zcoopr-ztaskitem
    
86.                         zstepno   = v_zcoopr-zstepno
    
87.               importing  rt_code  = rt_code
    
88.                  tables   v_zcooph  = v_zcooph1
    
89.                           v_zcoopr  = v_zcoopr1
    
90.                           v_zcoopd  = v_zcoopd1
    
91.                           v_zcoopp = v_zcoopp1
    
92.                           v_zcoops  = v_zcoops1
    
93.                           v_zcoopdl = v_zcoopdl1.
    
94. 
    
95.        if sy-subrc eq 0.
    
96.          if rt_code eq 'T'.
    
97.            rt_msg = 'SUCCEED IN CALL WEBMETHOD'.
    
98.            idoc_status-docnum = idoc_contrl-docnum.
    
99.            idoc_status-status = '53'.
    
100.            idoc_status-msgty = 'S'.
     
101.            idoc_status-msgid = 'F2'.
     
102.            idoc_status-msgno = '899'.
     
103.            idoc_status-msgv1 = 'CALL WEBMETHOD 已成功 '.
     
104.            append idoc_status.clear idoc_status.
     
105.          elseif rt_code eq 'F'.
     
106.            rt_msg = 'FAIL IN CALL WEBMETHOD'.
     
107.            LOOP AT IDOC_STATUS WHERE STATUS EQ '53'.
     
108.               IDOC_STATUS-STATUS = '52'.
     
109.               MODIFY TABLE IDOC_STATUS TRANSPORTING STATUS.
     
110.            ENDLOOP.
     
111.            idoc_status-docnum = idoc_contrl-docnum.
     
112.            idoc_status-status = '51'.
     
113.            idoc_status-msgty = 'E'.
     
114.            idoc_status-msgid = 'F2'.
     
115.            idoc_status-msgno = '899'.
     
116.            idoc_status-msgv1 = 'CALL WEBMETHOD 不成功 '.
     
117.            append idoc_status.clear idoc_status.
     
118.          endif.
     
119.        endif.
     
120.      endloop.
     
121.    endloop.
     
122.   ELSE.
     
123.           rt_msg = 'FAIL IN IDOC INBOUNDING'.
     
124.            idoc_status-docnum = idoc_contrl-docnum.
     
125.            idoc_status-status = '51'.
     
126.            idoc_status-msgty = 'E'.
     
127.            idoc_status-msgid = 'F2'.
     
128.            idoc_status-msgno = '899'.
     
129.            idoc_status-msgv1 = 'IDOC INBOUNDING 不成功 '.
     
130.            append idoc_status.clear idoc_status.
     
131.   ROLLBACK WORK.
     
132. ENDIF.
     
133. ENDFUNCTION.
     

复制代码

jecogroup

发泄资料