Chinaunix首页 | 论坛 | 博客
  • 博客访问: 3146733
  • 博文数量: 238
  • 博客积分: 864
  • 博客等级: 军士长
  • 技术积分: 2940
  • 用 户 组: 普通用户
  • 注册时间: 2012-10-08 23:01
个人简介

Mobile: 135 8576 5961 / WeChat: IM_WILLIAM_C / Mail: william.chen.cn@outlook.com /

文章分类

全部博文(238)

文章存档

2018年(2)

2016年(35)

2015年(47)

2014年(104)

2013年(38)

2012年(12)

分类: 其他平台

2015-12-29 20:54:48

  DATA: l_objectkey LIKE bapi1003_key-object.
  DATA: lt_char LIKE bapi1003_alloc_values_char OCCURS 0 WITH HEADER LINE,
        lt_num  LIKE bapi1003_alloc_values_num  OCCURS 0 WITH HEADER LINE,
        lt_curr LIKE bapi1003_alloc_values_curr OCCURS 0 WITH HEADER LINE,
        lt_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

*-------------------------------------------------
    l_objectkey = wa_bill-matnr.
    "银行账号暂且空白
    CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
      EXPORTING
        objectkey              = l_objectkey             "
        objecttable            = 'MARA'
        classnum               = 'CL_PC20'
        classtype              = '001'                      " class type
*       KEYDATE                = SY-DATUM
*       UNVALUATED_CHARS       = ' '
        language               = 'E'
*     IMPORTING
*       STATUS                 =
*       STANDARDCLASS          =
      TABLES
        allocvaluesnum         = lt_num
        allocvalueschar        = lt_char           "charactor info
        allocvaluescurr        = lt_curr
        return                 = lt_return.
              .

    CLEAR lt_char.
    READ TABLE lt_char WITH KEY charact = 'SEQUENCE_NR'.
    IF sy-subrc = 0.
      wa_output-chara = lt_char-value_char.         "商品特征
    ENDIF.
    CLEAR lt_char.
    READ TABLE lt_char WITH KEY charact = 'CUSTOM_MATERIAL_DESCR'.
    IF sy-subrc = 0.
      wa_output-goods = lt_char-value_char.         "商品名称
    ENDIF.
*---------------------------------------------------------------------------

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

上一篇:Troditional ALV layout save

下一篇:Reverse Posting

给主人留下些什么吧!~~