Chinaunix首页 | 论坛 | 博客

雅心居

首页　| 　博文目录　| 　关于我

nanyunjian

  • 博客访问： 688281
  • 博文数量： 194
  • 博客积分： 7067
  • 博客等级： 少将
  • 技术积分： 2008
  • 用 户 组： 普通用户
  • 注册时间： 2008-04-09 14:48
个人简介

我很好

文章分类

全部博文（194）

文章存档

2019年（1）

2018年（1）

2017年（3）

2015年（2）

2012年（2）

2011年（1）

2010年（27）

2009年（15）

2008年（142）

我的朋友
最近访客
推荐博文
相关博文
批量重读PP主数据 BDC

分类： 项目管理

2012-05-02 21:36:01

1、BDC不好使，网上找到 CALL   CALL TRANSACTION  代码，修改，批量重读PP主数据

点击(此处)折叠或打开

  1. *&---------------------------------------------------------------------*
  2. *& Report ZPPPR_RESETPPDATA
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  9. REPORT zpppr_resetppdata.
  10. INCLUDE zco02.
  11. DATA:
  12. ls_bdc LIKE bdcdata,
  13. lt_bdc LIKE STANDARD TABLE OF bdcdata.
  15. DATA:
  16. w_dis_mode TYPE char1 VALUE 'E',
  17. w_upd_mode TYPE char1 VALUE 'S',
  18. w_session LIKE apqi-groupid VALUE 'SESSION1-54' .
  21. DATA:BEGIN OF gt_list OCCURS 0 ,
  22. aufnr LIKE caufvd-aufnr,
  23. plauf LIKE rc62f-plauf,
  24. aufld LIKE rc62f-aufld ,
  25. END OF gt_list.
  30. SELECTION-SCREEN BEGIN OF BLOCK bl2 WITH FRAME TITLE text-002.
  31. PARAMETERS:txtfile LIKE rlgrap-filename DEFAULT 'D:\RESET_PP_DATA.TXT'.
  32. SELECTION-SCREEN END OF BLOCK bl2.
  34. AT SELECTION-SCREEN ON VALUE-REQUEST FOR txtfile.
  35. PERFORM filename_find.
  37. START-OF-SELECTION.
  38. PERFORM sub_uploaddata_header.
  39. PERFORM fill_bdc_tab.
  40. * PERFORM set_ppdata.
  41. * PERFORM set_ppdata2.
  42. * WRITE 'OK'.
  43. *&---------------------------------------------------------------------*
  44. *& Form filename_find
  45. *&---------------------------------------------------------------------*
  46. * text
  47. *----------------------------------------------------------------------*
  48. * --> p1 text
  49. * <-- p2 text
  50. *----------------------------------------------------------------------*
  51. FORM filename_find .
  52. CALL FUNCTION 'WS_FILENAME_GET'
  53. EXPORTING
  54. def_filename = txtfile
  55. def_path = 'D:\'
  56. mask = 'C*.TXT'
  57. mode = 'O'
  58. title = 'File Name'
  59. IMPORTING
  60. filename = txtfile
  61. EXCEPTIONS
  62. inv_winsys = 1
  63. no_batch = 2
  64. selection_cancel = 3
  65. selection_error = 4
  66. OTHERS = 5.
  67. ENDFORM. " filename_find
  68. *&---------------------------------------------------------------------*
  69. *& Form sub_uploaddata_header
  70. *&---------------------------------------------------------------------*
  71. * text
  72. *----------------------------------------------------------------------*
  73. * --> p1 text
  74. * <-- p2 text
  75. *----------------------------------------------------------------------*
  76. FORM sub_uploaddata_header .
  77. CALL FUNCTION 'WS_UPLOAD'
  78. EXPORTING
  79. filename = txtfile
  80. filetype = 'DAT'
  81. TABLES
  82. data_tab = gt_list
  83. EXCEPTIONS
  84. conversion_error = 1
  85. file_open_error = 2
  86. file_read_error = 3
  87. invalid_type = 4
  88. no_batch = 5
  89. unknown_error = 6
  90. invalid_table_width = 7
  91. gui_refuse_filetransfer = 8
  92. customer_error = 9
  93. OTHERS = 10.
  95. ENDFORM. " sub_uploaddata_header
  96. *&---------------------------------------------------------------------*
  97. *& Form set_ppdata
  98. *&---------------------------------------------------------------------*
  99. * text
  100. *----------------------------------------------------------------------*
  101. * --> p1 text
  102. * <-- p2 text
  103. *----------------------------------------------------------------------*
  104. FORM set_ppdata .
  106. LOOP AT gt_list.
  107. PERFORM bdc_dynpro USING 'SAPLCOKO1' '1010'.
  108. PERFORM bdc_field USING 'BDC_CURSOR' 'CAUFVD-AUFNR'.
  109. PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
  110. PERFORM bdc_field USING 'RC27M-MATNR' gt_list-aufnr.
  111. PERFORM bdc_field USING 'R62CLORD-FLG_OVIEW' 'X'.
  114. PERFORM bdc_dynpro USING 'SAPLCOKO1' '0115'.
  115. PERFORM bdc_field USING 'BDC_OKCODE' '=STAK'.
  116. PERFORM bdc_field USING 'BDC_SUBSCR' 'SAPLCOKO1 0120SUBSCR_0115'.
  118. PERFORM bdc_dynpro USING 'SAPLCOKO1' '0131'.
  119. PERFORM bdc_field USING 'BDC_OKCODE' '=ENT1'.
  120. PERFORM bdc_field USING 'BDC_CURSOR' 'RC62F-PLAUF'.
  121. PERFORM bdc_field USING 'RC62F-NEW_ROUT' 'X'.
  122. PERFORM bdc_field USING 'RC62F-PLAUF' gt_list-plauf.
  123. PERFORM bdc_field USING 'RC62F-NEW_BOM' 'X'.
  124. PERFORM bdc_field USING 'RC62F-AUFLD' gt_list-aufld.
  127. PERFORM bdc_dynpro USING 'SAPLCOKO1' '0115'.
  128. PERFORM bdc_field USING 'BDC_OKCODE' '=FREI'.
  130. PERFORM bdc_dynpro USING 'SAPLCOKO1' '0115'.
  131. PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
  133. PERFORM bdc_transaction USING 'CO02'.
  135. ENDLOOP.
  136. ENDFORM. " set_ppdata
  137. *&---------------------------------------------------------------------*
  138. *& Form open_group
  139. *&---------------------------------------------------------------------*
  140. * text
  141. *----------------------------------------------------------------------*
  142. * --> p1 text
  143. * <-- p2 text
  144. *----------------------------------------------------------------------*
  145. *&---------------------------------------------------------------------*
  146. *& Form set_ppdata2
  147. *&---------------------------------------------------------------------*
  148. * text
  149. *----------------------------------------------------------------------*
  150. * --> p1 text
  151. * <-- p2 text
  152. *----------------------------------------------------------------------*
  153. FORM set_ppdata2 .
  155. ENDFORM. " set_ppdata2
  158. *&---------------------------------------------------------------------*
  159. *& Form fill_bdc_tab
  160. *&---------------------------------------------------------------------*
  161. * text
  162. *----------------------------------------------------------------------*
  163. FORM fill_bdc_tab .
  165. LOOP AT gt_list.
  166. REFRESH:lt_bdc.
  167. PERFORM populate_bdc_tab USING:
  168. '1' 'SAPLCOKO1' '0110',
  169. '' 'BDC_CURSOR' 'CAUFVD-AUFNR',
  170. '' 'BDC_OKCODE' '/00',
  171. '' 'CAUFVD-AUFNR' gt_list-aufnr," '10302095',
  172. '' 'R62CLORD-FLG_OVIEW' 'X',
  173. '1' 'SAPLCOKO1' '0115',
  174. '' 'BDC_OKCODE' '=STAK',
  175. '' 'BDC_SUBSCR' 'SAPLCOKO1 0120SUBSCR_0115',
  176. '1' 'SAPLCOKO1' '0131',
  177. '' 'BDC_OKCODE' '=ENT1',
  178. '' 'BDC_CURSOR' 'RC62F-PLAUF',
  179. '' 'RC62F-NEW_ROUT' 'X',
  180. '' 'RC62F-PLAUF' gt_list-plauf,"'2012.03.26',
  181. '' 'RC62F-NEW_BOM' 'X',
  182. '' 'RC62F-AUFLD' gt_list-aufld,"'2012.03.26',
  183. '1' 'SAPLCOKO1' '0115',
  184. '' 'BDC_OKCODE' '=FREI',
  185. '' 'BDC_SUBSCR' 'SAPLCOKO1 0120SUBSCR_0115',
  186. '' 'BDC_CURSOR' 'CAUFVD-GAMNG',
  187. '1' 'SAPLCOKO1' '0115',
  188. '' 'BDC_OKCODE' '=BU',
  189. '' 'BDC_SUBSCR' 'SAPLCOKO1 0120SUBSCR_0115',
  190. '' 'BDC_CURSOR' 'CAUFVD-GAMNG'.
  193. CALL TRANSACTION 'CO02'
  194. USING lt_bdc
  195. MODE w_dis_mode
  196. UPDATE w_upd_mode.
  197. ENDLOOP.
  198. ENDFORM. "fill_bdc_tab
  201. *&---------------------------------------------------------------------*
  202. *& Form populate_bdc_tab
  203. *&---------------------------------------------------------------------*
  204. * text
  205. *----------------------------------------------------------------------*
  206. * -->FLAG text
  207. * -->VAR1 text
  208. * -->VAR2 text
  209. *----------------------------------------------------------------------*
  210. FORM populate_bdc_tab USING flag TYPE char1
  211. var1 TYPE any
  212. var2 TYPE any.
  213. CLEAR ls_bdc.
  214. IF flag = '1'.
  215. ls_bdc-program = var1.
  216. ls_bdc-dynpro = var2.
  217. ls_bdc-dynbegin = 'X'.
  218. ELSE.
  219. ls_bdc-fnam = var1.
  220. ls_bdc-fval = var2.
  221. ENDIF.
  222. APPEND ls_bdc TO lt_bdc.
  223. ENDFORM. "populate_bdc_tab


阅读(3466) | 评论(0) | 转发(0) |
0

上一篇：程序跳转

下一篇：从SAP服务器下载文件到本地

给主人留下些什么吧！~~
关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6