ODO开发的RFUI发布好问题

2020-09-12 02:19发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)大家好, 我将开发一...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


大家好,

我将开发一个RFUI以发布良好的外向交货订单。

用户将选择ODO,而不是单击"发布问题"按钮。

您能分享您的建议吗?

Class,FM,PPF?

兄弟

M.Ozgur Unal

3条回答
能不能别闹
2020-09-12 03:05 .采纳回答

实际上,您可以从该计划中受益。 我无法使用/scwm/cl_goods_movement => post_dlv

 TABLES:zewms_uretime_transfer。
 数据:gs_huhdr TYPE/scwm/huhdr,

  gs_huref TYPE/scwm/huref,

  gs_item TYPE/scdl/db_proci_o,

  gs_refdoc类型/scdl/db_refdoc,

  gs_lips TYPE嘴唇,

  gs_makt TYPE营销,

  gs_palet TYPE/mdy/ppt_palet。
 *&包括ZEWM_PALET_ESLESTIRME_FORM

 *&------------------------------------------------  --------------------- *

 *&------------------------------------------------  --------------------- *

 *&模块STATUS_1100输出

 *&------------------------------------------------  --------------------- *

 *&

 *&------------------------------------------------  --------------------- *

 MODULE status_1100输出。

  将PF状态设置为"标准"。

  设置LEBAR'STANDART_'。

 ENDMODULE。

 *&------------------------------------------------  --------------------- *

 *&模块USER_COMMAND_1100 INPUT

 *&------------------------------------------------  --------------------- *

 *文字

 * -------------------------------------------------  --------------------- *

 模组user_command_1100 INPUT。

  案例sy-ucomm。

  当" B_SAVE"时。

  执行转移。

  结束。

 ENDMODULE。

 *&------------------------------------------------  --------------------- *

 *&模块USER_COMMAND_1100_EXIT INPUT

 *&------------------------------------------------  --------------------- *

 *文字

 * -------------------------------------------------  --------------------- *

 模组user_command_1100_exit输入。

  案例sy-ucomm。

  当"退出"或" B_BACK"时。

  离开屏幕0。

  结束。

 ENDMODULE。
 模组palet_check。

  清除:gs_huhdr,gs_huref,gs_item,gs_refdoc,gs_lips,gs_palet,

  gs_makt,

  zewms_uretime_transfer-umlgo,

  zewms_uretime_transfer-/scwm/stagarbin,

  zewms_uretime_transfer-productno,

  zewms_uretime_transfer-maktx,

  zewms_uretime_transfer-stock_category,

  zewms_uretime_transfer-kunnr,

  zewms_uretime_transfer-urt_tar,

  zewms_uretime_transfer-urt_saat,

  zewms_uretime_transfer-charg。
 */scwm/huhdr git GUID我

 */scwm/huref GUID i ver komplesatırıal/scwm/huref-DOCID BAPI yegöndereceğinDOCID yi verir。

 */SCDL/DB_PROCI_O TABLOSUNA git

 * DOCID =/scwm/huref-DOCID和

 * ITEMNO ='10'ver

 *

 */SCDL/DB_REFDOC-DOCID =/scwm/huref-DOCID

 * LIPS-VBELN =/SCDL/DB_REFDOC-REFDOCNO

 *

 *货盘编号=

 * Depo Yeri = LIPS-UMLGO

 *地址=/SCDL/DB_PROCI_O-/SCWM/STAGARBIN

 * Malzeme =/SCDL/DB_PROCI_O-PRODUCTNO

 *Ürün(maktx)=我

 *斯托克图鲁(StokTürü)=/SCDL/DB_PROCI_O-STOCK_CATEGORY

 *Müşteri=/MDY/PPT_PALET-kunnr

 *Ürt。  Trh。/Saat =/MDY/PPT_PALET-URT_TAR

 * Parti =/MDY/PPT_PALET-charg
  检查zewms_uretime_transfer-palet_no不是INITIAL。
  选择单个*从/scwm/huhdr输入到gs_huhdr

  在何处产生EQ zewms_uretime_transfer-palet_no。

  如果sy-subrc <> 0。

  留言'Palette nobulunamadı!' 类型" I"显示为" E"。

  返回。

  万一 。
  选择单个*从/scwm/huref输入到gs_huref

  guid_hu EQ gs_huhdr-guid_hu在哪里。
  选择单*从/scdl/db_proci_o INTO gs_item

  哪里docid EQ gs_huref-docid

  AND itemno EQ'10'。
  SELECT SINGLE * FROM/scdl/db_refdoc INTO gs_refdoc" Teslimat No bulunuyor

  docid EQ gs_huref-docid在哪里。
  选择单*从嘴唇到gs_lips

  在vbeln EQ gs_refdoc-refdocno中。
  选择单个*从/mdy/ppt_palet输入到gs_palet

  在Palletno EQ zewms_uretime_transfer-palet_no。
  zewms_uretime_transfer-productno = gs_item-productno。

  选择单个*从makt到gs_makt

  在哪里EQ zewms_uretime_transfer-productno。
  zewms_uretime_transfer-umlgo = gs_lips-umlgo。

  zewms_uretime_transfer-/scwm/stagarbin = gs_item-/scwm/stagarbin。

  zewms_uretime_transfer-maktx = gs_makt-maktx。

  zewms_uretime_transfer-stock_category = gs_item-stock_category。

  zewms_uretime_transfer-kunnr = gs_palet-kunnr。

  zewms_uretime_transfer-urt_tar = gs_palet-urt_tar。

  zewms_uretime_transfer-urt_saat = gs_palet-urt_saat。

  zewms_uretime_transfer-charg = gs_palet-charg。

  zewms_uretime_transfer-docid = gs_huref-docid。
 ENDMODULE。
 表格转移。

  数据:lt_return bapiret2的类型表,

  ls_return TYPE bapiret2。
  如果zewms_uretime_transfer-palet_no是INITIAL。

  消息" Palette Nobulunamadı"类型" I"显示为" E"。

  返回。

  万一 。
  如果zewms_uretime_transfer-docid是INITIAL。

  消息" Patent DOC IDbulunamadı"类型" I"显示为" E"。

  返回。

  万一 。
  通话功能" ZEWM_TESLIMAT_GONDER"

  出口

  iv_docid = zewms_uretime_transfer-docid

  输入

  et_return = lt_return。
  通话功能'FINB_BAPIRET2_DISPLAY'

  出口

  it_message = lt_return。
 ENDFORM。
功能zewm_teslimat_gonder。

 *" ------------------------------------------------  ----------------------

 *" *"本地接口:

 *"正在导入

 *" VALUE(IV_DOCID)类型/SCDL/DL_DOCID可选

 *"汇出

 *" VALUE(ET_RETURN)TYPE BAPIRET2_TT

 *" ------------------------------------------------  ----------------------

  常量:lc_aspect TYPE字符串值'/SCWM/S_SP_A_HEAD',

  lc_aspect2 TYPE字符串VALUE'/SCDL/S_SP_A_HEAD',

  lc_action TYPE字符串VALUE'/SCWM/ACT_POST_GM'。
  数据:lt_dlv类型/scwm/dlv_docid_item_tab,

  ls_dlv喜欢lt_dlv,

  lo_message类型参考/scdl/cl_dm_message,

  lt_message TYPE/scmb/t_messages_int,

  ls_message TYPE/scmb/s_messages_int,

  lv_raise_exc TYPE boole_d,

  lt_inkeys/scdl/s_sp_k_head的类型表,

  ls_inkeys TYPE/scdl/s_sp_k_head,

  lt_return_codes TYPE/scmb/t_sp_return_code,

  lv_rejected TYPE abap_bool,

  lt_return bapiret2的类型表,

  ls_return TYPE bapiret2,

  lo_sp类型参考/scwm/cl_sp_prd_out,"/img/scwm/cl_sp_fd。XAAYDIN ANA OBJEDEĞİŞTİRİLDİ

  go_handler2类型参考/scwm/cl_dlv_handler_adapter,

  go_handler3类型参考/scmb/cl_message_handler。
  免费:et_return。
  ls_inkeys-docid = iv_docid。"'0050569918601ED8B4C03480E1FA7111'。"'0050569933DD1ED8AFB33A81B086C110'。

  将ls_inkeys附加到lt_inkeys。
  创建对象go_handler2。
  创建对象lo_sp

  出口

  iv_mode =/scdl/cl_sp => sc_mode_classic"'C'

  io_attribute_handler = go_handler2

  io_message_handler = go_handler2。  " GO_TA_MANAGER-> MO_ADAPTER_HANDLER。" mo_adapter_handler。
  调用方法lo_sp->/scmb/if_sp_action〜execute

  出口

  方面= lc_aspect

  inkeys = lt_inkeys

 * inparam =

  动作= lc_action

 * Relation_inkey =

 *关系=

  输入

 *超出记录=

  拒绝= lv_rejected

  return_codes = lt_return_codes

 * related_outrecord =

  。
  go_handler3 = go_handler2-> mo_msg_handler。

  "调用方法go_handler3-> display_messages。
  呼叫方法go_handler3-> mt_message_out

  输入

  et_message = lt_message。
  将lt_message循环到ls_message中。

  ls_return-type = ls_message-s_msg-msgty。"" S"。

  ls_return-id = ls_message-s_msg-msgid。"" 00"。

  ls_return-number = ls_message-s_msg-msgno。"'398'。

  ls_return-log_msg_no = ls_message-s_msg-msgno。"" 398"。

  ls_return-message_v1 = ls_message-s_msg-msgv1。

  ls_return-message_v2 = ls_message-s_msg-msgv2。

  ls_return-message_v3 = ls_message-s_msg-msgv3。

  ls_return-message_v4 = ls_message-s_msg-msgv4。

  追加ls_return到lt_return。

  结束。
 如果lt_return不是INITIAL。

 *通话功能'FINB_BAPIRET2_DISPLAY'

 *出口

 * it_message = lt_return。

 其他。

  ls_return-type ='S'。

  ls_return-id ='00'。

  ls_return-number ='398'。

  ls_return-log_msg_no ='398'。

  ls_return-message_v1 ='Teslimatbaşarılı'。

  " ls_return-message_v2 ='No lu paletoluşturuldu'。

  追加ls_return到lt_return。

 万一 。
  et_return = lt_return。
  调用方法lo_sp->/scmb/if_sp_transaction〜save

 *出口

 *同步= ABAP_FALSE

  输入

  已拒绝= lv_rejected。
  案例lv_rejected。

  当abap_true时。

  回滚工作。

 *调用服务提供商的CLEANUP方法

  调用方法lo_sp->/scmb/if_sp_transaction〜cleanup

  出口

  原因=/scmb/if_sp_transaction=>SC_CLEANUP_END。"sc_cleanup_commit。

  当abap_false时。

  提交工作并等待。

  调用方法lo_sp->/scmb/if_sp_transaction〜cleanup

  出口

  原因=/scmb/if_sp_transaction => sc_cleanup_commit。

  结束。
 ENDFUNCTION。

Brgds

M.Ozgur Unal

一周热门 更多>

相关问答