「网赚项目下载」 关于BAPI扩展字段赋值-冷门项目

本文最后更新于2020年8月20日,已超过30天没有更新,如果文章内容失效,请反馈给我们,谢谢!

摘要

实例一: t_extensionin-structure = 'BAPI_TE_MARA'. wa_temara-material = gw_data-matnr. wa...

 

本站长期更新如何网赚以及网赚技巧相关教程

同时本站也是网赚论坛大全,会给大家带来网赚钱最多是什么网相关项目

本站内容好好研究,轻轻松松做出月入过万的副业


正文:

 

实例一:
t_extensionin-structure = 'BAPI_TE_MARA'.
wa_temara-material = gw_data-matnr.
wa_temara-bismt = gw_data-bismt.
CALL METHOD cl_abap_container_utilities=>fill_container_c
EXPORTING
im_value     = wa_temara+0(36)
IMPORTING
ex_container = t_extensionin-valuepart1.
APPEND  t_extensionin.
t_extensioninx-structure = 'BAPI_TE_MARAX'.
wa_temarax-material = gw_data-matnr.
wa_temarax-bismt = 'X'.
CALL METHOD cl_abap_container_utilities=>fill_container_c
EXPORTING
im_value     = wa_temarax+0(19)
IMPORTING
ex_container = t_extensionin-valuepart1.
APPEND  t_extensioninx.
CLEAR:
wa_temara,
wa_temarax,
t_extensioninx,
t_extensionin.
实例二:
CLEAR lw_exten.
lw_exten-vsart  = gw_data-vsart.    "装运类型
lw_exten-zcchm  = gw_data-zcchm .   "车(船)号
lw_exten-zsjxm  = gw_data-zsjxm .   "司机姓名
lw_exten-zshfzh = gw_data-zshfzh .  "身份证号
lw_exten-zdhhm  = gw_data-zdhhm .   "电话
lw_exten-zbz    = gw_data-zbz .     "备注
IF lw_exten IS NOT INITIAL.
PERFORM frm_extension TABLES lt_extension_in  USING 'ZSSD003_EXTENSION' lw_exten .
ENDIF.
*&---------------------------------------------------------------------*

*&Form FRM_EXTENSION

&———————————————————————

———————————————————————-

———————————————————————-

FORM frm_extension TABLES pt_extension_in

USING pv_structure

pw_extension

.

DATA: lw_extension_in TYPE bapiparex,

lv_lenTYPE i,

lv_beginTYPE i.

“通过测试长度扩展字段 英文,自动填加四个附加结构字段,

“字段增加多少,都不能再对字段长度扩展字段 英文,

“但不能超960

CLEAR: lv_len.

CLEAR lw_extension_in.

lv_len= strlen( pw_extension ).

lw_extension_in-structure = pv_structure.

CALL METHOD cl_abap_container_utilities=>fill_container_c

EXPORTING

im_value= pw_extension

IMPORTING

ex_container = lw_extension_in-valuepart1.

IF lv_len > 240.

lv_begin = 240.

CALL METHOD cl_abap_container_utilities=>fill_container_c

EXPORTING

im_value= pw_extension+lv_begin

IMPORTING

ex_container = lw_extension_in-valuepart2.

ENDIF.

IF lv_len > 480.

lv_begin = 480.

CALL METHOD cl_abap_container_utilities=>fill_container_c

EXPORTING

im_value= pw_extension+lv_begin

IMPORTING

ex_container = lw_extension_in-valuepart3.

ENDIF.

IF lv_len > 720.

lv_begin = 720.

CALL METHOD cl_abap_container_utilities=>fill_container_c

EXPORTING

im_value= pw_extension+lv_begin

IMPORTING

ex_container = lw_extension_in-valuepart4.

ENDIF.

APPEND lw_extension_in TO pt_extension_in.

ENDFORM.

转载请注明:太白网赚平台 » 「网赚项目下载」 关于BAPI扩展字段赋值

年轻的时候,不能想太多,想得太多会毁了你。成功路上最心酸的是要耐得住寂寞,总是有那么一段路是你一个人在走。也许这个过程要持续很久,但如果你挺过去了,最后的成功就属于你。最坚强的人,就是把石头从痛苦的围墙移到通向天堂的阶梯 

网赚58:专注互联网冷门项目,紧跟最新最热创业信息,分享经验心得,揭秘套路,是网赚客的聚集地,主要项目有高回报项目和薅羊毛活动

网赚58-专注互联网冷门项目
  • 风险提示:本站项目资讯均收集自互联网,投资有风险,各位需谨慎,如有损失,概不负责
  • 一手消息:请加入QQ禁言群,获取最新消息

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: